aber die Zeit auf dem lcd läuft nicht. warum?
Config Lcd = 16 * 4
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 ,
Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4
Initlcd
Cls
Config Clock = Soft
Config Portb.0 = Output 'LED
Config Portb.1 = Output 'Ausgang
Time$ = "00:00:00"
Dim Led As Byte
Dim Luefter As Byte
Locate 1 , 5
Lcd Time$
Do
If Time$ = "00:01:00" Then
Gosub Luefter
Else
Gosub Led
End If
Loop
Led:
Set Portb.0
Wait 1
Reset Portb.0
Wait 1
Return
Luefter:
Set Portb.1
Wait 30
Reset Portb.1
Return
End