Hola Lord,
Pues te comento que logre en parte agregar la linea del codigo para el #03 esta salida la configure para 30 pulsos el cual me enciende el RC5 pero una vez se visualiza el 30 si sigo pulsando sigue 31,32,33 etc, porque sucede esto?.
Con el #04 lo intente pero no me funciona bien.
Este es el codigo que llevo hasta ahora.
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 5
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 4
define OSC 4
Cont var byte
Cont1 var byte
Cont2 var byte
Cont4 var byte
temp var byte
TRISC=%00001111
PORTC=0
pause 250
LCDOUT $FE,1,"#01 #02 #03 #04"
LCDOUT $FE,$C0,"000 000 000 000"
eeprom 0,[0]
read 0,temp
if temp=0 then grabar
read 1,cont
read 2,cont1
read 3,cont2
read 4,Cont4
lcdout $FE,$C0,dec3 cont
lcdout $FE,$C4,dec3 cont1
lcdout $FE,$C8,dec3 cont2
lcdout $FE,$C10,dec3 Cont4
if cont >= 10 then
gosub EncenderLED
endif
if cont1 >= 20 then
gosub EncenderLED1
endif
if cont2 >= 30 then
gosub EncenderLED2
endif
if Cont4 >= 40 then
gosub EncenderLED3
endif
loop:
if PORTC.0=0 then
cont=cont+1
write 1,cont
if cont >= 10 then
gosub EncenderLED
endif
lcdout $FE,$C0,dec3 cont
pause 200
endif
if PORTC.1=0 then
cont1=cont1+1
write 2,cont1
if cont1 >= 20 then
gosub EncenderLED1
endif
lcdout $FE,$C4,dec3 cont1
pause 200
endif
if PORTC.2=0 then
cont2=cont2+1
write 3,cont2
if cont2 >= 30 then
gosub EncenderLED2
endif
lcdout $FE,$C8,dec3 cont2
pause 200
endif
if PORTC.3=0 then
Cont4=Cont4+1
write 4,Cont4
if Cont4 >= 40 then
gosub EncenderLED3
endif
lcdout $FE,$C10,dec3 Cont4
pause 200
endif
goto loop
grabar:
cont=0:cont1=0:cont2=0:Cont4=0
write 0,1
write 1,0
write 2,0
write 3,0
write 4,0
goto loop
EncenderLED:
high PORTC.7
cont=10
return
EncenderLED1:
high PORTC.6
cont1=20
return
EncenderLED2:
high PORTC.5
cont1=30
return
EncenderLED3:
high PORTC.4
Cont4=30
return
end