TODOPIC

Microcontroladores PIC => Todo en microcontroladores PIC => Mensaje iniciado por: tornar en 26 de Noviembre de 2004, 05:44:00

Título: LCD
Publicado por: tornar en 26 de Noviembre de 2004, 05:44:00

Hola nocturno66, al encenderla me aparecen cuadraditos negros en la pantalla LCD, pero no creo que sea problema del potenciometro pq cuando me la trajeron venia un programa pre-instalado en el pic, y veia perfectamente los mensajes en el LCD, creo que es cuestion de probar un codigo que funcione, kizas el codigo que ellos proporcionan de ejemplo tenga algun error, voy a probar un codigo de ejemplos a simular que he visto en el foro, pero me parece raro que ellos mismos te den un codigo para su placa que no funcione....

Título: RE: LCD
Publicado por: Nocturno en 26 de Noviembre de 2004, 05:53:00

Pon por aquí el código que no te funciona y le echamos un vistazo

Título: RE: LCD
Publicado por: piriots en 26 de Noviembre de 2004, 14:17:00

Los cuadritos te salen en toda la primera linia del LCD?? Si te salen es k no esta recibiendo informacion.

Salu2

Título: RE: LCD
Publicado por: migsantiago en 26 de Noviembre de 2004, 14:19:00

A mi me pasaba eso con los primeros programas que escribí para la LCD. Para corregirlo, después de configurar la LCD mandaba el comando Limpiar Pantalla y ya luego mandaba el texto. Tal vez esos cuadritos salen porque al encender la fuente de  voltaje hay muchos picos de voltaje y la LCD los interpreta mal.

Título: RE: LCD
Publicado por: manex_1987 en 26 de Noviembre de 2004, 16:17:00

Si, es muy comun el problema...

Tal y como lo dicen los compañeros, si la primera linea esta plagada de cuadrados, es que no esta bien conectado... es lo que tienes, si conectas el LCD a VCC y GND solo.

A mi otras veces se me ponen las dos lineas en negro... y basta mandar un $FE (limpiar pantalla), aunque creo que sin $FE tambien vale enviar texto directamente.

salu2

Título: RE: LCD
Publicado por: Modulay en 26 de Noviembre de 2004, 16:35:00

A mi me ocurre si por cualquier motivo,el lcd no se inicializa

Título: RE: LCD
Publicado por: tornar en 29 de Noviembre de 2004, 08:56:00

Como comentais, me sale toda la primera linea del LCD repleta de cuadraditos, y al simular el programa con sim2000, he visto que se keda realizando un bucle infinito en los DELAYS, aki os dejo el codigo para ver si me podeis echar una mano y ver q es lo q sta mal o q stoy haciendo mal.

;*************************************************************************          
;                          EJEMPLO 4
;                    Prueba del m¢dulo LCD
;                   Autor: Mikel Etxebarria
;*************************************************************************
;
;El programa que se presenta a continuaci¢n consiste en sacar unos mensajes
;de presentaci¢n del sistema de evaluaci¢n Micro"PIC Trainer por el m¢dulo
;LCD de visualizaci¢n
           
           list p=16c84      ;Procesador PIC16c84  
           list c=132        ;Listado a 132 caracteres

TIMER0     equ 01            ;Registro del TIMER0
OPCION     equ 0x1           ;Registro de opciones,p gina 1
PCL        equ 0x2           ;Registro PC
PCLATH     equ 0xa           ;Registro alto del PC
STATUS     equ 03            ;Registro de estado
RA         equ 05            ;Puerta A
RB         equ 06            ;Puerta B
TRISA      equ 0x5           ;Reg. de programaci¢n de la puerta A, p gina 1
TRISB      equ 0x6           ;Reg. de programaci¢n de la puerta B, p gina 1
INTCON     equ 0xb           ;Registro de control de interrupciones
DATO_A     equ 0xc           ;Registro del dato A
DATO_B     equ 0xd           ;Registro del dato B
RESUL      equ 0xe           ;Registro de resultados
TEMPO1     equ 0xf           ;Registro temporal 1
TEMPO2     equ 0x10          ;Registro temporal 2
OFFSET     equ 0x11          ;Variable de desplazamientos de mensajes

           org 0             ;Vector de RESET
           goto INICIO

           org 5

