TRISA=%11111111
TRISB=%00011111
TRISC=%00110000
TRISD=%00010010
ADCON1=%1000000
DEFINE ADC_BITS 8 'A/D çevirim sonucu kaç bit olacak
DEFINE ADC_CLOCK 1 'Clock kaynağı (1=xtal)
DEFINE ADC_SAMPLEUS 100 'Örnekleme zamanı mikro saniye cinsinden.
feed12 VAR byte
SYMBOL BUTON12= PORTB.4
ADCIN 4 ,FEED12 '4 nolu kanaldan Analog değeri oku ve FEED12 değişkenine aktar.
basla:
pause 20
if buton12 = 0 then start
goto basla
start:
IF feed12=>100 and feed12=<199 THEN yak
IF feed12=>200 THEN sondur
IF feed12=<99 THEN sondur
goto yak
yak:
pause 10
high portd.3
goto basla
sondur:
pause 10
low portd.3
goto basla