Bascom Tasten abfrage.

[Janiiix3 (Gast)]

Hallo,

ich bin gerade mal wieder am verzweifeln...

ich möchte gerne mit meinem Taster eine Variable hoch zählen, wenn sie 
bei einem Gewissen Wert steht (10 x Taste gedrückt, soll das Programm 
das oder dass machen)

Main:
Do

Debounce Pinb.2 , 0 , Zaehler

Loop


Zaehler:

For Puls = 0 To 10 Step 1
If Puls = 10 Then
Goto Dauer
End If

Next
Goto Main





Dauer:
Do
Portd.6 = 1
Portb.4 = 1
Debounce Pinb.3 , 0 , Main
Loop
Return

[Thomas D. (thomasderbastler)]

Ich würde so machen :

Main:
Do

Debounce Pinb.2 , 0 , Zaehler

Loop


Zaehler:

incr Puls
If Puls = 10 Then
Gosub Dauer
End If

Return




- Hier ist noch ein andere Taster ????
Dauer:
Do
Portd.6 = 1
Portb.4 = 1
Debounce Pinb.3 , 0 , Main
Loop
Return

[Janiiix3 (Gast)]

das habe ich auch schon versucht, bringt leider nichts :(

[Lucky (Gast)]

kleine Anmerkung:

If Puls = 10 Then
Puls = 0
Gosub Dauer
End If

sonst funktioniert es genau nur einmal.