Hola a todos, con ayuda de un paisano se mejoro el codigo para poder obtener un contador que funcione con dos push buton, uno que arranque un contador y otro que lo detenga, al simularlo en proteus no tengo ningun problema, pero en el protoboard no logro hacer que arranque el contador, solo lo puedo detener. agradeceria si me podrian dar alguna sugerencia. les pego el codigo y la imagen del proteus. hasta pronto
saludos
alopez.
DEFINE LCD_DREG PORTB 'puerto para datos del LCD
DEFINE LCD_DBIT 4 'bit de incio de datos 0 o 4
DEFINE LCD_RSREG PORTB 'puerto de registro de selección (RS, R/W, E)
DEFINE LCD_RSBIT 3 'bit de inicio de bloque de selección, Reset
DEFINE LCD_EREG PORTB 'puerto de habilitación
DEFINE LCD_EBIT 2 'bit de habilitación 2
DEFINE LCD_BITS 4 'tamaño de palabra de datos
'DEFINE LCD_LINES 2 'numero de lineas
'DEFINE LCD_COMMANDUS 2000 'tiempo de espera maximo
'DEFINE LCD_DATAUS 50 'tiempo de espera para dato
'DEFINE CHAR_PACING 1000 'Tiempo de espaciado entre cada caracter
Lcdout $fe, 1, " UNIVERSIDAD DE " '****************************
lcdout $FE, $C0, " QUINTANA ROO " '* *
pause 2000 '* ANUNCIOS DE PRESENTACIÓN *
Lcdout $fe, 1, " INGENIERIA EN " '* *
lcdout $FE, $C0,"SIST. DE ENERGIA" '* *
pause 2000 '* *
trisa=31
porta=0
cont var byte
R var porta.1 'Variable para arrancar contador
S var porta.2 'Variable para detener contador
main:
pause 500
cont=0
lcdout $fe, 1, "CONTADOR"
lcdout $FE, $C0, dec cont
if R=1 then
pause 50
if r=1 then
goto cuenta
endif
endif
pause 500
goto main
datos:
lcdout $fe, 1, "El conteo fue:"
lcdout $FE, $C0, dec cont
pause 3000
goto main
cuenta:
porta=0
Cont=Cont + 1
pause 500
lcdout $fe, 1, "CONTADOR"
lcdout $FE, $C0, dec cont
if S=1 then
pause 50
if S=1 then
goto datos
endif
endif
goto cuenta
*****************************************