Hi
ich habe mir ein nokia 3310 display zugelegt, zeichensatz in groß und klein erstellt - Textausgabe klappt wunderbar.
nun möchte ich auch linien zeichnen können.
könnte mir jemand sagen wie das geht? (bascom )
hier mein programm(von mkprojekt.de ) : (textausgabe weggelassen)
Code:$regfile = "m8def.dat" $crystal = 8000000 Config Portb = Output Declare Sub Ukommando(byval Wert As Byte) Declare Sub Udata(byval Wert As Byte) Declare Sub Initialisierung Declare Sub Lcdloeschen Config Spi = Hard , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 Dc Alias Portb.0 Ce Alias Portb.2 Re Alias Portb.1 Re = 0 'Reset Waitus 250 Re = 1 Spiinit 'Initialisierung der SPI-Schnittstelle Initialisierung Lcdloeschen Do Loop Sub Initialisierung Ukommando &H21 'Erweiterter Kommando-Mode Ukommando &HC8 Ukommando &H06 Ukommando &H13 Ukommando &H20 'Wieder in den normalen Kommando-Mode Ukommando &H0C End Sub Sub Lcdloeschen Local I As Word Ukommando &H20 'Normaler Kommando-Mode Ukommando &H0C 'Normaler Bildschirm Ukommando &H80 'setze RAM-Adresse (x) auf 0 Ukommando &H40 'Setze RAM-Adresse (y) auf 0 Dc = 1 'Sicherstellen, dass man im Daten-Mode ist For I = 0 To 503 Udata &H00 Next End Sub '------------------------------------------------------------------------------ Sub Ukommando(byval Wert As Byte) Dc = 0 'in den Kommando-Mode Spiout Wert , 1 Dc = 1 'zurück in den Daten-Mode End Sub Sub Udata(byval Wert As Byte) Dc = 1 'um sicher zu gehen, dass man auch wirklich im Datenmode ist Ce = 0 Spiout Wert , 1 Ce = 1 End Sub







Zitieren



Lesezeichen