Hello mister e,

I sit down it it mistakes, the following code works OK, what I want is to put another entrance RB1 to count the pulses and another exit RB6 and that it stores them in the eeprom.

Thank you

the code :

TRISB=%00000011 ' Set RB0,RB1 to input, others to output

OPTION_REG.7=0 ' Enable internal pull-up on PORTB

LED VAR PORTB.7 ' connected between RB7 and GND via resistor
ClkIn var PORTB.0 ' connected between RB0 and GND
ClrEEP var PORTB.1 ' connected between RB1 and GND

Apulse VAR BYTE ' store the amount of pulse
Data @0,0 ' set count @ 0 at programming time
led=0 ' LED=OFF

' //////////////////////////////|\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
' To Reset the value in the EEPROM, press on ClrEEP button while
' applying power. When the command is accepted, the LED will
' stay ON for 1 second
' //////////////////////////////|\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'
if clreep=0 then ' is ClrEEP pushbutton is pressed
write 0,0 ' Reset the pulse count in EEPROM
led=1 ' LED = ON
pause 1000 ' wait 1 sec
led=0 ' LED=OFF
endif '

Read 0, Apulse ' Read count from internal eeprom

repeat
if clkin=0 then
while clkin=0 : wend
pause 50
apulse=apulse+1
WRITE 0,apulse ' save count in the internal EEPROM
endif
until apulse=10
led=1

Here:
goto here




Quote Originally Posted by mister_e
I tried to understand but and i'm still not sure of the question. BTW i did the following, let me know if it do what you're looking for. Case not, let me know in more details or with a drawing. Sometimes it help my single brain cell to figure out the question
Code:
    TRISB=%00001111     ' Set RB0 to input, others to output
    
    OPTION_REG.7=0      ' Enable internal pull-up on PORTB
    
    LED     VAR PORTB.7 ' connected between RB7 and GND via resistor
    LED1    VAR PORTB.6
    BOT     VAR PORTB.1
    ClkIn   var PORTB.0 ' connected between RB0 and GND
    
    Apulse  VAR BYTE    ' store the amount of pulse
    Apulse1 var byte

    data @0,0,0    
    read 0,apulse
    read 1,apulse1
    
    led = 0
    led1= 0

paso1:
    repeat
        if clkin=0 then
            while clkin=0 : wend
            pause 100
            apulse=apulse+1
            write 0,apulse
            endif

        if BOT=0 then
            while BOT=0 : wend
            pause 100
            apulse1=apulse1+1
            write 1,apulse1
            endif

        until (apulse=7) or (Apulse1=5)
    
    if apulse=7 then
        led=1
        else
            led1=1
        endif

    goto paso1