Код: Выделить всё
начало:
счетчик1:=0;
счетчик2:=0;
таймер:=0;
if status(C2000-AP2(1)='нарушен технологический шлейф') then
begin
счетчик1:=1
else
счетчик1:=0
end;
if status(C2000-AP2(2)='нарушен технологический шлейф') then
begin
счетчик2:=1
else
счетчик2:=0
end;
if (cчетчик1=0) and (cчетчик2=1) then
begin
inc(таймер);
if таймер>120 cек then
begin
С2000-СП2(3) //включение сирены.
end;
end;
Код: Выделить всё
(*)ВоспроизвестиФайл( "ПолноеИмяФайла.wav" , "Воспроизвести" );
(*)Видеокамера.Показать();
......
Задержка(12000);
//Далее следует условие
Если ШС1==Нарушен и ШС2==Нарушен Тогда
(*)ВыходСП.Включить("0");
Иначе
Возврат();
КонецЕсли;
//Ну и надо придумать условие, по которому выполнение сценария закончится, если тревога таки прошла.
Вернуться в «АРМ Орион Про версии до 1.20»
Сейчас этот раздел просматривают: 30 гостей
Боты: Google [Bot]