TODOPIC

Microcontroladores PIC => Primeros pasos - Iniciación a los microcontroladores => Mensaje iniciado por: n30 en 07 de Octubre de 2010, 22:27:15

Título: Variar mensajes LCD
Publicado por: n30 en 07 de Octubre de 2010, 22:27:15

Saludos a todos me inicio en el interesante mundo de los PIC´s, he estado trabajando con los lcds y estoy practicando la forma de poder variar los mensajes de acuerdo a unos mensajes predefinidos pero sin embargo el lcd me aparece como si lo acabara de iniciar, agradeceria su opinion de mi codigo un saludo y gracias :D

Código: [Seleccionar]

INTRC_OSC_NOCLKOUT
pause 800
mlcd var byte
movx var byte


pro:
mlcd=0
for movx=0 to 3
lcdout $FE,1
gosub imprimir
pause 1000
mlcd=mlcd+1
next
goto pro

imprimir:

select case mlcd
case 1
mlcd = 0
gosub msg0

case 2
mlcd = 1
gosub msg1

case 3
mlcd = 2
gosub msg2

case 4
mlcd = 3
gosub msg3
end select
return

MSG0: LCDOUT $FE,1
return
MSG1: LCDOUT $FE,1,"  1111111   "
RETURN

MSG2: LCDOUT $FE,1," cccccccc   "
RETURN

MSG3: LCDOUT $FE,1," bbbbbbbbb  "
RETURN

end