Guten Tag,
ich versuche derzeit ein DOGM 128+64 LCD Modul zum laufen zu bekommen.
Ich verwende den Ini Code von "Harry" - Vielen Dank. (auch für die vielen anderen Beträge!)
Aus irgend welchen Gründen, habe ich das Gefühl das GraphIOS nicht angesprungen wird.
// Quelle: Code von USER Harry
Device = mega128, VCC=3.3;
{ $BOOTRST $07000} {Reset Jump to $07000}
Import SysTick, LCDGraphic, SPIdriver1,SerPort;
From System Import CharSet;
Define
ProcClock = 16000000; {Hertz}
SysTick = 10; {msec}
StackSize = $0100, iData;
FrameSize = $0100, iData;
SPIdriver1 = PortA, 1, 0, 5, 6; // SCK, MOSI, MISO, SS
// 2 = A0 ... L=Command H=Data
// 4 = /Reset
SPIorder1 = MSB;
SPIcPHA1 = 1;
SPIcPol1 = 1;
LCDGraphic = 128, 64, 8; { Display 128 x 64 }
LCDgraphMode = column, iData;
DefCharSet = 'Graphchars.pchr';
GViewports = 4, iData;
TGraphStr = 40;
......
UserDevice GraphIOS(Cmd: Byte; Arg: byte);
Begin
If Cmd=0 then // set row addr
CurRow:=arg;
WriteLCD(%10110000+CurRow,false); // page
WriteLCD(%00010000,false); // address 0
WriteLCD(%00000000,false);
Col:= 0;
else
If Col<128
then
WriteLCD(Arg,true);
Inc(Col);
EndIf;
EndIf;
End GraphIOS;
Mache ich einen Fehler bei der Deklaration ?
Vielen Dank
Martin
ich versuche derzeit ein DOGM 128+64 LCD Modul zum laufen zu bekommen.
Ich verwende den Ini Code von "Harry" - Vielen Dank. (auch für die vielen anderen Beträge!)
Aus irgend welchen Gründen, habe ich das Gefühl das GraphIOS nicht angesprungen wird.
// Quelle: Code von USER Harry
Device = mega128, VCC=3.3;
{ $BOOTRST $07000} {Reset Jump to $07000}
Import SysTick, LCDGraphic, SPIdriver1,SerPort;
From System Import CharSet;
Define
ProcClock = 16000000; {Hertz}
SysTick = 10; {msec}
StackSize = $0100, iData;
FrameSize = $0100, iData;
SPIdriver1 = PortA, 1, 0, 5, 6; // SCK, MOSI, MISO, SS
// 2 = A0 ... L=Command H=Data
// 4 = /Reset
SPIorder1 = MSB;
SPIcPHA1 = 1;
SPIcPol1 = 1;
LCDGraphic = 128, 64, 8; { Display 128 x 64 }
LCDgraphMode = column, iData;
DefCharSet = 'Graphchars.pchr';
GViewports = 4, iData;
TGraphStr = 40;
......
UserDevice GraphIOS(Cmd: Byte; Arg: byte);
Begin
If Cmd=0 then // set row addr
CurRow:=arg;
WriteLCD(%10110000+CurRow,false); // page
WriteLCD(%00010000,false); // address 0
WriteLCD(%00000000,false);
Col:= 0;
else
If Col<128
then
WriteLCD(Arg,true);
Inc(Col);
EndIf;
EndIf;
End GraphIOS;
Mache ich einen Fehler bei der Deklaration ?
Vielen Dank
Martin