Problem beim I²C Bus

[Raucher91]

Ich hoffe Ich habe nun das richtige Forum ausgewählt.

zu meinem Problem. Ich wollte mit meinem Atmega644p über I²C einen LM 75 auslesen.
soweit klappt dass auch aber Ich erhalte immer nur 125 Grad. Woran kann dass liegen ?

Ich habe schon folgendes Probiert:
- Programm geändert ( mittlerweile 2 verschiedene Programme getestet )
- PullUp widerstände am Bus geändert ( 1k5,4k7,10k )
- anderen LM75 getestet

meine Programme bisher:


$regfile = "m644pdef.dat"
$crystal = 16000000
'$sim 'Frequenz 16MhZ
$baud = 2400 'Baudrate Com1 zum PC
$baud1 = 2400
$timeout = 20000000 'Timeout für Serial In 10 Sekunden
$hwstack = 90
$swstack = 64
$framesize = 64
'$lib "i2c_twi.lbx"
'Config Twi = 100000
Dim I2c_state As Bit
Dim Hightemp As Byte
Dim Lowtemp As Byte
Dim Temperatur As Single
Const Lm75slavewrite = &H90
Const Lm75slaveread = &H91
Dim Lm75high As Byte
Dim Lm75low As Byte
'Dim Temperatur As Integer
Dim Nachkommastelle As String * 2
Dim I As Integer
Waitms 100
I2cstart
I2cwbyte Lm75_adresse
I2cwbyte &H00
I2cstop
Waitms 100
I2cstart
I2cwbyte Lm75_lese_adresse
I2crbyte Hightemp , Ack
I2crbyte Lowtemp , Nack
I2cstop

Print #2 , "high:" ; Hightemp
Print #2 , "Low:" ; Lowtemp.7

Waitms 100
If Hightemp.7 = 1 Then
Decr Hightemp

For I = 0 To 7
Toggle Hightemp.i
Next

Temperatur = -hightemp
Else
Temperatur = Hightemp
End If


Locate 3 , 1
Lcd "Erfolgreich"
Locate 4 , 4
Lcd Temperatur ; " °C"
Print #2 , Temperatur ; "°C"



Programm 2

'(I Dim N As Integer
N = 5
I2cstart
I2cwbyte Lm75_adresse
I2cwbyte &H00
I2cstop
Waitms 100
Do
I2cstart
I2cwbyte Lm75slaveread
I2crbyte Lm75high , Ack
I2crbyte Lm75low , Nack
I2cstop


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

Lm75low = Lm75low And 128
If Lm75low > 0 Then
Nachkommastelle = ",5"
Else
Nachkommastelle = ""
End If
Locate 2 , 11
Lcd " "
Locate 2 , 11
Print #2 , "Temp.: " ; Temperatur ; Nachkommastelle ; " Grad"
N = N - 1

Loop Until N < 0
'End If

'Der I2C-Bus liefert ein ERR-Bit bei Schreibfehler
If Err = 1 Or I2c_state = 0 Then
Print #2 , "Fehler I2C Bus"
End If
')

[Raucher91]

Hat keiner eine Idee woran dass liegen könnte?

[WL]

Hat keiner eine Idee woran dass liegen könnte?

Config Scl = Portc.0 'Ports fuer IIC-Bus
Config Sda = Portc.1
I2cinit

[Searcher]

Hallo,





Const Lm75slavewrite = &H90
Const Lm75slaveread = &H91
I2cwbyte Lm75_adresse
I2cwbyte Lm75_lese_adresse


mit dem LM75 kenne ich mich nicht aus aber welche Adresse schickst du zum LM75? Ich kann nicht sehen, wo die Variablen Lm75_adresse und Lm75_lese_adresse belegt werden.

Gruß
Searcher

[Raucher91]

Hey also Lm75_adresse ist auch &H90 bzw Lm75_lese_adresse ist &H91.

Hab ich jetzt nur vergessen mit zu kopieren. Ist aber alles 1zu1 aus meinem Buch übernommen bzw aus dem netzt übernommen aber es funktioniert weder das erste noch das 2.Programm

[Unregistriert]

Hallöchen, ich könnte mir vorstellen, dass dein Bus eine zu hohe Frequenz hat. Im Programm "config twi=100000" gibt 100kHz. Versuche mal "config twi=10000".

[Sauerbruch]

Und die Adress-Pins (5, 6, 7) liegen auch sicher auf GND??