Count RB0... on RB7

[mister_e]

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,

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.

[Leonardo]

Hello mister e,

In the following code it does add an entrance and an exit but, in RB1 and out RB6, but don't I achieve that each exit works in independent way that can happen?, like I can store the two values in the eeprom?.


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

LED1 VAR PORTB.6
BOT VAR PORTB.1



Apulse VAR BYTE ' store the amount of pulse
Apulse1 var byte

led=0
apulse=0

led1=0
Apulse1=0


main:



paso1:
repeat
if clkin=0 then
while clkin=0 : wend
pause 100
apulse=apulse+1
endif
until apulse=7
led=1




paso2:
repeat
if BOT=0 then
while BOT=0 : wend
pause 100
apulse1=apulse1+1
endif
until apulse1=5
led1=1

goto main

Here:
goto here

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

[mister_e]

In the following code it does add an entrance and an exit but, in RB1 and out RB6, but don't I achieve that each exit works in independent way that can happen?, like I can store the two values in the eeprom?.

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

    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

[Leonardo]

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

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

    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

[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

[Leonardo]

Hello to all,

Somebody can help me with this please.

Thank you

[BobK]

Hi Leonardo,

Mr E. has done a great job (As usual!) of providing code for you. But if you wired your project as shown in the drawing then this is where you are having the difficulty.

In your .bmp image you show using pull down resistors. This means your inputs are at 0vdc until the button is pressed and when you press the push button you are applying +5vdc. Your code is looking for 0v to create the activity to occur.

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

Turn on the internal weak pull ups and tie the other end of your push buttons to ground. To protect the PIC's inputs put 100 ohm resistors in line with the swtich and also tie MCLR to +5vdc through a 1k resistor.

This should solve your problem.

BobK

[Leonardo]

Hello mister_e

As I can modify the value of the count using the eeprom and a lcd?.

Thank you

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

    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

[Leonardo]

Some suggestion


As I can modify the value of the count using the eeprom and a lcd?.

[mister_e]

Leonardo,

i know it's really hard for you to write in english but can you provide much details. I try to understand what you say but i'm really lost.

If you want, post your question in your language, probably someone else here can give us a hand and translate to english.

I just know english(a few) and French. i'm really sorry Leonardo

[Leonardo]

I understand, what I want is to be able to modify the value to count by means of a keyboard 4x4 and a lcd for not having to reprogram every time that the wants to modify the I number from maximum pulses to count.

For example: to show in a lcd

Push buttom RB0 to increase the value to count
Push buttom RB1 to diminish the value to count
Push buttom RB3 enter to record the value

Thanks

[Leonardo]

I understand, what I want is to be able to modify the value to count by means of a keyboard 4x4 and a lcd for not having to reprogram every time that the wants to modify the I number from maximum pulses to count.

For example: to show in a lcd

Push buttom RB0 to increase the value to count
Push buttom RB1 to diminish the value to count
Push buttom RB3 enter to record the value

Thanks

Leonardo,

i know it's really hard for you to write in english but can you provide much details. I try to understand what you say but i'm really lost.

If you want, post your question in your language, probably someone else here can give us a hand and translate to english.

I just know english(a few) and French. i'm really sorry Leonardo