Hilferuf Debounce

[sascha (Gast)]

Hallo zäme,

ich han en Frag zum Debounce Befehl. Und zwar habe ich folgendes kleine 
Programm.

Do 
Config Debounce = 25
Debounce PIND.5, 0 , down, Sub


Loop


Down:
keypress_down = 0 ' zum entscheiden ob lang oder kurz gedrückt
Config Debounce = 2000
Debounce PIND.5, 1, down_long, Sub
if keypress_down = 0 then 
'ereignisse beim kurzen tastendruck
call decrement
call save
End If
Return

Down_long:
keypress_down = 1
return

Dies funktioniert überhaupt nicht. Wenn ich nun die taste drücke, fährt 
der im eiltempo die Zahl runter die mit decrement vermindert wird, egal 
ob ich lange oder kurz darauf drücke. Ich denke, dass es damit zu tun 
hat,  dass Debounce dass Programm nicht anhält, sonder nach 2sekunden 
wieder nachschaut, bis dahin läuft das Programm aber wieder 1000 mal 
durch den Debounce im Loop. Bitte gebt mir einen Anstoss in welche 
Richtung ich weitersuchen soll.

grüsse sascha

[Peter D. (peda)]

Was sagt denn die Hilfe dazu, kann der Debounce-Befehl überhaupt sowas?

Ich wüßte nur ne Lösung in C:

Beitrag "Universelle Tastenabfrage"


Peter

[sascha (Gast)]

Soweit ich die Hilfe verstanden habe, prüft der Debounce den Pin und 
nach 25ms nocheinmal. Wenn diese beiden Ergebnisse übereinstimmen, gilt 
es als Tastendruck. Die Frage ist nur kann der Debounce wenn er in einer 
Sub aufgerufen wurde und später nicht mehr in der Sub ist, von alleine 
in die Sub zurückspringen, nochmals checken und dann die gewünschte 
Aktion ausführen.

Oder muss ich die ganze sache mit einem Timer lösen? Geht eine solche 
Abfrage überhaupt ohne Timer?

Grüsse
sascha

[niemand (Gast)]

Hier ist deine Frage sicher besser aufgehoben.

http://bascom-forum.de/

[Eduard A. (Firma: e-jam GmbH) (aed)]

Also soweit ich mich noch erinnere dient Debounce zur Tastenentprellung, 
d.h. du gibst eine Zeit vor und es wenn das Signal bei Debounce nach der 
Zeit t noch immer gleich ist gilt die Taste als gedrückt.
Was Du machst ist ein Setzen deiner Variablen auf 0 und dann eine 
Abfrage auf '0' und springst bei true in die Subroutine. Dein Zähler 
wird ohne Ende decrementieren.

Gruss
Eduard