loetstelle.net
Lötstelle Userforum
 
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

Lichtschranke (hat sich schon erledigt)

 
Neues Thema eröffnen   Neue Antwort erstellen    loetstelle.net Foren-Übersicht -> BASCOM
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
modellfreund



Anmeldungsdatum: 01.03.2008
Beiträge: 410
Wohnort: Aken

BeitragVerfasst am: Sa 14.Aug 2010 15:07:04    Titel: Lichtschranke (hat sich schon erledigt) Bauteile finden Antworten mit Zitat

(Das Problem hat sich schon erledigt, ich habe vergessen von der Lichtschranke einen Draht anzuklemmen)

Hallo,

ich will für meine Garage eine Lichtschranke bauen, die mir anzeigt wann das Tor wieder frei ist. Ich habe mal versucht aus einem alten Projekt für meine Modellbahn ein Programm zu entwerfen, was aber anscheinend total in die Hose ging.

Noch ein paar Infos:
Die Steuerung wird mit über das Tor gespeißt, bedeutet: Sie ist nur an, wenn das Tor hoch geht. Ich denke was das Programm machen soll ist ersichtlich, es macht halt nur nicht was es machen soll. Crying or Very sad



Code:
$regfile = "attiny13.dat"
$crystal = 1200000
$hwstack = 16
$swstack = 10
$fraamesize = 16


Dim Char_count As Byte

Anzeige Alias Portb.2
Config Anzeige = Output

Oeffner Alias Pinb.3
Config Oeffner = Input
Portb.3 = 1

Schliesser Alias Pinb.4
Config Schliesser = Input
Portb.4 = 1


Main:


   If Char_count = 0 And Oeffner = 0 Then
      Anzeige = 1
      Wait 1
      Anzeige = 0
      Wait 3
   End If

    If Char_count = 1 And Oeffner = 1 Then

      Anzeige = 1
      Waitms 500
      Anzeige = 0
      Waitms 500
    End If

    If Char_count = 1 And Oeffner = 0 Then
      Anzeige = 1
    End If

    If Char_count = 2 Then
      Char_count = 0
    End If





    Debounce Schliesser , 0 , On_lichtschranke

Goto Main
End


On_lichtschranke:

    Incr Char_count

Goto Main


Könnt Ihr mir weiterhelfen?
LG Felix

_________________
www.lang-gartenbahn.de
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
Anzeige






Verfasst am: Heute 22:34:33    Titel: Bauteile finden

Nach oben
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    loetstelle.net Foren-Übersicht -> BASCOM Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum nicht herunterladen


Powered by phpBB 2.x © 2001, 2002 phpBB Group

Sie sind Besucher Nr. 1201711
©opyright by Markus Vohburger 2005 All Rights reserved