ich habe ein kleine Prg. geschieben geht aber nur an aus
Aber das ist doch genau das was es soll, oder? Im Unterprogramm "Umschalten" wird geoggelt - fertig!

Probier doch mal ins Unterprogramm eine For-Next-Schlefe zu schreiben, die die LED 20 mal toggelt (also 10 mal an- und ausmacht). Etwa so:

Code:
Dim X as Byte
...
...

Do
Debounce Taste , 0 , Umschalten
Loop

Umschalten:
For X = 1 to 20
Toggle Led
waitms 100
Next X
Return
Und wenn das funktioniert, kümmern wir uns um den 2. Taster!

Gruß,

Daniel