DS1621 auslesen

Hallo

wie kann ich mit dem DS1621 eine Temperatur auslesen? ich habe schon einige Beispielprogramme versucht. Der liefert mir aber nur komische zahlen. wie muss ich denn diese zahl abspeichern?

Ich habe mir dieses Programm mal geschrieben. Ist das schon annähernd richtig?

Code:

$regfile = "M32def.dat" ' chip $crystal = 16000000 ' frequenz $baud = 19200 ' baud rate $lib "i2c_twi.lbx" ' we do not use software emulated I2C but the TWI Config Scl = Portc.0 ' we need to provide the SCL pin name Config Sda = Portc.1 ' 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 Do I2creceive &H90 , T Print "T= " ; T Print "receive" ; Err Waitms 500 Loop End

$baud = 9600
versuch es mal ...am pc auch

ne baud 19200 passt schon die hab ich am pc auch. das funktioniert alles. die hab ich mal höher gestellt weil es da schon mal probleme gegeben hatt. aber ich glaube dass ich die temperatur vom Sensor nicht richtig einlesen kann.

Hallo,

mit Baud hat das ja nu auch nix zu tun.

Code:

Do I2creceive &H90 , T Print "T= " ; T Print "receive" ; Err Waitms 500 Loop

Ähmm.. soll das Deine gesamte DS1621 Ausleseroutine sein? Ist Dir nicht aufgefallen, daß die Beispielprogramme (die Du ja probiert hast) deutlich umfangreicher sind?

Wenn Du mir die Frage beantwortest, bekommst Du von mir noch'n Beispielprogramm :-).

Grüße
Henrik

Hallo,
vom DS1621 kommen 2 Byte, suche mal das Datenblat dazu, da steht genau drin wie das ausschaut.
Es wird in 0.5 Grad gemessen.

http://www.alldatasheet.com/datashee...AS/DS1621.html

Zitat:

Zitat von linux_80

Hallo,
vom DS1621 kommen 2 Byte, suche mal das Datenblat dazu, da steht genau drin wie das ausschaut.
Es wird in 0.5 Grad gemessen.

http://www.alldatasheet.com/datashee...AS/DS1621.html

Yepp, oder auch in 0,06°C Auflösung wenn man Slope und Counter auswertet.

Etwas Initialisierung gehort aber so oder so dazu :-).

Grüße
Henrik

So genau hab ich das DB nicht angeschut, aber mir ist nur gleich die Tabelle mit den Beispielwerten aufgefallen.

@hrei
doch das ist mir schon aufgefallen. Ich habe aber die erfahrung gemacht dass die meisten Beispielprogramme sehr umständlich geschrieben sind. (z.B. einen Atmega32 als Slave zu programmieren.) dieses habe ich auch viel kürzer geschrieben.

Zitat:

Zitat von Zeroeightfifteen

@hrei
doch das ist mir schon aufgefallen. Ich habe aber die erfahrung gemacht dass die meisten Beispielprogramme sehr umständlich geschrieben sind. (z.B. einen Atmega32 als Slave zu programmieren.) dieses habe ich auch viel kürzer geschrieben.

Na, man kann ja bisweilen manches kürzer schreiben, aber dann sollte man schon wissen was man tut.

Eine einfache Sub sieht zum Beispiel so aus - ACHTUNG-das ist die nackte Subroutine: (Übergeben wird die Deviceadresse des DS1621, das Ergebnis steht in der Variable Value):

Code:

'------------------------------------------------------------------------------- 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 End Sub '-------------------------------------------------------------------------------

Grundlagen und nochmal Grundlagen lernen, Datenblätter lesen, verstehen und dann variieren ](*,) .

Grüße
Henrik

was bedeutet, das ist nur die nackte sub? muss ich da noch viel dazu schreiben? bzw wann muss ich in die sub springen?

Das ist jetzt mein aktuelles Programm

Code:

$regfile = "M32def.dat" ' chip $crystal = 16000000 ' frequenz $baud = 19200 ' baud rate ' we do not use software emulated I2C but the TWI Config Scl = Portc.0 ' we need to provide the SCL pin name Config Sda = Portc.1 ' we need to provide the SDA pin name Dim Lowtemp As Byte Dim Hightemp As Byte Dim Value As Word '!!!!!!! I2cinit Do I2cstart I2cwbyte 144 I2cwbyte &HEE 'Temperaturmessung anstoßen I2cstop I2cstart I2cwbyte 144 I2cwbyte &HAA 'Temperaturmessung Lesekommando I2cstop I2cstart I2cwbyte 145 I2crbyte Lowtemp , Ack 'LSB holen I2crbyte Hightemp , Nack 'MSB holen I2cstop Value = Lowtemp * 10 If Hightemp = 128 Then Value = Value + 5 End If Print value ' oder LCD value waitms 500 'kurze Pause Loop End

Dieses Programm funktioniert glaub ich mal so weit. Die temperatur wir aber ohne Komma angezeigt.
was bedeutet denn das rechnen mit value +5 oder *10?

kann ich das ganze nicht mit hardware twi lösen?
da sind doch die befehle auch kürzer.

ich habe heute mal ausprobiert ob ich Minustemperaturen auch anzeigen lassen kann. Doch wenn die Temperatur unter 0 fällt, läuft er von 256 abwärtz.

Zitat:

Zitat von Zeroeightfifteen

ich habe heute mal ausprobiert ob ich Minustemperaturen auch anzeigen lassen kann. Doch wenn die Temperatur unter 0 fällt, läuft er von 256 abwärtz.

Och mann 0815,

was hatte ich geschrieben? Richtig:
Grundlagen und nochmal Grundlagen lernen, Datenblätter lesen, verstehen und dann variieren.

Da fragst Du:

Zitat:

Dieses Programm funktioniert glaub ich mal so weit. Die temperatur wir aber ohne Komma angezeigt.
was bedeutet denn das rechnen mit value +5 oder *10?

