AVR xmega-A3BU X plained board problema display
Posted: 14 Oct 2017, 12:17Buon dì
Ho questa bella board di Atmel e la sto utilizzando per inpratichirmi con Bascom.
La board ha già su il suo programma illustrativo delle funzioni che ho copiato leggendo la flash.
Ora sto impazzendo con il suo display. Dopo lunghe ricerche ho trovato una Lib i2c per il chip st7565 perchè nella lista di Bascom non l'ho trovata.
Il display è collegato come si vede nelle foto
Ho scritto questo semplice programma di prova ma i caratteri non vengono visualizzati correttamente, si sovrappongono in maniera che non ho capito e anche la gestione di riga non sempre visualizza.
La colonna invece è perfetta come anche l'inversione bianco nero.
Allego anche la lib che ho trovato sicuramente può interessare a tutti e magari a risolvere il problema.
spero che qualcuno conosca questo display e magari può condividere un lib glcd che funziona meglio.
Grazie
$regfile = "xm256a3budef.dat"
$crystal = 2000000
$hwstack = 40
$swstack = 32
$framesize = 32
$lib "glcd-ST7567I2C.lib"
Config Osc = Disabled , 32mhzosc = Enabled , 32khzosc = Disabled
Config Sysclock = 32mhz , Prescalea = 16 , Prescalebc = 1_1
Config Xpin = Portd.0 , Slewrate = Disabled , Outpull = Pullup 'A0 = H Display data A0 = L Command data
Config Xpin = Porta.3 , Slewrate = Disabled , Outpull = Totem 'Reset attivo basso hanno una pullup da 100k
Config Xpin = Portf.3 , Slewrate = Disabled , Outpull = Totem 'Chip select Cs1 attivo basso hanno una pullup da 100k
Config Xpin = Portd.3 , Slewrate = Disabled , Outpull = Pullup 'Si = Portd.3
Config Xpin = Portd.1 , Slewrate = Disabled , Outpull = Pullup 'Sclk = Portd.1
Config Porte.4 = Output
Luce Disp Alias Porte.4
Set Luce Disp
Config Graphlcd = 128x64eadogm , Si = Portd.3 , Sclk = Portd.1 , A0 = Portd.0 , Rst = Porta.3 , Cs1 = Portf.3
Const Negative_lcd = 1
Const Mirror_y = 0
Const Mirror_x = 0
Initlcd
Cls
Do
Setfont Font8x8
Lcdat 1 , 0 , "8"
'Lcdat 0 , 0 , "1"
Lcdat 3 , 0 , "8"
'Lcdat 3 , 64 , "1"
Wait 3
Cls
Loop
End
'$include "font6x8.font"
'$include "font12x16dig.font"
'$include "font25x32.font"
$include "Font8x8.font"
Ho questa bella board di Atmel e la sto utilizzando per inpratichirmi con Bascom.
La board ha già su il suo programma illustrativo delle funzioni che ho copiato leggendo la flash.
Ora sto impazzendo con il suo display. Dopo lunghe ricerche ho trovato una Lib i2c per il chip st7565 perchè nella lista di Bascom non l'ho trovata.
Il display è collegato come si vede nelle foto
- pin display.JPG (56.35 KiB) Viewed 3043 times
- pin micro.JPG (78.74 KiB) Viewed 3043 times
Ho scritto questo semplice programma di prova ma i caratteri non vengono visualizzati correttamente, si sovrappongono in maniera che non ho capito e anche la gestione di riga non sempre visualizza.
La colonna invece è perfetta come anche l'inversione bianco nero.
Allego anche la lib che ho trovato sicuramente può interessare a tutti e magari a risolvere il problema.
spero che qualcuno conosca questo display e magari può condividere un lib glcd che funziona meglio.
Grazie
$regfile = "xm256a3budef.dat"
$crystal = 2000000
$hwstack = 40
$swstack = 32
$framesize = 32
$lib "glcd-ST7567I2C.lib"
Config Osc = Disabled , 32mhzosc = Enabled , 32khzosc = Disabled
Config Sysclock = 32mhz , Prescalea = 16 , Prescalebc = 1_1
Config Xpin = Portd.0 , Slewrate = Disabled , Outpull = Pullup 'A0 = H Display data A0 = L Command data
Config Xpin = Porta.3 , Slewrate = Disabled , Outpull = Totem 'Reset attivo basso hanno una pullup da 100k
Config Xpin = Portf.3 , Slewrate = Disabled , Outpull = Totem 'Chip select Cs1 attivo basso hanno una pullup da 100k
Config Xpin = Portd.3 , Slewrate = Disabled , Outpull = Pullup 'Si = Portd.3
Config Xpin = Portd.1 , Slewrate = Disabled , Outpull = Pullup 'Sclk = Portd.1
Config Porte.4 = Output
Luce Disp Alias Porte.4
Set Luce Disp
Config Graphlcd = 128x64eadogm , Si = Portd.3 , Sclk = Portd.1 , A0 = Portd.0 , Rst = Porta.3 , Cs1 = Portf.3
Const Negative_lcd = 1
Const Mirror_y = 0
Const Mirror_x = 0
Initlcd
Cls
Do
Setfont Font8x8
Lcdat 1 , 0 , "8"
'Lcdat 0 , 0 , "1"
Lcdat 3 , 0 , "8"
'Lcdat 3 , 64 , "1"
Wait 3
Cls
Loop
End
'$include "font6x8.font"
'$include "font12x16dig.font"
'$include "font25x32.font"
$include "Font8x8.font"
