Count RB0... on RB7

[Leonardo]

Hello mister e,

Thank you for their help and I hope to be able to have their support in future occasions.

Leonardo

One of the various method to do it

@ __config _INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_ON & _MCLRE_ON & _LVP_OFF & _BODEN_ON 

    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

[Leonardo]

Hello mister e,

Because uses, Here
goto here..... I don't understand it.

Hello mister e,

Thank you for their help and I hope to be able to have their support in future occasions.

Leonardo

[Leonardo]

Hello mister e,

As I avoid the rebounds of the pulsador?.

Hello mister e,

Because uses, Here
goto here..... I don't understand it.