Quote Originally Posted by Acetronics View Post
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 ...

Alain
Thank you so much, it works flawlessly now. Very helpful.

For mackrackit, I use the 18F26K20 (3.3V, 64MHz, 28-DIP), but I will switch to 18F4431 (because mine haven't enough I/O ports, and not enough hardware PWM ports).