Hallo Jörg,
Hier der LCD Teil von meinem Programm.
Code:
Dim I As Byte
$crystal = 16000000 'Quarzfrequenz
Config Scl = Portc.0 'Ports fuer I2C-Bus
Config Sda = Portc.1
I2cinit
'****
'LCD02 Devantec Test von Roboter-teile.de
'****
Lcdtest:
Const Lcd_adr = &HC6 'I2C Adr lcd02
Waitms 500
I2csend Lcd_adr , 12 'clear screen
Waitms 500
For I = 32 To 100
I2csend Lcd_adr , I 'gibt einfach ein paar ascii zeichen aus
Waitms 200
Next I
Waitms 5000
End
Wobei du recht hast, auf dem RN-Board sind schon zwei Pullups drauf, SCL und SDA hab ich jetzt nochmal kontrolliert, und auch die Masse Verbindung ist vorhanden (das LCD wird vom Board mit spannung versorgt).
Ich hoffe du oder jemand anderes hat noch ein paar gute Ideen.
Gruß, Stephan
Lesezeichen