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" '[b]Este ciclo es para detectar el arranque del contador[/b]
lcdout $FE, $C0, dec cont '[b]Estos lcdout no deberían ir aquí sino arriba del main[/b]
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" '[b]La velocidad del proyectil es muy rápida, así que la velocidad del conteo debe serlo también[/b]
lcdout $FE, $C0, dec cont '[b]Igual que antes, pienso que los lcdout introducen un retardo bastante considerable, no debería ir aquí[/b]
if S=1 then
pause 50
if S=1 then
goto datos
endif
endif
goto cuenta