Single button function

[Acetronics2]

Hi, Vtt

A look Here, may be ...

http://www.electronique-diffusion.fr...lb0587&x=2&y=8

...

some chips still on the market !!! ... and in my drawers ... LOL !

Alain

[CuriousOne]

Due to my lack of knowledge, when facing same problem, I did the following - while user keeps button pressed, value of needed variable is being increased and value of waiting variable reset. As user releases the button, waiting variable is being increased, and after it reaches some value (say for 2 seconds), next chunk of code is required. I'd like to do the same with long press, but still can't figure how.

Any ideas to add long press detection to this code?

setuploop:
if but2=0 then
dlycnt=dlycnt+1 'increase debounce variable while button is pressed

pause 1
endif

if BUT2=1 and dlycnt>100 then 'if button pressed long enough
dlycnt=0
high buz 'enable buzzer pin
menuitem=menuitem+1
lcdout $fe,1, #menuitem, " pressed "
pause 5
low buz 'disable buzzer
endif
goto setuploop

[mpgmike]

IF Button = Pressed THEN
WHILE Button = Pressed
LOOP
ENDIF

[CuriousOne]

I did it in the different way:

setuploop:
if but2=0 then
dlycnt=dlycnt+1 'increase debounce variable while button is pressed
ticker=ticker+1
pause 1
endif
if ticker>1500 and  BUT2=0 then gasvla 'if long pressed, then exit and (or) go to selector item
if BUT2=1 and dlycnt>100 then  'if short pressed, then do the rap
ticker=0
dlycnt=0
menuitem=menuitem+1  'this is incremental variable, substitute another next time you need it
lcdout $fe,$c0, " selection: " #menuitem," "  'debug just for case
pause 1
endif
goto setuploop

[amgen]

I did a setup to check for...... short press, then 2 second or 5 second then long press to enter program mode, for next for the timing, then go on to next check and goto's

 FOR A1= 1 TO 5        '<.1 SECONDS FOR TIMER
 PAUSE 3 
 GOSUB RDSW
 if SWCH=0 then start
 NEXT A1
 HIGH 2
read 1,A4 :PAUSE 10: C1=60*A4:C2=C1      
                    
 FOR A1 = 1 TO 100       '2 SECONDS FOR 8 HR
 PAUSE 8
 GOSUB RDSW
 if SWCH=0 then TIMER
 NEXT A1
 C1=28800      '8 HRS
 HIGH 5                       
 
 FOR A1 = 1 TO 100        'CHECK FOR PROGRAM 5 SEC TOTAL
 PAUSE 40
 GOSUB RDSW
 if SWCH=0 then TIMER
 NEXT A1 
 LOW 2:GOTO PROGRAM

[Ioannis]

All the above methods block the program execution. If this is not a problem then it I guess ok.

But if the PIC must do other things, it is better to have a ticker in a timer interrupt routine and count up when a key is pressed. Periodically check the ticker for the required value and decide what to do.

That way, program does not stay in a closed loop until button release.

Ioannis