INICIO     bsf STATUS,5      ;Selecciona el banco 1 de datos
           clrf TRISB        ;RB se programa como salida    
           movlw b"00011000" ;RA<4:3> se programan como entradas
           movwf TRISA       ;RA<2:0> se programan como salidas
           movlw b"10000111"
           movwf OPCION      ;Asigna preescaler al TMR0

           bcf STATUS,5      ;Selecciona el banco 0 de datos

           movlw b"00000000"
           movwf INTCON      ;Desactiva interrupciones
           bcf RA,0          ;Desactiva RS del m¢dulo LCD
           bcf RA,2          ;Desactiva E del m¢dulo LCD
           goto START

DATOS      addwf PCL,1
           retlw "*"         ;OFFSET = 0
           retlw "*"
           retlw " "
           retlw "P"
           retlw "R"
           retlw "E"
           retlw "S"
           retlw "E"
           retlw "N"
           retlw "T"
           retlw "A"
           retlw " "
           retlw "*"
           retlw "*"
           retlw 0x0

           retlw """         ;OFFSET 0xf
           retlw 0xe4        ;
           retlw "P"
           retlw "I"
           retlw "C"
           retlw " "
           retlw "T"
           retlw "r"
           retlw "a"
           retlw "i"
           retlw "n"
           retlw "e"
           retlw "r"
           retlw """
           retlw 0

           retlw "E"         ;OFFSET 0x1e
           retlw "n"
           retlw "t"
           retlw "r"
           retlw "e"
           retlw "n"
           retlw "a"
           retlw "d"
           retlw "o"
           retlw "r"
           retlw " "
           retlw "p"
           retlw "a"
           retlw "r"
           retlw "a"
           retlw 0

           retlw "P"         ;OFFSET 0x2e
           retlw "I"
           retlw "C"
           retlw " "
           retlw "1"
           retlw "6"
           retlw "c"
           retlw "7"
           retlw "x"
           retlw "/"
           retlw "c"
           retlw "8"
           retlw "4"
           retlw 0
           
           retlw "C"         ;OFFSET 0x3c
           retlw "O"
           retlw "N"
           retlw "S"
           retlw "T"
           retlw "A"
           retlw " "
           retlw "D"
           retlw "E"
           retlw ":"
           retlw 0

           retlw "F"         ;OFFSET 0x47
           retlw "."
           retlw " "
           retlw "A"
           retlw "l"
           retlw "i"
           retlw "m"
           retlw "e"
           retlw "n"
           retlw "t"
           retlw "a"
           retlw "c"
           retlw "i"
           retlw "o"
           retlw "n"
           retlw 0

           retlw "M"         ;OFFSET 0x57
           retlw "o"
           retlw "d"
           retlw "u"
           retlw "l"
           retlw "o"
           retlw " "
           retlw "G"
           retlw "r"
           retlw "a"
           retlw "b"
           retlw "a"
           retlw "d"
           retlw "o"
           retlw "r"
           retlw 0

           retlw "5"         ;OFFSET 0x67
           retlw " "
           retlw "E"
           retlw "n"
           retlw "t"
           retlw "r"
           retlw "a"
           retlw "d"
           retlw "a"
           retlw "s"
           retlw " "
           retlw "d"
           retlw "i"
           retlw "g"
           retlw "i"
           retlw "-"
           retlw 0

           retlw "t"         ;OFFSET 0x78
           retlw "a"
           retlw "l"
           retlw "e"
           retlw "s"
           retlw 0

           retlw "4"         ;OFFSET 0x7e
           retlw " "
           retlw "E"
           retlw "n"
           retlw "t"
           retlw "r"
           retlw "a"
           retlw "d"
           retlw "a"
           retlw "s"
           retlw " "
           retlw "a"
           retlw "n"
           retlw "a"
           retlw "-"
           retlw 0

           retlw "l"         ;OFFSET 0x8e
           retlw "o"
           retlw "g"
           retlw "i"
           retlw "c"
           retlw "a"
           retlw "s"
           retlw 0

           retlw "8"         ;OFFSET 0x96
           retlw " "
           retlw "S"
           retlw "a"
           retlw "l"
           retlw "i"
           retlw "d"
           retlw "a"
           retlw "s"
           retlw " "
           retlw "a"
           retlw " "
           retlw "L"
           retlw "E"
           retlw "D"
           retlw "s"
           retlw 0

           retlw "y"         ;OFFSET 0xA7
           retlw " "
           retlw "a"
           retlw " "
           retlw "D"
           retlw "i"
           retlw "s"
           retlw "p"
           retlw "l"
           retlw "a"
           retlw "y"
           retlw 0
           
           retlw "*"         ;OFFSET 0xb3
           retlw "*"
           retlw " "
           retlw "P"
           retlw "R"
           retlw "U"
           retlw "E"
           retlw "B"
           retlw "A"
           retlw "L"
           retlw "O"
           retlw " "
           retlw "*"
           retlw "*"
           retlw 0

