Lichtschranke (hat sich schon erledigt)

Hier finden sie die archivierten Beiträge des alten PHPBB Forums von www.loetstelle.net

Lichtschranke (hat sich schon erledigt)

Von modellfreund am 14.08.2010 15:07

(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. :cry:



1]$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 Main1]

Könnt Ihr mir weiterhelfen?
LG Felix