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
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