Скрипт для группы разделов.

[Vladimir -]

Добрый день! Никак не разрешу проблему и прошу Вас мне помочь. Необходимо составить скрипт выполняющий следующее:
Есть группа разделов №11. В ней два раздела №№ 111 и 121 в которых по одному пожарному шлейфу. Имеется еще один раздел №90 с технологическим шлейфом, и прибор КПБ с адресом 11.
Необходимо посредством скрипта при сработке ТОЛЬКО обоих разделов группы в состояние "пожар" включить реле 1 прибора адрес 11 (КПБ) при условии что технологический шлейф в норме.
Уже два дня пытаю свою голову - не получается.

[Vladimir -]

как приятно видеть столько отзывчивых людей :( . если бы не безысходость разве я отягащал бы вас своей проблемой? неужели нет человека который мог бы мне помочь?

[AlexRuden]

Уже два дня пытаю свою голову - не получается.

Вы хоть покажите, что за 2 дня наломали))
Сделать то можно такой скрипт, вариантов несколько.

В ней два раздела №№ 111 и 121 в которых по одному пожарному шлейфу. Имеется еще один раздел №90 с технологическим шлейфом

И вообщето это стандартная тактика АСПТ
---
Вот вам кусок кода для события ПОЖАР гр. раздела, остальное надеюсь додумаете сами ))

Спойлер

Код: Выделить всё

Если ( Разделы1.ПолучитьПоИндексу( 111 ).Состояние() == "ПОЖАР" ) ИЛИ ( Разделы1.ПолучитьПоИндексу( 121 ).Состояние() == "ПОЖАР" ) Тогда
  Счетчик1 = 0;
  Пока Счетчик1 < 1 Цикл
    Состояние1 = 0;
    Если Разделы1.ПолучитьПоИндексу( 111 ).Состояние() == "ПОЖАР" Тогда
       Состояние1 = Состояние1 + 1;
    КонецЕсли;
    Если Разделы1.ПолучитьПоИндексу( 121 ).Состояние() == "ПОЖАР" Тогда
       Состояние1 = Состояние1 + 1;
    КонецЕсли;
    Если ( Состояние1 == 2 )И( Разделы1.ПолучитьПоИндексу( 90 ).Состояние() == "ВОССТАНОВЛЕНИЕ ТЕХНОЛОГИЧЕСКОГО" ) Тогда
      ВыходыКПБ.ПолучитьПоАдресу( "?.?.11.1" ).Включить( "0" );
      //Счетчик1 = 1;
      Прервать;
    КонецЕсли;
    Если  Состояние1 == 0 Тогда
      //Счетчик1 = 1;
      Прервать;
    КонецЕсли;
   КонецЦикла;
КонецЕсли;


[Vladimir -]

Спасибо други! Собственно я сам по себе ничего не сделал. все пытался на основе готового соорудить что то под себя. судя по предложенному варианту я творил полную ерунду. Спасибо вам огромное. В понедельник сделаю испытание. Если что не пойдет думаю также обратится в вашему опыту.

[Vladimir -]

Уже два дня пытаю свою голову - не получается.

Вы хоть покажите, что за 2 дня наломали))
Сделать то можно такой скрипт, вариантов несколько.

В ней два раздела №№ 111 и 121 в которых по одному пожарному шлейфу. Имеется еще один раздел №90 с технологическим шлейфом

И вообщето это стандартная тактика АСПТ
---
Вот вам кусок кода для события ПОЖАР гр. раздела, остальное надеюсь додумаете сами ))

Если бы я все переменные смог додумать самостоятельно - то я и скрипт смог бы написать. Но я реально в этом НУБ.

Спойлер

Код: Выделить всё

Если ( Разделы1.ПолучитьПоИндексу( 111 ).Состояние() == "ПОЖАР" ) ИЛИ ( Разделы1.ПолучитьПоИндексу( 121 ).Состояние() == "ПОЖАР" ) Тогда
  Счетчик1 = 0;
  Пока Счетчик1 < 1 Цикл
    Состояние1 = 0;
    Если Разделы1.ПолучитьПоИндексу( 111 ).Состояние() == "ПОЖАР" Тогда
       Состояние1 = Состояние1 + 1;
    КонецЕсли;
    Если Разделы1.ПолучитьПоИндексу( 121 ).Состояние() == "ПОЖАР" Тогда
       Состояние1 = Состояние1 + 1;
    КонецЕсли;
    Если ( Состояние1 == 2 )И( Разделы1.ПолучитьПоИндексу( 90 ).Состояние() == "ВОССТАНОВЛЕНИЕ ТЕХНОЛОГИЧЕСКОГО" ) Тогда
      ВыходыКПБ.ПолучитьПоАдресу( "?.?.11.1" ).Включить( "0" );

