Реализация бесконечного цикла

FORUM_NAME: АРМ Орион Про версии до 1.20
Описание: АРМ "Орион Про" — пакет программного обеспечения для аппаратно-программного комплекса ИСО "Орион", на котором реализуются системы охранной сигнализации, контроля и управления доступом, охранного видеонаблюдения, автоматика противопожарных систем, сопряженные с инженерными системами объектов.
Справочная информация, руководства для АРМ Орион Про версии до 1.20
Модератор: Модераторы
anderson
Автор темы
anderson
Автор темы
Возраст: 27
Репутация: 0
Сообщения: 2
Зарегистрирован: 24.11.2014
С нами: 2 года
Профессия: Инженер-проектировщик

Непрочитанное сообщение #1 anderson » 29.12.2014, 08:24

Доброго времени суток! В соответствии с руководством "Описание макроязыка сценариев "Орион-script": интерпретатор скриптового языка проверку цикла на бесконечную работу не производит. Не мог бы кто-нибудь выложить успешную реализацию бесконечного цикла на языке сценариев? А так же вопрос: сильно ли нагружает выполнение бесконечного цикла АРМ "Оирон Про"?
С уважением,
Инженер-проектировщик 3 кат.
ООО "Арус"
http://apyc.ru/

anderson
Автор темы
anderson
Автор темы
Возраст: 27
Репутация: 0
Сообщения: 2
Зарегистрирован: 24.11.2014
С нами: 2 года
Профессия: Инженер-проектировщик

Непрочитанное сообщение #2 anderson » 21.01.2015, 13:30

Коли уж никто ничего не написал - выкладываю свой вариант.
Спойлер

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

Сценарий
   Переменные
      Перем Разделы1;
      Перем Раздел1;
      Перем Тревога1;
      Перем Ядро1;
      Перем Перемен1;
      Перем Смещение1;

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

// Здесь мог бы быть Ваш комментарий
Разделы1 = СоздатьОбъект("Разделы");
Если Не ПустоеЗначение(Разделы1) Тогда
   
// Идентифицировали разделы
Раздел1 = Разделы1.ПолучитьПоИндексу(1);

КонецЕсли;

// Получили состояние разделов
Тревога1 = Раздел1.ЗначениеСостояния();

// Создаём объект "Ядро"
Ядро1 = СоздатьОбъект( "Ядро" );

// Для смещения каретки
Смещение1 = 0;

// Зацикливаем сценарий для постоянного выполнения
Перемен1 = 0;               // Реализация бесконечного цикла
Пока Перемен1 < 10 Цикл     // Условие цикла
   Перемен1 = Перемен1 + 1; // Начало цикла

   Ядро1.ЗаписьВФайл( "С:\cycle.txt", Смещение1, Строка( Перемен1 ) );
   Смещение1 = Смещение1 + 3;
   Задержка( 60000 );

   Перемен1 = Перемен1 - 1; // Условие зацикливания, при комментировании цикл выполняется 10 раз

   Ядро1.ЗаписьВФайл( "С:\cycle.txt", Смещение1, Строка( Перемен1 ) );
   Смещение1 = Смещение1 + 3;
   Задержка( 60000 );

КонецЦикла;
КонецСценария
Систему на АРМ не нагружает
С уважением,
Инженер-проектировщик 3 кат.
ООО "Арус"
http://apyc.ru/


  • Похожие темы
    Ответы
    Просмотры
    Последнее сообщение

Вернуться в «АРМ Орион Про версии до 1.20»

Кто сейчас на форуме (по активности за 5 минут)

Сейчас этот раздел просматривают: 5 гостей
Боты: Bing [Bot]

forum-bolid.ru : Отказ от ответственности