mehrere DS18S20 an einem 1 wire Bus

Hallo Ich habe mal wieder eine Frage :-)...

Vielleicht hat von Euch ja schon jemand Erfahrungen mit mehreren Dallas Temperatursensoren an einem Bus. Bisher habe ich mich mal anhand des Datenblatts und einem Beispiel von der MCS Site reingearbeitet.

Das Beispiel habe ich für 0.1 Grad genauigkeit und Ausgabe auf einem LCD modifiziert. Funktioniert wunderbar.

Code:

---

' ----------------------------------------------------------------
' Example measuring temperature using Dallas DS1820,
' with calculated for 0.1 C resolution and with 8-bit CRC!
' BASCOM 8051 AN
' ----------------------------------------------------------------
'-------------------------------------------------------------------------------
'Anschluß der iButtons an Portd.3 am AT90S8515 Board
'GND    Schirm
'DQ      Weiß
'Vdd    braun
'-------------------------------------------------------------------------------
$regfile = "8515DEF.DAT"
$crystal = 4000000


Config Lcdpin = Pin , Db4 = Porta.3 , Db5 = Porta.4 , Db6 = Porta.5 , Db7 = Porta.6 , E = Porta.2 , Rs = Porta.0

'*******************************************************************************
Config Lcd = 16 * 2                                        'configure lcd screen
Config 1wire = Portd.3                                      ' DS1820 on pin 12 (pull up)

Declare Sub Read1820
Declare Sub Crcit
Declare Sub Temperature

Dim Bd(9) As Byte
Dim I As Byte , Tmp As Byte
Dim Crc As Byte
Dim T As Integer , Temp As Single
Dim V As Byte

Cls                                                        'clear the LCD display
Lcd " ITG 2005"                                            'display this at the top line
Waitms 5
Lowerline                                                  'select the lower line
Waitms 5
Lcd " Temp. Messung  "                                      'display this at the lower line
Wait 5

Deflcdchar 0 , 6 , 9 , 9 , 6 , 32 , 32 , 32 , 32            ' replace ? with number (0-7)
Cursor Off Noblink
Cls

Locate 1 , 1 : Lcd "DEMO f" ; Chr(245) ; "r DS1820"
Locate 2 , 1 : Lcd "Temp.="

Do
  Temperature
  Waitms 250
Loop

End


'//////////////////////////////////////////////////////////////////////////////
Sub Temperature                                            ' actual measuring

  1wwrite &HCC : 1wwrite &H44                              ' start measure
  Waitms 300                                              ' wait for end of conversion
  Read1820                                                ' read 9 bytes

  If Err = 1 Then                                          ' if there is no sensor
      Locate 2 , 8 : Lcd "  --  "                          ' we put "-- " on LCD
  Else
      If Crc = 0 Then                                      ' sensor present, check CRC
        Locate 2 , 8 : Lcd Fusing(temp , "#.##") ; Chr(0) ; "C"      ' CRC OK, print T*10 on LCD
      Else
        Locate 2 , 8 : Lcd "  **    "                      ' CRC NOT OK, "** " on LCD
      End If
  End If
End Sub

'//////////////////////////////////////////////////////////////////////////////
Sub Read1820                                                ' reads sensor ans calculate
                                                  ' T for 0.1 C
  1wreset                                                  ' reset the bus
  1wwrite &HCC                                            ' read internal RAM
  1wwrite &HBE                                            ' read 9 data bytest
  Bd(1) = 1wread(9)                                        ' read bytes in array
  1wreset                                                  ' reset the bus

  Crcit                                                    ' ckeck CRC
  If Crc = 0 Then                                          ' if is OK, calculate for
      Tmp = Bd(1) And 1                                    ' 0.1C precision
      If Tmp = 1 Then Decr Bd(1)
      T = Makeint(bd(1) , Bd(2))
      T = T / 2
      Temp = Bd(8) - Bd(7)
      Temp = Temp / Bd(8)
      Temp = T + Temp
      Temp = Temp - 0.25
  End If
