Same weird behavior using JUST code for thermometer ...
Code:Main : OWOut DQ1, 1, [$CC, $44] OWOut DQ1, 1, [$CC, $BE] OWIn DQ1, 2, [temperature1.byte0, temperature1.byte1] If Temperature1.15 then Temperature1= ~Temperature1 +1 Twist1 = 1 Endif Dummy1 = 625 * Temperature1 TempC1 = DIV32 10 TempC1 = (Temperature1 & $7FF) >> 4 Float1 = ((Temperature1.Lowbyte & $0F ) * 25 )>>2 Temperature1 = TempC1*100 + Float1 If Twist1 then V1= 10000 - Temperature1 Twist1 = 0 else V1= 10000 + Temperature1 EndIf If V1 >= 10000 then Temperature1=V1-10000 else Temperature1=10000-V1 EndIf '=================================================================================================================== GoSub SelectSign if (temperature1/100) =>10 then LcdOut $FE, $80, "I:", Sign1, DEC (Temperature1 / 100), ".", DEC Temperature1 dig 1, 223 else LcdOut $FE, $80, "I:", Sign1, $14, DEC (Temperature1 / 100), ".", DEC Temperature1 dig 1, 223 endif Goto Main '========================================================================================================================== SelectSign: If v1 = 10000 then Sign1=" " else If v1 < 10000 then Sign1="-" else Sign1="+" EndIf EndIf Return




Bookmarks