How to measure how long I pressed a button ?

[richard]

you have set timer1 to overflow every 16.38 mS , you never count the overflows
also adding 65535 to a word var seems very odd do you actually intend to subtract 1


i can't see how any of this can work, i makes no sense to me

while durata < longpress
    	if T1CON.0 == 1 then
        	overflow_counter_low = overflow_counter_low + 1
        	if overflow_counter_low == 65535 then
            		overflow_counter_low = 0
            		durata = durata + 65535
        	endif
    	endif    
    	durata = durata + (TMR1H * 256 + TMR1L)
wend

[fratello]

you have set timer1 to overflow every 16.38 mS , you never count the overflows
also adding 65535 to a word var seems very odd do you actually intend to subtract 1
....
i can't see how any of this can work, i makes no sense to me

Gemini code !

[HenrikOlsson]

What happens if more than one button is pressed at the same time?

Anyway, this might serve as starting point. It compiles but it is not tested.

Long_Press CON 5000
Short_Press con 100

cnt VAR WORD
b_level VAR BYTE
DataW VAR WORD

Main:
    GOSUB ReadButton
    
    IF b_level > 0 THEN
    	cnt = 0
        WHILE b_level > 0  
    	   cnt = cnt + 10  
    	   if cnt > Long_Press THEN EXIT
    	   PAUSE 10
    	   GOSUB ReadButton
    	WEND
    	
    	SEROUT GPIO.2, 2, ["You pressed button ", #b_level, " for ", #cnt, "ms", 13, 10]
    endif
Goto Main	


ReadButton:
    ADCON0.1 = 1
	While ADCON0.1 = 1 : Wend 
	
    DataW.HighByte = ADRESH 
    DataW.LowByte = ADRESL

	b_level = 0
	if DataW < 805 then
        	if DataW > 50  AND DataW < 160 THEN b_level = 1
        	if DataW > 180 AND DataW < 270 THEN b_level = 2
        	if DataW > 290 AND DataW < 380 THEN b_level = 3
        	if DataW > 400 AND DataW < 500 THEN b_level = 4
        	if DataW > 540 AND DataW < 650 THEN b_level = 5
        	if DataW > 690 AND DataW < 800 THEN b_level = 6
	ENDIF
RETURN

[fratello]

Thanks !
But nothing on serial ...(in Proteus 8)

[Ioannis]

forget Proteus.

Also I think Henrik forgot to add the label Exit: just before the Serout command.

Ioannis

[HenrikOlsson]

No, I did not forget to add a label.
EXIT is a keyword used to break out of the current loop.

AI, simulation, virtualization.... What happened to the good old breadboard?

Do I really need to spin this up on my dev board here or can you do some troubleshooting on your own and not just say "it's not working". You did include the same setupcode used before didn't you?

[fratello]

It works ! Finally, the first program that shows me the duration. BUT .... the correct identification of the pressed button does not work ! I pressed ONLY button 0 : short or long ...It doesn't matter which button I press: if I press it briefly it indicates button 0, if I press it long it indicates button 5. Why?
Anyway thanks for pointing into a good direction !



Solved !