EDIT*** das mit dem Link hab ich schon durch, da steht auch nichts genaues was die Positionierung angeht, Leider.
Hab das jetzt mal so gemacht:
Code:
' ----------------Trip1 des Menüs----------------------------------------------
Sub Menuetrip1
Lcdloeschen
Call Position(5 , 5)
Udata &H01
Udata &H01
Udata &H7F
Udata &H01
Udata &H01
Udata &H00
Udata &H7F
Udata &H09
Udata &H19
Udata &H29
Udata &H46
Udata &H00
Udata &H00
Udata &H41
Udata &H7F
Udata &H41
Udata &H00
Udata &H00
Udata &H7F
Udata &H09
Udata &H09
Udata &H09
Udata &H06
Udata &H00
Udata &H00
Udata &H42
Udata &H7F
Udata &H40
Udata &H00
Menue = Menuetrip1
End Sub
'------------Position x & y---------------------------------------------------
Sub Position(byval X_wert As Byte , Byval Y_wert As Byte)
Ukommando &H20
Ukommando &H0C
Dc = 0 'in den Kommando-Mode
X_wert = X_wert Xor &H80 'X_Wert = Spalte 0-83
Spiout X_wert , 1
Y_wert = Y_wert Xor &H40 'Y_Wert = Zeile 0-5
Spiout Y_wert , 1
Dc = 1 'zurück in den Daten-Mode
End Sub
'------------Kommando Senden---------------------------------------------------
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
Leider tut sich weder was in X noch in Y.
Meiner meinung nach müßte das passen, Vielleicht weiß jemand weiter???
Ich werde noch
....
Lesezeichen