Hallo,

ich habe ein Problem mit dem I2C-Bus mit dem ich nicht weiterkomme.
Ist mein erstes I2-Projekt, soll noch wachsen
Ziel: ich möchte die Temperatur aus einem LM75 oder TCN75 (müssten ja gleich sein) auslesen und anzeigen/verarbeiten.
Ich bekomme immer nur 255 als Anzeige. Prozessor Mega 128, Pullups sind 4k7.

Code:


Dim Heat1 As Byte , Slave1 As Byte , Anzheat1 As String * 5 , Anzheat1b As String * 5

$lib "i2c.lib"

Config Sda = Portd.1 'Einrichten für I2C-Bus
Config Scl = Portd.0 'Einrichten für I2C-Bus
I2cinit
Config Twi = 100000

'Temperatur 1 (außen)

Slave1 = &H91
I2Creceive Slave1, Heat1
Anzheat1 = Str(heat1)
Anzheat1b = Format(anzheat1 , "000")

Danach erfolgt die Ausgabe.

Hat jemand eine Idee?
Ich komme so gar nicht weiter.
Vielen Dank schonmal an alle!

Michael