Код: Выделить всё
// Сценарий привязать к разрешающим разделам , к событию "Изменение состояния".
Сценарий
Переменные
Перем РазделыБД;
Перем Выходы1;
Перем РазрешающийРаздел1;
Перем РазрешающийРаздел2;
Перем ЗапрещающийРаздел1;
Перем ЗапрещающийРаздел2;
Перем Реле1;
Перем Состояние1;
НачалоСценария
РазделыБД = СоздатьОбъект( "Разделы" );
Выходы1 = СоздатьОбъект( "Выходы" );
РазрешающийРаздел1 = 276;
РазрешающийРаздел2 = 295;
ЗапрещающийРаздел1 = 275;
ЗапрещающийРаздел2 = 296;
// Адрес реле 1- сом-порт, 2 - адрес пульта, 3 - адрес прибора, 4 - номер реле
Реле1 = "1.2.3.4";
Состояние1 = 0;
//-------------- Разрешающие
Если РазделыБД.ПолучитьПоИндексу( РазрешающийРаздел1 ).Состояние() == "НАРУШЕНИЕ ТЕХНОЛОГИЧЕСКОГО" Тогда
Состояние1 = 1;
КонецЕсли;
Если РазделыБД.ПолучитьПоИндексу( РазрешающийРаздел1 ).Состояние() == "ПОЖАР" Тогда
Состояние1 = 1;
КонецЕсли;
Если РазделыБД.ПолучитьПоИндексу( РазрешающийРаздел2 ).Состояние() == "НАРУШЕНИЕ ТЕХНОЛОГИЧЕСКОГО" Тогда
Состояние1 = 1;
КонецЕсли;
Если РазделыБД.ПолучитьПоИндексу( РазрешающийРаздел2 ).Состояние() == "ПОЖАР" Тогда
Состояние1 = 1;
КонецЕсли;
//----------------- Запрещающие
Если РазделыБД.ПолучитьПоИндексу( ЗапрещающийРаздел1 ).Состояние() == "НАРУШЕНИЕ ТЕХНОЛОГИЧЕСКОГО" Тогда
Состояние1 = 0;
КонецЕсли;
Если РазделыБД.ПолучитьПоИндексу( ЗапрещающийРаздел1 ).Состояние() == "ПОЖАР" Тогда
Состояние1 = 0;
КонецЕсли;
Если РазделыБД.ПолучитьПоИндексу( ЗапрещающийРаздел2 ).Состояние() == "НАРУШЕНИЕ ТЕХНОЛОГИЧЕСКОГО" Тогда
Состояние1 = 0;
КонецЕсли;
Если РазделыБД.ПолучитьПоИндексу( ЗапрещающийРаздел2 ).Состояние() == "ПОЖАР" Тогда
Состояние1 = 0;
КонецЕсли;
//--------Включить, если выполнилось разрешающее и невыполнилось запрещающее
Если Состояние1 == 1 Тогда
Выходы1.ПолучитьПоАдресу( Реле1 ).Включить( "0" );
КонецЕсли;
КонецСценария
Вернуться в «АРМ Орион Про версии до 1.20»
Сейчас этот раздел просматривают: 4 гостя
Боты: Google [Bot]