Leider steht der Rechner und das Gerät mit der Elektronik ung. 70km
auf der Baustelle. Ich kann von dort jedoch ins Netz.
UNGEFÄHR!!! sieht der Code ao aus, als Auszug:



Config 1wire = Portd.5
Config 1wire = Portd.6
Config 1wire = Portd.7
Dim Sp(9) As Byte

for x = 5 to 7

1wreset , pind , x
1wwrite &HCC , pind, x
1wwrite &H44 , pind , x

Waitms 512

1wreset , pind , x
1wwrite &HCC , pind , x
1wwrite &HBE . pind , x
Sp(1) = 1wread(9 , pind ,x)

"Array auslesen und drucken ok"

Wait 1

next

---------------------------------------------
Wenns funktioniert, wird natürlich der
Anwendung angepasst. VG Micha