LCD GRAFICO WG12864A CON PROTON

[franco_96]

       Hola, estoy haciendo un proyecto con un pic 18f4520 y un lcd gráfico WG12864A, el problema es que sin darme cuenta programe mi proyecto y lo simule en un lcd gráfico en el proteus el lcd hera el amerie 128x64  pero el lcd que tengo en sentido físico( WG12864A ) se compara con lgm12641bs1r en proteus y ahora cuando hago la coneccion con este nuevo lcd me doy cuenta que hay un nuevo pin el "DI" y ya no esta el "RS" del otro lcd, y lo q escribo no se forma o se forma todo superpuesto sobre la primer linea del lcd.
      E buscado por todas partes pero nadie muestra con un código de proton como declarar este lcd solo muestran como declarar el anterior el ampire, si alguien me pudiera poner un pedazo de código de como declarar este nuevo lcd gráfico estaría muy agradecido
      Desde ya muchas gracias.

[Stban]

Hola,

aportando un poco sobre el problema, el pin DI es el mismo que el RS, hace tiempo tuve ese mismo problema y comparto el código de ejemplo para ambos GLCD's:

Código: [Seleccionar]

'****************************************************************
'*  Name    : GLCD_LGM12641BS1R.BAS                             *
'*  Author  : [EJM]                                             *
'*  Notice  : Copyright (c) 2016 [EJM]                          *
'*          : All Rights Reserved                               *
'*  Date    : 14/07/2016                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
Device = 18F4520
Xtal = 48

'Configuración GLCD LGM12641BS1R
LCD_DTPort = PORTD
LCD_RSPin = PORTB.0
LCD_RWPin = PORTB.1
LCD_ENPin = PORTB.2
LCD_CS1Pin = PORTB.3
LCD_CS2Pin = PORTB.4
LCD_Type =  GRAPHIC
GLCD_CS_Invert = On
Declare GLCD_STROBE_DELAY 50
Internal_Font = On                 
Font_Addr = 0
                       
TRISB = $00 : TRISD = $00

Cls                                       

DelayMS 200

BASLA:

Print At 0,5,"PIC18F4520"

DelayMS 1000

Print At 2,2,"GLCD LGM12641BS1R"

DelayMS 1000

Print At 4,5,"Con PROTON"

DelayMS 1000

Print At 6,3,"128*64 PIXELES"

 

DelayMS 1000

GoTo BASLA

End

Include "font.inc"


Código: [Seleccionar]

'****************************************************************
'*  Name    : GLCD_AMPIRE128X64.BAS                             *
'*  Author  : [EJM]                                             *
'*  Notice  : Copyright (c) 2016 [EJM]                          *
'*          : All Rights Reserved                               *
'*  Date    : 14/07/2016                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
Device = 18F4520
Xtal = 48

'Configuración GLCD AMPIRE128X64
LCD_DTPort = PORTD
LCD_RSPin = PORTB.0
LCD_RWPin = PORTB.1
LCD_ENPin = PORTB.2
LCD_CS1Pin = PORTB.3
LCD_CS2Pin = PORTB.4
LCD_Type =  GRAPHIC

Declare GLCD_STROBE_DELAY 50
Internal_Font = On                 
Font_Addr = 0
                       
TRISB = $00 : TRISD = $00

Cls                                       

DelayMS 200

BASLA:

Print At 0,5,"PIC18F4520"

DelayMS 1000

Print At 2,2,"GLCD AMPIRE128X64"

DelayMS 1000

Print At 4,5,"Con PROTON"

DelayMS 1000

Print At 6,3,"128*64 PIXELES"

 

DelayMS 1000

GoTo BASLA

End

Include "font.inc"

Cualquier duda u observación comentalo.

Saludos.

[franco_96]

muchisimas gracias el problema se soluciono y ahora todo funciona correctamente, te estoy muy agradecido por tu ayuda.