DATO_1     addwf PCL,1
           retlw "M"
           retlw "i"
           retlw "c"
           retlw "r"
           retlw "o"
           retlw "S"
           retlw "y"
           retlw "s"
           retlw "t"
           retlw "e"
           retlw "m"
           retlw "s"
           retlw " "
           retlw " "
           retlw " "
           retlw 0x0

DATO_2     addwf PCL,1
           retlw "E"
           retlw "n"
           retlw "g"
           retlw "i"
           retlw "n"
           retlw "e"
           retlw "e"
           retlw "r"
           retlw "i"
           retlw "n"
           retlw "g"
           retlw 0x0

;LCD_BUSY Chequea el estado del flag Busy del LCD y espera a que finalice
;cualquier comando previo antes de retornar

LCD_BUSY   bsf RA,1          ;Pone el LCD en modo RD
           bsf STATUS,5      ;Selecciona el banco 1
           movlw 0xff
           movwf TRISB       ;Puerta B es entrada
           bcf STATUS,5      ;Selecciona el banco 0
           bsf RA,2          ;Activa el LCD (E)
           nop
L_BUSY     btfsc RB,7        ;Chequea el bit busy
           goto L_BUSY
           bcf RA,2          ;Desactiva el LCD (E)
           bsf STATUS,5      ;Selecciona el banco 1
           clrf TRISB        ;Puerta B salida
           bcf STATUS,5      ;Selecciona el banco 0
           bcf RA,1          ;Pone el LCD en modo WR
           return

;LCE_E Genera un pulso en la se¤al E de 1 uS de duraci¢n. Esto es posible
;gracias a la NOP y a que el PIC trabaja a 4MHz. Para velocidades superiores
;habr  que insertar alguna NOP adicional para no rebasar la duraci¢n m¡nima
;del LCD

LCD_E      bsf RA,2          ;Activa E
           nop               ;pausa
           bcf RA,2          ;Desactiva E
           return

;LCD_DATO  Deposita el c¢digo ASCII presente en W, sobre RB. Espera que el
;LCD ejecute la £ltima operaci¢n y genera el pulso E.

LCD_DATOS  bcf RA,0          ;Desactiva RS (modo comando)
           movwf RB          ;Valor ASCII a sacar por RB
           call LCD_BUSY     ;Espera que se libere el LCD
           bsf RA,0          ;Activa RS (modo dato)
           goto LCD_E        ;Genera pulso en se¤al E

;LCD_REG Deposita el c¢digo del comando presente en W, sobre RB. Espera que
;el LCD ejecute la £ltima operaci¢n y genera el pulso E.

LCD_REG    bcf RA,0          ;Desactiva RS (Modo comando)
           movwf RB          ;C¢digo del comando
           call LCD_BUSY     ;Espera que se libere el LCD
           goto LCD_E        ;Genera pulso en se¤al E

;LCD_INI Realiza la inicializaci¢n del LCD seg£n los tiempos marcados por el
;fabricante. Se inicia con un interface de 8 bits, 2 l¡neas de visualizaci¢n,
;y caracteres de 5 * 7. Se temporiza 15 mS.

LCD_INI    movlw b"00111000"
           call LCD_REG
           call DELAY_5MS
           movlw b"00111000"
           call LCD_REG
           call DELAY_5MS
           movlw b"00111000"
           call LCD_REG
           call DELAY_5MS
           return

;DELAY_5MS genera una temporizaci¢n de 5mS necesario para la secuencia de
;inicio del LCD

