Bascom bietet auch noch ein paar HIGH-Level-Befehle für 1Wire an wie 1wsearchfirst und 1wiresearchnext.
Also erst mal für jeden Sensor ein Byte-Array erstellen.
Code:
Dim Sensor_rom_1(8) As Byte
Dim Sensor_rom_2(8) As Byte
Dim Sensor_rom_3(8) As Byte
Dim Sensor_rom_4(8) As Byte
Jetzt kann man die Rom-Werte einlesen.
Code:
Sensor_rom_1(1) = 1wsearchfirst()
Sensor_rom_2(1) = 1wsearchnext()
Sensor_rom_3(1) = 1wsearchnext()
Sensor_rom_4(1) = 1wsearchnext()
Jetzt kann man von jedem Sonsor die Temperatur einlesen
Code:
1wreset 'RESET 1Wire
1wwrite &HCC 'an alle
1wwrite &H44 'Temperaturmessung
Wait 1 'ne Sekunde warten für Messung
1wverify Sensor_rom_1(1) ' nur ersten Sensor ansprechen
1wwrite &HBE ' Temperatur auslesen
Daten(1) = 1wread(9) 'Daten einlesen
Lesezeichen