Bei mir klappt das Programm.

Code:
$regfile = "m16def.dat"
$crystal = 12000000

Config Graphlcd = 240 * 128 , Dataport = Portc , Controlport = Porta , Ce = 4 , Cd = 7 , Wr = 5 , Rd = 6 , Reset = 2 , Fs = 3 , Mode = 6

Dim X As Byte , Y As Byte

Do

Cls

Cursor Off

Wait 1

'Kopf
Locate 1 , 1 : Lcd "MSD-Electronics"
Locate 1 , 23 : Lcd "Engine-Analyzer"
Line(0 , 9) -(239 , 9) , 255
Line(0 , 10) -(239 , 10) , 255

'Digitale Messwerte

Locate 3 , 1 : Lcd "Oeltemperatur"
Locate 3 , 18 : Lcd ":"
Locate 3 , 28 : Lcd "C"
Locate 5 , 1 : Lcd "Abgastemperatur"
Locate 5 , 18 : Lcd ":"
Locate 5 , 28 : Lcd "C"
Locate 7 , 1 : Lcd "Oeldruck"
Locate 7 , 18 : Lcd ":"
Locate 7 , 26 : Lcd "bar"
Locate 9 , 1 : Lcd "Gemisch"
Locate 9 , 18 : Lcd ":"
Locate 9 , 27 : Lcd "%"

'Analoge Messwerte

Line(0 , 75) -(239 , 75) , 255
Line(0 , 76) -(239 , 76) , 255
Locate 11 , 2 : Lcd "Ladedruck"
Locate 11 , 15 : Lcd ":"
Line(100 , 82) -(200 , 82) , 255
Line(100 , 83) -(200 , 83) , 255
Line(100 , 84) -(200 , 84) , 255
Line(100 , 85) -(200 , 85) , 255
Locate 13 , 2 : Lcd "Benzindruck"
Locate 13 , 15 : Lcd ":"
Line(100 , 9) -(150 , 9) , 255
Line(100 , 99) -(150 , 99) , 255
Line(100 , 100) -(150 , 100) , 255
Line(100 , 101) -(150 , 101) , 255
'Fusszeile

Locate 16 , 15 : Lcd "(c) by Mike, Sven, Dennis"

Wait 2
Loop
Ich habe aber Reset nicht angeschlossen. Ich denke, das macht mein Display von alleine.
FS habe ich auch nicht angeschlossen. Die Pins sind so beschaltet, das sie auf 6X8 und 40 Columns sind.

Wie man sieht, verwende ich einen Mega16. Denke aber nicht, das es deshalb bei dir nicht geht.
Pullups sind weder im Programm eingestellt noch extern vorhanden.


Aber dennoch habe ich ein Problem.
Die Darstellung der Grafik aus t6963_240_128.bas erzeugt bei mir nur komische Zeichen.
Hat da jemand eine Idee?

Edit: Das Problem mit dem Bild hat sich erledigt!
Für alle, die das gleiche Problem bekommen:
Die .BGF einfach nochmal mit der richtigen Auflösung erzeugen Bild