Autor Tema: a ver si me podeis ayudar con la lcd  (Leído 1948 veces)

0 Usuarios y 1 Visitante están viendo este tema.

.ChImE.

  • Visitante
a ver si me podeis ayudar con la lcd
« en: 14 de Noviembre de 2004, 13:31:00 »
tengo un pekeño prgrama hecho para el pic16f84 pero no consigo que me funcione con una lcd de 4x20. a ver si le podeis hechar un vistazo al programa i si ay un error.
gracias

Define LCD_RWREG = PORTA"set to 0 if not used, 0 is default
Define LCD_RWBIT = 1"set to
" Setea el port de datos LCD
DEFINE LCD_DREG PORTB
" Setea el bit de comienzo de datos (0 o 4) si el bus es de 4-bit
DEFINE LCD_DBIT 0
" Setea el port LCD Register Select
DEFINE LCD_RSREG PORTA
" Setea el bit LCD Register Select
DEFINE LCD_RSBIT 0
" Setea el port LCD Enable
DEFINE LCD_EREG PORTA
" Setea el bit LCD Enable
DEFINE LCD_EBIT 2
" Setea el tamaño del bus LCD (4 o 8 bits)
DEFINE LCD_BITS 8
" Setea el numero de lineas en el LCD
DEFINE LCD_LINES 2

pause 500

loop: Lcdout $fe, 1 " Limpiar LCD
Lcdout "Hola" " muestra Hola
Pause 500 " espera .5 seg

Lcdout $fe, 1 " limpia LCD
Lcdout "Mundo"
Pause 50" espera .5 seg
HIGH PORTA.3
PAUSE 500
LOW PORTA.3
PAUSE 500
Goto loop " repite los mismo
END