Count RB0... on RB7

[Leonardo]

Hello mister e,

The code to count and to store the I finish pulse in the eeprom this very well, what I want is to add the same thing in RB1 and RB6 and it also stores it in the eeprom.

Thank you




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

TRISB=%00000001 ' 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
ClkIn var PORTB.0 ' connected between RB0 and GND

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

led=0
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

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