End Sub

'//////////////////////////////////////////////////////////////////////////////
Sub Crcit                                                  ' calculate 8 bit CRC
                                                            ' bigger but faster
  Crc = 0                                                  ' needs a 256 elements table
  For I = 1 To 9
      Tmp = Crc Xor Bd(i)
      Crc = Lookup(tmp , Crc8)
  Next
End Sub

'//////////////////////////////////////////////////////////////////////////////
Crc8:
Data 0 , 94 , 188 , 226 , 97 , 63 , 221 , 131 , 194 , 156
Data 126 , 32 , 163 , 253 , 31 , 65 , 157 , 195 , 33 , 127
Data 252 , 162 , 64 , 30 , 95 , 1 , 227 , 189 , 62 , 96
Data 130 , 220 , 35 , 125 , 159 , 193 , 66 , 28 , 254 , 160
Data 225 , 191 , 93 , 3 , 128 , 222 , 60 , 98 , 190 , 224
Data 2 , 92 , 223 , 129 , 99 , 61 , 124 , 34 , 192 , 158
Data 29 , 67 , 161 , 255 , 70 , 24 , 250 , 164 , 39 , 121
Data 155 , 197 , 132 , 218 , 56 , 102 , 229 , 187 , 89 , 7
Data 219 , 133 , 103 , 57 , 186 , 228 , 6 , 88 , 25 , 71
Data 165 , 251 , 120 , 38 , 196 , 154 , 101 , 59 , 217 , 135
Data 4 , 90 , 184 , 230 , 167 , 249 , 27 , 69 , 198 , 152
Data 122 , 36 , 248 , 166 , 68 , 26 , 153 , 199 , 37 , 123
Data 58 , 100 , 134 , 216 , 91 , 5 , 231 , 185 , 140 , 210
Data 48 , 110 , 237 , 179 , 81 , 15 , 78 , 16 , 242 , 172
Data 47 , 113 , 147 , 205 , 17 , 79 , 173 , 243 , 112 , 46
Data 204 , 146 , 211 , 141 , 111 , 49 , 178 , 236 , 14 , 80
Data 175 , 241 , 19 , 77 , 206 , 144 , 114 , 44 , 109 , 51
Data 209 , 143 , 12 , 82 , 176 , 238 , 50 , 108 , 142 , 208
Data 83 , 13 , 239 , 177 , 240 , 174 , 76 , 18 , 145 , 207
Data 45 , 115 , 202 , 148 , 118 , 40 , 171 , 245 , 23 , 73
Data 8 , 86 , 180 , 234 , 105 , 55 , 213 , 139 , 87 , 9
Data 235 , 181 , 54 , 104 , 138 , 212 , 149 , 203 , 41 , 119
Data 244 , 170 , 72 , 22 , 233 , 183 , 85 , 11 , 136 , 214
Data 52 , 106 , 43 , 117 , 151 , 201 , 74 , 20 , 246 , 168
Data 116 , 42 , 200 , 150 , 21 , 75 , 169 , 247 , 182 , 232
Data 10 , 84 , 215 , 137 , 107 , 53

---

Dies ist für einen Sensor. Nur würde ich gerne mehrere Sensoren auswerten und jedem in sein eeprom eine Nummer für die Messstelle zuordnen um den jeweiligen angesprochen zu identifizieren. Momentan stehe ich da noch etwas ratlos da, wie das gehen soll.

Bin auf Eure Ideen und Tipps gespannt.

Gruß

Sven

edit: Schreibfehler in Titel korrigiert

edit: Bitte verwende die Code-Tokens (übersichtlicher)

hast du ICQ? da könnte ich mal nen paar sachen besprechen und dann hinterher den code hier reinstellen...

meine numma iss: 196004120

Hoi!
Japp habe dich autorisiert. Werde vermutlich morgen abend mal on sein.

Gruß

Sven