kann ich das ganze nicht mit hardware twi lösen?
da sind doch die befehle auch kürzer.

1) Wie man Zahlen ohne Komma in Zahlen mit Komma verwandelt. Das hattest Du bereits in einem anderen Thread gefragt und auch eine Methode genannt bekommen, wie das zu bewerkstelligen ist. In meinem komplettbeispiel, das ich unten nochmal einfüge, lernst Du noc eine Methode kennen. Was die Operation mit *10 und +5 darfst Du nun selbst herausfinden.

2)Natürlich kannst Du das auch mit Hardware TWI lösen. Nur ändern sich die Befehle überhaupt nicht. Der einzige Unterschied ist der, daß die Bascom Library Hardware TWI anspricht und damit gerinfügig weniger Platz verbraucht.

3)Minus kann das Programmbeisiel nicht, ich habe es bewußt einfach gehalten, für Dich aber wohl noch nicht einfach genug.

Irgendwie scheinst Du die Funktion eines Forums falsch zu verstehen. Hier gibt es Hilfe zur Selbsthilfe, keine Rundum Sorglospakete für Denkfaule.

Ein letztes Mal --- Komplettprogramm einfach:

Code:

'------------------------------------------------------------------------------- '----- Beispiel für das Auslesen des Temperatursensors DS1621/1631 ------------ ' HR 2006 ' 'Anmerkung: Dieses Beispiel ist sowohl für den 1621 als auch für den 1631 'geeignet. Der 1631 wird dabei im 1621 Kompatibilitätsmodus betrieben. 'Auf die Auswertung negativer Temperaturen wird verzichtet. '------------------------------------------------------------------------------- $regfile = "m8def.dat" $crystal = 7372800 $baud = 9600 $hwstack = 32 $swstack = 32 $framesize = 32 Config Scl = Portc.5 Config Sda = Portc.4 Portc.5 = 1 'Pullup Widerstand ein Portc.4 = 1 'Pullup Widerstand ein I2cinit 'entbehrlich '------------------------------------------------------------------------------- Declare Sub Readtemp(byval Device As Byte) Declare Sub Convertvalue_komma1() Dim Value As Word Dim Convert_strg As String * 10 Const Ds1 = 150 'ggf. anpassen '----------------------------- Hauptprogramm ----------------------------------- Do Call Readtemp(ds1) Call Convertvalue_komma1() Print Convert_strg Waitms 500 Loop End '----------------------------- Subroutinen ------------------------------------- 'Readtemp liest die Temperatur und stellt sie nach Aufruf in der Variable Value 'in 10tel Grad zu Verfügung. Übergeben wird die Deviceadresse des Sensors. Sub Readtemp(byval Device As Byte) Local Deviceread As Byte Local Lowtemp As Byte Local Hightemp As Byte Deviceread = Device + 1 I2cstart I2cwbyte Device I2cwbyte &HEE 'Temperaturmessung anstoßen I2cstop I2cstart I2cwbyte Device I2cwbyte &HAA 'Temperaturmessung Lesekommando I2cstop I2cstart I2cwbyte Deviceread I2crbyte Lowtemp , Ack 'LSByte holen (Ganze Grad) I2crbyte Hightemp , Nack 'MSByte holen (0,5 Grad Indikator) I2cstop Value = Lowtemp * 10 If Hightemp = 128 Then Value = Value + 5 End If End Sub '------------------------------------------------------------------------------- 'Convertvalue_komma1 wandelt Value in einen String mit einer Nachkommastelle. 'Es wird gezeigt wie ein Zahlenwert in ein String gewandelt wird und dieser 'formatiert werden kann. 'Alternativ kann natürlich auch die "/10, Mod 10 Methode" angewandt werden. Sub Convertvalue_komma1() Convert_strg = Str(value) Convert_strg = Format(convert_strg , " 0.0") End Sub '-------------------------------------------------------------------------------

und eine Erweiterung auf negative Temperaturen:

Code:

Sub Readtemp(byval Device As Byte) Minusflag = 0 Local Deviceread As Byte Local Lowtemp As Byte Local Hightemp As Byte Local Templow As Byte Deviceread = Device + 1 I2csend , Device , &HEE 'Temperaturmessung anstoßen I2csend , Device , &HAA 'Temperaturmessung Lesekommando I2cstart I2cwbyte Deviceread I2crbyte Lowtemp , Ack 'LSByte holen (ganze Grad) Templow = Lowtemp And &H80 If Templow = 128 Then Minusflag = 1 Lowtemp = 255 - Lowtemp Lowtemp = Lowtemp + 1 End If I2crbyte Hightemp , Nack 'MSByte holen (0,5 Indikator) I2cstop Value = Lowtemp * 10 Value_x = Lowtemp 'um das LSB für EEprom 'Ausgabe zu retten If Hightemp = 128 Then '+/- Auswertung If Minusflag = 0 Then Value = Value + 5 ' If Minusflag = 1 Then Value = Value - 5 End If End Sub

Bevor Du Dich nun wieder mit Fragen meldest, wäre es schön, wenn Du endlich mal die Grundlagen von I2C lernen würdest und das Datenblatt liest. Dann wirst Du evtl. auch weitere Antworten erwarten können.

Henrik

hallo

es gab schonmal das problem einfach mal suchen dann findet man was.

hier der link:
https://www.roboternetz.de/phpBB2/ze...ghlight=ds1621

gruß
patrick

Das mit den Grundlagen lernen ist schon richtig. Doch mit den englischen Datenblättern kann ich mir halt nicht so weit helfen.

Ich stehe erst am Anfang mit der Programiererei.

Hallo

Ich habe einmal dass oben von hrei, angepasst und probiert, jedoch spuckt er immer nur 255.0 aus, was mache ich falsch? Achja, ich benütze dass RN-Controll.

