Bascom und 1-Wire - Versionsgeschichte

J-g-s am 19. Juli 2014 um 18:22 Uhr

2014-07-19T18:22:03Z

J-g-s am 19. Juli 2014 um 18:10 Uhr

2014-07-19T18:10:26Z

Holzi am 21. Juni 2009 um 06:18 Uhr

2009-06-21T06:18:04Z

Besserwessi: /* Weblinks */

2009-06-19T14:09:40Z

‎Weblinks

Murph am 12. Oktober 2008 um 16:16 Uhr

2008-10-12T16:16:58Z

Linux 80: Zeile war verschluckt

2008-09-07T19:45:12Z

Zeile war verschluckt

Linux 80: DB Link und ID des 18S20

2008-09-06T10:12:16Z

DB Link und ID des 18S20

Linux 80: Neu

2008-08-23T01:16:33Z

Neu

Neue Seite

In diesem Artikel folgen einige Programmbeispiele, in denen gezeigt wird wie Bascom über den 1-Wire-Bus kommuniziert.

1-Wire (Eindraht) ist eine serielle Schnittstelle, die mit nur einer Datenleitung auskommt, die gleichzeitig auch noch als Stromversorgung genutzt werden kann.
Aufgrund der Einfachheit kann diese Schnittstelle leicht in Software auf einem Mikrocontroller nachgebildet werden.