Hi,
ich hol den Thread mal wieder aus der versenkung.
Hat jemand von euch inzwischen das Auslesen von mehreren Ds1820 hinbekommen?
Ein Sensor ist kein Problem, aber bei zwei bekomm ich das irgendwie nichtmehr hin! Achja, der Sensor ist über drei Leitungen angeschlossen, also nicht im parasite modus!
Hier mal mein Code:

Code:

---

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600

Config 1wire = Portb.0

Config Lcd = 40 * 4
Config Lcdpin = Pin , Rs = Portb.6 , Db4 = Portb.7 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.1 , E2 = Portb.2


Dim ___lcdno As Bit
Dim T1 As Byte
Dim T2 As Byte
Dim I As Byte
Dim Id1 As Word
Dim Id2 As Word
Dim Ar1(2) As Byte
Dim Ar2(2) As Byte

 ___lcdno = 0
  Initlcd
  Cursor Off
  Cls

 ___lcdno = 1
 Initlcd
 Cursor Off
 Cls




Id1 = 1wsearchfirst()
Id2 = 1wsearchnext()

Do
1wreset                                                    'reset
1wwrite &H55                                                'Match Rom command
1wwrite Id1                                                'Id von Sensor 1
1wwrite &H44                                                'Convert T

Waitms 300                                                  'warten bis convert T fertig ist
1wreset                                                    'reset
1wwrite &H55                                                'match rom command
1wwrite Id1                                                'id von sensor 1
1wwrite &HBE                                                'scratchpad lesen
Ar1(1) = 1wread(1)                                          'erstes byte auslesen, da steht Temp drin
Ar1(2) = 1wread(1)                                          'zweites Byte auslesen, wenn 00000000 dann pos vorzeichen, wenn 11111111 dann neg vorzeichen



1wreset                                                    'reset
1wwrite &H55                                                'Match Rom command
1wwrite Id2                                                'Id von Sensor 2
1wwrite &H44                                                'Convert T

Waitms 300                                                  'warten bis convert T fertig ist
1wreset                                                    'reset
1wwrite &H55                                                'match rom command
1wwrite Id2                                                'id von sensor 2
1wwrite &HBE                                                'scratchpad lesen
Ar2(1) = 1wread(1)                                          'erstes byte auslesen, da steht Temp drin
Ar2(2) = 1wread(1)                                          'zweites Byte auslesen, wenn 00000000 dann pos vorzeichen, wenn 11111111 dann neg vorzeichen





 ___lcdno = 0


  Upperline
    Lcd "Temperatur 1:" ; Ar1(2) ; " " ; Ar1(1)

  Lowerline
    Lcd "Temperatur 2:" ; Ar2(2) ; " " ; Ar2(1)

 ___lcdno = 1

  Upperline
  Lcd "ID 1:" ; Id1
  Lowerline
  Lcd "ID 2:" ; Id2



Loop

---

Ich bekomme immer als wert für das erste Byte 255 und für das zweite auch 255, das kann ja nicht stimmen.
MfG
Florian

Hallo avrflo,

Dein Fehler liegt in der Deklaration von ID1 und ID2. Der DS18S20 besitzt eine Adresse die aus 8 Bytes besteht. Da Du nur ein WORD definiert hast, werden die DS18S20 nie richtig adressiert.
Ich würde ID folgendermassen definieren:

Code:

---


DIM ID1(8) as Byte
DIM ID2(8) as Byte

...

ID1(1) = 1wsearchfirst()

usw.

---

Wenn alles klappt, kannst Du den Code ja mal hier reinstellen.

mfg

AVRWALLI

Hallo AVRWALLI,
danke für den Tipp, man sollte das Datasheet halt genau lesen, jetzt klappts!
Hab nurnoch ein kleines Problem:

Ich bekomm ne Temperatur von 52°C raus, es ist zwar grad richtig heiß, aber 52 hats wohl doch nicht ganz, die Hälfte würde stimmen. Ist das irgandwie in nem anderen Datenformat codiert oder so?, ich versteh da das Datasheet auf S.3 net so ganz.
Datasheet:
http://pdfserv.maxim-ic.com/en/ds/DS1820-DS1820S.pdf