Code:

'------------------------------------------------------------------------------- '----- Beispiel für das Auslesen des Temperatursensors DS1621/1631 ------------ ' HR 2006 ' 'Anmerkung: Dieses Beispiel ist sowohl für den 1621 als auch für den 1631 'geeignet. Der 1631 wird dabei im 1621 Kompatibilitätsmodus betrieben. 'Auf die Auswertung negativer Temperaturen wird verzichtet. '------------------------------------------------------------------------------- $regfile = "m32def.dat" $crystal = 16000000 $baud = 9600 $hwstack = 32 $swstack = 32 $framesize = 32 Config Scl = Portc.0 Config Sda = Portc.1 I2cinit 'entbehrlich '------------------------------------------------------------------------------- Declare Sub Readtemp(byval Device As Byte) Declare Sub Convertvalue_komma1() Dim Value As Word Dim Convert_strg As String * 10 Const Ds1 = 150 'ggf. anpassen '----------------------------- Hauptprogramm ----------------------------------- Do Call Readtemp(ds1) Call Convertvalue_komma1() Print Convert_strg Waitms 500 Loop End '----------------------------- Subroutinen ------------------------------------- 'Readtemp liest die Temperatur und stellt sie nach Aufruf in der Variable Value 'in 10tel Grad zu Verfügung. Übergeben wird die Deviceadresse des Sensors. Sub Readtemp(byval Device As Byte) Local Deviceread As Byte Local Lowtemp As Byte Local Hightemp As Byte Deviceread = Device + 1 I2cstart I2cwbyte Device I2cwbyte &HEE 'Temperaturmessung anstoßen I2cstop I2cstart I2cwbyte Device I2cwbyte &HAA 'Temperaturmessung Lesekommando I2cstop I2cstart I2cwbyte Deviceread I2crbyte Lowtemp , Ack 'LSByte holen (Ganze Grad) I2crbyte Hightemp , Nack 'MSByte holen (0,5 Grad Indikator) I2cstop Value = Lowtemp * 10 If Hightemp = 128 Then Value = Value + 5 End If End Sub '------------------------------------------------------------------------------- 'Convertvalue_komma1 wandelt Value in einen String mit einer Nachkommastelle. 'Es wird gezeigt wie ein Zahlenwert in ein String gewandelt wird und dieser 'formatiert werden kann. 'Alternativ kann natürlich auch die "/10, Mod 10 Methode" angewandt werden. Sub Convertvalue_komma1() Convert_strg = Str(value) Convert_strg = Format(convert_strg , " 0.0") End Sub '---------------------------------

mfg Luca

Bascom Beispiel DS1621 Temperaturabfrage

So gehts bei mir

'----------- Temperatur abfragen --------------------------------
Sub Thermometer()
Local Device As Byte
Device = &H90
Local Deviceread As Byte
Local Lowtemp As Byte
Local Hightemp As Byte

Deviceread = Device + 1

I2cstart
I2cwbyte Device
I2cwbyte &HEE 'Temperaturmessung anstoßen
I2cstop

I2cstart
I2cwbyte Device
I2cwbyte &HAA 'Temperaturmessung Lesekommando
I2cstop

I2cstart
I2cwbyte Deviceread
I2crbyte Lowtemp , Ack 'LSByte holen
I2crbyte Hightemp , Nack 'MSByte holen
I2cstop

Temperatur = Lowtemp * 10
If Hightemp = 128 Then
Temperatur = Temperatur + 5
End If
Temperatur = Temperatur / 10
End Sub
'Ende -------------- Temperatur ----------------------------------------

Hallo
Leider funktioniert dein Code bei mir nicht. So sieht dass ganze aus:

Code:

------------------------------------------------------------------------------- '----- Beispiel für das Auslesen des Temperatursensors DS1621/1631 ------------ ' HR 2006 ' 'Anmerkung: Dieses Beispiel ist sowohl für den 1621 als auch für den 1631 'geeignet. Der 1631 wird dabei im 1621 Kompatibilitätsmodus betrieben. 'Auf die Auswertung negativer Temperaturen wird verzichtet. '------------------------------------------------------------------------------- $regfile = "m32def.dat" $crystal = 16000000 $baud = 9600 Declare Sub Thermometer() Dim Temperatur As Word Config Scl = Portc.0 'Ports fuer IIC-Bus Config Sda = Portc.1 Do Call Thermometer() Print Temperatur Print Waitms 500 Loop '----------- Temperatur abfragen -------------------------------- Sub Thermometer() Local Device As Byte Device = &H90 Local Deviceread As Byte Local Lowtemp As Byte Local Hightemp As Byte Deviceread = Device + 1 I2cstart I2cwbyte Device I2cwbyte &HEE 'Temperaturmessung anstoßen I2cstop I2cstart I2cwbyte Device I2cwbyte &HAA 'Temperaturmessung Lesekommando I2cstop I2cstart I2cwbyte Deviceread I2crbyte Lowtemp , Ack 'LSByte holen I2crbyte Hightemp , Nack 'MSByte holen I2cstop Temperatur = Lowtemp * 10 If Hightemp = 128 Then Temperatur = Temperatur + 5 End If Temperatur = Temperatur / 10 End Sub 'Ende -------------- Temperatur ----------------------------------------

Leider bekomme ich immer nur 0 zugeschickt. Was mache ich falsch?

mfg Luca

Edit: "Device = &H90" heisst das alle Ports nach GND gezogen sind, also Hex90?

Programm richtig, vermutlich falsch verlötet

Hallo,

Dein Programm ist richtig. Genau so läuft es bei mir auch.
Wenn Du immer 255, 65535 oder 0 als Antwort bekommst, so liegt dies ziemlich sicher an deiner Verlötung oder einer falschen I2C-Adresse.

Also prüfe nochmals folgende Punkte:

