hola amigos soy nuevo en el foro y estoy trantado de hacer una especie de tarjeta electronica con un lcd de 20x4 y el pic 16f877 con pic basic pro. su funcionamiento es de que al energizar el pic comienza a trabajar el lcd con un mensaje de instruccion para que oprimas un unico boton para ir saltando "la pagina" al presionar el boton por primera vez comienza la primera pagina que se muestra en el lcd y no cambiara el mensaje hasta volver a presionar el boton, sin embargo no puedo salir de la primera parte y es que simulo lo que tengo en el pic simulator ide y mi pic se va a modo sleep antes de que se tenga que oprimir el boton por segunda vez. les dejo el codigo como lo estoy haciendo espero alguien me pueda ayudar o decirme en que estoy mal, agradesco la atencion.
Define LCD_DREG PORTB
Define LCD_DBIT 4
Define LCD_RSREG PORTB
Define LCD_RSBIT 1
Define LCD_EREG PORTB
Define LCD_EBIT 2
boton var portd.0
TRISB=0
trisd=%00000001
pause 500
inicio:
portd.1=0
PAUSE 500
LCDOUT $FE, 1 ' Limpiar LCD
LCDOUT $FE, 1, "Hola hermosa, para " 'Escribir en la primera línea
Lcdout $fe, $C0, "Continuar leyendo " 'Escribir en la segunda línea
lcdout $fe, $94, "presiona el boton."
pause 1000
if boton=1 then
portd.1=1
boton=0
LCDOUT $FE, 1
LCDOUT $FE, 1, "texto"
Lcdout $fe, $C0, "texto" 'Escribir en la segunda línea
lcdout $fe, $94, "texto"
lcdout $fe, $d4, "texto"
PAUSE 1000
endif
portd.1=0
if boton=1 then
portd.1=1
boton=0
LCDOUT $FE, 1
LCDOUT $FE, 1, "texto2"
Lcdout $fe, $C0, "texto2" 'Escribir en la segunda línea
lcdout $fe, $94, "texto2"
lcdout $fe, $d4, "texto2"
PAUSE 1000
endif
end
el texto2 es lo que ya no me muestra, el micro se pone en sleep segun el pic simulator ide.
