Button press and press & hold how to ?

[sayzer]

Hello grandpa,

Maybe this can be good for you.

Button VAR PORTB.0 ' Your Input switch
Loop    VAR WORD

InputButton:
IF Button = 1 THEN Check4Button
GOTO InputButton

Check4Button:
FOR Loop = 0 TO 1000 ' 1 Second
     PAUSE 1
     IF Button = 0 THEN Stop ' If button was released before 1 Sec = short keypress
NEXT Loop
IF Button = 1 THEN Park ' If button was hold longer than 1 Sec = long keypress
GOTO InputButton

Stop:
' Here is your code

Park:
' Here is your other code

END

regards Rob

Something to pay attention for:


Button and Stop are reserved words =>> they are commands.

You may want to rename them as Btn and Stp.

============================

[Robson]

Oh of course. How I forget it ;-x
Maybe it was too late 4 me ...

Btn VAR PORTB.0 ' Your Input switch
LoopTime VAR WORD

InputButton:
PAUSE 20 ' Button delay or use DEFINE BUTTON_PAUSE before
IF Btn = 1 THEN Check4Button
GOTO InputButton

Check4Button:
FOR LoopTime = 0 TO 1000 ' 1 Second
    PAUSE 1
    IF Btn = 0 THEN Stp ' If button was released before 1 Sec = short keypress
NEXT LoopTime
IF Btn = 1 THEN Park ' If button was hold longer than 1 Sec = long keypress
GOTO InputButton

Stp:
' Here is your code

Park:
' Here is your other code

END