not much better ...
Code:
.
.
.
AD_AN1_VALUE VAR WORD
B0 VAR WORD
B1 VAR WORD
B2 VAR WORD
B3 VAR WORD
B3 = 100
TRISA = %11111111
.
.
.
PAUSE 4000
lp:
ADCIN 1, AD_AN1_VALUE
B0 = AD_AN1_VALUE*129
B1 = B0 - 8143
B1 = B1 * B3
B2 = Div32 319
PAUSE 100
B0 = B2 / 100 ' we get integer part of temp
B1 = B2 // 100 ' we get the decimal part x 100
LCDOUT $fe,1
LCDOUT #AD_AN1_VALUE
Lcdout $fe,$c0,"Temp.: ",DEC (B0 DIG 1),DEC (B0 DIG 0),"." ,DEC (B1 DIG 1),DEC (B1 DIG 0),"°C"
goto lp
But with whisles and Bells ...
Bookmarks