BASCOM: Taste lang oder kurz gedrückt?

[Max (Gast)]

Hallo!

Ich möchte gerne mit BASCOM feststellen, ob eine Taste kurz oder lang 
gedrückt ist. Wenn die Taste weniger als 2 Sekunden gedrückt wurde, dann 
soll eine bestimmte Routine ausgeführt werden.

Ist die Taste länger als 2 Sekunden gedrückt soll eine andere Routine 
abgearbeitet werden. Allerdings sollte dieses Sub schon bei 2 Sekunden 
Tastendrucklänge laufen und nicht erst, wenn die Taste wieder 
losgelassen wird.

Wie kann ich das am einfachsten realisieren? Beispiele wären sehr gut.

Danke schonmal an alle,
Max

[MeinerEiner (Gast)]

Nen Timer laufen lassen, der in ner Variable mitzählt, wenn die Taste 
gedrückt ist. Wird die Taste losgelassen und der Timer ist bei nem Wert 
< 2 Sekunden: Programmteil 1.
Erreicht die Variable nen Wert >=2: Programmteil 2.
(evtl hier noch Interrupt abschalten, weil nicht mehr nötig; nach Ende 
von Programmteil 2 wieder einschalten)

[Peter D. (peda)]

Meine bekannte C-Routine nach Bascom portiert:

http://www.rn-wissen.de/index.php/Bascom_Debounce_ISR_in_Assembler#Beispiel_2:_Entprellung_einer_3_Tasten_Uhr_in_einer_Bascom-ISR_mit_Assembler-Unterst.C3.BCtzung


Peter

[Max (Gast)]

Danke für die schnellen Antworten.

Habe es jetzt mal so probiert:

If taste = 0 Then
  Waitms 25
  While taste = 0
    timer_taste_alt = timer_taste
    If timer_taste_alt > 2 Then
      Print "Taste lang gedrueckt"
    End If
  Wend
  If timer_taste_alt < 2 Then
    Print "Taste kurz gedrueckt"
  End If
  Bitwait taste , Set
End If

Funktioniert soweit auch, jedoch will ich das der Printbefehl nur einmal 
gesendet wird, wenn die Taste lang gedrückt ist. In diesem Beispiel wird 
der Befehl aber solange gesendet, bis ich die Taste wieder loslasse.

Kann mir da jemand helfen?

Danke,
Max