Folgendes ist der Code, den du im Internet gefunden hast.
Und nur das und nicht mehr steht im Code!!!!!!
Zeige mir bitte die Stelle wo mit Data die Zeichen eingestellt werden.
Es gibt dort kein Data!!!!!!!
Du vermischt da zwei verschiedene Codebeispiele. Das geht nicht einfach so!!!Code:$regfile = "m16def.dat" $crystal = 8000000 Config Portb = Output Config Porta = 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 , Noss = 1 'Config Spi = Soft , Din = Pinb.6 , Dout = Portb.5 , Clock = Portb.7 Dc Alias Portb.3 Ce Alias Portb.2 Re Alias Portb.1 Re = 0 'Reset Waitus 250 Re = 1 Spiinit 'Initialisierung der SPI-Schnittstelle Do Initialisierung Lcdloeschen Udata &H7F Udata &H02 Udata &H04 Udata &H02 Udata &H7F Udata &H00 Waitms 1500 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 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
Sollte ich unrecht haben und es gibt einen Code, welcher mit Udata arbeitet und Data-Zeilen für die Buchstaben hat, dann poste bitte den Link dazu.
Ansonsten gibt es noch einen anderen Code, wo diese Data-Zeilen vorhanden sind. Wo hast du den Code her?







Zitieren

Lesezeichen