Hallo,

bin gerade recht neu hier, und auch noch ziemlich neu in Sachen Programmieren mit Bascom, muss mich da aber für ein Schulprojekt drin einarbeiten.

Wir wollen 6 Analoge Wert einlesen, die wir schon mit Hilfe von Schaltungen auf ein Einheitssignal von 0-5Volt gebracht haben.
Diese sollen auf einem GrafikDisplay 240*124 mit T6963C Controller dargestellt werden.

Der bringt jetzt das erste PRoblem!


Habe folgenden Code aus der Vorlage von Bascom entwickelt:
Do
$crystal = 8000000

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

Dim X As Byte , Y As Byte

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
Jetzt habe ich das Problem, das der Bildschrim
mal korrekt dargestellt wird,
mal die erste Zeile immer wiederholt wird,
oder alles völlig verschoben wird!
Wobei die Linien immer an der richtigen Stelle sind!

Ansteuerung erfolgt über einen Atmega8535.

Habe ich noch was vergessen? Ich hoffe nicht