1) Hast Du irgenwelche Pins vertauscht SCL mit SDA
2) Hast Du 5V und GND auf dem Chip /I2C_Bus.
Falls du RN-Control hast, ist der 5V Jumper und der I2C Jumper gesteckt?
3) Ja HEX90 heisst alle A0-A2 auf GND

Übrigens: 0,255,65535 (je nach I2C-Chip) heisst eigentlich immer, daß das Programm den Baustein nicht gefunden hat.

Mehr Ferndiagnose geht leider nicht.
Gruß

Zur Sicherheit nochmals das Datenblatt
http://pdfserv.maxim-ic.com/en/ds/DS1621.pdf

Hallo

Ich habe Heute noch mal alles duchprobiert, aber ich fand keinen Fehler:
VDD: 4.97V
GND: Gnd
A0: Gnd
A1: Gnd
A2: Gnd
Scl: Mit Port b.0 verbunden, spannung 4.97 - 4.96
Sda: Mit Port b.1 Verbunden, spannung 4.97 - 4.96
Tout: Nichts angeschlossen, Spannung 4.97V (ist das Normal?)

Was könnte falsch sein?

mfg Luca

Edit: Ich habe jetzt schnell umgelötet, jetzt habe ich auf A0-A2 +5V, die Hex habe ich auf 9E eingestellt (im prog.), funktioniert aber immer noch nicht.

Im Programm schreibst Du bei SCL/SDA PortC und hier grad PortB, welcher ist es denn ?

Hallo

Ohh, ich meinte natürlich Port.c.
SCL/SDA ist mit Port.c. verbunden, wahr ein tipp fehler.

mfg Luca

Hallo zusammen,

ich versuche auch schon seit Tagen mit der rncontrol und einem DS1621 eine Temperatur anzuzeigen.
Ich bin recht enttäuscht, dass eine so simple Aufgabe fast unlösbar ist. Ich bin davon ausgegangen, dass soetwas schon 1000fach probiert wurde und hätte schon ein paar perfekte Lösungen erwartet.

Aber ich habe aus Euren Vorschlägen ein PRG ableiten können, das bei mir auf dem LCD und auf der RS232 die Temperatur formatiert anzeigt.

Hier ist es:

$regfile = "M32def.dat" ' chip
$crystal = 16000000 ' frequenz
$baud = 9600 ' baud rate

Config Scl = Portc.0 ' we need to provide the SCL pin name
Config Sda = Portc.1 ' we need to provide the SDA pin name

Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4
Config Lcd = 16 * 2
Config Portb = Output
Config Lcdbus = 4

Dim ___lcdno As Bit
Dim Lowtemp As Byte
Dim Hightemp As Byte
Dim Value As Word
Declare Sub Convertvalue_komma1()
Dim Convert_strg As String * 10 '!!!!!!!
I2cinit
Cls

Do

I2cstart
I2cwbyte 144
I2cwbyte &HEE 'Temperaturmessung anstoßen
I2cstop

I2cstart
I2cwbyte 144
I2cwbyte &HAA 'Temperaturmessung Lesekommando
I2cstop

I2cstart
I2cwbyte 145
I2crbyte Lowtemp , Ack 'LSB holen
I2crbyte Hightemp , Nack 'MSB holen

I2cstop

Value = Lowtemp * 10
If Hightemp = 128 Then
Value = Value + 5
End If

Call Convertvalue_komma1()
Print Convert_strg ; " C"

Locate 1 , 1
Lcd Convert_strg ; " C"

Waitms 1000 'kurze Pause
Loop

End

'-------------------------------------------------------------------------------
'Convertvalue_komma1 wandelt Value in einen String mit einer Nachkommastelle.
'Es wird gezeigt wie ein Zahlenwert in ein String gewandelt wird und dieser
'formatiert werden kann.
'Alternativ kann natürlich auch die "/10, Mod 10 Methode" angewandt werden.

Sub Convertvalue_komma1()

Convert_strg = Str(value)
Convert_strg = Format(convert_strg , " 0.0")

End Sub
'---------------------------------

Gruß aus Essen, Peter

Hello,
I translated a CCBasic program I wrote into a Bascom 8051 program.
The CCBasic version works pervectly, I have not been able to test the Bascom 8051 version yet.
I think with a few modifications the Bascom 8051 program should work on a AVR.
Greetings,
Windt H.J.

Code:

