Problema con lcd 2x16 winstar 1602h

[QUINO22]

Hola amigos del foro, soy nuevo por aca, les quiero comentar que tengo un problema que me esta volviendo loco desde hace 4 dias.La cosa es asi, estoy utilizando un pic16f877 con un cristal de 20mhz  y un lcd winstar 1602h. El lcd no me muestra nada y si me muestra, me muestra algunos cuadraditos negros, pero no veo nada de mi programa, nada de nada, a veces el lcd no muestra ni los cuadraditos.Lo simule en proteus y funciona de 10, pero en la protoboard me pasa eso.El contraste lo ajusto para todos lados y no pasa nada.Pensando que era el pic(pensaba que lo habia quemado) hice un programita para encender un led cada 1s y funcionaba, pero cuando lo programo para que funcione con el lcd no me tira nada.Antes de todo esto yo pensaba que los pines del lcd estaban numerados de izq. a derecha del 1 al 16(y los conecte con ese orden), pero no fue asi, empieza por el pin 14, despues del pin 1 al 13 y despues siguen los pines 15 y 16.Habre quemado el lcd?estoy como loco no encuentro solucion, pruebo de todo y nada.Los contactos en la protoboard verifique que estuvieran bien y asi fue.Pero no logro encontrar el problema.ayudenme por favor, estoy desesperado!!!!!

 

[xocas]

hola Quino, bienvenido al Foro

las conexiones del lcd las tienes en la web del fabricante: http://www.winstar.com.tw/main.php

por lo demás, si no das más info difícil será ayudarte... ¿un esquema? ¿algo de código? ¿algo...?

salu2

[mtristan]

.


El problema que tenés es que seguramente el controlador del LCD que simula el Proteus no es compatible con el que trae el WH1602, por lo tanto sus secuencias de inicialización son distintas. Si ves solo cuadrados negros, entonces el LCD sebería estar bien conectado (sino probá cambiando el voltaje de contraste hasta que se vean).
Si no me equivoco, todos los LCDs 1602 de Winstar usan el mismo controlador: el KS0066, cuyas rutinas de inicialización (para 8 y 4 bits) pongo como adjuntas al mensaje. En alguna parte del foro subí las rutinas en ASM, pero para usar con cristales de 4MHz, así que no se si te servirán 
¡Saludos!

[QUINO22]

Se me olvido de poner el codigo xocas06 jeje.Las conexiones las hice de nuevo como dice el datasheet pero sigue sin pasar nada.Aca va(esta programado en picbasic):


TEMP VAR WORD
I VAR BYTE
PAUS VAR BYTE
BATERIA VAR WORD
DEFINE OSC 20 
DEFINE LCD_LINES 2
DEFINE LCD_CHARS 6
define LCD_DREG PORTB
DEFINE LCD_BITS 8
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTC
DEFINE LCD_RSBIT 0
DEFINE LCD_EREG PORTC
DEFINE LCD_EBIT 1
DEFINE ADC_BITS 10
DEFINE ADC_SAMPLEUS 50



ADCON0=$81
ADCON1=$82

TRISA=$FF
TRISB=$00
TRISC=$00

PORTA=$00
PORTB=$00
PORTC=$00

PAUSE 1000

lcdout $FE,$40,$0E,$0E,$04,$0F,$14,$06,$09    ;CARACTER MUÑECO CAMINANDO A LA DERECHA 1
lcdout $FE,$48,$0E,$0E,$04,$1E,$05,$06,$09    ;CARACTER MUÑECO CAMINANDO A LA DERECHA 2

 
LCDOUT $FE,1
PAUSE 100
lcdout $FE,2
PAUSE 100
LCDOUT $FE,$0C
PAUSE 100
LCDOUT "   C"
PAUSE 100
LCDOUT "R"
PAUSE 100
LCDOUT "E"
PAUSE 100
LCDOUT "A"
PAUSE 100
LCDOUT "D"
PAUSE 100
LCDOUT "O"
PAUSE 100
LCDOUT " "
PAUSE 100
LCDOUT "P"
PAUSE 100
LCDOUT "O"
PAUSE 100
LCDOUT "R"
pAUSE 100

