Button

[mister_e]

OK let's see if i understand your requirement.

1. When ONLY PORTB.5 = 1 this should go to main
2. if PORTB.5 = 1 and PORTB.7 = 1, this should write to the memory and after go to main.

but you lost me with the pause 100... i may think you want to perform another operation if PORTB.1 have been hold more than 100 mSec... but not sure.

[savnik]

OK let's see if i understand your requirement.

1. When ONLY PORTB.5 = 1 this should go to main
2. if PORTB.5 = 1 and PORTB.7 = 1, this should write to the memory and after go to main.

but you lost me with the pause 100... i may think you want to perform another operation if PORTB.1 have been hold more than 100 mSec... but not sure.

I have two buttons . One to portb.5 and another to portb.7
Yes ,when i press momentarily the button1 then go to main, and when i press button1 for a long time and when afterwards press button2, then write to the memory.
Sorry fo my bad english.

[mister_e]

Don't worry about your English Savnik. I understand how hard it is to explain something when English is not your native language. I'm French... but Canadian

OK let's see one method to do that... yeah the saturday pm one solution

        PORTB = 0
        TRISB=%10100000
        EEPROMWriteMode VAR PORTB.0
        WriteToEEPROM   var PORTB.1
        MainLed         var PORTB.2
        
        Delay var word

Main:
    MainLed = 1
    if PORTB.5 = 1 THEN GOSUB P_B_sub
    goto main
    
P_B_Sub:
    mainled = 0
    delay = 0
    while (PORTB.5 = 1) and (Delay<1000)
        pause 1     
        delay=delay+1
        wend
    if delay<1000 then return
    
    eepromwritemode=1
    delay = 0
    while (PORTB.7 = 0) and (DELAY<1000)
        pause 1
        delay=delay+1
        wend

    if (delay<1000) then
        writetoeeprom =1
        endif
        
    pause 1000
    eepromwritemode =0
    writetoeeprom = 0
    return

there's still the Timer Interrupt solution...

[savnik]

Thank you.Your code help me to solve my problem.
I use this code:

   	if PORTB.5 = 1 then
        while (PORTB.5 = 1) and (Delay < 1000)
            menu = 6
            pause 1     
            delay = delay + 1
            wend
        if  delay < 1000 then
            delay = 0
            GOTO MAIN
        else
            delay = 0
            WRITE W1, TMP_LO		   
	        WRITE W1+1, TMP_HI			
	        LCDOUT $FE, 1, "     STORE    " 
	        PAUSE 1000
	        menu = 2
	        GOTO MAIN
        endif
    endif

[mister_e]

Good, enjoy!

and mmm... παρακαλώ!