Also es geht nicht so richtig...

Die ersten 2 Zeilen laufen wunderbar aber die unteren 2 passen von der formatierung nicht! Wenn ich nur die unteren beiden Zeilen anspreche sieht mein 20*4 LCD so ausdie weißen nullen sind nur Platzhalter!)


00000000000000001234
00000000000000001234
5678901234567890
5678901234567890

Kann mir mal einer sagen wie ich das ändern kann?

Code:
'-------------------------------------------------------------------------------
' LCD nur Text
'-------------------------------------------------------------------------------
'Beschreibung:
'Werte auf LCD im 4-Bit I/O Mode anzeigen
'Wenn R/W LCD Leitung auf MASSE ist nur schreiben möglich!!!
'-------------------------------------------------------------------------------
'Konfiguration µC:
$regfile = "2313def.dat"                                    'AT90S2313-Deklarationen
$crystal = 3686400                                          'Quarz: 3.6864 MHz


'-------------------------------------------------------------------------------
'Ein-/Ausgänge:



'Konfiguration LCD
Dim Sresult As String * 16 At &H64 Overlay
'Config Lcd = 16 * 1 'LCD größe
'Config Lcd = 16 * 2 'LCD größe
'Config Lcd = 16 * 4 'LCD größe
'Config Lcd = 20 * 2 'LCD größe
'Config Lcd = 20 * 4 'LCD größe
Config Lcd = 40 * 4                                         'LCD größe
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.3 , Db6 = Portb.2 , Db7 = Portb.1 , E = Portd.6 , Rs = Portb.0
Cursor Off Noblink




'-------------------------------------------------------------------------------
'Programm
'-------------------------------------------------------------------------------

Do


Gosub Anzeige                                               'In die Anzeigeroutiene springen

Waitms 500                                                  '500 millisekunden warten damit man das zählen vernünftig sehen kann ;-)

Loop

'-------------------------------------------------------------------------------
'UnterProgramme:
'-------------------------------------------------------------------------------

Anzeige:
Cls                                                         'Display löschen (IMMER ERST LCD LÖSCHEN UND DANN POSITION ANGEBEN!!!)
'Locate 1 , 1
'Lcd "12345678901234567890"

'Locate 2 , 1
'Lcd "12345678901234567890"

Locate 3 , 1
Lcd "12345678901234567890"

Locate 4 , 1
Lcd "12345678901234567890"


Return