Bitmuster / Zeichendarstellung invertieren

[m@rkus33]

Hier sieht man was ich meine. Ich kann beliebige Zeichen an beliebiger Stelle auch invers darstellen, ohne einen eigenen Zeichensatz dafür erstellen zu müssen. In dem ich im Falle vor jeder Darstellung im LCD das jeweilige Byte mit "NOT" invertiere.

[malthy]

Hey,

freut mich, dass ich so einfach helfen konnte. Poste doch ein paar Zeilen Code dazu, vielleicht ist es ja auch nochmal für jemand anderen nützlich...

Gruß
Malte

[m@rkus33]

Der Ursprungscode ist von hier: http://www.mkprojekt.de/index.php?content=3310_1

Ich habe dann nur vor dem SPIOUT jeweils eine Abfrage drin ob das Zeichen invers oder nicht dargestellt werden sollte. Ich gebe dann nur nach der Positon und Text an ob inverse Darstellung oder nicht.

Dim Invers as Bit


Do
Position x,y
Text = "Hello World"
Invers = 1               'Inverse Darstellung = 1, normale Darstellung = 0
Call Nprint
.
.
.
.

Sub Zeichenout
Dc = 1                                            
For Count = 1 To 6
Read Daten
Ce = 0
        If Invers = 0 Then Spiout Daten , 1
        If Invers = 1 Then
                Negdaten = Not Daten
                Spiout Negdaten , 1
                End if
Ce = 1
Next Count
Dc = 0
End Sub