Witam
Jestem w trakcie pisania programu i napotkałem na problem z częstotliwością ponieważ gdy ustawiam na 8Mhz DS18B20 przestaje działać, brak odczytu natomiast przy 1Mhz działa bez zastrzeżeń.
Ds18b20_1:
Config 1wire = Pind.6
1wreset
1wwrite &HCC
1wwrite &H44
Waitms 750
1wreset
1wwrite &HCC
1wwrite &HBE
Bd(1) = 1wread(9)
1wreset
T = Makeint(bd(1) , Bd(2))
T = T * 10
T = T / 16
Ulamek = T Mod 10
T = T / 10
If T > 19 Then
Portb.1 = 0
Else
Portb.1 = 1
End If
1wreset
If Err = 1 Then
Cls
Lcd "brak odczytu"
End If
Locate 2 , 1
Lcd Chr(1) ; T ; "," ; Ulamek ; Chr(0)
Return
Jestem w trakcie pisania programu i napotkałem na problem z częstotliwością ponieważ gdy ustawiam na 8Mhz DS18B20 przestaje działać, brak odczytu natomiast przy 1Mhz działa bez zastrzeżeń.
Ds18b20_1:
Config 1wire = Pind.6
1wreset
1wwrite &HCC
1wwrite &H44
Waitms 750
1wreset
1wwrite &HCC
1wwrite &HBE
Bd(1) = 1wread(9)
1wreset
T = Makeint(bd(1) , Bd(2))
T = T * 10
T = T / 16
Ulamek = T Mod 10
T = T / 10
If T > 19 Then
Portb.1 = 0
Else
Portb.1 = 1
End If
1wreset
If Err = 1 Then
Cls
Lcd "brak odczytu"
End If
Locate 2 , 1
Lcd Chr(1) ; T ; "," ; Ulamek ; Chr(0)
Return