Witam wszystkich. Tak jak w temacie mam problem z komunikacją tych elementów. Jest to maly nadajnik(czujnik temperatur) ktory ma wysylac dane o tmperarurze. I teraz Problem: Samym uart-em moge wysylac jakies dane bez problemu, ale gdy napisze obsluge do ds1820 to juz nic nie wysyla, co może byyc zle w tym kodzie.
$regfile = "attiny2313.dat"
$crystal = 8000000
Config Portd.5 = Input
Config Portd.1 = Output
$hwstack = 32
$swstack = 10
$framesize = 40
$baud = 300
Config 1wire = Portd.5
Dim Odczyt(2) As Byte , A As Byte , Licznik As Byte , T As Integer , T1 As Single , B As String * 5
do
1wreset
1wwrite &HCC
1wwrite &H44
Wait 1
1wreset
1wwrite &HCC
1wwrite &HBE
Odczyt(1) = 1wread(2)
T = Odczyt(2)
Shift T , Left , 8
T = T + Odczyt(1)
T1 = T * 0.0625 '
B = Fusing(t1 , "#.#")
Print B
Waitms 200
Loop
End