lcdout $FE,$C0
LCDOUT "O",$FE,$C0
PAUSE 50
LCDOUT " O",$FE,$C0
PAUSE 50
LCDOUT "  O",$FE,$C0
PAUSE 50
LCDOUT "   O",$FE,$C0
PAUSE 50
LCDOUT "    O",$FE,$C0
PAUSE 50
LCDOUT "     O",$FE,$C0
PAUSE 50
LCDOUT "      O",$FE,$C0
PAUSE 50
LCDOUT "       O",$FE,$C0
PAUSE 50
LCDOUT "        O",$FE,$C0
PAUSE 50
LCDOUT "         O",$FE,$C0
PAUSE 50
LCDOUT "          O",$FE,$C0
PAUSE 50
LCDOUT "N",$FE,$C0
PAUSE 40
LCDOUT " N",$FE,$C0
PAUSE 40
LCDOUT "  N",$FE,$C0
PAUSE 40
LCDOUT "   N",$FE,$C0
PAUSE 40
LCDOUT "    N",$FE,$C0
PAUSE 40
LCDOUT "     N",$FE,$C0
PAUSE 40
LCDOUT "      N",$FE,$C0
PAUSE 40
LCDOUT "       N",$FE,$C0
PAUSE 40
LCDOUT "        N",$FE,$C0
PAUSE 40
LCDOUT "         N",$FE,$C0
PAUSE 40
LCDOUT "I",$FE,$C0
PAUSE 30
LCDOUT " I",$FE,$C0
PAUSE 30
LCDOUT "  I",$FE,$C0
PAUSE 30
LCDOUT "   I",$FE,$C0
PAUSE 30
LCDOUT "    I",$FE,$C0
PAUSE 30
LCDOUT "     I",$FE,$C0
PAUSE 30
LCDOUT "      I",$FE,$C0
PAUSE 30
LCDOUT "       I",$FE,$C0
PAUSE 30
LCDOUT "        I",$FE,$C0
PAUSE 30
LCDOUT "U",$FE,$C0
PAUSE 20
LCDOUT " U",$FE,$C0
PAUSE 20
LCDOUT "  U",$FE,$C0
PAUSE 20
LCDOUT "   U",$FE,$C0
PAUSE 20
LCDOUT "    U",$FE,$C0
PAUSE 20
LCDOUT "     U",$FE,$C0
PAUSE 20
LCDOUT "      U",$FE,$C0
PAUSE 20
LCDOUT "       U",$FE,$C0
PAUSE 20
LCDOUT "Q",$FE,$C0
PAUSE 10
LCDOUT " Q",$FE,$C0
PAUSE 10
LCDOUT "  Q",$FE,$C0
PAUSE 10
LCDOUT "   Q",$FE,$C0
PAUSE 10
LCDOUT "    Q",$FE,$C0
PAUSE 10
LCDOUT "     Q",$FE,$C0
PAUSE 10
LCDOUT "      Q",$FE,$C0

