'****************************************************************
'* Имя проекта : Автоматическое включение света в прихожей! *
'* Автор проекта : Наладчик КИП Бросалин Ф. А. *
'* : ( Можно на верно попроще сделать, но что то у * *
'* : меня пока только это получилось) *
'* Дата прихода на ум! 01.11.2009 *
'* Версия : 1.0.1 Пробная рабочая версия ! *
'* : *
'* : *
'****************************************************************
DEFINE _OSC4_ _BUTTON_PAUSE 20; Кварц 4 MHz ,Убрать дребезг контактов.
OPTION_REG.7 = 0 ;Подтягивающие резисторы на Порт В
OPTION_REG.6 = 1 ;Включение по переднему фронту сигнала
input PORTB.0 ; Вход прерывания ( Делаем нужные порты входами и выходами.)
output PORTA.0; Выход
output PORTA.1; Выход
output PORTA.2; Выход
output PORTA.3; Выход
KN VAR PORTB.0; Порт приёма инф-излучения.
SV VAR PORTA.0; Выход на лампу
LED VAR PORTA.1; Подсветка устройства
PRD VAR PORTA.2;Передатчик на инфракрасном диоде
SOU VAR PORTA.3;Пищаль ( Пьезик)
J var byte ; j битовая переменная
INTCON.4 = 1;Разрешаем прерывание по порту RB.0(INT)
PAUSE 50; Пауза 50ms
main:; Начало основной программы.
enable;Разрешаем прерывание.
on interrupt goto int1;Если прерывание произошло перейти на метку int1
high prd; Высокий уровень на выходе PORTA.2
low sv ; Свет потушен
high led;СВетодиод горит
pause 50;Пауза 50ms
goto main; Возврат в начало программы
DISABLE;Запрет прерываний
int1:; Метка прерывания
high sv;Свет горит
high prd; Сделать выход +
low led; Светодиод потушен
pause 20000:freqout sou,200,800;Пауза 20 сек,Генерируем на пьезик сигнал 800Hz.
low sou; Низкий уровень на PORTA.3
if kn = 1 then int1:pause 2000:if kn = 0 then tsv;Это все условия работы.
goto int1;Переход на метку int1
tsv:; Метка тушения света
;for j = 255 to 0 step -2; Плавное уменьшение яркости лампы до = 0 это при условие если выходной каскад делать
;pwm sv,j,64; Цикл программного ШИМ. ( на мощном поливике или ставить МИТ-4,а с него уже на симистор).
;next j
low sv ; Лампа потушена.
INTCON.1 = 0 ; Флажок на прерывание.
resume; Возврат на метку обработки прерывания.