Witam
Mam dość dziwny problem z czujnikiem DS1820 który jest podpięty do Atmegi8 taktowanej rezonatorem 4MHz. Jeszcze wczoraj Atmega ładnie odczytywała mi temperaturę a dzisiaj wskazuje 0.0°C. Dzisiaj zrobiłem coś takiego że odczytywałem err i za każdym razem było 0 czyli termometr się odzywa. Programuję w Bascomie. Poniżej znajduje się kod:
Poprawiłem tytuł - regulamin p.11.1 .
Dodałem znaczniki [code] .
Przeniosłem do właściwego działu .
[zumek]
Mam dość dziwny problem z czujnikiem DS1820 który jest podpięty do Atmegi8 taktowanej rezonatorem 4MHz. Jeszcze wczoraj Atmega ładnie odczytywała mi temperaturę a dzisiaj wskazuje 0.0°C. Dzisiaj zrobiłem coś takiego że odczytywałem err i za każdym razem było 0 czyli termometr się odzywa. Programuję w Bascomie. Poniżej znajduje się kod:
$regfile = "m8def.dat"
$crystal = 4000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pd.2 , Db5 = Pd.3 , Db6 = Pd.4 , Db7 = Pd.5 , E = Pd.1 , Rs = Pd.0
Config 1wire = Portd.6
Deflcdchar 0 , 6 , 9 , 9 , 6 , 32 , 32 , 32 , 32
Dim I As Byte
Dim T(2) As Byte
Dim Temp As Single
Cursor Off
Cls
1wreset
1wwrite &HCC
1wwrite &H44
Waitms 750
1wreset
1wwrite &HCC
1wwrite &HBE
T(1) = 1wread()
T(2) = 1wread()
1wreset
If T(2) = 0 Then
Temp = T(1) / 2
Else
I = 256 - T(1)
End If
If T(2) > 0 Then Lcd "-"
Cls
Locate 1 , 3
Lcd "*TERMOMETR*"
Lowerline
Lcd "Temp:"
Locate 2 , 7
Lcd Temp
Lcd Chr(0) ; "C"
Loop
EndPoprawiłem tytuł - regulamin p.11.1 .
Dodałem znaczniki [code] .
Przeniosłem do właściwego działu .
[zumek]
