will this work for dedecting a held button?

[bartman]

What I want to do is have the user press a button and get a "beep" to acknowledge the button was pressed, but if the button is held for a short period of time the program will assume something else is to be done and jump to that routine.

The initial button command, no problem. The "held" status of the button puzzled me a bit, but I have came up with this idea.

If gives the user a short time to leave his finger on the button then if it doesn't detect it the program assumes the button wasn't held and starts again.

I have to do this for four buttons so I don't think it is the most efficient way, but I think it would work, but any other ideas that don't require interrupts or assembly would be appreciated.

Thanks,

Bart


Main:

delay=0
button portb.1, 1, 254, 10, delay, 1, Held

goto main

Held:

sound 0, 175, 25
hold=0
while hold < 5
hold = hold + 1
pause 10
if portb.1 = 1 then button_held
wend
goto main

button_held:

sound 0, 175, 25
pause 10
sound 0, 175, 24

' do something else here

goto main

end

[mister_e]

Ming thuang bing daaang zing YIIIHHHAAA ;)


' PIC12f629
' Push-button attach to GPIO<3:0> between i/o and VCC
'
' it assume you'd previously disable all analog stuff and MCLR pin
'
aPushButton var byte
PushButton var byte
Delay var Word

Start:
clear
apushbutton=GPIO & $0F ' read push-button
' keep only GPIO<3:0> bits
'
if apushbutton=0 then start ' no push button pressed, sit and spin
pushbutton=apushbutton
while (apushbutton!=0)
apushbutton=GPIO & $0F
pause 10
delay=delay+1
wend

pause 50 ' debounce delay
if DELAY<100 then ' if push button is press for less than 1 second
Select case PushButton
case 1
gosub PushButtonGPIO_0
case 2
gosub PushButtonGPIO_1
case 4
gosub PushButtonGPIO_2
case 8
gosub PushButtonGPIO_3
end select
endif
goto start


The above should work. There's probably tons of different way to do it but, this is the first interrupt/Assembler/InternalRegister adressing free comming example.

[bartman]

Dude, I don't understand any of that! (well, a little bit, but mostly foggy to my mind).

I gather you are reading the whole port, but I don't understand where CASE is getting any of those variables to distinguish the different buttons (if that's what it's doing).

It looks like "while apushbutton!=0" is saying wait as long as the button is no longer pressed?

Actually, is it doing what I described as the operation of the switch at all? It looks like it is doing something only if button is pressed and released under one second. Opposite than press once for one beep and press and hold for two beeps and another routine.

For the record, the buttons are going to be on ports 0, 2, 4 and 5 so not straight across 0-3 which probably is easier, but not workable in what I have to do.

Sorry, I'm not good enough at this to understand completely.

Bart

[mister_e]

OK, i missread the thing. Well at least you'd understand the core of the code. Now here's the modified version that will DO a routine if a button is pressed for more than TimeoutDelay on the pins 0, 2, 4 and 5. Kill me if i'm still wrong.. well try to ;)


' PIC12f629
' Push-button attach to GPIO 0, 2, 4 and 5 between i/o and VCC
'
' it assume you'd previously disable all analog stuff and MCLR pin
'
aPushButton var byte
PushButton var byte
Delay var Word
TimeoutDelay con 100 ' Here you select Your own delay (100=1 Second)

Start:
clear ' reset all variable to 0
apushbutton=GPIO & %00110101 ' read all GPIO pins
' keep only GPIO 0,2,4,5 bits
' ----- HOW? -----
' By masking the unused bits with
' a bitwise AND
'
if apushbutton=0 then start ' no push button pressed, sit and spin
pushbutton=apushbutton ' Store the push button press
'
while (apushbutton!=0) or (delay!=TimeoutDelay) ' Wait untill the timeout happen
' or push Button release
apushbutton=GPIO & %00110101
pause 10
delay=delay+1
wend

pause 50 ' debounce delay

if DELAY=timeoutdelay then ' if push button is press for 1 second
'
' PushButton handling section
' ===========================
' We'd read the whole GPIO and set the un-assign bit to 0
' Push button are attach to GPIO 0,2,4,5. Result is store in
' PushButton variable
'
Select case PushButton
case %00000001
gosub PushButtonGPIO_0

case %00000100
gosub PushButtonGPIO_2

case %00010000
gosub PushButtonGPIO_4

case %00100000
gosub PushButtonGPIO_5

end select
endif
goto start

[bartman]

Okay. I will need to think on this one. At lot of complex stuff happening compared to my little example. I wanted to take baby steps!

Bart

[bartman]

Steve -

Okay, after quite a bit of study here this is my take on your idea. Just to recap, the project is to work like this:

User has four buttons
Pressing a button produced a beep
Continue to hold the button produces 2 beeps and the program jumps to appropriate routine.
I've added an error in the event someone tries to press multiple combinations.

I have a question about MCLR. You say that you assume it is disabled. I actually was wanting it enabled with the 4.7K resistor to the positive side. Does this create a problem while looking at that portb?

Does this show some level of what you gave as an example and my opinion of it?

Bart


getbutton var byte
storebutton var byte
delay var byte
timeout con 8 ' adjust this value to set length of time to hold down button

Start:

pause 15 ' sandwich the button read between a couple pauses for debounce
getbutton = GPIO & %00110101 ' get port values and keep only ports 0,2,4,5
pause 15

if getbutton = 0 then start ' sit and rotate if nothing pressed

gosub beep ' jump and make a noise if button is pressed
storebutton = get button ' keep a copy of which button was pressed
delay = 0

while delay < timeout ' wait to see if button is being held down
pause 15 ' sandwich the button read between a couple pauses for debounce
getbutton = GPIO & %00110101 ' get port values again and keep only ports 0,2,4,5
pause 15
if getbutton <> storebutton then start ' bail out if user releases button too soon or switches buttons
delay = delay + 1
wend

gosub beep ' jump and make two beeps to acknowledge button was held down
pause 20
gosub beep

' push and hold button section. Jump to appropriate button
select case storebutton

case %00000001
goto button0

case %00000100
goto button2

case %00010000
goto button4

case %00100000
goto button5

end select

goto error ' jump to an error routine if someone did something unexpected
like hold two buttons for example