da die teile auf sich warten lassen hab ich mal nefangen den code zusammenzubauen für die temp messung,. allerdings bin ich mir da noch nicht so sicher bzw hab die einzelnen anweisungen noch nichtverstanden , warum ich zum beispiel 1wwrite &H44 machen muss z.b.
Code:
'1-wire Geräte auslesen
Wait 1
If Err = 0 Then Idsensor1(8) = 1wsearchfirst()
Else Print Err 'bei fehler fehler ausgeben
End If
Next
Wait 1
If Err = 0 Then Idsensor2(8) = 1wsearchnext() 'Sensorabfrage
Else Print Err 'bei fehler fehler ausgeben
End If
Next
'Temperatur auslesen
1wreset
If Err = 1 Then Print Err 'bei fehler Fehler ausgaben
Else
1wwrite &H44 'read rom command
Waitus 200
1wverify Idsensor1(1) ' Gerät mit der SerienNr. aus Ar() auswählen
Idsensor1(8) = 1wread(8) 'lese gerät aus und schreibes in array idsensor1
1wwrite &HBE ' Temperatur auslesen
Temp1(1) = 1wread(9) ' Daten in ein Array lesen
For I = 1 To 9
Print Hex(temp1(i));
Next
Waitus 200
1wverify Idsensor2(1) ' Gerät mit der SerienNr. aus Ar() auswählen
Idsensor2(8) = 1wread(8) 'lese gerät aus und schreibes in array idsensor1
1wwrite &HBE ' Temperatur auslesen
Temp2(1) = 1wread(9) ' Daten in ein Array lesen
For I = 1 To 9
Print Hex(temp1(i));
Next
End If