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
Lesezeichen