Du musst erst von allen Sensoren die Adresse wissen (vorher auslesen)
Wenn Du die dann hast, kannst Du jeden Sensor gezielt ansprechen.
Hab das so gelöst:
(Der Code mit den Anführungsstrichen ist für eine genauere Messung)
Code:
''
'--------------------------------------------------------------
' Datei: City_el_Temperaturmessung_2_DS1822.BAS
' Demo: 3-Draht Temperaturmessung mit dem DS-18S22, mit 9-Bit Auflösung
' Port D ist fürs LCD-Display
' An PortC.6 "hängen" 2 "1-Wire" i-Buttons
' Lcd-Display 1x16 an PortC
'--------------------------------------------------------------
$crystal = 8867238
Config 1wire = Portc.6
Const Ds1822 = &H22
Const Skiprom = &HCC ' überspringe ROM Kommandos
Const Read_rom = &H33 ' Lese ROM
Const Convertt = &H44 ' Start Temperaturmessung
Const Match_rom = &H55 'Suche einzelnen Sensor
Const Read_ram = &HBE ' Lese Scratchpad RAM
Const Write_ram = &H4E ' Schreibe Scratchpad RAM
Const Copy_ram = &H48 ' Kopiere Scratchpad RAM
Const Aufloesung = &H5F ' Auflösung 11 Bit
Const Th = 00 ' Alarmschwelle High
Const Tl = 00 ' Alarmschwelle Low
'Dim Scratch(2) As Byte ' Sratchpad RAM Kopie
Dim Lsb As Byte
Dim Msb As Byte
Dim I As Byte ' Index für Schleifenzähler
Dim Temp As Word ' Temperaturwert 1. Sensor
Dim Temp1 As Integer
Dim Stemp_1 As Single
Dim Stemp_2 As Single
Deflcdchar 1 , 28 , 20 , 28 , 32 , 32 , 32 , 32 , 32 ' LCD Zeichen für °C
Cls
Cursor Off
'*******************************************************************************
'### Alle 1-Wire Devices initialisieren ###
1wreset
1wwrite Skiprom 'überspringe Adressierung
1wwrite Write_ram 'Scratchpad zum schreiben vorbereiten
1wwrite Th 'Alarmschwelle Max.Temp
1wwrite Tl 'Alarmschwelle Min.Temp
1wwrite Aufloesung 'Konfigurationsbyte ins Scratchpad schreiben...
1wwrite Copy_ram '...und im EEProm sichern
'*******************************************************************************
'Beginn 1.Sensor
Do
1wreset '1-Wire Bus reseten
1wwrite Skiprom 'Adressierung überspringen
1wwrite Convertt 'Temperaturmessung bei allen Sensoren einleiten
1wreset
1wwrite Match_rom 'Gezielten Sensor anwählen....
1wwrite 34 'Werte stammen aus Sensor,Dezimal
1wwrite 211
1wwrite 182
1wwrite 22
1wwrite 0
1wwrite 0
1wwrite 0
1wwrite 234
1wwrite Read_ram '....und auslesen (Scratch Pad)
'Scratch(1) = 1wread()
'Scratch(2) = 1wread()
Lsb = 1wread()
Msb = 1wread()
'Temp = Scratch(2) 'MSB holen
'Shift Temp , Left , 8 'Platz für LSB machen
'Temp = Temp + Scratch(1) 'zu Word Format zusammenfügen
'Temp1 = Temp 'Integer Format
'Stemp = Temp1 / 16
Temp = Msb 'MSB holen
Shift Temp , Left , 8 'Platz für LSB machen
Temp = Temp + Lsb 'zu Word Format zusammenfügen
Temp1 = Temp 'Integer Format
Stemp_1 = Temp1 / 16
Locate 1 , 1
Lcd "T1:";
Lcd Fusing(stemp_1 , "##.#");
Lcd Chr(1)
'###############################################################################
'Beginn 2ter Sensor
1wreset 'Reset i-Button
1wwrite Match_rom
1wwrite &H22
1wwrite &H2F
1wwrite &HC6
1wwrite &H16
1wwrite &H00
1wwrite &H00
1wwrite &H00
1wwrite &H88
1wwrite Read_ram 'lese Scratch Pad
Lsb = 1wread()
Msb = 1wread()
'Temp = Scratch(2) 'MSB holen
'Shift Temp , Left , 8 'Platz für LSB machen
'Temp = Temp + Scratch(1) 'zu Word Format zusammenfügen
'Temp1 = Temp 'Integer Format
'Stemp = Temp1 / 16
Temp = Msb 'MSB holen
Shift Temp , Left , 8 'Platz für LSB machen
Temp = Temp + Lsb 'zu Word Format zusammenfügen
Temp1 = Temp 'Integer Format
Stemp_2 = Temp1 / 16
'Scratch(1) = 1wread() 'LSB und MSB holen
'Scratch(2) = 1wread()
'Temp = Scratch(2) 'MSB holen
'Shift Temp , Left , 8 'Platz für LSB machen
'Temp = Temp + Scratch(1) 'zu Word Format zusammenfügen
'Temp1 = Temp 'Integer Format
' Stemp_a = Temp1 / 16
Locate 2 , 1
Lcd "T2:";
Lcd Fusing(stemp_2 , "##.#");
Lcd Chr(1)
Loop
Zitieren
Berechtigungen
Lesezeichen