Debounce - problem

[Marek11]

CZy ktoś może mi podpowiedziec w czym tkwi błąd że trzymając wciśnięty ciągle przycisk S1 program odlicza w doł automatycznie, ale gdy dochodzi do wartości 9 to już trzeba klikać na przyciska za każdym razem zeby zmniejszyl o jeden. I tak samo jest przy zliczaniu w górę, dochodzi do wartości 104 i znów trzeba klikać ciągle. I żeby dojechać do np 500 to jest kłopotliwe. I tak sobie myślę czy pies nie jest pogrzebany w Bascomie ?


Sub Mainprogram
Cls
Lcd "Turns: " ; Opoznienie
Do
Debounce S1 , 0 , Predkdol , Sub
Debounce S2 , 0 , Predkgora , Sub
Debounce S3 , 0 , Go_on , Sub
Loop
End Sub

Predkdol:
Decr Opoznienie

If Opoznienie = 0 Then
Opoznienie = 1
End If

Locate 1 , 8
Lcd " "
Locate 1 , 8
Lcd Opoznienie
Waitms 50
Return

Predkgora:
Incr Opoznienie

If Opoznienie = 1501 Then
Opoznienie = 1500
End If

Locate 1 , 8
Lcd " "
Locate 1 , 8
Lcd Opoznienie
Waitms 50
Return

[Marek11]

Czy nikt nie wie w czym jest problem ??

[piotrs]

Ja mam jeszcze inny problem z Debounce .Jak narazie to doszedlem do wniosku , ze wszystko zalezy od CONFIG LCD . Zmien na 16*1a to dopiero zobaczysz jakie cyrki powstaja . Zobacz na temat - Debounce-pomocy ?
pzdr

[W.K]

Nie używaj Alias gdy stosujesz Debounce.
Pozdrawiam!

[piotrs]

Wielkie dzieki za podpowiedz .Nareszcie dziala tak jak powinno .