NTC thermistor temperature sensing

[pxidr84]

not much better ...

 
.
.
.
 
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).

[Acetronics2]

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).

Hi,

IF you use a 18F series, it would be much better to make temp calculations with LONG types ... and then use 10 bits ADC result.

you could easily get a .1°C resolution ( here it is .4°C ... I'm sure you had noticed ! )

...

Alain