-
DS1621 auselse Probleme!
Hey,
hab seit monaten meine MiniControl wieder rausgekrammt, da ich jetzt wieder Verwendung dafür habe.
Ich hab mir kurz einen Code zum auslesen des DS1621 über i2c geladen und drauf geflasht! Komischer weiße sind bei mir aber low und high temp immer 255. Der DS1621 ging aufjeden fall damals, hab auch nichts an der Verlötung geändert, an was kann das liegen?
Hier der Code :
Code:
$regfile = "m168def.dat"
$crystal = 16000000
$baud = 9600
$hwstack = 32
$framesize = 32
$swstack = 32
$lib "i2c_twi.lbx" ' we do not use software emulated I2C but the TWI
Config Scl = Portc.5 ' we need to provide the SCL pin name
Config Sda = Portc.4 ' we need to provide the SDA pin name
I2cinit ' we need to set the pins in the proper state
Config Twi = 100000 ' wanted clock frequency
'will set TWBR and TWSR
'Twbr = 12 'bit rate register
'Twsr = 0 'pre scaler bits
Dim T As Word
Declare Sub Readtemp
Do
Call Readtemp()
Loop
End
Sub Readtemp(byval Device As Byte)
Local Deviceread As Byte
Local Lowtemp As Byte
Local Hightemp As Byte
Deviceread = Device + 1
'I2csend , Device , &HEE 'kürzere Source, längerer Code
I2cstart
I2cwbyte Device
I2cwbyte &HEE 'Temperaturmessung anstoßen
I2cstop
'I2csend , Device , &HAA 'kürzere Source, längerer Code
I2cstart
I2cwbyte Device
I2cwbyte &HAA 'Temperaturmessung Lesekommando
I2cstop
I2cstart
I2cwbyte Deviceread
I2crbyte Lowtemp , Ack 'LSByte holen
I2crbyte Hightemp , Nack 'MSByte holen
I2cstop
Value = Lowtemp * 10
If Hightemp = 128 Then
Value = Value + 5
End If
Print Value
End Sub
Jetzt schon mal danke für eure Hilfe!
MfG
Placa
-
"FF" heisst auf "I2C" eigentlich "NIX".
Überprüf mal, ob er überhaupt auf seine Adresse reagiert.
EDIT: Wo definierst du denn überhaupt die Adresse ?
Noch'n edit:
Code:
Call Readtemp()
Loop
End
Sub Readtemp(byval Device As Byte)
Local Deviceread As Byte
Wenn du das so machst, ist ja garkeine adresse da
Call Readtemp()
sollte doch sein
Call Readtemp( &Hxx )
-
Wie finde ich die Adresse heraus?
MfG
Placa
-
Kann mir niemand helfen?
MfG
Placa
-
Adresse ist "&H90", wenn A0 = A1 = A2 = 0.
I2C--> &H90 = schreiben &H91 = lesen
Du kannst den DS1621 wie den LM75 behandeln.
https://www.roboternetz.de/wissen/in..._f.C3.BCr_LM75
-
Hi, hab den DS1621 auch grad probiert, aber mir scheint daß die Temperatur irgendwie nich ganz stimmt. Wenn sonst keine äußeren Temperatureinflüsse da sind dann müßte er mir doch die Raumtemperatur anzeigen, er zeigt aber 255 an. Wenn ich jetzt den Finger draufdrücke, dann steigt die angezeigte Temperatur von 0 auf ca 30 an, wenn ich den Finger wieder weg nehme dann zeigts mir im Terminal wider 255 an. Kann es sein daß bei der Umrechnung etwas nich stimmt?
Code:
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600
$hwstack = 32
$framesize = 32
$swstack = 32
$lib "i2c_twi.lbx" ' we do not use software emulated I2C but the TWI
Config Scl = Portc.5 ' we need to provide the SCL pin name
Config Sda = Portc.4 ' we need to provide the SDA pin name
I2cinit ' we need to set the pins in the proper state
Config Twi = 100000 ' wanted clock frequency
'will set TWBR and TWSR
'Twbr = 12 'bit rate register
'Twsr = 0 'pre scaler bits
Dim T As Word
Declare Sub Readtemp(byval Device As Byte)
Do
Call Readtemp(&H90)
Wait 1
Loop
End
Sub Readtemp(byval Device As Byte)
Local Deviceread As Byte
Local Lowtemp As Byte
Local Hightemp As Byte
Local Value As Byte
Deviceread = Device + 1
'I2csend , Device , &HEE 'kürzere Source, längerer Code
I2cstart
I2cwbyte Device
I2cwbyte &HEE 'Temperaturmessung anstoßen
I2cstop
'I2csend , Device , &HAA 'kürzere Source, längerer Code
I2cstart
I2cwbyte Device
I2cwbyte &HAA 'Temperaturmessung Lesekommando
I2cstop
I2cstart
I2cwbyte Deviceread
I2crbyte Lowtemp , Ack 'LSByte holen
I2crbyte Hightemp , Nack 'MSByte holen
I2cstop
Print "Lowtemp " ; Lowtemp
Print "Hightemp " ; Hightemp
Value = Lowtemp * 10
If Hightemp = 128 Then
Value = Value + 5
End If
Print Value
End Sub
-
Problem gelöst, nach 2-3mal ins datenblatt geschaut hab ich gemerkt, daß in der Variable Highbyte die Stelle nach dem Komma steht