[b]? - номер ком-порта  - у меня №1.
второй ? номер адреса компа - это адрес 127 ?[/b]
то есть должно получиться  ВыходыКПБ.ПолучитьПоАдресу( "1.127.11.1" ).Включить( "0" );   ?




      //Счетчик1 = 1;
      Прервать;
    КонецЕсли;
    Если  Состояние1 == 0 Тогда
      //Счетчик1 = 1;
      Прервать;
    КонецЕсли;
   КонецЦикла;
КонецЕсли;


[AlexRuden]

Если бы я все переменные смог додумать самостоятельно - то я и скрипт смог бы написать. Но я реально в этом НУБ.

Код: Выделить всё

      ВыходыКПБ.ПолучитьПоАдресу( "?.?.11.1" ).Включить( "0" );


? - номер ком-порта - у меня №1.
второй ? номер адреса компа - это адрес 127 ?
то есть должно получиться ВыходыКПБ.ПолучитьПоАдресу( "1.127.11.1" ).Включить( "0" ); ?

Тогда кто вам поручил писать сценарий?)) Остается только платить бабло)) хехе

(компорт).(адрес пульта rs485).(адрес КПБ).(номер выхода)

Спойлер

Код: Выделить всё

Сценарий
   Переменные
      Перем Счетчик1;
      Перем ВыходыКПБ;
      Перем Разделы1;
      Перем Состояние1;      
НачалоСценария
   ВыходыКПБ    = СоздатьОбъект( "Выходы" );
   Разделы1    = СоздатьОбъект("Разделы");

Если ( Разделы1.ПолучитьПоИндексу( 111 ).Состояние() == "ПОЖАР" ) ИЛИ ( Разделы1.ПолучитьПоИндексу( 121 ).Состояние() == "ПОЖАР" ) Тогда
  Счетчик1 = 0;
  Пока Счетчик1 < 1 Цикл
    Состояние1 = 0;
    Если Разделы1.ПолучитьПоИндексу( 111 ).Состояние() == "ПОЖАР" Тогда
       Состояние1 = Состояние1 + 1;
    КонецЕсли;
    Если Разделы1.ПолучитьПоИндексу( 121 ).Состояние() == "ПОЖАР" Тогда
       Состояние1 = Состояние1 + 1;
    КонецЕсли;
    Если ( Состояние1 == 2 )И( Разделы1.ПолучитьПоИндексу( 90 ).Состояние() == "ВОССТАНОВЛЕНИЕ ТЕХНОЛОГИЧЕСКОГО" ) Тогда
      ВыходыКПБ.ПолучитьПоАдресу( "?.?.11.1" ).Включить( "0" );
      //Счетчик1 = 1;
      Прервать;
    КонецЕсли;
    Если  Состояние1 == 0 Тогда
      //Счетчик1 = 1;
      Прервать;
    КонецЕсли;
   КонецЦикла;
КонецЕсли;
КонецСценария


[Vladimir -]

тот кто поручил написать сценарий собственно проектировщик. я бы ему руки повыдергивал за такой проект. вс можно было сделать проще и дешевле, а теперь приходится выпендриваться. Спасибо еще раз за посильную помощь. Завтра у меня получается рабочий день. пойду пробовать.

[AlexRuden]

тот кто поручил написать сценарий собственно проектировщик. я бы ему руки повыдергивал за такой проект. вс можно было сделать проще и дешевле, а теперь приходится выпендриваться.

Я еще не встретил идеально продуманного проекта системы "Умный Дом", думается мне, что проектировщики не советуются с монтажниками и пусконаладчиками, а зачастую даже не выезжают на объект будущих работ.

[AlexRuden]

Я смотрю тут тех.поддержка занимается плагиатством? )))

Тогда вот вам (тех.поддержке) скрипт, чтоб взяли как образец

