Hier mal mein Programmcode:
(an pinb.5 ist der Output des Sensors; Portd.2/3 sind die beiden Pins für die States)
Code:
Tsc230:
If State <> Pinb.5 Then
Incr Nr
End If
Incr Rounds
If Rounds = 312 Then
Incr Currentcolor
If Currentcolor >= 4 Then
Currentcolor = 0
End If
If Currentcolor = 0 Then
Portd.2 = 0
Portd.3 = 0
Cl = Nr
Elseif Currentcolor = 1 Then
Portd.2 = 1
Portd.3 = 1
R = Nr
Elseif Currentcolor = 2 Then
Portd.2 = 0
Portd.3 = 1
G = Nr
Elseif Currentcolor = 3 Then
Portd.2 = 1
Portd.3 = 0
B = Nr
End If
Rounds = 0
Nr = 0
End If
State = Pinb.5
Return
Lesezeichen