DELAY_5MS  movlw 0x1a      
           movwf DATO_B
           clrf DATO_A
DELAY_1    decfsz DATO_A,1
           goto DELAY_1
           decfsz DATO_B,1
           goto DELAY_1
           return

;DELAY10 genera, con ayuda del TMR0 y el preescaler, una temporizaci¢n de
;10 ms que se repite tantas veces como indique la variable TEMPO1

DELAY10    bcf INTCON,2      ;Borra flag del TMR0
           movlw 0xd8
           movwf TIMER0      ;Carga TMR0 para que cuente 39
DELAY10_1  btfss INTCON,2    ;Espera overflow del TMR0
           goto DELAY10_1
           decfsz TEMPO1,1   ;Repite 10 veces
           goto DELAY10
           return

;DELAY1S temporiza 1 segundo

DELAY1S    movlw 0x64        ;Repite la rutina DELAY10 (de 10 mS) 100
           movwf TEMPO1      ;veces
           call DELAY10
           return

;BLINK mantiene el LCD activado durante 2 seg. y a continuaci¢n genera
;una intermitencia de 6 veces del encendido y apagado del LCD, de 1/4 segundo
;cada una

BLINK      movlw 0xc8
           movwf TEMPO1
           call DELAY10      ;Temporiza 2 segundos con el mensaje
           movlw 6
           movwf TEMPO2      ;6 veces de intermitencia
BLINK_1    movlw b"00001000"
           call LCD_REG      ;Apaga LCD
           movlw 25
           movwf TEMPO1
           call DELAY10      ;Temporiza 1/2 segundo
           movlw b"00001100"
           call LCD_REG      ;Enciende LCD
           movlw 25
           movwf TEMPO1
           call DELAY10      ;Temporiza 1/2 segundo
           decfsz TEMPO2,1
           goto BLINK_1
           return


MENS_1     clrf RESUL
MENS_1_1   movf RESUL,0      ;Inicia contador de caracteres    
           call DATO_1       ;Saca caracter
           iorlw 0
           btfsc STATUS,2    ;¨Es el £ltimo?
           return            ;Si
           call LCD_DATOS    ;Visualiza caracter
           incf RESUL,1      ;Incrementa contador de caracteres
           movlw 10
           movwf TEMPO1      ;Temporiza 100mS
           call DELAY10
           movlw b"00011000" ;Desplazamiento a la izda.
           call LCD_REG
           goto MENS_1_1

MENS_2     clrf RESUL        ;Inicia contador de caracteres
MENS_2_1   movf RESUL,0          
           call DATO_2       ;Coge el caracter
           iorlw 0
           btfsc STATUS,2    ;¨Es el £ltimo?
           return            ;Si
           call LCD_DATOS    ;Visualiza caracter
           incf RESUL,1      ;Incrementa contador de caracteres
           movlw 10
           movwf TEMPO1      ;Temporiza 100mS
           call DELAY10
           goto MENS_2_1

MENS       clrf RESUL        ;Inicia contador de caracteres
MENS1      movf OFFSET,0     ;Coge el desplazamiento
           addwf RESUL,0          
           call DATOS        ;Coge el caracter
           iorlw 0
           btfsc STATUS,2    ;¨Es el £ltimo?
           return            ;Si
           call LCD_DATOS    ;Visualiza caracter
           incf RESUL,1      ;Incrementa contador de caracteres
           movlw 10
           movwf TEMPO1      ;Temporiza 100mS
           call DELAY10
           goto MENS1


