nee, wie kommst Du da drauf, Du setzt doch nicht nur einen Portpin in Deiner SW....
Ich habe mir die Ausgaben angeschaut. Da waren jeweils 12 Zeilen für das Setzen eines Pins.
Sechs mal den Pin gesetzt, abwechselnd auf 1 und Null. Resultat: 6x12 Zeilen!
Aber egal: Es gibt Grund zu feiern (für mich zumindest) - ich habe das Ding geknackt! Display läuft! [Blockierte Grafik: http://www.pagan-spirit.de/wcf/images/smilies/Jippie.gif]
Habe sogar schon eine erste Geschwindigkeitsoptimierung vorgenommen, siehe hier:
Sub BG_coloring(byval R as byte , byval G as byte , byval B as byte) 'Display einfärben
Dim PC1 as byte :PC1=240
Dim PC2 as byte :PC2=32
Dim PC3 as byte :PC3=10
Dim jc1 as Byte
Dim jc2 as Byte
Dim jc3 as Byte
LCD_CS=0 'Chip select
LCD_RS=0 :portk=&H22 :PMWR=0 :PMWR=1 'Ins Indexregister schreiben.
LCD_RS=1 'Commandregister selektieren
portk=&H22 :PMWR=0 :PMWR=1 'Start GRAM write
'(
Trick:
Normalerweise müsste jetzt eine Zählschleife den Bereich von 1 bis 76800 durchlaufen (320x240 Pixel).
Dazu müsste notgedrungen eine Zählvariable vom Typ DWord verwendet werden, weil nichtmal Word ausreicht.
Doch ein 8-Bit AVR ist exrem langsam, im Inkrementieren von Variablen, die nicht vom Typ Byte sind.
Eine solche Schleife würde fast fünf Sekunden benötigen, das Display einzufärben.
Darum werden hier drei Zählschleifen ineinander verschachtelt, mit Zählvariablen die jeweils
vom Typ Byte sind.
Das ermöglich das Einfärben in nur rund drei statt fünf Sekunden!
')
For jc3=1 to PC3
For jc2=1 to PC2
For jc1=1 to PC1
portk=G :PMWR=0 :PMWR=1 'Grün
portk=R :PMWR=0 :PMWR=1 'Rot
portk=B :PMWR=0 :PMWR=1 'Blau
Next jc1
Next jc2
Next jc3
LCD_CS=1 'Chip deselect
End Sub 'BG_coloring
Alles anzeigen
Den ganzen Quelltext lege ich später offen, wenn ich noch mehr erreicht habe. Das hier nur erstmal wegen der wichtigen Bortschaft an die Bascomer, dass man Schleifen mit Endwerten über 255 besser mit verschachtelten Schleifen löst.
Und nun lobt mich, mein Ego braucht das!!! [Blockierte Grafik: http://www.pagan-spirit.de/wcf/images/smilies/Eigenlob.gif] [Blockierte Grafik: http://www.pagan-spirit.de/wcf/images/smilies/Vielen_Dank_fuer_die_Blumen.gif]