- Offizieller Beitrag
hey,
ich überlege ja immer noch ob ich mir nicht diese startampel bauen soll. Was könnte man mit diesem C-Control noch sinnvolles an der GO!!! machen? wie man dort lesen kann hat die sogar eine fehlstartkontrolle. vielleicht kann man das ja auch mit L&T kombinieren.
das programm für die ampel sieht so aus
[code:1]
Define Led0 Port [1]
Define Led1 Port [2]
Define Led2 Port [3]
Define Led3 Port [4]
Define Led4 Port [5]
Define Led5 Port [6]
Define Lane1 AD [1]
Define Lane2 AD [2]
Define Lane3 AD [3]
Define Lane4 AD [4]
Define Lane5 AD [5]
Define Lane6 AD [6]
Define Lane7 AD [7]
Define Lane8 AD [8]
Define Zeit Word
Define Warte Word
Define Fehlstart Byte
Pause 5
Fehlstart = 0
Led0 = 0
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 1
print lane5
If lane5 > 64 Then Goto Check
Goto Ende
#INITPORTS
Led0 = 0
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
#INITVARS
Fehlstart = 0
Randomize Timer
Warte = Timer
#RedLoop
If Timer > (Warte+050) Then Led0=1
If Timer > (Warte+100) Then Led1=1
If Timer > (Warte+150) Then Led2=1
If Timer > (Warte+200) Then Led3=1
If Timer > (Warte+250) Then Led4=1
Gosub Frühstart
If Timer < (Warte+260) Then Goto RedLoop
Zeit = (Rand/200)
If Zeit < 0 Then Zeit = Zeit * -1
If Zeit > 150 Then Zeit = 150
'print zeit
Warte = Timer
#GreenLoop
Gosub Frühstart
If Timer < (Warte + Zeit) Then Goto GreenLoop
If (Fehlstart And &B00000001) = 0 Then Led0=0
If (Fehlstart And &B00000010) = 0 Then Led1=0
If (Fehlstart And &B00000100) = 0 Then Led2=0
If (Fehlstart And &B00001000) = 0 Then Led3=0
Led4=0
Led5=1
#Ende
If lane5 < 64 Then Goto Ende
Goto initports
End
#Frühstart
If Lane1 > 20 Then Fehlstart = Fehlstart OR &B00000001
If Lane2 > 20 Then Fehlstart = Fehlstart OR &B00000010
If Lane3 > 20 Then Fehlstart = Fehlstart OR &B00000100
If Lane4 > 20 Then Fehlstart = Fehlstart OR &B00001000
If Lane5 > 20 Then Fehlstart = Fehlstart OR &B00010000
If Lane6 > 20 Then Fehlstart = Fehlstart OR &B00100000
If Lane7 > 20 Then Fehlstart = Fehlstart OR &B01000000
If Lane8 > 20 Then Fehlstart = Fehlstart OR &B10000000
Return
#Check
Led4 = 1
Led5 = 0
If Lane1 > 20 Then Led0 = 1 Else Led0 = 0
If Lane2 > 20 Then Led1 = 1 Else Led1 = 0
If Lane3 > 20 Then Led2 = 1 Else Led2 = 0
If Lane4 > 20 Then Led3 = 1 Else Led3 = 0
'If Lane5 < 128 Then Fehlstart = Fehlstart + 1
'If Fehlstart > 250 Then Goto Ende
Goto Check
[/code:1]
mfg
markus