Define ADC_BITS 8 ' Определяем количество разрядов в результате АЦП.
Define ADC_CLOCK 3 ' Устанавливаем источник синхронизации (3 = RC).
Define ADC_SAMPLEUS 50 ' Устанавливаем время преобразования.
adval var byte ' Создаем переменную adval для хранения результата преобразования
ad var byte ' Создаем переменную adval для хранения результата преобразования
add var word
' ---[ Инициализация]-------------------------
Init:
PortB = $00 ' Устанавливаем все выводы PORTB в 0 (все светодиоды не горят).
TrisB = %00000000 ' Устанавливаем все выводы PORTB в состояние выход.
TRISA = %11111111 ' Все выводы PORTA на вход.
ADCON1 = %00000010 ' Устанавливаем все выводы PORTA как аналоговые.
' ---[ Основная программа ]--------------------------

for ad =1 to 5
Pause 1000
portb = %11111111
Pause 1000
portb = %00000000
next ad

main:
portb = %11111111   
add=0
Pause 5000

'Цикл измерения АЦП   

for ad =1 to 10
ADCIN 0, adval ' Читаем канал А0, а результат преобразования сохраняем в переменную adval.
add=add+adval
pause 50
next ad
adval=add/10

if adval < 30 then goto a10' Если результат преобразования меньше 30,
if adval < 50 then goto a20' Если результат преобразования меньше 50,
if adval < 70 then goto a30' Если результат преобразования меньше 70,
if adval < 90 then goto a40' Если результат преобразования меньше 90,
if adval < 110 then goto a50' Если результат преобразования меньше 110,
if adval < 150 then goto a60' Если результат преобразования меньше 150,

for ad =1 to 100
Pause 100
portb = %00000000
Pause 100
portb = %11111111
next ad

goto main

a10:
for ad =1 to 2
Pause 500
portb = %00000000
Pause 500
portb = %11111111
next ad
goto main

a20:
for ad =1 to 5
Pause 500
portb = %00000000
Pause 500
portb = %11111111
next ad
goto main

a30:
for ad =1 to 10
Pause 500
portb = %00000000
Pause 500
portb = %11111111
next ad
goto main

a40:
for ad =1 to 15
Pause 500
portb = %00000000
Pause 500
portb = %11111111
next ad
goto main

a50:
for ad =1 to 20
Pause 500
portb = %00000000
Pause 500
portb = %11111111
next ad
goto main

a60:
for ad =1 to 25
Pause 500
portb = %00000000
Pause 500
portb = %11111111
next ad
goto main