'***************************************' '* WINDT SYSTEMS *' '* DS1621 v1.0 for 89S8252 Flash Board *' '* 2006 / H.J. WINDT *' '***************************************' '----------------------------------------------------------------------------------------------------' 'This software for the 89S8252 will read the DS1621 9 bit Temperature' '-55°C to +125°C in 0.5°C increments and display the data on a terminal program as T = xxx,x°C.' 'The temperature is read as -550 to 1250, the last digit is actually the digit behind the comma,' 'example 1: temp_c = -15 is actually -1,5°C' 'example 2: temp_c = 250 is actually 25,0°C.' 'Communication with the DS1621 is via the I2C bus.' 'Feel free to use and share this software!' 'DS1621 -->> DALLAS SEMICONDUCTOR Digital Thermometer and Thermostat' '----------------------------------------------------------------------------------------------------' '********************************* PORTS *********************************' Config Sda = P1.0 Config Scl = P1.1 '*************************************************************************' '******************************* VARIABLES *******************************' Dim I2c_byte As Byte Dim Loops1 As Byte Dim Temp1 As Integer Dim Temp2 As Integer Dim Temp_c As Integer '*************************************************************************' '******************************* CONSTANTS *******************************' Const Ds1621_i2c_address = &H0 Const Ds1621_i2c_r_address = &H1 '*************************************************************************' '********************************* SETUP *********************************' Config I2cdelay = 800 '*************************************************************************' '******************************** PROGRAM ********************************' Temp_c_loop: Gosub Get_ds1621_temperature Temp1 = Temp_c / 10 'calculate hundreds tens ones from temp_c' Temp1 = Abs(temp1) Temp2 = Temp_c / 10 'calculate 1/10th from temp_c' Temp2 = Temp2 * 10 Temp2 = Temp_c - Temp2 Temp2 = Abs(temp2) Print "T = "; 'display T = ' If Temp_c < 0 Then Print "-"; 'display "-" if temp_c < 0' Print Temp1 ; "," ; Temp2 ; "°C" 'display temperature as xxx,x°C' Goto Temp_c_loop '*************************************************************************' '****************************** SUBROUTINES ******************************' Get_ds1621_temperature: For Loops1 = 1 To 2 Ds1621_start_convert: I2cstart I2cwbyte Ds1621_i2c_address I2cwbyte &HEE I2cstop Ds1621_check_conversion_done: I2cstart I2cwbyte Ds1621_i2c_address I2cwbyte &HAC I2cstop I2cstart I2cwbyte Ds1621_i2c_r_address I2crbyte I2c_byte , Nack I2cstop Temp1 = I2c_byte And 1 Temp2 = I2c_byte And 128 If Temp1 = 1 Then If Temp2 = 128 Then Goto Ds1621_check_conversion_done Ds1621_read_temp: I2cstart I2cwbyte Ds1621_i2c_address I2cwbyte &HAA I2cstop I2cstart I2cwbyte Ds1621_i2c_r_address I2crbyte I2c_byte , Ack If I2c_byte > 127 Then Temp_c = &HFF00 + I2c_byte Else Temp_c = I2c_byte Temp_c = Temp_c * 10 I2crbyte I2c_byte , Nack Temp1 = I2c_byte And 128 If Temp1 = 128 Then Temp_c = Temp_c + 5 I2cstop Next Return '*************************************************************************' '********************************* DATA **********************************' '*************************************************************************'

Hallo Windt H.J. ,

thank you, the program works like mine. I only must change a few things.
I test it with ATMEGA32.
Do you have a version, with shows the temperature more exactly?
(not only 0,5 degrees steps)

Here the source:

'***************************************'
'* WINDT SYSTEMS *'
'* DS1621 v1.0 for 89S8252 Flash Board *'
'* 2006 / H.J. WINDT *'
'***************************************'
'----------------------------------------------------------------------------------------------------'
'This software for the 89S8252 will read the DS1621 9 bit Temperature'
'-55°C to +125°C in 0.5°C increments and display the data on a terminal program as T = xxx,x°C.'
'The temperature is read as -550 to 1250, the last digit is actually the digit behind the comma,'
'example 1: temp_c = -15 is actually -1,5°C'
'example 2: temp_c = 250 is actually 25,0°C.'
'Communication with the DS1621 is via the I2C bus.'
'Feel free to use and share this software!'
'DS1621 -->> DALLAS SEMICONDUCTOR Digital Thermometer and Thermostat'
'----------------------------------------------------------------------------------------------------'
'********************************* PORTS *********************************'
$regfile = "M32def.dat" ' chip
$crystal = 16000000 ' frequenz
$baud = 9600 ' baud rate

Config Scl = Portc.0 ' we need to provide the SCL pin name
Config Sda = Portc.1 ' we need to provide the SDA pin name

Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4
Config Lcd = 16 * 2
Config Portb = Output
Config Lcdbus = 4
'************************************************* ************************'
'******************************* VARIABLES *******************************'
Dim I2c_byte As Byte
Dim Loops1 As Byte
Dim Temp1 As Integer
Dim Temp2 As Integer
Dim Temp_c As Integer
'************************************************* ************************'
'******************************* CONSTANTS *******************************'
Const Ds1621_i2c_address = 144
Const Ds1621_i2c_r_address = 145
'************************************************* ************************'
'********************************* SETUP *********************************'
Config I2cdelay = 800
'************************************************* ************************'
'******************************** PROGRAM ********************************'
Temp_c_loop:
Gosub Get_ds1621_temperature

Temp1 = Temp_c / 10 'calculate hundreds tens ones from temp_c'
Temp1 = Abs(temp1)

Temp2 = Temp_c / 10 'calculate 1/10th from temp_c'
Temp2 = Temp2 * 10
Temp2 = Temp_c - Temp2
Temp2 = Abs(temp2)

Print "T = "; 'display T = '
If Temp_c < 0 Then Print "-"; 'display "-" if temp_c < 0'
Print Temp1 ; "," ; Temp2 ; "°C" 'display temperature as xxx,x°C'

Goto Temp_c_loop
'************************************************* ************************'
'****************************** SUBROUTINES ******************************'
Get_ds1621_temperature:

For Loops1 = 1 To 2
Ds1621_start_convert:
I2cstart
I2cwbyte Ds1621_i2c_address
I2cwbyte &HEE
I2cstop

Ds1621_check_conversion_done:
I2cstart
I2cwbyte Ds1621_i2c_address
I2cwbyte &HAC
I2cstop
I2cstart
I2cwbyte Ds1621_i2c_r_address
I2crbyte I2c_byte , Nack
I2cstop
Temp1 = I2c_byte And 1
Temp2 = I2c_byte And 128
If Temp1 = 1 Then If Temp2 = 128 Then Goto Ds1621_check_conversion_done

Ds1621_read_temp:
I2cstart
I2cwbyte Ds1621_i2c_address
I2cwbyte &HAA
I2cstop
I2cstart
I2cwbyte Ds1621_i2c_r_address

I2crbyte I2c_byte , Ack
If I2c_byte > 127 Then Temp_c = &HFF00 + I2c_byte Else Temp_c = I2c_byte
Temp_c = Temp_c * 10

I2crbyte I2c_byte , Nack
Temp1 = I2c_byte And 128
If Temp1 = 128 Then Temp_c = Temp_c + 5

