Temperaturmessung über I2C und LM75 läuft nicht

[michaelkoemm]

Hallo,

ich habe ein Problem mit dem I2C-Bus mit dem ich nicht weiterkomme.
Ist mein erstes I2-Projekt, soll noch wachsen =P~
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

[Zapo.]

hi,

aus dem LM75 bekommst du 2 Bytes raus... und du mußt mit I2C start und Stop arbeiten....

für den LM75 z.B. so:



I2cstart
I2cwbyte Lm75read
I2crbyte Lm75high , Ack
I2crbyte Lm75low , Nack
I2cstop


diese zwei bytes sind natürlich noch nicht die Temp. dazu mußt du sie noch ein bisschen "formatieren" und vorzeichen auslesen usw.

aber auf jeden FAll bekommst du damit keine 255 mehr raus!

probiers aus...

[michaelkoemm]

Hallo und Danke schonmal!
ich habe ein bisserl gestöbert und deinen Rat befolgt, leider noch immer erfolglos.
Mein Codeschnipsel jetzt:

I2cstart
I2cwbyte &H91
I2crbyte Tempmsb , Ack
I2crbyte Templsb , Nack
I2cstop

Anzheat1 = Str(tempmsb)
Anzheat1b = Format(anzheat1 , "000")
Tempmsb und Templsb sind die beiden Bytes, richtig?

Langsam muss ich wohl mal in Erwägung ziehen, dass einfach das IC hin ist und mal ein neues bestellen.
Kann man mit dem Oszi eigentlich den Clock vom I2C sehen? Vielleicht kommt der ja schon gar nicht raus.
Ich teste heute abend mal weiter.

MfG
Michael

[Zapo.]

hi,

also byte ist schon okay... ich habs als integer deklariert...

probiers mal eher mit diesem code:


If Lm75high > 127 Then
Temperatur = Lm75high And 127
Temperatur = Not Temperatur
Incr Temperatur
Else
Temperatur = Lm75high
End If
´

ist prinzipell ganz einfach wenn man weiß was aus dem LM75 rauskommt..

in der Variablen Temperatur steht dann auch die aktuelle Temp...