works for me
Code:
#CONFIG
cfg1 = _FOSC_INTOSC
cfg1&= _WDTE_ON
cfg1&= _PWRTE_OFF
cfg1&= _MCLRE_OFF
cfg1&= _CP_OFF
cfg1&= _CPD_OFF
cfg1&= _BOREN_ON
cfg1&= _CLKOUTEN_OFF
cfg1&= _IESO_ON
cfg1&= _FCMEN_ON
__CONFIG _CONFIG1, cfg1
cfg2 = _WRT_OFF
cfg2&= _PLLEN_OFF
cfg2&= _STVREN_ON
cfg2&= _BORV_19
cfg2&= _LVP_OFF
__CONFIG _CONFIG2, cfg2
#ENDCONFIG
DEFINE ADC_BITS 10 ' Set number of bits in result
DEFINE ADC_SAMPLEUS 50 ' Set sampling time in uS
ADCON1=$f0 'rc clk vdd ref right justify
osccon=$6A '4 mhz
anselA=1 'dig i/o
' CMCON0=7 ' compare off
trisA=001
adval var word
main:
pause 5
ADCIN 0, adval
lata=0
if adval > 500 then lata.2= 1 'led1
if adval> 200 then lata.1=1' led2
goto main
Bookmarks