Achja, hier mein Code, ich werd, wenn er komplett fertig ist nen neuen Beitrag aufmachen, wo dann der Code von der kompletten Wetterstation mit RTC, zwei Temp Sensoren und nem Drucksensor als Barometer drin ist.
Hier also meine Code:

Code:

---

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600

Config 1wire = Portb.0

Config Lcd = 40 * 4
Config Lcdpin = Pin , Rs = Portb.6 , Db4 = Portb.7 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.1 , E2 = Portb.2


Dim ___lcdno As Bit
Dim T1 As Byte
Dim T2 As Byte
Dim I As Byte
Dim Id1(8) As Byte
Dim Id2(8) As Byte
Dim Ar1(2) As Byte
Dim Ar2(2) As Byte


 ___lcdno = 0
  Initlcd
  Cursor Off
  Cls

 ___lcdno = 1
 Initlcd
 Cursor Off
 Cls




Id1(1) = 1wsearchfirst()
Id2(1) = 1wsearchnext()


Do
1wreset                                                    'reset
1wwrite &H55                                                'Match Rom command
1wwrite Id1(1) , 8                                          'Id von Sensor 1
1wwrite &H44                                                'Convert T

Waitms 300                                                  'warten bis convert T fertig ist
1wreset                                                    'reset
1wwrite &H55                                                'match rom command
1wwrite Id1(1) , 8                                          'id von sensor 1
1wwrite &HBE                                                'scratchpad lesen
Ar1(1) = 1wread(1)                                          'erstes byte auslesen, da steht Temp drin
Ar1(2) = 1wread(1)                                          'zweites Byte auslesen, wenn 00000000 dann pos vorzeichen, wenn 11111111 dann neg vorzeichen


Waitms 500
1wreset                                                    'reset
1wwrite &H55                                                'Match Rom command
1wwrite Id2(1) , 8                                          'Id von Sensor 2
1wwrite &H44                                                'Convert T

Waitms 300                                                  'warten bis convert T fertig ist
1wreset                                                    'reset
1wwrite &H55                                                'match rom command
1wwrite Id2(1) , 8                                          'id von sensor 2
1wwrite &HBE                                                'scratchpad lesen
Ar2(1) = 1wread(1)                                          'erstes byte auslesen, da steht Temp drin
Ar2(2) = 1wread(1)                                          'zweites Byte auslesen, wenn 00000000 dann pos vorzeichen, wenn 11111111 dann neg vorzeichen

T1 = Ar1(1)
T2 = Ar2(1)






 ___lcdno = 0


  Upperline

    If Ar1(2) = 0 Then                                      'wenn byte 2 aus dem sensor = 0 dann temp pos, sonst neg
      Lcd "Temperatur 1:" ; " " ; T1

    Else
      Lcd "Temperatur 1:" ; "-" ; T1

    End If

  Lowerline

        If Ar2(2) = 0 Then                                  'wenn byte 2 aus dem sensor = 0 dann temp pos, sonst neg
      Lcd "Temperatur 2:" ; " " ; T2

    Else
      Lcd "Temperatur 2:" ; "-" ; T2

    End If

 ___lcdno = 1

  Upperline
  Lcd "ID 1:" ; Id1(1) ; Id1(2) ; Id1(3) ; Id1(4) ; Id1(5) ; Id1(6) ; Id1(7) ; Id1(8)

  Lowerline
  Lcd "ID 2:" ; Id2(1) ; Id2(2) ; Id2(3) ; Id2(4) ; Id2(5) ; Id2(6) ; Id2(7) ; Id2(8)

Waitms 500

Loop

---

Gruß
Florian

Hallo Florian,

so lese ich den DS18S20 aus und rechne um:

Code:

---

