Ja, hab´s probiert.
Aber dann funktioniert ja der ganze Rest für eine Sekunde nicht mehr - also auch wenn ich ene Taster drücke wird der nicht mehr abgefragt...
Gibt es da noch eine andere Möglichkeit?
Code:
Ledcount: 'Farbwechsel über Timer0
Timer0 = 1 'Geschwindigkeit mit der die LED´s die Farbe wechseln
'---LED1---
If Led1 = 255 Then 'Wenn Led1 100% dann Merker zum hochzählen setzen
Led1m = 0
Wait 1
End If
If Led1 = 0 Then 'Wenn Led1 0% dann Merker zum runterzählen setzen
Led1m = 1
Wait 1
End If
'Zähler1 hoch/runter
If Led1m = 1 Then
Incr Led1 'Wenn Merker Led1m = 1 -> um 1 hochzählen
End If
If Led1m = 0 Then
Decr Led1 'um 1 runterzählen
End If
'---LED2---
If Led2 = 255 Then
Led2m = 0
End If
If Led2 = 0 Then
Led2m = 1
End If
'Zähler1 hoch/runter
If Led2m = 1 Then
Incr Led2 'um 1 hochzählen
End If
If Led2m = 0 Then
Decr Led2 'um 1 runterzählen
End If
Return
Lesezeichen