Using same button for entering/exiting some part of code?

[HenrikOlsson]

The code I posted should do exactly with that, with the advantage that the section of code you're currently in will continue to run UNTIL you release the button. What you're proposing will HANG the current program section until you release the button. But here you go:

code1:
if button=0 then     'check if button is pressed
  PAUSE 5                       'allow some contact bounce
  WHILE button=0 : WEND  'wait for it to be released
  PAUSE 5                     'allow some contact bounce
  goto code2
ENDIF
'somecode here
goto code1

code2:
if button=0 then
  WHILE button = 0 : WEND
  goto code1
ENDIF
'somecode here
goto code2

and obviously, button is a reserved word.

[CuriousOne]

Thanks!
No problem for code to "Hang", since this is for going from main menu to sub-menu and back.

[amgen]

my experience with button press usage is to have to wait for button release, can either stay in present routine and wait before switching OR moving to other routine and wait for release before looking for new press and going back.

[CuriousOne]

Here is the practical code I'm using, but it sometimes behaves strangely.
Say, button was pressed, action was made once, user still holds button, so no advance in code. But when user releases the button, sometimes it acts as button was pressed once again. Any ideas how to fix it?

MENULOOP: 'MAIN CONFIG SCREEN
IF UPBT=0 THEN
MENUITEM=MENUITEM+1
IF MENUITEM>4 THEN MENUITEM=1
GOSUB CENTRAL
pause 200 'debounce
ENDIF
WHILE UPBT=0:WEND 


IF DNBT=0 THEN
MENUITEM=MENUITEM-1
IF MENUITEM<1 THEN MENUITEM=4
GOSUB CENTRAL
pause 200 'debounce
ENDIF
WHILE DNBT=0:WEND
if menuitem=1 and rbut=0 then
pause 5
while rbut=0: wend
goto clockconfig
endif
GOTO MENULOOP

[HenrikOlsson]

There does not seem to be any debounce on button release. Try

  IF UPBT=0 THEN
    MENUITEM = MENUITEM+1

    IF MENUITEM > 4 THEN MENUITEM = 1
    GOSUB CENTRAL 
    ' PAUSE 20          ' May be needed if subroutine CENTRAL executes very fast.
    WHILE UPBT = 0 : WEND
    PAUSE 20 'debounce
  ENDIF

[amgen]

read switch a few times to be sure and debounce......

IF UPBT=0 THEN
PAUSE 20 ' or 40 or 50
IF UPBT=0 THEN 'go ahead........

MENUITEM = MENUITEM+1

do same for release check .... if upbt=1 then.....

[CuriousOne]

For couple of buttons this code works fine, but when I increase number of button handling operations, some weird things occur - the further from beginning is the button handling routine, more rarely it responds to user.

The code below has 8 "blocks" of button handling.

first 3 work fine, 4th one works only maybe on 10 or 15th press. 5th and further - do not work at all.
And this is not issue of particular code - if I move say "5th block" to 1st place of this code, then it works fine.

PIC18F45K80 @64mhz.

IF UPBT=0 THEN
MENUITEM=MENUITEM+1
IF MENUITEM>6 THEN MENUITEM=1
pause 200
ENDIF
WHILE UPBT=0:WEND 


IF DNBT=0 THEN
MENUITEM=MENUITEM-1
IF MENUITEM<1 THEN MENUITEM=6
pause 200
ENDIF
WHILE DNBT=0:WEND




IF LBUT=0 AND MENUITEM=2 THEN  
RICXVI=RICXVI+1
IF RICXVI>31 THEN RICXVI=1
pause 200
GOSUB SETTIME
ENDIF
WHILE LBUT=0:WEND 


IF RBUT=0 AND MENUITEM=2 THEN  
RICXVI=RICXVI-1
IF RICXVI<1 THEN RICXVI=31
pause 200
GOSUB SETTIME
ENDIF
WHILE RBUT=0:WEND 




IF LBUT=0 AND MENUITEM=1 THEN  
TVE=TVE+1
IF TVE>13 THEN TVE=1
pause 200
GOSUB SETTIME
ENDIF
WHILE LBUT=0:WEND 


IF RBUT=0 AND MENUITEM=1 THEN  
TVE=TVE-1
IF TVE<1 THEN TVE=13
pause 200
GOSUB SETTIME
ENDIF
WHILE RBUT=0:WEND 






IF LBUT=0 AND MENUITEM=3 THEN  
DGE=DGE+1
IF DGE>7 THEN DGE=1
pause 200
GOSUB SETTIME
ENDIF
WHILE LBUT=0:WEND 


IF RBUT=0 AND MENUITEM=3 THEN  
DGE=DGE-1
IF DGE<1 THEN DGE=7
pause 200
GOSUB SETTIME
ENDIF
WHILE RBUT=0:WEND