PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : LCD I2c einen String ausgeben (Zeichenkette)



UweMD
26.12.2004, 18:51
Hallo...


ich möchte auf den I2C Bus des rnbfra Boards etwas ausgeben.
Ich habe das I2C LCD02

Das Ansprechen funzt... ich kann z.b. das LCD löschen... u.s.w

Aber wie kann ich einen Text ausgeben? z.b "Das ist ein Test"



Dim S As String * 12
Dim A As Byte
S = "test"
A = Len(s)


$crystal = 8000000 'Quarzfrequenz


Const Lcd_adr = &HC6 'I2C Adr lcd02

Config Scl = Portc.0 'Ports fuer I2C-Bus
Config Sda = Portc.1



I2cinit

Waitms 2000
I2cstart
I2cwbyte Lcd_adr
I2cwbyte 0
I2cwbyte 12 'clear screen

Waitms 1000
I2cwbyte S
I2cstop

End

Bei diesem Code kommt nur ein Zeichen raus... das "t"

Wie kann ich die Ausgabe wie z.b: mit dem Print Befehl arbeiten?

Danke Uwe