Sub 18s20_auslesen
    1wreset Pinc , F                                        ' Reset
    1wwrite Skip_rom , 1 , Pinc , F                        ' Chip ansprechen
    1wwrite Read_ram , 1 , Pinc , F                        ' Befehl zum Auslesen des Rams
    Bd(1) = 1wread(9 , Pinc , F)                            ' 9 Bytes lesen
    1wreset Pinc , F                                        ' Reset
    Temp = Bd(2)
    Shift Temp , Left , 8
    Temp = Temp + Bd(1)
    If Temp > $f000 Then
      Temp = $ffff - Temp
      Temp1 = Temp + 1
      Grad = Temp1 * -0.0625
    Else
      Grad = Temp * 0.0625                                  ' Auflösung 12 Bit
    End If
End Sub

---

In Grad steht die umgerechnete Temperatur. Störe Dich nicht an de Parametern hinter den 1Wire-Befehlen, die geben nur an welcher Port und welcher Pin benutzt werden soll. Denke daran, es müssen 9 Byte ausgelesen werden.
Ich hoffe, es hilft Dir weiter.

mfg

AVRWALLI

Hallo,
ich habe es inzwischen auch hinbekommen, im Datasheet steht ja, dass die ausgeleseneTemperatur durch zwei geteilt werden muss. Ich lese nur die ersten zwei Bytes aus, das reicht ja, ich mache auch keine CRC Prüfung oder so, mir reichen 0,5° Genauigkeit. Im ersten Byte steht ja die Temp und im zweiten das Vorzeichen, mehr brauch ich nicht und es funktioniert auch so.
Hier also mein endgültiger Code:

Code:

---

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600

Config 1wire = Portb.0

Config Lcd = 40 * 4
Config Lcdpin = Pin , Rs = Portb.6 , Db4 = Portb.7 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.1 , E2 = Portb.2


Dim ___lcdno As Bit
Dim T1 As Byte
Dim T2 As Byte
Dim I As Byte
Dim Id1(8) As Byte
Dim Id2(8) As Byte
Dim Ar1(2) As Byte
Dim Ar2(2) As Byte


 ___lcdno = 0
  Initlcd
  Cursor Off
  Cls

 ___lcdno = 1
 Initlcd
 Cursor Off
 Cls




Id1(1) = 1wsearchfirst()
Id2(1) = 1wsearchnext()


Do
1wreset                                                    'reset
1wwrite &H55                                                'Match Rom command
1wwrite Id1(1) , 8                                          'Id von Sensor 1
1wwrite &H44                                                'Convert T

Waitms 300                                                  'warten bis convert T fertig ist
1wreset                                                    'reset
1wwrite &H55                                                'match rom command
1wwrite Id1(1) , 8                                          'id von sensor 1
1wwrite &HBE                                                'scratchpad lesen
Ar1(1) = 1wread(1)                                          'erstes byte auslesen, da steht Temp drin
Ar1(2) = 1wread(1)                                          'zweites Byte auslesen, wenn 00000000 dann pos vorzeichen, wenn 11111111 dann neg vorzeichen


Waitms 500
1wreset                                                    'reset
1wwrite &H55                                                'Match Rom command
1wwrite Id2(1) , 8                                          'Id von Sensor 2
1wwrite &H44                                                'Convert T

Waitms 300                                                  'warten bis convert T fertig ist
1wreset                                                    'reset
1wwrite &H55                                                'match rom command
1wwrite Id2(1) , 8                                          'id von sensor 2
1wwrite &HBE                                                'scratchpad lesen
Ar2(1) = 1wread(1)                                          'erstes byte auslesen, da steht Temp drin
Ar2(2) = 1wread(1)                                          'zweites Byte auslesen, wenn 00000000 dann pos vorzeichen, wenn 11111111 dann neg vorzeichen

