Witam!
Mam problem z poprawnym odczytem temperatury z uk³adu DS18B20. Program wygl±da nastêpuj±co:
Config 1wire = Porta.0
Dim Ar(8) As Byte , I As Byte Dim Ta As Integer Dim T1 As Integer Dim Tmp As Byte
Cls Lcd "termometr" Wait 1 Cls
Do
1wreset
1wwrite &HCC : 1wwrite &H44 Waitus 200 : Waitus 200 : Waitus 200 : Waitus 200
1wwrite &HBE Ar(1) = 1wread(8) Tmp = Ar(1) And 1 If Tmp = 1 Then Decr Ar(1) End If Ta = Makeint(ar(1) , Ar(2)) Ta = Ta * 50 : Ta = Ta - 25 : T1 = Ar(8) - Ar(7) : T1 = T1 * 100 T1 = T1 / Ar(8) : Ta = Ta + T1 : Ta = Ta / 100
Lcd Ta Waitms 500 Cls
Loop
Czy móg³by kto¶ napisaæ, co jest ¼le? (BascomAVR, procesor AT90S8515) TIA