START      call LCD_INI      ;Inicia LCD
START_1    movlw b"00000001" ;Borrar LCD y Home
           call LCD_REG
           movlw b"00000110" ;
           call LCD_REG
           movlw b"00001100" ;LCD On, cursor Off
           call LCD_REG
           movlw 0x8f        ;Direcci¢n £ltimo caracter 1¦ linea
           call LCD_REG
           call MENS_1       ;Mensaje "MicroSystems"
           movlw 0xd4        ;Direcci¢n 2¦ l¡nea
           call LCD_REG
           call MENS_2       ;Mensaje "Engenering"
           call BLINK        ;Intermitencia
           movlw b"00000001"
           call LCD_REG      ;Borra LCD y Home
           call DELAY1S      ;Temporiza 1 seg.
           movlw 0x81
           call LCD_REG      ;Posici¢n 1¦ fila
           clrf OFFSET
           call MENS         ;Mensaje "** PRESENTA **"
           call DELAY1S      ;Temporiza 1 seg.
           movlw 0xc1
           call LCD_REG      ;Posici¢n 2¦ fila
           movlw 0x0f
           movwf OFFSET
           call MENS         ;Mensaje "PIC Trainer"
           call DELAY1S      ;Temporiza 1 seg.
           movlw b"00000001"
           call LCD_REG      ;Borra LCD y Home
           call DELAY1S      ;Temporiza 1 seg.
           movlw 0x1e
           movwf OFFSET
           call MENS         ;Mensaje "Entrenador para"
           movlw 0xc0
           call LCD_REG      ;Posici¢n 2¦ fila
           movlw 0x2e
           movwf OFFSET
           call MENS         ;Mensaje "PIC 16c7x/84"
           call DELAY1S      ;Temporiza 1 seg.
           movlw b"00000001"
           call LCD_REG      ;Borra LCD y home
           call DELAY1S      ;Temporiza 1 seg.
           movlw 0x3c
           movwf OFFSET
           movlw 0x83
           call LCD_REG      ;Posici¢n 1¦ linea
           call MENS         ;Mensaje "CONSTA DE:
           call BLINK        ;Parpadeo
           movlw b"00000001"
           call LCD_REG      ;Borra LCD y home
           call DELAY1S      ;temporiza 1 seg.
           movlw 0x47
           movwf OFFSET
           call MENS         ;Mensaje "F. Alimentacion"
           movlw 0xc0
           call LCD_REG      ;Posici¢n 2¦ linea
           call DELAY1S      ;Temporiza 1 seg.
           movlw 0x57
           movwf OFFSET
           call MENS         ;Mensaje "Modulo grabador"
           call DELAY1S      ;Delay 1 seg
           movlw b"00000001"
           call LCD_REG      ;Borra LCD y Home
           call DELAY1S      ;Temporiza 1 seg
           movlw 0x67
           movwf OFFSET
           call MENS         ;Mensaje "5 entradas digi-"
           movlw 0xc0
           call LCD_REG      ;Posici¢n 2¦ linea
           movlw 0x78
           movwf OFFSET
           call MENS         ;Mensaje "tales"
           call DELAY1S      ;Temporizaci¢n de 1 seg.
           movlw b"00000001"
           call LCD_REG      ;Borra LCD y home
           call DELAY1S      ;Temporiza 1 seg.
           movlw 0x7e
           movwf OFFSET
           call MENS         ;Mensaje "4 Entradas ana-"
           movlw 0xc0
           call LCD_REG      ;Posici¢n 2¦ linea
           movlw 0x8e
           movwf OFFSET
           call MENS         ;Mensaje "l¢gicas"
           call DELAY1S      ;Temporiza 1 seg
           movlw b"00000001"
           call LCD_REG      ;Borra LCD y Home
           call DELAY1S      ;Temporiza 1 seg
           movlw 0x96
           movwf OFFSET
           call MENS         ;Mensaje "8 Salidas a LED"
           movlw 0xc0
           call LCD_REG      ;Posici¢n 2¦ linea
           movlw 0xa7
           movwf OFFSET
           call MENS         ;Mensaje "y a Display"
           call DELAY1S      ;Temporiza 1 seg.
           movlw b"00000001"
           call LCD_REG      ;Borra LCD y home
           call DELAY1S      ;Temporiza 1 seg.
           movlw 0x81
           call LCD_REG      ;Posici¢n 1¦ linea
           movlw 0xb3
           movwf OFFSET
           call MENS         ;Salida de "­­ PRUEBALO ­­"
           call BLINK        ;Parpadeo
           call DELAY1S      ;Temporiza 1 seg.
           goto START_1
           
           end

Título: RE: LCD
Publicado por: Falconhunter en 29 de Noviembre de 2004, 14:24:00

A mi me esta pasando con una LCD que se me encienden seis cuadros de cada linea. Lo he comprobado con un programa con un MCS-51 que se que funciona y no lo hace y resulta que habia alimentado la pantalla a 15V. (A que soy listo) No hagais lo mismo que yo, por favor.