Hallo Zusammen,
eins hab ich noch, ebenfalls von Miparo bekommen
: Controller SH1122, 2.08"
Im Code ein eigener Display-Refresh (chDispRefresh; deutlich schneller!) und der richtige GraphIOS - was man dann nimmt, bleibt jedem selber überlassen. Danke Miparo für deinen ASM-Code (ähnlich dem beim SSD1322-Controller).
Gruss
Harry
.... Displayschutzfolie ist noch drauf
Zusätzliche Funktionen:
Procedure SetContrast(co:Byte);
Begin
WriteOLED_C($81); // contrast control
WriteOLED_C(co); // 0-255
End SetContrast;
Procedure SetInverse(inv:Boolean);
Begin
If inv=true
then
WriteOLED_C($A7); // inverse
else
WriteOLED_C($A6); // normal
EndIf;
End SetInverse;
Procedure MirrorV(mir:Boolean); // mirror vertical
Begin
If mir=true
then
WriteOLED_C($A0); // mirrored
WriteOLED_C($40); // Set Display Start Line: Lower 6 Bit
else
WriteOLED_C($A1); // normal
WriteOLED_C($60); // Set Display Start Line: Lower 6 Bit
EndIf;
End MirrorV;
Procedure MirrorH(mir:Boolean); // mirror horizontal
Begin
If mir=true
then
WriteOLED_C($C0); // mirrored
else
WriteOLED_C($C8); // normal
EndIf;
End MirrorH;
eins hab ich noch, ebenfalls von Miparo bekommen
: Controller SH1122, 2.08"
Im Code ein eigener Display-Refresh (chDispRefresh; deutlich schneller!) und der richtige GraphIOS - was man dann nimmt, bleibt jedem selber überlassen. Danke Miparo für deinen ASM-Code (ähnlich dem beim SSD1322-Controller).
Gruss
Harry
.... Displayschutzfolie ist noch drauf
Zusätzliche Funktionen:
Code
Procedure SetContrast(co:Byte);
Begin
WriteOLED_C($81); // contrast control
WriteOLED_C(co); // 0-255
End SetContrast;
Procedure SetInverse(inv:Boolean);
Begin
If inv=true
then
WriteOLED_C($A7); // inverse
else
WriteOLED_C($A6); // normal
EndIf;
End SetInverse;
Procedure MirrorV(mir:Boolean); // mirror vertical
Begin
If mir=true
then
WriteOLED_C($A0); // mirrored
WriteOLED_C($40); // Set Display Start Line: Lower 6 Bit
else
WriteOLED_C($A1); // normal
WriteOLED_C($60); // Set Display Start Line: Lower 6 Bit
EndIf;
End MirrorV;
Procedure MirrorH(mir:Boolean); // mirror horizontal
Begin
If mir=true
then
WriteOLED_C($C0); // mirrored
else
WriteOLED_C($C8); // normal
EndIf;
End MirrorH;
Der an diesem Beitrag angefügte Anhang ist entweder nur im eingeloggten Zustand sichtbar oder die Berechtigung Deiner Benutzergruppe ist nicht ausreichend.
