Чтобы после каждой итерации цикла была задержка допустим на 2 минуты.

например Предупреждение()

(1) а если допустим на Сервере это нужно?

+2 нет ли какой штатной функции задержки?

(3) Штатной нет, можно использовать функции ТекущаяДата() написать маленький алгоритм паузы.

Shell = Новый COMОбъект("WScript.Shell");
Пока НеНадоело Цикл
   Shell.Sleep(120000);
КонецЦикла;

(0) Если нужно отдавать таймслайсы, то можно юзать ПолучитьCOMОбъект("winmgmts:").ExecNotificationQuery("Select * from __instancemodificationevent where TargetInstance isa 'Win32_UTCTime'").NextEvent();

(5) пишет что метод Sleep не обнаружен..

v8: как сделать задержку?

(5) нет у шелла такого метода, это метод объекта WScript, котрый создается ТОЛЬКО программами wscript.exe и cscript.exe
(7) потому и не кусаютъ (с)

(9) спасиб, я понял..

командасистемы("ping -n " + чисСекунд + " 127.0.0.1 > NUL")


чисСекунд = 120;
командасистемы("ping -n " + чисСекунд + " 127.0.0.1 > NUL");


Мда... Вот мне интересно, извращения с пинг и Предупреждение - это дань моде? Вариант (6) отметается по религиозным соображениям? ... :)

(13)выучил новое слово решил рисануться а никто даже внимания не обратил?

(14) Ты не прав. Я сам прошёл через эти пинги, генерацию файла со скриптом на лету и т.п.

(6)(14) Спасибо, очень интересная тема.
Поиском вышел на статью откуда можно понять, как это работает: http://www.samag.ru/cgi-bin/go.pl?q=articles;n=03.2006;a=05

с предупреждением весело становится, когда код ВНЕЗАПНО начинает выполняться на сервере. Ни чего, кроме желания насадить автора на кол, такие штуки не вызывают.

(6) если не затруднит, примерчик использования, пожалста

(6) Просим, просим!

регламентная обработка не подходит? вот пример как делается вызов обработки с контролем от паралельного запуска

