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