Witam!
Wykonałem urządzenie przesyłające dwie temperatury (piec, bojler) drogą radiową z jednego attiny2313 do drugiego, lecz mam mały problem z oprogramowaniem. Czasem w odbiorniku w miejscu gdzie ma się pokazywać temp. pieca pokazuje mi się tem. bojlera. Jest to losowe zachowanie. Poniżej prezentuje mój kod. Jeśli ktoś miałby pomysł jak go ulepszyć żeby attiny odbiorcze nie myliło temperatur proszę o odpowiedź. Z góry dziękuje!!!
Nadajnik:
Dim T1 As Byte
Dim T1_wys As String * 4
Dim T2 As Byte
Dim T2_wys As String * 4
Do
1wreset
1wwrite &H55
1wverify Dsid1(1)
1wwrite &HBE
T1 = 1wread(2)
1wreset
1wwrite &H55
1wverify Dsid2(1)
1wwrite &HBE
T2 = 1wread(2)
1wreset
1wwrite &HCC
1wwrite &H44
T1 = T1 / 2
T2 = T2 / 2
T1_wys = Str(t1)
T2_wys = Str(t2)
Print T1_wys ; Chr(13) ;
Print T2_wys ; Chr(13) ;
Locate 1 , 1
Lcd "Piec: " ; T1_wys
Locate 2 , 1
Lcd "Bojler: " ; T2_wys
Loop
End
Odbiornik:
Dim T1_wys As String * 4
Dim T1 As Byte
Dim T2_wys As String * 4
Dim T2 As Byte
Do
If Up_sw = 0 And Down_sw = 0 Then Gosub Ustawienia
Input T1_wys
T1 = Val(t1_wys)
If T1 < T_alarm Then Gosub Alarm
Locate 1 , 1
Lcd "Piec: " ; T1 ; Chr(0) ; " "
Input T2_wys
T2 = Val(t2_wys)
Locate 2 , 1
Lcd "Bojler: " ; T2 ; Chr(0) ; " "
Loop
End
Wykonałem urządzenie przesyłające dwie temperatury (piec, bojler) drogą radiową z jednego attiny2313 do drugiego, lecz mam mały problem z oprogramowaniem. Czasem w odbiorniku w miejscu gdzie ma się pokazywać temp. pieca pokazuje mi się tem. bojlera. Jest to losowe zachowanie. Poniżej prezentuje mój kod. Jeśli ktoś miałby pomysł jak go ulepszyć żeby attiny odbiorcze nie myliło temperatur proszę o odpowiedź. Z góry dziękuje!!!
Nadajnik:
Dim T1 As Byte
Dim T1_wys As String * 4
Dim T2 As Byte
Dim T2_wys As String * 4
Do
1wreset
1wwrite &H55
1wverify Dsid1(1)
1wwrite &HBE
T1 = 1wread(2)
1wreset
1wwrite &H55
1wverify Dsid2(1)
1wwrite &HBE
T2 = 1wread(2)
1wreset
1wwrite &HCC
1wwrite &H44
T1 = T1 / 2
T2 = T2 / 2
T1_wys = Str(t1)
T2_wys = Str(t2)
Print T1_wys ; Chr(13) ;
Print T2_wys ; Chr(13) ;
Locate 1 , 1
Lcd "Piec: " ; T1_wys
Locate 2 , 1
Lcd "Bojler: " ; T2_wys
Loop
End
Odbiornik:
Dim T1_wys As String * 4
Dim T1 As Byte
Dim T2_wys As String * 4
Dim T2 As Byte
Do
If Up_sw = 0 And Down_sw = 0 Then Gosub Ustawienia
Input T1_wys
T1 = Val(t1_wys)
If T1 < T_alarm Then Gosub Alarm
Locate 1 , 1
Lcd "Piec: " ; T1 ; Chr(0) ; " "
Input T2_wys
T2 = Val(t2_wys)
Locate 2 , 1
Lcd "Bojler: " ; T2 ; Chr(0) ; " "
Loop
End