Функция ВыполнитьОбработку(Ссылка, Авто=Истина) Экспорт
   Результат = Истина;
   ИмяОбъекта = "Регламент."+ СокрЛП(Ссылка.ИмяОбработки);
   
   ОписаниеОшибки = "";
   СтатусВыполненияОбработки = Неопределено;
   
   Попытка
       Объект = Ссылка.ПолучитьОбъект();
   Исключение
       Результат = Ложь;    
       ОписаниеОшибки = "[" + ИмяОбъекта + "]" + ОписаниеОшибки();
       Объект = Неопределено;
   КонецПопытки;
   
   Если Объект <> Неопределено Тогда
       Попытка
           Объект.Заблокировать();
           
           Обработка = Обработки[СокрЛП(Ссылка.ИмяОбработки)].Создать();
           Обработка.Авто_Регламент = Истина;
           МетаданныеОбработки = Обработка.Метаданные();
           
           Для Каждого Стр Из Ссылка.ПараметрыОбработки Цикл
               ИмяРеквизита = Стр.ИмяПараметра;
               
               Если ИмяРеквизита = "Авто_Регламент" Тогда
                   Продолжить;
               КонецЕсли;
               
               Если ПроведениеДокументов.ЕстьРеквизитДокумента(ИмяРеквизита, МетаданныеОбработки) Тогда
                   Если Найти(ВРЕГ(ИмяРеквизита),"ПАРОЛЬ")>0 Тогда
                       Обработка[ИмяРеквизита] = Стр.ЗначениеПароля;
                   Иначе
                       Обработка[ИмяРеквизита] = Стр.ЗначениеПараметра;
                   КонецЕсли;
               КонецЕсли;
           КонецЦикла;
       
           СтатусВыполненияОбработки = Обработка.ВыполнитьОбработку();
       Исключение
           Результат = Ложь;    
           ОписаниеОшибки = "[" + ИмяОбъекта + "]" + ОписаниеОшибки();
       КонецПопытки;
       
       Если Объект.Заблокирован() Тогда
           Объект.Разблокировать();
       КонецЕсли;
   КонецЕсли;
   
   Если СтатусВыполненияОбработки <> Истина Тогда
       Если ОписаниеОшибки = "" Тогда
           ОписаниеОшибки = СтатусВыполненияОбработки;
       КонецЕсли;
       Результат = Ложь;
   КонецЕсли;
   
   
   // теперь попробуем записать статусы в регистр
   
   Попытка
       Лог = РегистрыСведений.ЛогРегламентыхЗаданий.СоздатьМенеджерЗаписи();
       
       
       Лог.Обработка = Ссылка;
       Лог.АвтоЗагрузка = Авто;
       Лог.Дата = ТекущаяДата();
       Лог.СтатусЗавершения = Результат;
       Лог.ОписаниеОшибки = ОписаниеОшибки;
       Лог.Записать(Истина);
   
   Исключение
       ОписаниеОшибки2 = "[" + ИмяОбъекта + "]" + ": ошибка регистрации исполнения """ + ОписаниеОшибки() + """";
       #Если Клиент Тогда
           Сообщить(ОписаниеОшибки2);
       #КонецЕсли

       ЗаписьЖурналаРегистрации(ИмяОбъекта,
                               УровеньЖурналаРегистрации.Ошибка, , ,
                               ОписаниеОшибки2, РежимТранзакцииЗаписиЖурналаРегистрации.Независимая);
   КонецПопытки;
   
   #Если Клиент Тогда
       Если не Результат Тогда
           Сообщить("Обработка не выполнена. """+ ОписаниеОшибки +"""");
       КонецЕсли;
   #КонецЕсли
   
   Возврат Результат;
КонецФункции

(15)в чем неправ ... что-бы сделать двухминутную задержку ты создаешь олешный объект ... на который уже тратиться время

(20)а это то зачем?

Речь о клюшках или о снеговике? Со слипами и пингами народ в семерке извращался, а в восьмерке ПодключитьОбработчикОжидания(<Имя процедуры>, <Интервал>, <Однократно>) чудненько работает.

(22) тело цикла пишешь в обработку и регламентом вызываешь 1 раз в 2 минуты, по моему это именно то чего хочет автор

(23) ты не прав ПодключитьОбработчикОжидания - работает совсем не чудно :)

(25) Ы?
Когда при работе с сайтом из 1с мне потребовалось в код вставить 10 секундную задержку, я её реализовал с помощью ПодключитьОбработчикОжидания.

(24)мда ... я быстрее за (6) соглашусь

(25) хм... а чем не чудненько? у меня несколько раз в конфе это используется...
вроде работает...
поделись, плиз, подводными камнями... что там?

(28) недоступно на Сервере..

(29) спс. у меня файловая. ок.

(26)(28) проверьте время через какое срабатывает обработчик при свободной и загруженой системе

(31) не думаю что погрешность настолько критична

(27) мы не знаем задачу автора, если это автоматизация робота, то рег задание имено для этого и придумано :)

(32) как сказать, например для шахмат, где таймер нужен - это критично

(33) задача простая, сделать задержку в цикле)

(34) Понял, спасибо. Значит ПодключитьОбработчикОжидания можно использовать только на клиенте или в файловой и когда нужно просто "немножко подождать". Имхо для большинства задач вполне подходит.

(33) "1с для шахмат" :-))))  а спутники 1с ещё не запускает?
(31) при Перегруженной системе думаю и Регламентные задания также зависнут как и ОбработчикОжидания

Ух ты сколько наколбасили! Сейчас опять 100 постов обсуждения будет! :))
Кто-то просил пример на базе (6)... вот рыба:

Попытка
   COMTime = ПолучитьCOMОбъект("winmgmts:").ExecNotificationQuery("Select * from __instancemodificationevent where TargetInstance isa 'Win32_UTCTime'");
Исключение
   //
   Возврат;
КонецПопытки;

// Время в сек.
Пока Время > 0 Цикл
   Попытка
       COMTime.NextEvent();
   Исключение
       //
       Прервать;
   КонецПопытки;
   Время = Время - 1;
КонецЦикла;

(38) Метод объекта не обнаружен (NextEvent)

(0) А не пробовал сделать с это с обработкой ожидания?


чисКонец = ТекущееВремя() + 120;
пока ТекущееВремя() < чисКонец цикл
конеццикла;


(41) ага

   ВремяЗадержкиСек = 120;
   ТекВремя = ТекущаяДата();
   НужноеВремя = ТекВремя + ВремяЗадержкиСек;
   
   Пока ТекущаяДата() < НужноеВремя Цикл
       ОбработкаПрерыванияПользователя();
   КонецЦикла;

просто для коллекции

но использовать в реальных задачах не советую

(33)вот не надо тут гадать что да как-бы ... человек ясно спросил


цикл х = 1 по ЧемуТо цикл
  ...
  ...
  ...
  ЗдесьЗадержка(НужноеВремяВСекундах); // как?
конеццикла;


Да! Давайте положим сервак 1С бесконечным циклом без отдачи времени операционной системе! А что, пофигу, сейчас серваки мощные! :))

поэтому без всяких слипов и циклов в цикле


чисСекунд = 120;
цикл х = 1 по ЧемуТо цикл
  ...
  ...
  ...
  командасистемы("ping -n " + чисСекунд + " 127.0.0.1 > NUL");
конеццикла;


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

(45) глянь (39)

(45)где тут за бесконечность?

(46) если бы еще окно не вылазило...

(48) Хм... у меня всё ок.
(45) Это я образно для поддержания ветки. Имел ввиду любые циклы без отдачи времени операционке.

(50)можно сделать что-бы и не вылазило

(52) что-то типа

   Сообщить(ТекущаяДата());
   чисСекунд = 10;
   WshShell = Новый COMОбъект("WScript.Shell");
   oExec=WshShell.Run("cmd.exe /c ping -n " + чисСекунд + " 127.0.0.1 > NUL", 0, 1);
   Сообщить(ТекущаяДата());

Есть еще rundll32 kernel32.dll Sleep 10, но у меня так и не получилось заставить сие чудо работать столько сколько нужно

WshShell = Новый COMОбъект("WScript.Shell");
Сообщить(ТекущаяДата());
чисСекунд = 10;
WshShell.Run("cmd.exe /c ping -n " + чисСекунд + " 127.0.0.1 > NUL", 0, 1);
Сообщить(ТекущаяДата());

(55) ))

(51) ты на какой оси проверяешь? у меня хр сп2

(56)просто так точнее ...

А может проще
//-----------
Тек=ТекущаяДата();
Пока ТекущаяДата()-Тек <10 Цикл
КонецЦикла;

(59)тогда смотри (41)

(60)Ну да аналогично:)

(57) Клиент XP SP3, сервак 2003 SP2 - везде ок.

(62)ну скажи чем этот выверт отличается от кода в (41) ... только тем, что используется вми

давайте голосовать какой вариант лучше )

(63) 41? ... В (41) 100% загрузка проца. Не так?

кстати топикстартер как-то исчез - видимо нашел для себя решение
(65) так, 100% загрузка 1 ядра/1 проца

Эх, не дотянем до сотни... :(

(66) Ладно, 1 ядра/1 проца... А если работа через терминал на сервере и задержки буду использоваться многими пользователями - работа встанет. :)

(68) именно поэтому (43)

70! ... Однако я ожидал большего наплыва страстей. :) Видать тем, кто давно на форуме подобные темы уже настолько надоели, что они даже и не ввязываются...

(62) да, на сервере проверил - работает, а на хр, похоже, требуется третий пак.
вобщем, зачетный способ. спасибо тебе!

кто поборет вот это:
rundll32 kernel32.dll Sleep 120
на VB отрабатывает если объявлять импортируемую процедуру...

(0)
ПодключитьОбработчикОжидания(<Имя процедуры>, <Интервал>, <Однократно>)

сойдет?

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

(73) О, свежая кровь! :) Пожалуйста по-подробнее по варианту №2...

зацените:

Тек=ТекущаяДата();
Пока ТекущаяДата()-Тек <10 Цикл
  Сигнал();
КонецЦикла;

(74)
Процедура Задержка(НачДата, ЗадержкавСекундах)

Пока ТекущаяДата() < НачДата + ЗадержкавСекундах Цикл

КонецЦикла

КонецПроцедуры

Да в (59) уже было наподобие

(71) + 1, хорошая вещь в (6). Только не могу понять почему не пашет WQL конструкция WITHIN при том же запросе

Для Счетчик = 1 По 10000 Цикл

   // Здесь что-то делаем

   // Организация паузы 120 секунд
   ЗадержкаДо = ТекущаяДата() + 120;
   Пока ЗадержкаДо >= ТекущаяДата() Цикл

       // Здесь ничего не делаем
 
   КонецЦикла;

КонецЦикла;

(79) Отличный способ занять ядро процессора на 100%.

*как все любят читать что написано в предыдущих постах. жуть, аж страшно

может и дойдем до 100 если постараемся

хорошо бы если бы посты были с новыми алгоритмами задержек, а так воды много в 100 постах, а полезной информации не больше 10

Сделать через простую математическую операцию предлагали?
Типа:
Н = 0;
Пока Н < 10000000 Цикл
Н = Н +1;
КонецЦикла;

(84) а кто знает сколько будет выполняться такой цикл на разных машинах с разными процессорами?

(84) 100% нагрузка на одно ядро. Нормальные люди так паузы не делают.

(86) Так вопрос как сделать паузу, а не как сделать это нормально))

(87) Точно! Грузить 1 ядро мы уже умеем, теперь надо придумать, как грузить все сразу + самым извращённым способом! ]:->

(87)пауза и колабз вещи разные

90! Осталось совсем чуть-чуть до сотни...

91 все равно дойдем до 100

КонецМесячных = ТекущаяДата() + 1200/10;
Пока КонецМесячных >= ТекущаяДата() Цикл
            а=1;
КонецЦикла;

(91) не
НачалоМесячных = ТекущаяДата();
КонецМесячных = НачалоМесячных + 3*40;

(92) не
НачалоМесячных = ТекущаяДата();
КонецМесячных = НачалоМесячных + Sqrt(1522756)-34 ;

(91)Вечный цикл

хотя нет:) ошибся, не вечный:)

(94) конечно не вечный :)

(0) забеременеть :)

(98) интересно, а сам на себя сослаться можно?..

слип из вскрипта можно получить в адинесе

100 ура