I2cstop
Next
Return
'************************************************* ************************'
'********************************* DATA **********************************'

I thought the minimum increment of the ds1621 is 0.5°... How should one be able to get more precision if the sensor doesn't support it? Maybe you could get an average over several values but that wouldn't be more precise... There is no point in trying to get a better resolution if the sensor can't supply better values. You could probably calculate a moving average over several values and "cheat" another decimal place this way ;)

Zitat:

Zitat von datasheet

Measures temperatures from –55°C to +125°C in
0.5°C increments.

Hello,
The DS1621 is capable of higher resolutions.
By reading out the 8 bit temperature (not the 9 bit), counter and slope of the DS1621 and performing a calculation you can get a higher resolution (this can also be read in the datasheet).

I’m still working on the calculation using signed integers and I hope to test it tomorrow.
Using pen and paper the calculation seems to work. O:)
Greetings,
Windt H.J.

Oh, ok... Then I retract my statement.

Zitat:

Zitat von peter02

Do you have a version, with shows the temperature more exactly?
(not only 0,5 degrees steps)

Hello,
I have had success writing new software (CCBasic C-Control) that reads and shows the temperature in smaller increments. \:D/

I translated it into Bascom 8051 but I’m not able to compile and test it (demo version of Bascom 8051).

With A few modifications it should work on an AVR.
Let me know how it works out.
Greetings,
Windt H.J.

Code:

'***************************************' '* WINDT SYSTEMS *' '* DS1621 v1.1 for 89S8252 Flash Board *' '* 2006 / H.J. WINDT *' '***************************************' '----------------------------------------------------------------------------------------------------' 'This software for the 89S8252 will read the DS1621 8 bit Temperature, Counter And Slope and' 'display the data on a terminal as T = xxx , xx°C' 'The temperature is read as -5500 to 12500, the last 2 digits are actually the digits behind the comma,' 'example 1: temp_c = -150 is actually -1,50°C' 'example 2: temp_c = 2500 is actually 25,00°C. 'Communication with the DS1621 is via the I2C bus.' 'Feel free to use and share this software!' 'DS1621 -->> DALLAS SEMICONDUCTOR Digital Thermometer and Thermostat' '----------------------------------------------------------------------------------------------------' '********************************* PORTS *********************************' Config Sda = P1.0 Config Scl = P1.1 '*************************************************************************' '******************************* VARIABLES *******************************' Dim I2c_byte As Byte Dim Loops1 As Byte Dim Count As Byte Dim Slope As Byte Dim Temp1 As Integer Dim Temp2 As Integer Dim Temp_c As Integer '*************************************************************************' '******************************* CONSTANTS *******************************' Const Ds1621_i2c_address = &H0 Const Ds1621_i2c_r_address = &H1 '*************************************************************************' '********************************* SETUP *********************************' Config I2cdelay = 800 '*************************************************************************' '******************************** PROGRAM ********************************' Temp_c_loop: Gosub Get_ds1621_temperature Temp1 = Temp_c / 100 Temp1 = Abs(temp1) Temp2 = Temp_c / 100 Temp2 = Temp2 * 100 Temp2 = Temp_c - Temp2 Temp2 = Abs(temp2) Print "T = "; If Temp_c < 0 Then Print "-"; Print Temp1 ; "," ; If Temp2 < 10 Then Print "0"; Print Temp2 ; "°C" Goto Temp_c_loop '*************************************************************************' '****************************** SUBROUTINES ******************************' Get_ds1621_temperature: For Loops1 = 1 To 2 Ds1621_start_convert: I2cstart I2cwbyte Ds1621_i2c_address I2cwbyte &HEE I2cstop Ds1621_check_conversion_done: I2cstart I2cwbyte Ds1621_i2c_address I2cwbyte &HAC I2cstop I2cstart I2cwbyte Ds1621_i2c_r_address I2crbyte I2c_byte , Nack I2cstop Temp1 = I2c_byte And 1 Temp2 = I2c_byte And 128 If Temp1 = 1 Then If Temp2 = 128 Then Goto Ds1621_check_conversion_done Ds1621_read_temp: I2cstart I2cwbyte Ds1621_i2c_address I2cwbyte &HAA I2cstop I2cstart I2cwbyte Ds1621_i2c_r_address I2crbyte Temp_c , Nack If Temp_c > 127 Then Temp_c = Temp_c + &HFF00 Temp_c = Temp_c * 100 Ds1621_read_count: I2cstart I2cwbyte Ds1621_i2c_address I2cwbyte &HA8 I2cstop I2cstart I2cwbyte Ds1621_i2c_r_address I2crbyte Count , Nack I2cstop Ds1621_read_slope: I2cstart I2cwbyte Ds1621_i2c_address I2cwbyte &HA9 I2cstop I2cstart I2cwbyte Ds1621_i2c_r_address I2crbyte Slope , Nack I2cstop Temp1 = Count * 100 Temp2 = Slope * 100 Temp2 = Temp2 - Temp1 Temp1 = Temp2 / Slope Temp_c = Temp_c - 25 Temp_c = Temp_c + Temp1 I2cstop Next Return '*************************************************************************' '********************************* DATA **********************************' '*************************************************************************'

Schonmal an die Pullup widerstände gedacht ??
Bei mi geht ohne gar nix auch wenn alles ander in Ordnung ist !!

hast du auch an Pullup Widerstände gedacht bei mir geht ohne die gar nix !!

Hallo

Die Pullup Wiederstände sind bei mir schon auf dem Board (RN-Control)
Aber ich denke es liegt an meinem Sensor, werde mir bei gelegenheit mal 2 bestellen.

mfg Luca

Hallo zusammen,

Pullups sind bei mir auch drauf (rncontrol). Weil ich es erst nicht wußte habe ich auf der DS1621 Platine noch zweimal 4,7K gelötet. Macht aber im Ergebnis keinen Unterschied.

