Hi

I am using a 16F876
Read up last night on A/D
modified to:Stil does not work

DEFINE LOADER_USED 1 ' If using bootloader to program pic
DEFINE LCD_DREG PORTB 'Define PIC port used for LCD Data lines
DEFINE LCD_DBIT 4 'Define first pin of portc connected to LCD DC4
DEFINE LCD_RSREG PORTC 'Define PIC port used for RS line of LCD
DEFINE LCD_RSBIT 1 'Define Portc pin used for RS connection
DEFINE LCD_EREG PORTC 'Define PIC port used for E line of LCD
DEFINE LCD_EBIT 0 'Define PortC pin used for E connection
DEFINE LCD_BITS 4 'Define the 4 bit communication mode to LCD
DEFINE LCD_LINES 2 'Define using a 2 line LCD
DEFINE LCD_COMMANDUS 2000 'Define delay time between sending LCD commands
DEFINE LCD_DATAUS 50 'Define delay time between data sent.
define osc 4
define adc_bits 8
define adc_clock 1
define adc_sampleus 50


samples var word
sample var byte
temp var byte
samples = 0
samples1 var word
sample1 var byte
temp1 var byte
samples1 = 0


TRISA = %11111111 ' Set PORTA to all input
ADCON1 = %01001001
pause 100


init:
samples = 0
samples1 = 0
gosub loop
gosub loop1
lcdout $fe,1,"Temp is: " ,DEC(samples/100) ,".",dec2 samples," C"
lcdout $fe,$C0,"Temp is: " ,DEC(samples1/100) ,".",dec2 samples1," C"

goto init


loop:
adcon0 = $41
pauseus 50
adcon0.2 = 1
pauseus 50
for sample = 0 to 20
adcin 0 ,temp
samples= samples + temp
pause 100
next sample
temp = samples / 20

return

loop1:
adcon0 = $49
pauseus 50
adcon0.2 = 1
pauseus 50
for sample1 = 0 to 20
adcin 1 ,temp1
samples1= samples1 + temp1
pause 100
next sample1
temp1 = samples1 / 20

return

end