HI
Du musst eine Library einbinden Namens: "i2c.lib"
Das machst du so:
...
$lib "i2c.lib"
...
Dann musst du mit
config sda = ...
und
config scl = ...
Die Ports definieren.
Anschließend irgendwo VOR den I²C Geschichten
i2cinit
aufrufen.
Und dann kannst du mittels
i2csend <addresse>, <byte>
Senden, oder mittels
i2creceive <addresse>, <variable>
empfangen.
also:
...
dim var as byte
$lib "i2c.lib"
config sda = portc.1
config scl = portc.0
i2cinit
i2csend &H40, 255
i2creceive &H42, var
...
Hoffe, es funktioniert...
Ganz liebe Grüße,
Tobi
Lesezeichen