Hallo Leute,
ich habe ein Problem mit einer Schleife. Ich versuche mit der Schleife die gewünschte Frequenz einzustellen (Taste_1 un Taste_2) Allesdings kann ich nur 13 Schritte hoch bzw. runter gehen, bevor der Controller sich resetet.
Kann mir einer erklären, woran das liegt?
Danke schon mal im voraus.
Code:
'+---------------------------------+
'| Startbildschirm & erste Auswahl |
'+---------------------------------+
Cls 'lösche LCD
Locate 1 , 1
Lcd "1-> Frequenz"
Locate 2 , 1
Lcd "2-> Puls/Pause"
Do
Debounce Taste_1 , 1 , Fstart , Sub
Debounce Taste_2 , 1 , Puls_start , Sub
Loop
'+---------------------+
'| Frequenz einstellen |
'+---------------------+
Fstart:
Cls
Locate 1 , 1
Lcd "Frequenz = Hz"
Locate 1 , 12
Lcd F
Locate 2 , 1
Lcd "UP OK DOWN"
Do
Debounce Taste_1 , 1 , Fup , Sub
Debounce Taste_2 , 1 , Fdown , Sub
Debounce Taste_ok , 1 , Fok , Sub
Loop
Fup:
F = F + 1
Waitms 15
Gosub Fstart
Fdown:
F = F - 1
If F <= 0 Then
F = 0
End If
Waitms 15
Gosub Fstart
P.S. das ist nur der relevante Ausschnitt des kompletten Codes.
Lesezeichen