PAUSE 1000
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "O" DE "QUINO" A LA DERECHA
FOR I=1 TO 10                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " O"
PAUSE 1                         
LCDOUT $FE,2,0                     ;HAGO CAMINAR EL MUÑEQUITO A LA DERECHA
PAUSE 100
LCDOUT $FE,2
LCDOUT "  ",1
PAUSE 100
LCDOUT $FE,2
LCDOUT "   ",0
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "N" DE "QUINO" A LA DERECHA
FOR I=1 TO 9                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " N"
PAUSE 1
LCDOUT $FE,2,"    ",0                     ;HAGO CAMINAR EL MUÑEQUITO A LA DERECHA
PAUSE 100
LCDOUT $FE,2
LCDOUT "     ",1
PAUSE 100
LCDOUT $FE,2
LCDOUT "      ",0
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "I" DE "QUINO" A LA DERECHA
FOR I=1 TO 8                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " I"
PAUSE 1
LCDOUT $FE,2,"       ",0                     ;HAGO CAMINAR EL MUÑEQUITO A LA DERECHA
PAUSE 100
LCDOUT $FE,2
LCDOUT "        ",1
PAUSE 100
LCDOUT $FE,2
LCDOUT "         ",0
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "U" DE "QUINO" A LA DERECHA
FOR I=1 TO 7                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " U"
PAUSE 1
LCDOUT $FE,2,"           ",0                     ;HAGO CAMINAR EL MUÑEQUITO A LA DERECHA
PAUSE 100
LCDOUT $FE,2
LCDOUT "            ",1
PAUSE 100
LCDOUT $FE,2
LCDOUT "             ",0
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "Q" DE "QUINO" A LA DERECHA
FOR I=1 TO 6                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " Q"
PAUSE 1
LCDOUT $FE,2,"              ",0                     ;HAGO CAMINAR EL MUÑEQUITO A LA DERECHA
PAUSE 100
LCDOUT $FE,2
LCDOUT "               ",1
PAUSE 100
LCDOUT $FE,2
LCDOUT "                ",0
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "O" DE "QUINO" A LA DERECHA
FOR I=1 TO 11                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " O"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "N" DE "QUINO" A LA DERECHA
FOR I=1 TO 10                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " N"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "I" DE "QUINO" A LA DERECHA
FOR I=1 TO 9                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " I"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "U" DE "QUINO" A LA DERECHA
FOR I=1 TO 8                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " U"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "Q" DE "QUINO" A LA DERECHA
FOR I=1 TO 7                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " Q"
PAUSE PAUS

LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "O" DE "QUINO" A LA DERECHA
FOR I=1 TO 12                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " O"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "N" DE "QUINO" A LA DERECHA
FOR I=1 TO 11                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " N"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "I" DE "QUINO" A LA DERECHA
FOR I=1 TO 10                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " I"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "U" DE "QUINO" A LA DERECHA
FOR I=1 TO 9                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " U"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "Q" DE "QUINO" A LA DERECHA
FOR I=1 TO 8                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " Q"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "O" DE "QUINO" A LA DERECHA
FOR I=1 TO 13                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " O"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "N" DE "QUINO" A LA DERECHA
FOR I=1 TO 12                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " N"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "I" DE "QUINO" A LA DERECHA
FOR I=1 TO 11                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " I"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "U" DE "QUINO" A LA DERECHA
FOR I=1 TO 10               
 LCDOUT $FE,$14
NEXT I
LCDOUT " U"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "Q" DE "QUINO" A LA DERECHA
FOR I=1 TO 9                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " Q"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "O" DE "QUINO" A LA DERECHA
FOR I=1 TO 14                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " O"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "N" DE "QUINO" A LA DERECHA
FOR I=1 TO 13                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " N"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "I" DE "QUINO" A LA DERECHA
FOR I=1 TO 12                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " I"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "U" DE "QUINO" A LA DERECHA
FOR I=1 TO 11               
 LCDOUT $FE,$14
NEXT I
LCDOUT " U"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "Q" DE "QUINO" A LA DERECHA
FOR I=1 TO 10                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " Q"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "O" DE "QUINO" A LA DERECHA
FOR I=1 TO 15                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " O"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "N" DE "QUINO" A LA DERECHA
FOR I=1 TO 14                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " N"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "I" DE "QUINO" A LA DERECHA
FOR I=1 TO 13                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " I"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "U" DE "QUINO" A LA DERECHA
FOR I=1 TO 12               
 LCDOUT $FE,$14
NEXT I
LCDOUT " U"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "Q" DE "QUINO" A LA DERECHA
FOR I=1 TO 11                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " Q"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "O" DE "QUINO" A LA DERECHA
FOR I=1 TO 16                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " O"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "N" DE "QUINO" A LA DERECHA
FOR I=1 TO 15                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " N"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "I" DE "QUINO" A LA DERECHA
FOR I=1 TO 14                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " I"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "U" DE "QUINO" A LA DERECHA
FOR I=1 TO 13               
 LCDOUT $FE,$14
NEXT I
LCDOUT " U"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "Q" DE "QUINO" A LA DERECHA
FOR I=1 TO 12                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " Q"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "O" DE "QUINO" A LA DERECHA
FOR I=1 TO 17                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " O"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "N" DE "QUINO" A LA DERECHA
FOR I=1 TO 16                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " N"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "I" DE "QUINO" A LA DERECHA
FOR I=1 TO 15                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " I"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "U" DE "QUINO" A LA DERECHA
FOR I=1 TO 14               
 LCDOUT $FE,$14
