1-Wire Sensor, Frage bzgl Code

[Floschy]

Hallo zusammen,

ich möchte den folgenden Code (1:1 übernommen) so abändern, das ständig nach weiteren 1-Wire Adressen gesucht wird.
Soll heißen: Ich habe ein Gerät auf dem ein DS1822 integriert ist. Diesen Teste ich mit einen Adapter.
Danach klemme ich es ab und schließe das nächste Gerät an.

Kann mir jemand beim Code helfen? Brauche ich bloß "loop" rausnehmen?

Danke schonmal.

$regfile = "M8def.dat"
$crystal = 12000000
$baud = 38400

Config 1wire = Portc.7

Dim Ar(8) As Byte                                   ' Array für SerienNr. 
Dim I As Byte
Dim W As Word

Sound Portd.7 , 400 , 450                           
Print
Print "1-Wire"

Wait 1

Ar(1) = 1wsearchfirst()

' gibts überhaupt ein Gerät 
If Err = 0 Then

    Do
        ' Ausgabe der SerienNr. 
        For I = 1 To 8
            Print Hex(ar(i));
            Print " ";
        Next
        Print

        ' Nach weiterem Gerät suchen 
        Ar(1) = 1wsearchnext()

    Loop Until Err = 1                       ' solange bis sich kein weiteres Gerät mehr meldet. 

End If

Print "Fertig"

W = 1wirecount()                                ' Anzahl der gefundenen Geräte zählen 

Print "Anzahl ";
Print W

Do
Loop

End

Gruß

 

[SickBoy]

der Code läuft auch mit nur einem Sensor, dann zeigt er auch nur 1 ID an.

Hardware-, Software-Stack und Framesize würde ich noch eintragen

SickBoy