T1 = Ar1(1) / 2
T2 = Ar2(1) / 2






 ___lcdno = 0


  Upperline

    If Ar1(2) = 0 Then                                      'wenn byte 2 aus dem sensor = 0 dann temp pos, sonst neg
      Lcd "Temperatur 1:" ; " " ; T1

    Else
      Lcd "Temperatur 1:" ; "-" ; T1

    End If

  Lowerline

        If Ar2(2) = 0 Then                                  'wenn byte 2 aus dem sensor = 0 dann temp pos, sonst neg
      Lcd "Temperatur 2:" ; " " ; T2

    Else
      Lcd "Temperatur 2:" ; "-" ; T2

    End If

 ___lcdno = 1

  Upperline
  Lcd "ID 1:" ; Id1(1) ; Id1(2) ; Id1(3) ; Id1(4) ; Id1(5) ; Id1(6) ; Id1(7) ; Id1(8)

  Lowerline
  Lcd "ID 2:" ; Id2(1) ; Id2(2) ; Id2(3) ; Id2(4) ; Id2(5) ; Id2(6) ; Id2(7) ; Id2(8)

Waitms 500

Loop

---

Gruß und Danke
Florian

Ich weiß, der Thread ist schon sehr alt.

Die 2 Code's hier sind ja echt wunderbar =D>
Habe diese nur noch mal zusammengefasst und auf eine Kommastelle gebracht.
Also 2 DS1820 mit 0,1 Grad Auflösung.
Wen es interessiert:

Code:

---

  $regfile = "m32def.dat"
  $framesize = 32
  $swstack = 256
  $hwstack = 128
  $crystal = 16000000
  $baud = 9600

Config 1wire = Portd.6

Dim T As Integer
Dim T1 As Integer
Dim T2 As Integer
Dim T3 As Integer
Dim T4 As String * 10
Dim T5 As String * 10
Dim T6 As Single
Dim T7 As Single
Dim Id1(8) As Byte
Dim Id2(8) As Byte
Dim Ar1(9) As Byte
Dim Ar2(9) As Byte
Dim I As Byte , Tmp As Byte , Tmp2 As Byte
Dim Crc As Byte

Declare Sub Crcit
Declare Sub Crcit2

Id1(1) = 1wsearchfirst()
Id2(1) = 1wsearchnext()


Do
Print " "
1wreset
1wwrite &H55
1wwrite Id1(1) , 8
1wwrite &H44

Waitms 300
1wreset
1wwrite &H55
1wwrite Id1(1) , 8
1wwrite &HBE
Ar1(1) = 1wread(9)
1wreset
Crcit
If Crc = 0 Then
      Tmp = Ar1(1) And 1
      If Tmp = 1 Then Decr Ar1(1)
      T = Makeint(ar1(1) , Ar1(2))
      T = T * 50
      T = T - 25
      T1 = Ar1(8) - Ar1(7)
      T1 = T1 * 100
      T1 = T1 / Ar1(8)
      T = T + T1
      T = T / 10
      T6 = T / 10
      T4 = Fusing(t6 , "#.#")

End If

Waitms 500
1wreset
1wwrite &H55
1wwrite Id2(1) , 8
1wwrite &H44

Waitms 300
1wreset
1wwrite &H55
1wwrite Id2(1) , 8
1wwrite &HBE
Ar2(1) = 1wread(9)
1wreset
Crcit2
If Crc = 0 Then
      Tmp2 = Ar2(1) And 1
      If Tmp2 = 1 Then Decr Ar2(1)
      T2 = Makeint(ar2(1) , Ar2(2))
      T2 = T2 * 50
      T2 = T2 - 25
      T3 = Ar2(8) - Ar2(7)
      T3 = T3 * 100
      T3 = T3 / Ar2(8)
      T2 = T2 + T3
      T2 = T2 / 10
      T7 = T2 / 10
      T5 = Fusing(t7 , "#.#")

End If




Print "Temperatur in der Botwanne:" ; " " ; T4 ; " " ; "Grad Celsius"
Print "Temperatur am Gehäuse:" ; "  " ; " " ; T5 ; " " ; "Grad Celsius"

Waitms 500

Loop

Sub Crcit

  Crc = 0
  For I = 1 To 9
      Tmp = Crc Xor Ar1(i)
      Crc = Lookup(tmp , Crc8)
  Next