NEXT I
LCDOUT " U"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "Q" DE "QUINO" A LA DERECHA
FOR I=1 TO 13                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " Q"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "O" DE "QUINO" A LA DERECHA
FOR I=1 TO 18                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " O"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "N" DE "QUINO" A LA DERECHA
FOR I=1 TO 17                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " N"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "I" DE "QUINO" A LA DERECHA
FOR I=1 TO 16                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " I"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "U" DE "QUINO" A LA DERECHA
FOR I=1 TO 15               
 LCDOUT $FE,$14
NEXT I
LCDOUT " U"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "Q" DE "QUINO" A LA DERECHA
FOR I=1 TO 14                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " Q"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "O" DE "QUINO" A LA DERECHA
FOR I=1 TO 19                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " O"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "N" DE "QUINO" A LA DERECHA
FOR I=1 TO 18                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " N"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "I" DE "QUINO" A LA DERECHA
FOR I=1 TO 17                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " I"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "U" DE "QUINO" A LA DERECHA
FOR I=1 TO 16               
 LCDOUT $FE,$14
NEXT I
LCDOUT " U"
PAUSE PAUS
LCDOUT $FE,$C0                      ;DESPLAZO LA LETRA "Q" DE "QUINO" A LA DERECHA
FOR I=1 TO 15                 
 LCDOUT $FE,$14
NEXT I
LCDOUT " Q"
PAUSE 1000

LCDOUT $FE,$40,$0E,$0E,$04,$0E,$15,$0C,$12   ;CARACTER MUÑECO CAMINANDO A LA IZQ.1
LCDOUT $FE,$48,$0E,$0E,$04,$04,$04,$0C,$12   ;CARACTER MUÑECO CAMINANDO A LA IZQ.2
LCDOUT $FE,$50,$0E,$0E,$04,$0E,$15,$0A,$11   ;CARACTER MUÑECO MIRANDO AL FRENTE
LCDOUT $FE,$58,$06,$06,$04,$0E,$15,$0A,$11   ;CARACTER MUÑECO MIRANDO A LA DERECHA
LCDOUT $FE,$60,$0C,$0C,$04,$0E,$15,$0A,$11   ;CARACTER MUÑECO MIRANDO A LA IZQ.
LCDOUT $FE,$68,$04,$0A,$02,$04,$04,$00,$04   ;CARACTER SIGNO DE PREGUNTA
LCDOUT $FE,$70,$0E,$0E,$04,$0E,$0E,$0A,$11   ;CARACTER HOMBROS ABAJO
LCDOUT $FE,$78,$0E,$0E,$0E,$0E,$04,$0A,$11   ;CARACTER HOMBROS ARRIBA

