Kod: Zaznacz cały
Czytajtemp:
If Tempkonwersja = 0 Then
Tempkonwersja = 1
'1wreset
'1wwrite &HCC
'1wwrite &H44
Else
Tempkonwersja = 0
1wreset
1wwrite &HCC
1wwrite &HBE
Odczyt(1) = 1wread(2)
Odczyt(2) = Odczyt(2) And &B00001111
Odczyt(1) = Odczyt(1) And &B11110000
Temp = Odczyt(2) + Odczyt(1)
End If
Return
Nie interesuje mnie ułamkowa część temperatury, bo wynik wyświetlam na wyświetlaczy 7 segmentowym więc zajęła by ona za dużo miejsca. pozatym to jest termometr pokojowy wiec dokładnośc do 1/16 stopnie nie będzie potrzebna