El codigo del que me hablas me imagino que te refieres al programa. Es este
Pero este programa solo es uno de tantos. El dislay funciona bien con el programa, pero
al poco si se enciende la luz de la habitación puede ser que el display falle.
Utilizo una fuente de alimentacion lineal, por si ese fuese el problema.
La referencia del display es 3613 560020 01
CA20L01YBW00
Y el otro display es LMB202D
...
Define Osc 4 ' Define el Oscilador para un Cristal de 4 Mhz.
Symbol HIPER = PORTB.0
Symbol LED_AMARILLO = PORTB.1
Symbol LED_VERDE = PORTB.2
Symbol E = PORTB.3
Symbol LED_ROJO = PORTB.4
Symbol MICRO_A = PORTB.5
Symbol MICRO_B = PORTB.6
Symbol MOTOR = PORTB.7
ESCALA VAR Byte
DATO_A Var Byte 'micro A
DATO_B Var Byte 'micro B
Pause 200 ' Pausa de 200 milisegundos
ESCALA = 500 ' Asigna valor a la escala
'SerOut PORTB.0, 2400, ["Hello, World!"]
Inicio:
LCDOut $fe, 1 ' Limpia la pantalla
LCDOut $fe, 2 ' Posiciona el cursor en el inicio
LCDOut $fe,0," Control de motores "'Escribe en la primera linea
Inicio_1:
low LED_AMARILLO 'apaga el led
Pot MICRO_A,ESCALA,DATO_A ' Toma lectura del Pulsador A y lo guarda en dato_1
Lcdout $fe,$C0, "Mic A= ",#DATO_A," " ' Muestra dato en la segunda linea
inicio_2
Pot MICRO_B,ESCALA,DATO_B ' Toma lectura del Pulsador B y lo guarda en dato_2
Lcdout $fe,$CB, "Mic B= ",#DATO_B," " ' Muestra dato en la segunda linea
if dato_B => 55 then Inicio_1 'si es igual o mayor de 55 salta a inicio
if dato_B =< 3 then boton_b 'si pulsa el boton B
if dato_B > 4 and DATO_B <54 then boton_b_roto
GoTo inicio_1 ' Salto a inicio
Boton_b:
high LED_AMARILLO 'activa el boton (led amarillo
goto inicio_2
Boton_b_roto:
high LED_AMARILLO 'activa el boton (led amarillo
high LED_ROJO 'enciende el led rojo (averia)
goto inicio_2