LCDOUT $FE,1     ;MUNECO CAMINANDO A LA IZQ.
LCDOUT "               ",0
PAUSE 100
LCDOUT $FE,1,"              ",1
PAUSE 100
LCDOUT $FE,1,"             ",0
PAUSE 100
LCDOUT $FE,1,"            ",1
PAUSE 100
LCDOUT $FE,1,"           ",0
PAUSE 100
LCDOUT $FE,1,"          ",1
PAUSE 100
LCDOUT $FE,1,"         ",0
PAUSE 100
LCDOUT $FE,1,"        ",1
PAUSE 100
LCDOUT $FE,1,"        ",2
PAUSE 1000
LCDOUT $FE,1,"        ",3
PAUSE 1000
LCDOUT $FE,1,"        ",4
PAUSE 1000
LCDOUT $FE,1,"        ",3
PAUSE 1000
LCDOUT $FE,1,"        ",4
PAUSE 1000
LCDOUT $FE,1,"        ",2,5                  ;CARACTER MIRANDO AL FRENTE Y SIGNO DE PREGUNTA
PAUSE 100
LCDOUT $FE,$58,$0E,$0E,$15,$0E,$04,$0A,$11   ;CARACTER MUÑECO MANOS ARRIBA
LCDOUT $FE,$60,$0E,$0E,$04,$0E,$15,$0A,$11   ;CARACTER MUÑECO MANOS ABAJO
LCDOUT $FE,1,"        ",3,5
PAUSE 100
LCDOUT $FE,1,"        ",4
PAUSE 100
LCDOUT $FE,1,"        ",3,5
PAUSE 100
LCDOUT $FE,1,"        ",4
PAUSE 100
LCDOUT $FE,1,"        ",3,5
PAUSE 100
LCDOUT $FE,1,"        ",4
PAUSE 200
LCDOUT $FE,$60,$0E,$0E,$04,$1F,$04,$0A,$11   ;CARACTER MUÑECO MANOS AL MEDIO
LCDOUT $FE,$68,$04,$04,$04,$04,$04,$00,$04   ;CARACTER SIGNO DE INTERROGACION
LCDOUT $FE,1,"        ",4,5,5
PAUSE 100
LCDOUT $FE,1,"        ",3
PAUSE 100
LCDOUT $FE,1,"        ",4,5,5
PAUSE 100
LCDOUT $FE,1,"        ",3
PAUSE 100
LCDOUT $FE,1,"        ",4,5,5
PAUSE 100
LCDOUT $FE,1,"        ",3
PAUSE 100
LCDOUT $FE,1,"        ",4,5,5
PAUSE 100
LCDOUT $FE,1,"        ",3
PAUSE 100
LCDOUT $FE,1,"        ",4,5,5
PAUSE 100
LCDOUT $FE,1,"        ",3
PAUSE 100
LCDOUT $FE,1,"        ",4,5,5
PAUSE 100
LCDOUT $FE,1,"        ",3
PAUSE 100
LCDOUT $FE,1,"        ",4,"   "
PAUSE 100
LCDOUT $FE,$60,$0E,$0E,$04,$0E,$15,$0A,$11   ;CARACTER MUÑECO MANOS ABAJO
LCDOUT $FE,1,"        ",4
PAUSE 800
LCDOUT $FE,1,"        ",6
PAUSE 100
LCDOUT $FE,1,"        ",7
PAUSE 500
LCDOUT $FE,1,"        ",6
PAUSE 1000
LCDOUT $FE,1,"        ",0
PAUSE 100
LCDOUT $FE,1,"       ",1
PAUSE 100
LCDOUT $FE,1,"      ",0
PAUSE 100
LCDOUT $FE,1,"     ",1
PAUSE 100
LCDOUT $FE,1,"    ",0
PAUSE 100
LCDOUT $FE,1,"   ",1
PAUSE 100
LCDOUT $FE,1,"  ",0
PAUSE 100
LCDOUT $FE,1," ",1
PAUSE 100
LCDOUT $FE,1," "

PAUSE 1000

lcdout $FE,$40,$04,$15,$0E,$1B,$0E,$15,$04    ;CARACTER SOL
LCDOUT $FE,$48,$0A,$04,$15,$0E,$15,$04,$0A   ;CARACTER FRIO
LCDOUT $FE,$50,$07,$05,$07,$00,$00,$00,$00    ;CARACTER GRADO
LCDOUT $FE,$58,$1F,$11,$15,$1F,$15,$11,$1F    ;CARACTER COOLER1
LCDOUT $FE,$60,$1F,$11,$1B,$15,$1B,$11,$1F    ;CARACTER COOLER2
LCDOUT $FE,$68,$0E,$1F,$1F,$1F,$1F,$1F,$1F    ;BATERIA 100%
LCDOUT $FE,$70,$0E,$1F,$11,$11,$1F,$1F,$1F    ;BATERIA 50%
LCDOUT $FE,$78,$0E,$1F,$11,$11,$11,$1F,$1F    ;BATERIA BAJA   
 
LCDOUT$FE,1
LCDOUT "  TEMP. ACTUAL:",$FE,$C0


INICIO:

ADCIN 0,TEMP
ADCIN 1,BATERIA

