Cześć
Mam następujący błąd / problem
Odczyt temp z czujnikow - wkrada się w błąd i pokazuje temp w ogóle błędną - dane z nieba
Chodzi mi o to żeby prostym sposobem sprawdzić który czujnik robi błąd w transmisji - wiem że sterownik uruchamia alarm przekroczenia temperatur - wiem które kanały - ale z różnych opisów nie zawsze jest uszkodzony dany czujnik z ktorego jest błędny odczyt - dane mogą być zmieniane przez inny wadliwie działający - gdyby ptoblem był systematyczny to bym doszedł co i jak
Taki mam odczyt
Odczyt jest po kolei 8 czujników
dziękuję za pomoc
Mam następujący błąd / problem
Odczyt temp z czujnikow - wkrada się w błąd i pokazuje temp w ogóle błędną - dane z nieba
Chodzi mi o to żeby prostym sposobem sprawdzić który czujnik robi błąd w transmisji - wiem że sterownik uruchamia alarm przekroczenia temperatur - wiem które kanały - ale z różnych opisów nie zawsze jest uszkodzony dany czujnik z ktorego jest błędny odczyt - dane mogą być zmieniane przez inny wadliwie działający - gdyby ptoblem był systematyczny to bym doszedł co i jak
Taki mam odczyt
'************* Temperatura ***********
Temperatura:
Disable Interrupts
1wreset
Select Case Ktory_ds
Case 0:
1wwrite &HCC
1wwrite &H44
Case 1:
1wwrite &H55
1wwrite Ds1(1) , 8
1wwrite &HBE
Lsb = 1wread():
Msb = 1wread():
Case 2:
1wwrite &H55
1wwrite Ds2(1) , 8
1wwrite &HBE
Lsb = 1wread():
Msb = 1wread():
Case 3:
1wwrite &H55
1wwrite Ds3(1) , 8
1wwrite &HBE
Lsb = 1wread():
Msb = 1wread():
Case 4:
1wwrite &H55
1wwrite Ds4(1) , 8
1wwrite &HBE
Lsb = 1wread():
Msb = 1wread():
Case 5:
1wwrite &H55
1wwrite Ds5(1) , 8
1wwrite &HBE
Lsb = 1wread():
Msb = 1wread():
Case 6:
1wwrite &H55
1wwrite Ds6(1) , 8
1wwrite &HBE
Lsb = 1wread():
Msb = 1wread():
Case 7:
1wwrite &H55
1wwrite Ds7(1) , 8
1wwrite &HBE
Lsb = 1wread():
Msb = 1wread():
Case 8:
1wwrite &H55
1wwrite Ds8(1) , 8
1wwrite &HBE
Lsb = 1wread():
Msb = 1wread():
End Select
Enable Interrupts
If Ktory_ds > 0 Then
T(ktory_ds) = Msb * 256
T(ktory_ds) = T(ktory_ds) + Lsb
Minusy.ktory_ds = Msb.7
If Minusy.ktory_ds = 1 Then
T(ktory_ds) = Not T(ktory_ds)
T(ktory_ds) = T(ktory_ds) + 1
End If
T(ktory_ds) = T(ktory_ds) * 10
T(ktory_ds) = T(ktory_ds) / 16
Else
If Poz_wysw = 1 And Wyswietlono = 1 Then Wyswietlanie = 1
End If
Incr Ktory_ds
If Ktory_ds = 9 Then Ktory_ds = 0
If Poz_wysw = 0 And Wyswietlono = 0 Then Wyswietlanie = 0
Return
'********** Temperatura Koniec *********Odczyt jest po kolei 8 czujników
dziękuję za pomoc
