der-brumm-baer
03.12.2005, 13:46
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 , 98) -(150 , 98) , 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
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 , 98) -(150 , 98) , 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