will this work for dedecting a held button?

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

Ming thuang bing daaang zing YIIIHHHAAA ;)

Code:

' 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.

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

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 ;)

Code:

' 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

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

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

Code:

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