Button

Code:

---

    if PORTB.5 = 1 and PORTB.7 = 1 then   
          WRITE W1, TMP_LO                 
          WRITE W1+1, TMP_HI                       
          LCDOUT $FE, 1, "    STORE    "
          PAUSE 1000
          menu = 2
          GOTO MAIN 
        endif

          GOTO MAIN

---

When PORTB.5 = 1 go to main and if PORTB.5 = 1 and PORTB.7 = 1
write to the memory and after go to main.
Now, i want if PORTB.5 = 1 for pause = 100 to go to to main and if
PORTB.5 = 1 for long time and if PORTB.7 = 1 go to write.

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.

Quote:

---

Originally Posted by 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.

---

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.

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 :D

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

Code:

---

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

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

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

---

Good, enjoy!

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