Задержка при выполнении цикла

@knox8 · Регистрация: 13.12.2007

Студворк — интернет-сервис помощи студентам

Возможно ли делать задеожку в цикле(уточняю - любого вида). Если да, то как?

24.09.2008, 22:44

Sub Sleep(ByVal Interval)
Dim TempTime
TempTime = Timer + Interval
Do While Timer < TempTime

Loop
End Sub

В VB Работает , если ASP поймет что такое таймер то и там работать будет

@None13 · 27.09.2008, 21:08

ASP поймет

28.09.2008, 00:08

WaitFor
http://www.serverobjects.com/comp/

Allows you to pause your ASP script until a specified period of time has elapsed, a file exists, or the component can get exclusive read/write access to a file.

@palva · 28.09.2008, 00:16

Для чего ждать? Для того, чтобы другие процессы завершили работу с требуемыми ресурсами, закрыли транзакции, файлы и дали возможность скрипту проработать. Если вы (фактически) вводите скрипт в цикл ожидания, то процессор, вместо скорейшего освобождения нужного ресурса будет непрерывно проверять таймер и сильно замедлит, если не остановит работу других процессов. Вам это нужно? Я понимаю, что нет. Куда эффективнее остановиться на некоторое время путем обращения к файлу на несуществующей дискете. Пока дисковод скрипит, ожидаемые процессы завершатся. Но это первое, что приходит в голову. По-хорошему нужно написать Active DLL, хоть на бейсике, которая функциями API, не занимая процессора, сделает нужную паузу. Бесплатных компонент, которые сделают это для вас, - море. Но у вас наверняка есть своя компонента, в которой вы накапливаете подобного рода мелкие функции типа перекодирования.

Вот такие мысли.

28.09.2008, 00:28

WaitFor
http://www.serverobjects.com/comp/

Allows you to pause your ASP script until a specified period of time has elapsed, a file exists, or the component can get exclusive read/write access to a file.

28.09.2008, 22:51

Так тебе и дали ностеры ДЛЛ зарегестрировать,щас
Тогда бы конечно Слипом обошлись.
А что тормозить будет тут ты прав.
Но постановко задачи не требовола нечего кроме задержшки.
А я привык работать по постановке

@knox8 · 29.09.2008, 14:39 **[ТС]**

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

29.09.2008, 19:42

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

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@knox8 0 / 0 / 0 Регистрация: 13.12.2007 Сообщений: 49

	Задержка при выполнении цикла 23.09.2008, 14:38. Показов 1730. Ответов 8 Метки нет (Все метки) Возможно ли делать задеожку в цикле(уточняю - любого вида). Если да, то как? 0

messer
	24.09.2008, 22:44
	Sub Sleep(ByVal Interval) Dim TempTime TempTime = Timer + Interval Do While Timer < TempTime Loop End Sub В VB Работает , если ASP поймет что такое таймер то и там работать будет

@None13 0 / 0 / 0 Регистрация: 16.07.2008 Сообщений: 26
	27.09.2008, 21:08
	ASP поймет 0

DiP
	28.09.2008, 00:08
	WaitFor http://www.serverobjects.com/comp/ Allows you to pause your ASP script until a specified period of time has elapsed, a file exists, or the component can get exclusive read/write access to a file.

@palva 4276 / 2969 / 692 Регистрация: 08.06.2007 Сообщений: 9,922 Записей в блоге: 4
	28.09.2008, 00:16
	Для чего ждать? Для того, чтобы другие процессы завершили работу с требуемыми ресурсами, закрыли транзакции, файлы и дали возможность скрипту проработать. Если вы (фактически) вводите скрипт в цикл ожидания, то процессор, вместо скорейшего освобождения нужного ресурса будет непрерывно проверять таймер и сильно замедлит, если не остановит работу других процессов. Вам это нужно? Я понимаю, что нет. Куда эффективнее остановиться на некоторое время путем обращения к файлу на несуществующей дискете. Пока дисковод скрипит, ожидаемые процессы завершатся. Но это первое, что приходит в голову. По-хорошему нужно написать Active DLL, хоть на бейсике, которая функциями API, не занимая процессора, сделает нужную паузу. Бесплатных компонент, которые сделают это для вас, - море. Но у вас наверняка есть своя компонента, в которой вы накапливаете подобного рода мелкие функции типа перекодирования. Вот такие мысли. 0

DiP
	28.09.2008, 00:28
	WaitFor http://www.serverobjects.com/comp/ Allows you to pause your ASP script until a specified period of time has elapsed, a file exists, or the component can get exclusive read/write access to a file.

messer
	28.09.2008, 22:51
	Так тебе и дали ностеры ДЛЛ зарегестрировать,щас Тогда бы конечно Слипом обошлись. А что тормозить будет тут ты прав. Но постановко задачи не требовола нечего кроме задержшки. А я привык работать по постановке

@knox8 0 / 0 / 0 Регистрация: 13.12.2007 Сообщений: 49
	29.09.2008, 14:39 [ТС]
	Спасибо. К сожалению, мой хостер не разрешает использовать свои DLL, так с помощью них я бы мог решить много проблем. А вся загвоздка состоит в том, что я с помощью цикла забираю с вебсевера данные, а тайм-аут нужен по вопросу аутентификации, вот и все, но в целом все ясно 0

DiP
	29.09.2008, 19:42
	таймаут по вопросу аутенфикации... тогда не очень понятно зачем паузить все приложение. ты решаемую тобой задачу проясни возможно у нее есть путь решения отличный от выбранного тобой. мы тебе что-нибудь подскажем конкретно... если хочешь.