Код: Выделить всё
Сценарий
Переменные
Перем Разделы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 );
КонецЦикла;
КонецСценария
Вернуться в «АРМ Орион Про версии до 1.20»
Сейчас этот раздел просматривают: 3 гостя