@Drifter2006:

Kannst Du deutsch lesen?
Dein Programm klappt es super!!!!!!!

Ich habe es gerade auf meinen ATMEGA32 übertragen. Die Temperatur wird z.B. als 23.56 C angezeigt. Jetzt ist die Anzeige schon zu genau, die letzte Stelle verändert sich recht schnell.

Kann man die Anzeige etwas "dämpfen"?

Ich sehe auch, dass die Hunderterstelle sich immer in Schritten von 6 oder 7 verändert. Das heißt z.B. 23.81 dann 23.87 dann 23.93 beim erwärmen.

Gruß Peter

Ich schätze, dass die Auflösung 1/16° C ist, genau wie beim DS1820.
Besser du zeigst die letzte Stelle garnicht an.

@for_ro

Ja das denke ich auch. Ich versuche sie gerade durch ein Format auzublenden.

Gruß Peter

Zitat:

Zitat von peter02

Kannst Du deutsch lesen?
Dein Programm klappt es super!!!!!!!

Ich habe es gerade auf meinen ATMEGA32 übertragen. Die Temperatur wird z.B. als 23.56 C angezeigt. Jetzt ist die Anzeige schon zu genau, die letzte Stelle verändert sich recht schnell.

Kann man die Anzeige etwas "dämpfen"?

Ich sehe auch, dass die Hunderterstelle sich immer in Schritten von 6 oder 7 verändert. Das heißt z.B. 23.81 dann 23.87 dann 23.93 beim erwärmen.

Gruß Peter

Hello,
I’m glad you like it!
I have made a few small changes and now the increments are 0,1°C.
Try it out and let me know if it Works.
Greetings,
Windt H.J.

Code:

'***************************************' '* WINDT SYSTEMS *' '* DS1621 v1.2 for 89S8252 Flash Board *' '* 2006 / H.J. WINDT *' '***************************************' '----------------------------------------------------------------------------------------------------' 'This software for the 89S8252 will read the DS1621 8 bit Temperature, Counter And Slope and' 'display the data on a terminal as T = xxx , x°C in 0,1°C increments' 'The temperature is read as -550 to 1250, the last digit is actually the digit behind the comma,' 'example 1: temp_c = -15 is actually -1,5°C' 'example 2: temp_c = 250 is actually 25,0°C. 'Communication with the DS1621 is via the I2C bus.' 'Feel free to use and share this software!' 'DS1621 -->> DALLAS SEMICONDUCTOR Digital Thermometer and Thermostat' '----------------------------------------------------------------------------------------------------' '********************************* PORTS *********************************' Config Sda = P1.0 Config Scl = P1.1 '*************************************************************************' '******************************* VARIABLES *******************************' Dim I2c_byte As Byte Dim Loops1 As Byte Dim Count As Byte Dim Slope As Byte Dim Temp1 As Integer Dim Temp2 As Integer Dim Temp_c As Integer '*************************************************************************' '******************************* CONSTANTS *******************************' Const Ds1621_i2c_address = &H0 Const Ds1621_i2c_r_address = &H1 '*************************************************************************' '********************************* SETUP *********************************' Config I2cdelay = 800 '*************************************************************************' '******************************** PROGRAM ********************************' Temp_c_loop: Gosub Get_ds1621_temperature Temp1 = Temp_c / 10 Temp1 = Abs(temp1) Temp2 = Temp_c / 10 Temp2 = Temp2 * 10 Temp2 = Temp_c - Temp2 Temp2 = Abs(temp2) Print "T = "; If Temp_c < 0 Then Print "-"; Print Temp1 ; "," ; Temp2 ; "°C" Goto Temp_c_loop '*************************************************************************' '****************************** SUBROUTINES ******************************' Get_ds1621_temperature: For Loops1 = 1 To 2 Ds1621_start_convert: I2cstart I2cwbyte Ds1621_i2c_address I2cwbyte &HEE I2cstop Ds1621_check_conversion_done: I2cstart I2cwbyte Ds1621_i2c_address I2cwbyte &HAC I2cstop I2cstart I2cwbyte Ds1621_i2c_r_address I2crbyte I2c_byte , Nack I2cstop Temp1 = I2c_byte And 1 Temp2 = I2c_byte And 128 If Temp1 = 1 Then If Temp2 = 128 Then Goto Ds1621_check_conversion_done Ds1621_read_temp: I2cstart I2cwbyte Ds1621_i2c_address I2cwbyte &HAA I2cstop I2cstart I2cwbyte Ds1621_i2c_r_address I2crbyte Temp_c , Nack If Temp_c > 127 Then Temp_c = Temp_c + &HFF00 Temp_c = Temp_c * 100 Ds1621_read_count: I2cstart I2cwbyte Ds1621_i2c_address I2cwbyte &HA8 I2cstop I2cstart I2cwbyte Ds1621_i2c_r_address I2crbyte Count , Nack I2cstop Ds1621_read_slope: I2cstart I2cwbyte Ds1621_i2c_address I2cwbyte &HA9 I2cstop I2cstart I2cwbyte Ds1621_i2c_r_address I2crbyte Slope , Nack I2cstop Temp1 = Count * 100 Temp2 = Slope * 100 Temp2 = Temp2 - Temp1 Temp1 = Temp2 / Slope Temp_c = Temp_c - 25 Temp_c = Temp_c + Temp1 Temp_c = Temp_c / 10 I2cstop Next Return '*************************************************************************' '********************************* DATA **********************************' '*************************************************************************'

Hi Drifter2006,
ich probiere es gleich. Hier ist meine letzte Modifikation. Jetzt wird die Temperatur 24.1 also eine Stelle hintern Komma angezeigt. Das ist schon sehr gut.

Code:

