1wreset 1wwrite &HCC ' Выдаем команду чтения ПЗУ 1wwrite &H44 ' Запуск измерения Waitms 1800 1wverify Dsid1(1) 'Issues the "Match ROM " Locate 1 , 1 If Err = 1 Then Lcd "Err " 'Err = 1 if something is wrong Elseif Err = 0 Then 'lcd " Sensor found" 1wwrite &HBE Byte_t(1) = 1wread(9) 'read bytes into array If Byte_t(9) = Crc8(byte_t(1) , 8) Then Dg = Decigrades(byte_t(9)) If Min1 > Dg Then Min1 = Dg If Max1 < Dg Then Max1 = Dg S = Str(dg) Lcd Format(s , " .0") : Locate 1 , 5 Lcd Chr(&Hef) ; "C " ; Tcnt2 ; " " End If End If