Mal wieder ds1820 Checksummen Problem

[for_ro]

1wwrite &H33 , 1 , Pinc , I

Dies liest den ROM Code des Sensors aus, nicht die Temperatur. Sollte heißen
1wwrite &HBE , 1 , Pinc , I

If Ar(8) = Crc8(ar(1) , 7) Then

Dies überprüft die CRC des ROM Codes. Für die Überprüfung der Temperatur-Übertragung musst du dies angeben
If Ar(9) = Crc8(ar(1) , 8) Then

Ds1820 = Makeint(ar(1) , 2)

Steht dies da wirklich so?
Sollte da nicht
Ds1820 = Makeint(ar(1) , ar(2))
stehen? Aufgrund deiner Schiebe Operation usw . macht dies für positive Temps aber eh keinen Unterschied. Nur die negativen werden so nicht gehen.