'****************************************************************
'*  Name    : Podsos_avto.pbp                    *
'*  Author  : Panfiorov A.                    *
'*  Notice  :                    *
'*          :                    *
'*  Date    : 07.06.2010                    *
'*  Version : 1.0                    *
'*  Notes   :                    *
'*          :                    *
'****************************************************************
'-----------------Описание программы-----------------------------
'RA2 Подключение потенциометра
'RB6 Светодиод индикации режима работы
'RB5 Сервомотор
'RB4 Светодиод уровня 5
'RB3 Светодиод уровня 4
'RB2 Светодиод уровня 3
'RB1 Светодиод уровня 2
'RB0 Светодиод уровня 1
'RC4 Светодиод уровня 10
'RC3 Светодиод уровня 9
'RC2 Светодиод уровня 8
'RC1 Светодиод уровня 7
'RC0 Светодиод уровня 6

'-----------------Определение констант---------------------------
Define ADC_BITS8    'Задать число разрядов в результате АЦП
Define ADC_CLOCK 3  'Выбор источника тактового сигнала (3=RC)
Define ADC_SAMPLEUS 50  'Задать время преобразования в микросекундах

'-----------------Переменные-------------------------------------
b0 var byte
b1 var byte
b2 var byte
b3 var byte
b4 var byte

'----------------Процедура инициализации-------------------------
PortB=$00   'Все выходы перед началом сбросить в 0
TrisB=%00000000 'Все выводы порта В сделать выходами
PortC=$00   'Все выходы перед началом сбросить в 0
TrisC=%00000000 'Все выводы порта C сделать выходами
b4=0
'----------------Основная программа------------------------------
TRISA=%11111111 'Сделать все выводы порта А входами
ADCON1=%00000010    'Сделать выводы порта А аналоговыми входами

PortB=%01000001 'Зажечь индикаторный светодиод POWER и показать что прибор работает зажигать и другие светодиоды
PortC=%00000000
nap 4
PortB=%01000011
PortC=%00000000
nap 4
PortB=%01000111
PortC=%00000000
nap 4
PortB=%01001111
PortC=%00000000
nap 4
PortB=%01011111
PortC=%00000000
nap 4
PortB=%01011111
PortC=%00000001
nap 4
PortB=%01011111
PortC=%00000011
nap 4
PortB=%01011111
PortC=%00000111
nap 4
PortB=%01011111
PortC=%00001111
nap 4
PortB=%01011111
PortC=%00011111
nap 6
PortB=%01000000
PortC=%00000000

prog2:
b2=0
'----------------Цикл измерения и сложения 4-ёх температур-------
for b0=1 to 4
ADCIN 2,b1      'Преобразовать напряжение в канале 2 и поместить значение в b1
b2=b2+b1        'Сложить четыре раза b1
nap 5           'Задержка в 0.576сек в спящем режиме
next

b3=100+(b2*10)/104   'Усреднение трёх температур

if b3>199 OR b3<101 then goto prog3   'Если температура превысила нужный интервал показать это

if b4=1 AND b3>190 then goto ind     'Чтобы зря не гонять сервопривод если температура
'высокая перейти на показание светодиодов

'----------------Цикл работы сервомотора-----------------------------
for b0=1 to 100
pulsout 5,b3
pause 20
b4=0
next
'----------------Показатель уровня на 5-светодиодах------------------
ind:
if b3>110 then goto ind2
PortB=%01000001
PortC=%00000000
goto prog

ind2:
if b3>120 then goto ind3
PortB=%01000011
PortC=%00000000
goto prog

ind3:
if b3>130 then goto ind4
PortB=%01000111
PortC=%00000000
goto prog

ind4:
if b3>140 then goto ind5
PortB=%01001111
PortC=%00000000
goto prog

ind5:
if b3>150 then goto ind6
PortB=%01011111
PortC=%00000000
goto prog

ind6:
if b3>160 then goto ind7
PortB=%01011111
PortC=%00000001
goto prog

ind7:
if b3>170 then goto ind8
PortB=%01011111
PortC=%00000011
goto prog

ind8:
if b3>180 then goto ind9
PortB=%01011111
PortC=%00000111
goto prog

ind9:
if b3>190 then goto ind10
PortB=%01011111
PortC=%00001111
goto prog

ind10:
PortB=%01011111
PortC=%00011111
b4=1

'----------------Переход контроллера в спящий режим для отработки результата------------------
prog:       'Заснуть на 2.304сек для экономии
nap 7
goto prog2

'----------------Минипрограмма показывающая неправельную работу контроллера------------------
prog3:      'Миганием светодиодов показать что температура вышла за пределы
for b0=1 to 5
PortB=%01011111
PortC=%00011111
nap 6
PortB=%01000000
PortC=%00000000
nap 6
next
goto prog2

end