Спойлер

Код: Выделить всё


Сценарий
  Переменные
    Перем     Динамит;
    Перем     ВасяДелаетРазминирование;
    Перем     ЭквивалентТротила;
    Перем     Запал;
    Перем     МинноеПоле;
    Перем     ЧертоваМина;
    Перем     МинаВзорвалась;
    Перем     КрасныйИЛИсиний;
    Перем     ПоказательЖизниВаси;
    Перем     Взрыватель;
    Перем     Муляж;

НачалоСценария

    Запал = СоздатьОбъект("Выход");
    МинноеПоле = СоздатьОбъект("Раздел");
    КрасныйИЛИсиний = СоздатьОбъект("Шлейф");

    Динамит = "1.0.11.1";
    Взрыватель = "1.0.1.127";
    ВасяДелаетРазминирование = "ДА";
    МинаВзорвалась = "Нет";
    ЭквивалентТротила = 15;
    ЧертоваМина = 666;
    Муляж = "Нет";

    Пока ВасяДелаетРазминирование <> МинаВзорвалась  Цикл
      Если    ( Лев( МинноеПоле.ПолучитьПоИндексу( ЧертоваМина - 555 ).Состояние() , 1) +
                Сред( МинноеПоле.ПолучитьПоИндексу((ЧертоваМина+60)/6).Состояние() , 2 , 1) +
                Сред( МинноеПоле.ПолучитьПоИндексу( ЧертоваМина + 37 ).Состояние() , 3 , 1) +
                Сред( МинноеПоле.ПолучитьПоИндексу( ЧертоваМина + 38 ).Состояние() , 3 , 1 ) +
                Сред( МинноеПоле.ПолучитьПоИндексу( ЧертоваМина + 39 ).Состояние() , 6 , 1 ) +
                Сред( МинноеПоле.ПолучитьПоИндексу( ЧертоваМина + 5*8 ).Состояние() , 5 , 1 ) + "Ь !!!" ) == "ПОССАТЬ !!!"
      Тогда
         Для ПоказательЖизниВаси = 1 По 100 Цикл
             Если    ( Сред( КрасныйИЛИсиний.ПолучитьПоАдресу( Взрыватель ).Состояние() , 11 , 1 ) +
                       Сред( КрасныйИЛИсиний.ПолучитьПоАдресу( Взрыватель ).Состояние() , 3 , 2 ) + "П" )  == "ТРУП"
             Тогда
               Запал.ПолучитьПоАдресу( Динамит ).Включить( Строка(ЭквивалентТротила) );
               МинаВзорвалась = "ДА";
               Прервать;
             КонецЕсли;
             Задержка( 1800 );
         КонецЦикла;
       Иначе
         Муляж = "?";
         Если  ( Сред( МинноеПоле.ПолучитьПоИндексу( ЧертоваМина / 6 ).Состояние() , 3 , 1 ) + "ОПА" )  <> "ЖОПА"  Тогда
             Муляж = "Д";
         КонецЕсли;
         Если  ( "В" + Сред( МинноеПоле.ПолучитьПоИндексу( ( ЧертоваМина + 60 ) / 6 ).Состояние() , 4 , 1 ) + "СЕ" )  <> "ВАСЕ"  Тогда
             Муляж = Муляж + "А";
         КонецЕсли;
         Если  Муляж == ВасяДелаетРазминирование  Тогда
             Прервать;
         КонецЕсли;
       КонецЕсли;
    КонецЦикла;
КонецСценария


Вы всё ещё пользуетуесь стандартными тактиками? - тогда мы идем к Вам

Такие подлянки делаются в 1000 строк (универсальные скрипты) . Работать всё будет, но разберись

[Vladimir -]

Читаю. Разбираюсь. Объект то сдали но мне на будующее. Все таки классно у тебя этот скрипт выглядит!!! Я его распечатаю и на стенку повешу!!

[AlexRuden]

Я вот думаю на суд общественности выложить уни-скрипт, обрабатывающий события "Пожар", "Два пожара", "Нарушение тех.ШС", для запуска систем дымоудаления, оповещения, эвакуации, пожаротушения. Скрипт требует правильной структуры БД. Если есть интерес и будут мнения и предложения по унификации и модернизации скрипта , то буду рад общению по этому вопросу)