In Bascom sind [[Bascom#1WIRE_Bus|Befehle]] für die 1-Wire-Kommunikation enthalten, sodass der Programmierer sich nicht um das Protokoll und das Timing der Übertragung kümmern muss.

Es gibt 1-Wire-Geräte mit verschiedenen Funktionen, in der Roboterwelt dürfte einer der bekanntesten der Temperatursensor DS18S20 (bzw. DS18B20) sein, deswegen wird dieser in den Beipielen verwendet.

== Beschaltung ==

Die Beschaltung rund um den DS18B20 sieht so aus:

[[Bild:1Wire-DS1820.png]]

== Ablauf der Kommunikation ==

Die Kommunikation mit dem 1-Wire-Gerät muss immer diesen Ablauf haben:

* Initialisierung
* "ROM Function" Befehl
* "Memory Function" Befehl
* Übertragung/Daten

Aus diesem Ablauf ergeben sich die beiden folgenden Programmabläufe.

== Kommunikation mit nur einem Gerät ==

Wenn sich nur ein einziges Gerät am Bus befindet kann man diese kurze Version der Kommunikation verwenden. Ein ROM-Befehl ist dabei nicht notwendig und kann übersprungen werden, dies muss aber dem Gerät mitgeteilt werden.

Beispiel:
{{vbcomment|Minimalprogramm für Temperaturmessung}}
Config 1wire = Portc.7

Dim Sp(9) As Byte

1wreset {{vbcomment|Initialisierung}}
1wwrite &HCC {{vbcomment|überspringe ROM-Befehl}}
1wwrite &H44 {{vbcomment|Temperaturmessung anstoßen}}

Waitms 500 {{vbcomment|warten bis Messung fertig}}

1wreset {{vbcomment|Initialisierung}}
1wwrite &HCC {{vbcomment|überspringe ROM-Befehl}}
1wwrite &HBE {{vbcomment|Temperatur auslesen}}
Sp(1) = 1wread(9) {{vbcomment|Daten in ein Array lesen}}

Wait 1

Im Array Sp() stehen die Daten des Gerätes die dann Anhand des Datenblattes ausgewertet werden.

== Kommunikation mit mehreren Geräten ==

Wenn sich mehrere Geräte am 1-Wire-Bus befinden, müssen diese jeweils Adressiert werden um mit dem gewünschten Gerät in Kontakt zu treten. Zum Adressieren wird die Seriennummer verwendet, die in jedem 1-Wire-Gerät eindeutig vorhanden ist. Um an diese Seriennummer zu kommen gibt es zwei Strategien.

Entweder man liest bei allen Geräten vorher einzeln diese Nr. aus, um diese in das eigentliche Programm einzutragen (kürzer), oder man sucht beim Programmstart jedesmal nach vorhandenen Geräten (flexibler).

=== SerienNr einzeln auslesen ===

Config 1wire = Portc.7

Dim Ar(8) As Byte

1wreset
1wwrite &H33 {{vbcomment|ROM-Befehl zum lesen der SerienNr}}
Ar(1) = 1wread(8) {{vbcomment|8 Bytes lesen}}

For I = 1 To 8
Print Hex(ar(i)); {{vbcomment|Ausgeben}}
Print " ";
Next

Print

Wait 1

Im Array Ar() befindet sich somit die SerienNr des Gerätes.

=== SerienNr aller Geräte ===

$regfile = "M32def.dat"
$crystal = 16000000
$baud = 38400

Config 1wire = Portc.7

Dim Ar(8) As Byte {{vbcomment|Array für SerienNr.}}
Dim I As Byte
Dim W As Word

Sound Portd.7 , 400 , 450 {{vbcomment|BEEP bei RN-Control}}

Print
Print "1-Wire"

Wait 1

Ar(1) = 1wsearchfirst()

{{vbcomment|gibts überhaupt ein Gerät}}
If Err = 0 Then
For I = 1 To 8
Print Hex(ar(i)); {{vbcomment|Ausgabe der ersten SerienNr.}}
Print " ";
Next
Print

Do
{{vbcomment|Nach weiteren Geräte suchen}}
Ar(1) = 1wsearchnext()
{{vbcomment|war noch ein weiteres Gerät da}}
If Err = 0 Then
For I = 1 To 8
Print Hex(ar(i)); {{vbcomment|Ausgabe der letzten SerienNr.}}
Print " ";
Next
Print

End If

Loop Until Err = 1 {{vbcomment|solange bis sich kein weiteres Gerät mehr meldet.}}

End If

Print "Fertig"

W = 1wirecount() {{vbcomment|Anzahl der gefundenen Geräte zählen}}

Print "Anzahl ";
Print W

Do
Loop

End

Am ersten Byte der SerienNr ist zu erkennen um welches Gerät es sich handelt, beim DS18B20 ist es die &H28.

=== Bestimmtes Gerät ansprechen ===

Um bei mehreren vorhandenen Geräten ein bestimmtes anzusprechen muss es mit der SerienNr adressiert werden.

Do
1wverify Ar(1) {{vbcomment|Gerät mit der SerienNr. aus Ar() auswählen}}
{{vbcomment|Gerät vorhanden}}
If Err = 0 Then

1wwrite &H44 {{vbcomment|Temperaturmessung anstoßen}}

Waitms 500 {{vbcomment|warten bis Messung fertig}}

1wverify Ar(1) {{vbcomment|Gerät mit der SerienNr. aus Ar() auswählen}}
1wwrite &HBE {{vbcomment|Temperatur auslesen}}
Sp(1) = 1wread(9) {{vbcomment|Daten in ein Array lesen}}

For I = 1 To 9
Print Hex(sp(i));
Next
Print

{{vbcomment|Nur für die Temperatur wichtige Daten ausgeben}}
Print Hex(sp(2));
Print Hex(sp(1))

Else
Print "Fehler"
End If

Wait 1

Loop

Die SerienNr. des gewünschten Gerätes muss im Array Ar() stehen, bevor es mit <tt>1wverify</tt> gesucht wird, dies ist auch gleichzeitig der ROM-Befehl, diesem kann der Memory-Befehl folgen, und anschließend die Daten übertragen werden.

== Prüfsumme ==

Da wegen der einen Datenleitung durchaus mit Störungen zu rechnen ist, wird jeder Übertragung ein Prüfbyte angehängt, mit dem sich die Korrektheit der Daten überprüfen lässt.

Config 1wire = Portc.7

Dim Ar(8) As Byte {{vbcomment|Array für SerienNr}}
Dim I As Byte

1wreset
If Err = 0 Then
1wwrite &H33 {{vbcomment|ROM-Befehl zum lesen der SerienNr.}}
For I = 1 To 8
Print Hex(ar(i)); {{vbcomment|Ausgabe der SerienNr.}}
Print " ";
Next
Print

Print Hex(crc8(ar(1) , 7) ) {{vbcomment|Prüfsumme ausgeben}}

If Ar(8) = Crc8(ar(1) , 7) Then {{vbcomment|Prüfsumme vergleichen}}
Print "Daten OK"
Else
Print "Fehler"
End If

End If

Wenn das letzte Byte der Übertragung und die berechnete Prüfsumme aus den Bytes 1-7 übereinstimmt, war die Übertragung erfolgreich, und die Daten können weiterverarbeitet werden.
Beim auslesen der Temperatur werden 9 Bytes übertragen, deshalb müssen zum berechnen der Prüfsumme Byte 1-8 einbezogen werden.

== Parasitäre Stromversorgung ==

Da bei der Schaltung von oben eigentlich drei Leitungen benötigt werden, statt der einen wie man vermuten könnte, ist es mit der folgenden Schaltung immerhin möglich die Anzahl auf zwei Leitungen zu reduzieren.

[[Bild:1Wire-DS1820_parasit.png]]

Es ist aber Abhängig vom Gerät und den Umgebungsbedingungen ob es sich immer so lösen lässt. Ein Blick ins Datenblatt hilft da weiter.

== Siehe auch ==

* [[Bascom]]
* [[Bascom#1WIRE_Bus|1-Wire Bascom-Befehle]]
* [[Avr]]

== Weblinks ==

* [http://www.maxim-ic.com/quick_view2.cfm?qv_pk=2812] - Datenblatt zu DS18B20

--[[Benutzer:Linux 80|Linux 80]] 03:16, 23. Aug 2008 (CEST)

[[Kategorie:Abkürzung]]
[[Kategorie:Grundlagen]]
[[Kategorie:Kommunikation]]
[[Kategorie:Microcontroller]]
[[Kategorie:Elektronik]]
[[Kategorie:Praxis]]
[[Kategorie:Software]]
[[Kategorie:Quellcode Bascom]]

@@ Zeile 47: / Zeile 47: @@
 wwrite &HCC                                    {{vbcomment|überspringe ROM-Befehl}}
 wwrite &HBE                                    {{vbcomment|Temperatur auslesen}}
-  Sep(1) = 1wread(9)                               {{vbcomment|Daten in ein Array lesen}}
+  Sep(1) = 1wread(9)                               {{vbcomment|Daten in ein Array lesen, beschreibt Sep(1) bis Sep(9)}}
   Wait 1
@@ Zeile 69: / Zeile 69: @@
 wreset
 wwrite &H33                                        {{vbcomment|ROM-Befehl zum lesen der SerienNr}}
-  Ar(1) = 1wread(8)                                   {{vbcomment|8 Bytes lesen}}
+  Ar(1) = 1wread(8)                                   {{vbcomment|8 Bytes lesen, beschreibt Ar(1) bis Ar(8)}}
   For I = 1 To 8
@@ Zeile 102: / Zeile 102: @@
   Wait 1
-  Ar(1) = 1wsearchfirst()
+  Ar(1) = 1wsearchfirst()                            {{vbcomment|8 Bytes lesen, beschreibt Ar(1) bis Ar(8)}}
   {{vbcomment|gibts überhaupt ein Ger&auml;t}}
@@ Zeile 116: / Zeile 116: @@
           {{vbcomment|Nach weiterem Ger&auml;t suchen}}
-          Ar(1) = 1wsearchnext()
+          Ar(1) = 1wsearchnext()                   {{vbcomment| Seriennummer vom &auml;chste Sensor, beschreibt Ar(1) bis Ar(8)}}
       Loop Until Err = 1                       {{vbcomment|solange bis sich kein weiteres Ger&auml;t mehr meldet.}}
@@ Zeile 150: / Zeile 150: @@
           Waitms 500                                 {{vbcomment|warten bis Messung fertig}}
-wverify Ar(1)                             {{vbcomment|Ger&auml;t mit der SerienNr. aus Ar() auswählen}}
+wverify Ar(1)                             {{vbcomment|Ger&auml;t mit der SerienNr. aus Ar(1)...Ar(8) auswählen}}
 wwrite &HBE                               {{vbcomment|Temperatur auslesen}}
-          Sep(1) = 1wread(9)                          {{vbcomment|Daten in ein Array lesen, beschreibt Sep(1), Sep(2), bis Sep(9)}}
+          Sep(1) = 1wread(9)                          {{vbcomment|Daten in ein Array lesen, beschreibt Sep(1) bis Sep(9)}}
           For I = 1 To 9
@@ Zeile 162: / Zeile 162: @@
           Print Hex(sep(2));
           Print Hex(sep(1))
+         {{vbcomment| High und Low-Byte, nach Datenblatt zusammen setzen und berechnen...}}
       Else
           Print "Fehler"

← Nächstältere Version		Version vom 21. Juni 2009, 06:18 Uhr
Zeile 1:		Zeile 1:
−	In diesem Artikel folgen einige Programmbeispiele, in denen gezeigt wird wie Bascom über den 1-Wire-Bus kommuniziert.	+	In diesem Artikel folgen einige Programmbeispiele, in denen gezeigt wird, wie Bascom über den 1-Wire-Bus kommuniziert.

	1-Wire (Eindraht) ist eine serielle Schnittstelle, die mit nur einer Datenleitung auskommt, die gleichzeitig auch noch als Stromversorgung genutzt werden kann.		1-Wire (Eindraht) ist eine serielle Schnittstelle, die mit nur einer Datenleitung auskommt, die gleichzeitig auch noch als Stromversorgung genutzt werden kann.

← Nächstältere Version		Version vom 12. Oktober 2008, 16:16 Uhr
Zeile 6:		Zeile 6:
	In Bascom sind [[Bascom#1WIRE_Bus\|Befehle]] für die 1-Wire-Kommunikation enthalten, sodass der Programmierer sich nicht um das Protokoll und das Timing der Übertragung kümmern muss.		In Bascom sind [[Bascom#1WIRE_Bus\|Befehle]] für die 1-Wire-Kommunikation enthalten, sodass der Programmierer sich nicht um das Protokoll und das Timing der Übertragung kümmern muss.

−	Es gibt 1-Wire-Geräte mit verschiedenen Funktionen, in der Roboterwelt dürfte einer der bekanntesten der Temperatursensor DS18S20 (bzw. DS18B20) sein, deswegen wird dieser in den ~~Beipielen~~ verwendet.	+	Es gibt 1-Wire-Geräte mit verschiedenen Funktionen, in der Roboterwelt dürfte einer der bekanntesten der Temperatursensor DS18S20 (bzw. DS18B20) sein, deswegen wird dieser in den Beispielen verwendet.

@@ Zeile 36: / Zeile 36: @@
   Config 1wire = Portc.7
-  Dim Sp(9) As Byte
+  Dim Sep(9) As Byte
 wreset                                         {{vbcomment|Initialisierung}}
@@ Zeile 47: / Zeile 47: @@
 wwrite &HCC                                    {{vbcomment|überspringe ROM-Befehl}}
 wwrite &HBE                                    {{vbcomment|Temperatur auslesen}}
-  Sp(1) = 1wread(9)                               {{vbcomment|Daten in ein Array lesen}}
+  Sep(1) = 1wread(9)                               {{vbcomment|Daten in ein Array lesen}}
   Wait 1
-Im Array Sp() stehen die Daten des Gerätes die dann Anhand des Datenblattes ausgewertet werden.
+Im Array Sep() stehen die Daten des Gerätes die dann Anhand des Datenblattes ausgewertet werden.
@@ Zeile 152: / Zeile 152: @@
 wverify Ar(1)                             {{vbcomment|Ger&auml;t mit der SerienNr. aus Ar() auswählen}}
 wwrite &HBE                               {{vbcomment|Temperatur auslesen}}
-          Sp(1) = 1wread(9)                          {{vbcomment|Daten in ein Array lesen}}
+          Sep(1) = 1wread(9)                          {{vbcomment|Daten in ein Array lesen, beschreibt Sep(1), Sep(2), bis Sep(9)}}
           For I = 1 To 9
-              Print Hex(sp(i));
+              Print Hex(sep(i));
           Next
           Print
           {{vbcomment|Nur für die Temperatur wichtige Daten ausgeben}}
-          Print Hex(sp(2));
+          Print Hex(sep(2));
-          Print Hex(sp(1))
+          Print Hex(sep(1))
       Else

@@ Zeile 236: / Zeile 236: @@
 [[Kategorie:Kommunikation]]
 [[Kategorie:Microcontroller]]
 [[Kategorie:Praxis]]
 [[Kategorie:Software]]
 [[Kategorie:Quellcode Bascom]]

@@ Zeile 68: / Zeile 68: @@
 wreset
-wwrite &H33                                            {{vbcomment|ROM-Befehl zum lesen der SerienNr}}
+wwrite &H33                                        {{vbcomment|ROM-Befehl zum lesen der SerienNr}}
-  Ar(1) = 1wread(8)                                       {{vbcomment|8 Bytes lesen}}
+  Ar(1) = 1wread(8)                                   {{vbcomment|8 Bytes lesen}}
   For I = 1 To 8
-      Print Hex(ar(i));                                   {{vbcomment|Ausgeben}}
+      Print Hex(ar(i));                               {{vbcomment|Ausgeben}}
       Print " ";
   Next
@@ Zeile 91: / Zeile 91: @@
   Config 1wire = Portc.7
-  Dim Ar(8) As Byte                                           {{vbcomment|Array für SerienNr.}}
+  Dim Ar(8) As Byte                                   {{vbcomment|Array für SerienNr.}}
   Dim I As Byte
   Dim W As Word
-  Sound Portd.7 , 400 , 450                                   {{vbcomment|BEEP bei RN-Control}}
+  Sound Portd.7 , 400 , 450                           {{vbcomment|BEEP bei RN-Control}}
   Print
@@ Zeile 104: / Zeile 104: @@
   Ar(1) = 1wsearchfirst()
-  {{vbcomment|gibts überhaupt ein Gerät}}
+  {{vbcomment|gibts überhaupt ein Ger&auml;t}}
   If Err = 0 Then
@@ Zeile 115: / Zeile 115: @@
           Print
-          {{vbcomment|Nach weiteren Geräte suchen}}
+          {{vbcomment|Nach weiterem Ger&auml;t suchen}}
           Ar(1) = 1wsearchnext()
@@ Zeile 134: / Zeile 134: @@
   End
-Am ersten Byte der SerienNr (Family-Code) ist zu erkennen um welches Gerät es sich handelt, beim DS18B20 ist es die &amp;H28, beim DS18S20 die &amp;H10. Da beide unterschiedliche Formate beim Temperaturwert haben, kann die Berechnung anhand des Family-Code angepasst werden.
+Am ersten Byte der SerienNr (Family-Code) ist zu erkennen um welches Ger&auml;t es sich handelt, beim DS18B20 ist es die &amp;H28, beim DS18S20 die &amp;H10. Da beide unterschiedliche Formate beim Temperaturwert haben, kann die Berechnung anhand des Family-Code angepasst werden.
 === Bestimmtes Gerät ansprechen ===
-Um bei mehreren vorhandenen Geräten ein bestimmtes anzusprechen muss es mit der SerienNr adressiert werden.
+Um bei mehreren vorhandenen Ger&auml;ten ein bestimmtes anzusprechen muss es mit der SerienNr adressiert werden.
   Do
-wverify Ar(1)                                     {{vbcomment|Gerät mit der SerienNr. aus Ar() auswählen}}
+wverify Ar(1)                                 {{vbcomment|Ger&auml;t mit der SerienNr. aus Ar() auswählen}}
       {{vbcomment|Gerät vorhanden}}
       If Err = 0 Then
-wwrite &H44                                   {{vbcomment|Temperaturmessung anstoßen}}
+wwrite &H44                               {{vbcomment|Temperaturmessung anstoßen}}
-          Waitms 500                                     {{vbcomment|warten bis Messung fertig}}
+          Waitms 500                                 {{vbcomment|warten bis Messung fertig}}
-wverify Ar(1)                                 {{vbcomment|Gerät mit der SerienNr. aus Ar() auswählen}}
+wverify Ar(1)                             {{vbcomment|Ger&auml;t mit der SerienNr. aus Ar() auswählen}}
-wwrite &HBE                                   {{vbcomment|Temperatur auslesen}}
+wwrite &HBE                               {{vbcomment|Temperatur auslesen}}
-          Sp(1) = 1wread(9)                              {{vbcomment|Daten in ein Array lesen}}
+          Sp(1) = 1wread(9)                          {{vbcomment|Daten in ein Array lesen}}
           For I = 1 To 9
@@ Zeile 171: / Zeile 171: @@
   Loop
-Die SerienNr. des gewünschten Gerätes muss im Array Ar() stehen, bevor es mit <tt>1wverify</tt> gesucht wird, dies ist auch gleichzeitig der ROM-Befehl, diesem kann der Memory-Befehl folgen, und anschließend die Daten übertragen werden.
+Die SerienNr. des gew&uuml;nschten Ger&auml;tes muss im Array Ar() stehen, bevor es mit <tt>1wverify</tt> gesucht wird, dies ist auch gleichzeitig der ROM-Befehl, diesem kann der Memory-Befehl folgen, und anschlie&szlig;end die Daten übertragen werden.
 == Prüfsumme ==
-Da wegen der einen Datenleitung durchaus mit Störungen zu rechnen ist, wird jeder Übertragung ein Prüfbyte angehängt, mit dem sich die Korrektheit der Daten überprüfen lässt.
+Da wegen der einen Datenleitung durchaus mit St&ouml;rungen zu rechnen ist, wird jeder &Uuml;bertragung ein Pr&uuml;fbyte angehängt, mit dem sich die Korrektheit der Daten überpr&uuml;fen lässt.
-−
   Config 1wire = Portc.7
-  Dim Ar(8) As Byte                                           {{vbcomment|Array für SerienNr}}
+  Dim Ar(8) As Byte                                   {{vbcomment|Array für SerienNr}}
   Dim I As Byte
 wreset
   If Err = 0 Then
-wwrite &H33                                            {{vbcomment|ROM-Befehl zum lesen der SerienNr.}}
+wwrite &H33                                    {{vbcomment|ROM-Befehl zum lesen der SerienNr.}}
       For I = 1 To 8
-          Print Hex(ar(i));                                   {{vbcomment|Ausgabe der SerienNr.}}
+          Print Hex(ar(i));                           {{vbcomment|Ausgabe der SerienNr.}}
           Print " ";
       Next
       Print
-      Print Hex(crc8(ar(1) , 7) )                             {{vbcomment|Prüfsumme ausgeben}}
+      Print Hex(crc8(ar(1) , 7) )                     {{vbcomment|Pr&uuml;fsumme ausgeben}}
-      If Ar(8) = Crc8(ar(1) , 7) Then                         {{vbcomment|Prüfsumme vergleichen}}
+      If Ar(8) = Crc8(ar(1) , 7) Then                 {{vbcomment|Pr&uuml;fsumme vergleichen}}
           Print "Daten OK"
       Else
@@ Zeile 203: / Zeile 204: @@
   End If
-Wenn das letzte Byte der Übertragung und die berechnete Prüfsumme aus den Bytes 1-7 übereinstimmt, war die Übertragung erfolgreich, und die Daten können weiterverarbeitet werden.
+Wenn das letzte Byte der Übertragung und die berechnete Pr&uuml;fsumme aus den Bytes 1-7 übereinstimmt, war die &Uuml;bertragung erfolgreich, und die Daten k&ouml;nnen weiterverarbeitet werden.
-Beim auslesen der Temperatur werden 9 Bytes übertragen, deshalb müssen zum berechnen der Prüfsumme Byte 1-8 einbezogen werden.
+Beim auslesen der Temperatur werden 9 Bytes &uuml;bertragen, deshalb m&uuml;ssen zum berechnen der Pr&uuml;fsumme Byte 1-8 einbezogen werden.
 == Parasitäre Stromversorgung ==
-Da bei der Schaltung von oben eigentlich drei Leitungen benötigt werden, statt der einen wie man vermuten könnte, ist es mit der folgenden Schaltung immerhin möglich die Anzahl auf zwei Leitungen zu reduzieren.
+Da bei der Schaltung von oben eigentlich drei Leitungen ben&ouml;tigt werden, statt der einen wie man vermuten k&ouml;nnte, ist es mit der folgenden Schaltung immerhin m&ouml;glich die Anzahl auf zwei Leitungen zu reduzieren.
 [[Bild:1Wire-DS1820_parasit.png]]
-Es ist aber Abhängig vom Gerät und den Umgebungsbedingungen ob es sich immer so lösen lässt. Ein Blick ins Datenblatt hilft da weiter.
+Es ist aber Abh&auml;ngig vom Ger&auml;t und den Umgebungsbedingungen ob es sich immer so l&ouml;sen l&auml;sst. Ein Blick ins Datenblatt hilft da weiter.

@@ Zeile 58: / Zeile 58: @@
 Wenn sich mehrere Geräte am 1-Wire-Bus befinden, müssen diese jeweils Adressiert werden um mit dem gewünschten Gerät in Kontakt zu treten. Zum Adressieren wird die Seriennummer verwendet, die in jedem 1-Wire-Gerät eindeutig vorhanden ist. Um an diese Seriennummer zu kommen gibt es zwei Strategien.
-Entweder man liest bei allen Geräten vorher einzeln diese Nr. aus, um diese in das eigentliche Programm einzutragen (kürzer), oder man sucht beim Programmstart jedesmal nach vorhandenen Geräten (flexibler).
+Entweder man liest bei allen Geräten vorher einzeln diese Nr. aus, um diese in das eigentliche Programm einzutragen (kürzer), oder man sucht beim Programmstart jedesmal nach vorhandenen Ger&auml;ten (flexibler).
@@ Zeile 106: / Zeile 106: @@
   {{vbcomment|gibts überhaupt ein Gerät}}
   If Err = 0 Then
       Do
           {{vbcomment|Nach weiteren Geräte suchen}}
           Ar(1) = 1wsearchnext()
-      Loop Until Err = 1                          {{vbcomment|solange bis sich kein weiteres Gerät mehr meldet.}}
+      Loop Until Err = 1                       {{vbcomment|solange bis sich kein weiteres Ger&auml;t mehr meldet.}}
   End If
@@ Zeile 131: / Zeile 124: @@
   Print "Fertig"
-  W = 1wirecount()                                {{vbcomment|Anzahl der gefundenen Geräte zählen}}
+  W = 1wirecount()                                {{vbcomment|Anzahl der gefundenen Ger&auml;te z&auml;hlen}}
   Print "Anzahl ";
@@ Zeile 141: / Zeile 134: @@
   End
-Am ersten Byte der SerienNr ist zu erkennen um welches Gerät es sich handelt, beim DS18B20 ist es die &amp;H28.
+Am ersten Byte der SerienNr (Family-Code) ist zu erkennen um welches Gerät es sich handelt, beim DS18B20 ist es die &amp;H28, beim DS18S20 die &amp;H10. Da beide unterschiedliche Formate beim Temperaturwert haben, kann die Berechnung anhand des Family-Code angepasst werden.
@@ Zeile 233: / Zeile 226: @@
 * [http://www.maxim-ic.com/quick_view2.cfm?qv_pk=2812] - Datenblatt zu DS18B20