I
ibrar
Guest
Hola a tots,
tractant de millorar GLCD amb una interfície 89c51.estic davant d'un problema important perquè és el que primera vegada.i quan
s'encengui la llum de tornada del circuit LCD està encesa i es destaquen punts, però les dades no està en pantalla.
a continuació és el diagrama de connexió de 89c51 a GLCD
im usant JHD12864A GLCD.
aquí està el codi de programaORG 00h
MOV A, # 38H; INIT.LCD de 2 línies, 5 * 7 Matriu
Emmudir COMNWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
MOV A, # 0EH; Mostra ON cursor
Emmudir COMNWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
MOV A, # 01h; Esborrar LCD
Emmudir COMNWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
MOV A, # 06H; Torn de cursor dret
Emmudir COMNWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
MOV A, # 84H; cursor en viu 1, pos.4
Emmudir COMNWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
MOV A, # 'A'; Mostra Carta 'A'
Emmudir DATAWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
MOV A, # 'L'; Mostra lletra «L»
Emmudir DATAWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
MOV A, # 'L'; Mostra lletra «L»
Emmudir DATAWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
MOV A, # 'A'; Mostra Carta 'A'
Emmudir DATAWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
MOV A, # 'H'; Mostra Carta «H»
Emmudir DATAWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
DE NOU: UNA ALTRA VEGADA SJMP; l'estada aquí
COMNWRT:
MOV P2, A; Copiar un registre de LCD
CLR P0.7; R / S = 0 per a la comanda
CLR P1.6; R / W = 0 per escriure
SETB P1.7, E = 1 per a l'alta pols
Emmudir RETARD; Donar LCD algun temps
CLR P1.7, E = 0 PER Alt pols a LOE
RET
DATAWRT: MOV P2, A; Copiar un registre de LCD
SETB P0.7, R / S = 1 per DADES
CLR P1.6; R / W = 0 per escriure
SETB P1.7, E = 1 per a l'alta pols
Emmudir RETARD; Donar LCD algun temps
CLR P1.7, E = 0 PER Alt pols a LOE
RETDELAY: MOV R3, # 50
ELLA: MOV R4, # 255
AQUÍ: DJNZ R4, AQUÍ
DJNZ R3, SEVA
RET
CAP
tractant de millorar GLCD amb una interfície 89c51.estic davant d'un problema important perquè és el que primera vegada.i quan
s'encengui la llum de tornada del circuit LCD està encesa i es destaquen punts, però les dades no està en pantalla.
a continuació és el diagrama de connexió de 89c51 a GLCD
im usant JHD12864A GLCD.
aquí està el codi de programaORG 00h
MOV A, # 38H; INIT.LCD de 2 línies, 5 * 7 Matriu
Emmudir COMNWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
MOV A, # 0EH; Mostra ON cursor
Emmudir COMNWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
MOV A, # 01h; Esborrar LCD
Emmudir COMNWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
MOV A, # 06H; Torn de cursor dret
Emmudir COMNWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
MOV A, # 84H; cursor en viu 1, pos.4
Emmudir COMNWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
MOV A, # 'A'; Mostra Carta 'A'
Emmudir DATAWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
MOV A, # 'L'; Mostra lletra «L»
Emmudir DATAWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
MOV A, # 'L'; Mostra lletra «L»
Emmudir DATAWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
MOV A, # 'A'; Mostra Carta 'A'
Emmudir DATAWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
MOV A, # 'H'; Mostra Carta «H»
Emmudir DATAWRT; CONVOCATÒRIA Comando subrutines
Emmudir RETARD; Donar LCD algun temps
DE NOU: UNA ALTRA VEGADA SJMP; l'estada aquí
COMNWRT:
MOV P2, A; Copiar un registre de LCD
CLR P0.7; R / S = 0 per a la comanda
CLR P1.6; R / W = 0 per escriure
SETB P1.7, E = 1 per a l'alta pols
Emmudir RETARD; Donar LCD algun temps
CLR P1.7, E = 0 PER Alt pols a LOE
RET
DATAWRT: MOV P2, A; Copiar un registre de LCD
SETB P0.7, R / S = 1 per DADES
CLR P1.6; R / W = 0 per escriure
SETB P1.7, E = 1 per a l'alta pols
Emmudir RETARD; Donar LCD algun temps
CLR P1.7, E = 0 PER Alt pols a LOE
RETDELAY: MOV R3, # 50
ELLA: MOV R4, # 255
AQUÍ: DJNZ R4, AQUÍ
DJNZ R3, SEVA
RET
CAP