mianowicie numer czujnika ładnie się odczytuje jako 40 lecz wartość zmiennych t1 i t2 jest taka sama czyli 255.
Poniżej kod .
Z góry dziękuję za pomoc:)
[syntax=basic4gl]$crystal = 8000000
Config Lcdpin = Pin , Db7 = Portb.7 , Db6 = Portb.6 , Db5 = Portb.5 , Db4 = Portb.4 , E = Portb.3 , Rs = Portb.2
Config Lcd = 16 * 2
Config 1wire = Portb.0
Dim T(2) As Byte
Dim Nr(8) As Byte
Declare Sub Pomiar
Do
Call Pomiar
Cls
Lcd T(1)
Loop
Sub Pomiar
1wreset
1wwrite &H33
Nr(1) = 1wread(8)
1wreset
1wwrite &HCC
1wwrite &H44
Waitms 700
1wreset
1wwrite &HBE
T(1) = 1wread()
T(2) = 1wread()
1wreset
If T(2) > 0 Then T(1) = 256 - T(1)
T(1) = T(1) / 2
End Sub[/syntax]Statystyki: Napisane przez driver0207 — 22 paź 2014, o 23:03
]]>