'***************************************'
'* WINDT SYSTEMS *'
'* DS1621 v1.1 for 89S8252 Flash Board *'
'* 2006 / H.J. WINDT *'
'***************************************'
'----------------------------------------------------------------------------------------------------'
'This software for the 89S8252 will read the DS1621 8 bit Temperature, Counter And Slope and'
'display the data on a terminal as T = xxx , xx°C'
'The temperature is read as -5500 to 12500, the last 2 digits are actually the digits behind the comma,'
'example 1: temp_c = -150 is actually -1,50°C'
'example 2: temp_c = 2500 is actually 25,00°C.
'Communication with the DS1621 is via the I2C bus.'
'Feel free to use and share this software!'
'DS1621 -->> DALLAS SEMICONDUCTOR Digital Thermometer and Thermostat'
'----------------------------------------------------------------------------------------------------'
'********************************* PORTS *********************************'
$regfile = "M32def.dat" ' chip
$crystal = 16000000 ' frequenz
$baud = 9600 ' baud rate

$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Config Scl = Portc.0 ' we need to provide the SCL pin name
Config Sda = Portc.1 ' we need to provide the SDA pin name

Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4
Config Lcd = 16 * 2
Config Portb = Output
Config Lcdbus = 4

'************************************************* ************************'
'******************************* VARIABLES *******************************'
Dim ___lcdno As Bit
Dim I2c_byte As Byte
Dim Loops1 As Byte
Dim Count As Byte
Dim Slope As Byte
Dim Temp1 As Integer
Dim Temp2 As Integer
Dim Temp_c As Integer
Dim Temp2_2 As String * 16

'************************************************* ************************'
'******************************* CONSTANTS *******************************'
Const Ds1621_i2c_address = 144
Const Ds1621_i2c_r_address = 145
'************************************************* ************************'
'********************************* SETUP *********************************'
Config I2cdelay = 80
'************************************************* ************************'
'******************************** PROGRAM ********************************'

Cls
Cursor Off Noblink 'hide cursor
Temp_c_loop:
Gosub Get_ds1621_temperature

Temp1 = Temp_c / 100
Temp1 = Abs(temp1)

Temp2 = Temp_c / 100
Temp2 = Temp2 * 100
Temp2 = Temp_c - Temp2
Temp2 = Abs(temp2)

Temp2 = Temp2 / 10
Temp2 = Abs(temp2)

Print "T = ";
If Temp_c < 0 Then Print "-";
Print Temp1 ; "," ;
If Temp2 < 10 Then Print "0";
Print Temp2 ; " C"

Locate 1 , 1
Wait 1
Lcd Temp1 ; "." ; Temp2
Locate 1 , 5
Lcd " C Wohnraum"

Goto Temp_c_loop
'************************************************* ************************'
'****************************** SUBROUTINES ******************************'
Get_ds1621_temperature:

For Loops1 = 1 To 2
Ds1621_start_convert:
I2cstart
I2cwbyte Ds1621_i2c_address
I2cwbyte &HEE
I2cstop

Ds1621_check_conversion_done:
I2cstart
I2cwbyte Ds1621_i2c_address
I2cwbyte &HAC
I2cstop
I2cstart
I2cwbyte Ds1621_i2c_r_address
I2crbyte I2c_byte , Nack
I2cstop
Temp1 = I2c_byte And 1
Temp2 = I2c_byte And 128
If Temp1 = 1 Then If Temp2 = 128 Then Goto Ds1621_check_conversion_done

Ds1621_read_temp:
I2cstart
I2cwbyte Ds1621_i2c_address
I2cwbyte &HAA
I2cstop
I2cstart
I2cwbyte Ds1621_i2c_r_address

I2crbyte Temp_c , Nack
If Temp_c > 127 Then Temp_c = Temp_c + &HFF00
Temp_c = Temp_c * 100

Ds1621_read_count:
I2cstart
I2cwbyte Ds1621_i2c_address
I2cwbyte &HA8
I2cstop
I2cstart
I2cwbyte Ds1621_i2c_r_address
I2crbyte Count , Nack
I2cstop

Ds1621_read_slope:
I2cstart
I2cwbyte Ds1621_i2c_address
I2cwbyte &HA9
I2cstop
I2cstart
I2cwbyte Ds1621_i2c_r_address
I2crbyte Slope , Nack
I2cstop

Temp1 = Count * 100
Temp2 = Slope * 100

Temp2 = Temp2 - Temp1
Temp1 = Temp2 / Slope

Temp_c = Temp_c - 25
Temp_c = Temp_c + Temp1

I2cstop
Next
Return

'************************************************* ************************'
'********************************* DATA **********************************'

'************************************************* ************************'

Hi Drifter2006,

es klappt genau so, wie meine Modifikation.

Ich denke, es ist perfekt. Die Anzeige ist stabil und beim Erwärmen und Abkühlen geht die Anzeige in 0.1 Grad Schritten hoch oder runter.

Danke,

Peter

Drifter2006 hast Du noch ein paar Programme, die man mal ausprobieren kann? Ich bin noch recht neu dabei und sammel noch alles was ich bekommen kann.

Gruß Peter

Hello Peter,
I think I found a small error in your modification:

You wrote:

Temp2 = Temp2 / 10
Temp2 = Abs(temp2)
Print "T = ";
If Temp_c < 0 Then Print "-";
Print Temp1 ; "," ;
If Temp2 < 10 Then Print "0";
Print Temp2 ; " C"
Locate 1 , 1
Wait 1
Lcd Temp1 ; "." ; Temp2
Locate 1 , 5
Lcd " C Wohnraum"

I think should be:

Temp2 = Temp2 / 10
Wait 1
Locate 1 , 1
If Temp_1 < 0 then Lcd "-";
Lcd Temp1 ; "." ; Temp2 ; " C Wohnraum "

The rest can be deleted.

This was my first real attempt at writing a Bascom 8051 program so I don’t have any software, yet. :)
Greetings,
H.J. Windt