IF BATERIA<=1023 AND BATERIA>767  THEN
    LCDOUT 5                             ;MUESTRO CARACTER BATERIA 100%
   ELSE
     IF BATERIA<=767 AND BATERIA>512 THEN
         LCDOUT 6                          ;MUESTRO CARACTER BATERIA 50%
       ELSE                               
        IF BATERIA<=512 THEN
           LCDOUT 7
           PAUSE 100
           LCDOUT $FE,$10," "
           PAUSE 100                      ;MUESTRO CARACTER BATERIA DESCARGADA
        ENDIF
     ENDIF
ENDIF           

IF TEMP>20 THEN
  LCDOUT 3                   ;MUESTRO EL CARACTER COOLER1
  PAUSE 100
  LCDOUT $FE,$10
  LCDOUT 4                   ;MUESTRO EL CARACTER COOLER2
  PAUSE 100
  FOR I=1 TO 5
   LCDOUT $FE,$14
  NEXT I
  LCDOUT DEC TEMP-1
  LCDOUT 2                   ;MUESTRO EL CARACTER GRADO
  LCDOUT "     ",0           ;MUESTRO EL CARACTER SOL
  LCDOUT,$FE,$C0
  HIGH PORTC.2
   ELSE
     IF TEMP<=20 AND TEMP>15 THEN
       LCDOUT 3               ;MUESTRO EL CARACTER COOLER1
       FOR I=1 TO 5
        LCDOUT $FE,$14
       NEXT I
       LCDOUT DEC TEMP-1
       LCDOUT 2               ;MUESTRO EL CARACTER GRADO
       LCDOUT "     ",1       ;MUESTRO EL CARACTER FRIO
       LCDOUT,$FE,$C0
       LOW PORTC.2
        ELSE
         IF TEMP<10 THEN       ;AGREGO ESTE IF PARA QUE SE MUESTRES BIEN EL CARACTER FRIO PORQUE SINO SE DUPLICA EL CARACTER SI SACO ESTE IF
            LCDOUT 3               ;MUESTRO EL CARACTER COOLER1
            FOR I=1 TO 5
             LCDOUT $FE,$14
            NEXT I
            LCDOUT DEC TEMP
            LCDOUT 2               ;MUESTRO EL CARACTER GRADO
            LCDOUT "      ",1       ;MUESTRO EL CARACTER FRIO
            LCDOUT,$FE,$C0
            lOW PORTC.2
              else
                if temp>=10 and temp<=15 then
                  LCDOUT 3               ;MUESTRO EL CARACTER COOLER1
                  FOR I=1 TO 5
                   LCDOUT $FE,$14
                  NEXT I
                  LCDOUT DEC TEMP
                  LCDOUT 2               ;MUESTRO EL CARACTER GRADO
                  LCDOUT "     ",1       ;MUESTRO EL CARACTER FRIO
                  LCDOUT,$FE,$C0
                  LOW PORTC.2
                endif 
         ENDIF
     ENDIF
ENDIF

GOTO INICIO


mtristan no me sirven las rutinas de inicializacion porque estoy utilizando basic.Pero gracias igual amigo.
igualmente los cuadrados negros que me aparecen no son en toda la pantalla, me aparecen a veces en la mitad y a veces entre cortados y se desvanecen de a poco.
ya no se que mas hacer para que funcione porque no funciona, no me despliega ningun caracter.




 







 

[QUINO22]

Ahora que me acuerdo en un momento me confundi y conecte no se si el lcd o el pic a la alimentacion de 9v.Se habra que mado alguno de los dos?el pic lo programa para que encienda un led y funcaba, lo que me extyraña es el lcd, lo habre quemado?porque el backlight funciona

[mtristan]

.


¡Perdón! Me olvidé de adjuntar las imágenes en el mensaje anterior    Las dejo en este, entonces.
Espero que te sirvan. Nunca usé basic, así que el código se me hace medio indescifrable como para encontrar un error 
En la página de Winstar no aparece ningún LCD con la referencia 1602H...
Saludos.

[QUINO22]

EN EL DATASHEET DE MI LCD DICE LOS TIEMPOS DE INICIALIZACION, PERO SIGUE SIN FUNCIONAR.ES MAS, AHORA LO HICE CON UN PIC16F84A Y TAMPOCO SE VISUALIZA NADA Y ESTE PIC TAMBIEN FUNCIONA BIEN.MAS QUE SEGURO SE RE QUEMO EL LCD NO?