SPI hat doch mit Text nicht zu tun.
Definiere doch zunächst einmal den Font. Das sind zwei Zeilen Code. Siehe auch unten das Beispiel (Achtung da sind andere Portpins definiert, also nicht die entsprechende Zeile einfach übernehmen)
@LotadaC: Kann es sein, dass durch
Locate 2 , 1 :Lcd"T6963c support"
bereits ein Font eingebunden und verwendet wird, so dass man sich nicht mehr drum kümmern muss?
Im verwendeten Code von Ingo wird "Lcddat" genutzt, das ist denke eine Funktion aus der Lib und diese benötigt sicher die Definition des Fonts.
Diesen Code habe ich bei mir noch gefunden. Bei dem Initlcd bin ich mir nicht ganz sicher, ich vermute das wird bereits durch "Config Graphlcd ..." aufgerufen.
CodeBox BascomAVR
'-----------------------------------------------------------
' EADOGM128.BAS
' (c) 1995-2008 MCS Electronics
' micro : mega168
' demo : SPI graphical display EADOGM128
' IMPORTANT : SPI only allows the WRITE mode. THis mean that setting pixels is not possible.
' for this reason commands as PSET, LINE and CIRCLE are not supported.
' best option would be to display pictures
' fonts and images are compatible to KS108
'-----------------------------------------------------------
$regfile = "m128def.dat" ' ATmega168
$crystal = 16000000
$baud = 19200
$lib "XV-GDM128X64.lib" ' specify the used lib
'the display was connected with these pins
Config Graphlcd = 128 * 64eadogm , Cs1 = Portd.4 , A0 = Portd.7 , Si = Portb.3 , Sclk = Portb.5 , Rst = Portd.5
'the best option is to control the reset line of the LCD with the micro so you can reset it controlled at startup
Dim B As Byte , J As Byte
Dim K As Byte , X As Word , Y As Word
Print "cls"
Cls
'specify the font we want to use
Setfont Font8x8tt
'You can use locate but the columns have a range from 1-128
'When you want to show somthing on the LCD, use the LDAT command
'LCDAT Y , COL, value
Lcdat 1 , 1 , "11111111"
Lcdat 2 , 5 , "88888888"
Lcdat 3 , 16 , "MCS Electronics" , 1
Waitms 3000
Do
'optional touch screen
Loop
End
'include used fonts
$include "font8x8TT.font"