Код: Выделить всё
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Rs = Portc.5 , E = Portc.4 , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3
Config Lcd = 16 * 2
Config 1wire = Portb.7
Dim Byte0 As Byte
Dim Byte1 As Byte
Dim Sign As String * 1
Dim T As Byte
Dim T1 As Byte
Dim T2 As Byte
Cls
Cursor Off
Do
1wreset
If Err = 1 Then
Cls
Lcd " ãa¿À¸º "
Locate 2 , 1
Lcd " ½e ¾o㺻ÆÀe½"
Wait 1
Else
1wwrite &HCC
1wwrite &H44
Waitms 750
1wreset
1wwrite &HCC
1wwrite &HBE
Byte0 = 1wread()
Byte1 = 1wread()
If Byte1 > 248 Then
Byte0 = &HFF - Byte0
Byte1 = &HFF - Byte1
Sign = "-"
Else
Sign = "+"
End If
T1 = Byte0 / 16
T2 = Byte1 * 16
T1 = T1 + T2
If Sign = "-" Then
T1 = T1 + 1
End If
If Sign = "+" And T1 = 0 Then
Sign = " "
End If
Cls
Lcd " Te¼¾epa¿ypa"
Locate 2 , 6
Lcd Sign ; T1 ;
Locate 2 , 9
Lcd Chr(223) ; "C"
Cursor Off
End If
Wait 1
Loop
Endзаранее спасибо
Спасибо огромное, буду знать 
Кто подскажет алгоритм или примерчик?
А чтобы не пропустить ошибку она просто должна повторяться. Например, с интервалом в 5 секунд. И всех делов. 