End Sub

Sub Crcit2

  Crc = 0
  For I = 1 To 9
      Tmp2 = Crc Xor Ar2(i)
      Crc = Lookup(tmp2 , Crc8)
  Next
End Sub
'//////////////////////////////////////////////////////////////////////////////


Crc8:
Data 0 , 94 , 188 , 226 , 97 , 63 , 221 , 131 , 194 , 156
Data 126 , 32 , 163 , 253 , 31 , 65 , 157 , 195 , 33 , 127
Data 252 , 162 , 64 , 30 , 95 , 1 , 227 , 189 , 62 , 96
Data 130 , 220 , 35 , 125 , 159 , 193 , 66 , 28 , 254 , 160
Data 225 , 191 , 93 , 3 , 128 , 222 , 60 , 98 , 190 , 224
Data 2 , 92 , 223 , 129 , 99 , 61 , 124 , 34 , 192 , 158
Data 29 , 67 , 161 , 255 , 70 , 24 , 250 , 164 , 39 , 121
Data 155 , 197 , 132 , 218 , 56 , 102 , 229 , 187 , 89 , 7
Data 219 , 133 , 103 , 57 , 186 , 228 , 6 , 88 , 25 , 71
Data 165 , 251 , 120 , 38 , 196 , 154 , 101 , 59 , 217 , 135
Data 4 , 90 , 184 , 230 , 167 , 249 , 27 , 69 , 198 , 152
Data 122 , 36 , 248 , 166 , 68 , 26 , 153 , 199 , 37 , 123
Data 58 , 100 , 134 , 216 , 91 , 5 , 231 , 185 , 140 , 210
Data 48 , 110 , 237 , 179 , 81 , 15 , 78 , 16 , 242 , 172
Data 47 , 113 , 147 , 205 , 17 , 79 , 173 , 243 , 112 , 46
Data 204 , 146 , 211 , 141 , 111 , 49 , 178 , 236 , 14 , 80
Data 175 , 241 , 19 , 77 , 206 , 144 , 114 , 44 , 109 , 51
Data 209 , 143 , 12 , 82 , 176 , 238 , 50 , 108 , 142 , 208
Data 83 , 13 , 239 , 177 , 240 , 174 , 76 , 18 , 145 , 207
Data 45 , 115 , 202 , 148 , 118 , 40 , 171 , 245 , 23 , 73
Data 8 , 86 , 180 , 234 , 105 , 55 , 213 , 139 , 87 , 9
Data 235 , 181 , 54 , 104 , 138 , 212 , 149 , 203 , 41 , 119
Data 244 , 170 , 72 , 22 , 233 , 183 , 85 , 11 , 136 , 214
Data 52 , 106 , 43 , 117 , 151 , 201 , 74 , 20 , 246 , 168
Data 116 , 42 , 200 , 150 , 21 , 75 , 169 , 21 , 75 , 169

---

Hallo Reeper,

du scheinst dich gut auszukennen, darum zwei Fragen (gilt natürlich auch für andere, die mir dabei helfen können ;-) ) :

Die Temperstursensoren (TS) werden ja mit 1wsearchfirst und 1wsearchnext angesprochen. Wird dann der erste in der Leitung als 1 erkannt, oder ist der mit der niedrigsten Seriennummer der erste ?

Gibt es eine Möglichkeit, daß Bascom selber erkennt wieviele TS angeschlossen sind und diese dann ausgibt (also TS1 ... TSn) und wenn ja, wie würde diese aussehen ?
Ich bräuchte das Prog für 10 Sensoren und das ganze zig mal zu kopieren und ewig viele Variablen du dimensionieren erscheint mir etwas irrwitzig.
Rein pragmatisch würde ich mal nach allen in der Leitung suchen lassen und diese durch eine Schleife dann nacheinander 'abklappern'.
Ok, vielleicht geht's auch nicht anders aber dazu habe ich nun doch zu wenig Ahnung. So weit bin ich mit meinen Mega32 Kenntnissen noch nicht.