Реализация задержки в программе

[dimix]

Нашел такой пример:

Public Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)

Sleep 1000

Стоит им воспользоваться, или лучше как-дь по другому?

[Ennor]

Да, можно.

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

[Vini]

А у меня сработало только если вот так

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

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

А вообще я вот так делал еще

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

Public Sub Wait(seconds)
    Timer1.Enabled = True
    Me.Timer1.Interval = 1000 * seconds
    While Me.Timer1.Interval > 0
        DoEvents
    Wend
    Timer1.Enabled = False
End Sub


Private Sub Timer1_Timer()
    Timer1.Interval = 0
End Sub



Теперь где надо подождать пишу wait (время в сек)

[dimix]

А Timer не будет сильнее загружать систему, по сравнению со Sleep?

А Public я тоже на Private заменил.

[hCORe]

А Timer не будет сильнее загружать систему, по сравнению со Sleep?

Наоборот! Таймеры [edit@20:40 18.03.2005]не выполняются в отдельном потоке, но работают асинхронно - спасибо за информацию, alibek.[/edit]

[alibek]

Насколько я знаю, таймеры НЕ выполняются в отдельном потоке. Просто Windows посылает соответствующее сообщение (WM_TIMER) в основной цикл программы, поэтому таймеры и выглядят асинхронными.

[Ariman]

Если такие вот задержки внести в цикл, то под ХР его скорость не будет превышать 64 итеррации/сек
И как с этим справиться - никто не сказал.
Кстати говоря - этот способ был в одной одной книге предложен.
Там сказано: чтоб скорость главного цикла не варьировалась на разных компах, то замедляем так(проверяем перед очередной итеррацией, прошло ли заданное количество мкС)
Похоже, этот человек не знал об особенностях работы этого способа под ХР!

[dimix]

Че-то вы меня совсем запутали. Не, вы не виноваты - виновата моя нехватка знаний. Короче, как лучше делать? Таймером?

[GSerg]

Да как хочешь

Например: берёшь Waiter! из Кирпичей, создаёшь Event (CreateEvent), натравливаешь Waiter! на hEvent с заданным таймаутом. Поскольку никто ставить hEvent в сигнальное состояние не будет, то Waiter! сгенерит Complete ровно по окончании срока ожидания
Потом CloseHandle на hEvent не забываем

[dimix]

GSerg, ты все прояснил!

[Ariman]

2GSerg А если я этот Waiter в цикл пихну? И под ХР?
Будет ОК, или как всегда?

[GSerg]

Асинхронный контрол в цикл? Интересно, зачем и как?

[Ariman]

2 GSerg тьфу, не знал я что такое этот ваш Waiter!
Короче, выражусь так: можно его использовать для внесения задержки в цикл, и будет ли сие правильно функционировать по Хр?

[GSerg]

Сие будет правильно функционировать под XP (хотя я и не проверял ), но как ты будешь обрабатывать событие Complete и продолжать после него цикл?

[Ariman]

Так как я не видел НИ этого контрола(или что там он из себя представляет), НИ примеров его использования, я и задал соответствующий вопрос:

.....можно его использовать для внесения задержки в цикл, и будет ли сие правильно функционировать по Хр?

Поэтому ожидаю на него ответа, а не встречного вопроса(мол, можно, конечно, но как? )

[GSerg]

А ты посмотри контрол, посмотри

Для цикла он не годится совсем

[dimix]

2 GSerg. "Обрабатывать событие Complete и продолжать после него цикл" - может я просто чего-то не понял, но в чем сложность обработать Complete и продолжить цикл? Я именно так и использую Waiter! - в цикле. Или ты о другом?

[GSerg]

Ты внутри цикла.
Заставляешь waiter! ждать.
Ты не знаешь, когда будет complete.
Чем ты занимаешься в этом цикле, пока он ждёт?

[dimix]

Пока Waiter! ждет, я занимаюсь чем угодно

Рассказываю по порядку. У меня возникла необходимость запускать процессы в цикле поочередно, каждый новый - по завершению предыдущего. Завершение я стал ждать Waiter!'ом, а цикл организовал так:
1. Есть процедура, допустим Go(), запускающая процесс с использованием Waiter!'а. Она запускает только один процесс.
2. В Complete Waiter!'а я поместил ссылку на процедуру Go.
3. Есть переменная, которой я изначально присваиваю значение, равное требуемому количеству итераций цикла. В Complete, либо в самой процедуре Go уменьшаю значение переменной на 1.
Остается только где-то хранить список процессов, которые нужно запускать, а процедура Go в соответствии со значением переменной, возьмет из списка нужный процесс и запустит его.
Ну а запускается цикл понятно как - сформировали список процессов, в переменную записали количество итераций и один раз вызвали процедуру Go.
Конечно, это не For Next, но чем не цикл?
Соответственно, пока процессы работают а Waiter! ждет, можно заниматься чем угодно, благо Waiter! позволяет, за что ему и спасибо. Кстати, GSerg, скачай себе Waiter! - классная штука!

[GSerg]

Кстати, GSerg, скачай себе Waiter! - классная штука!

Долго думал над твоим предложением

[Ariman]

Чем ты занимаешься в этом цикле, пока он ждёт?

Все тебе расскажи
Ктож такие интимные подробности разглашает???

[Ariman]

А вообще, надо и мне скачать, а то не знаю, кому из вас верить

Мне нужно только одно - у меня есть главный цикл, который исполняется, пока работает программа. И мне нужно, чтобы можно было регулировать веремя между его итеррацияи. Или не выполнять инструкции цикла, пока не проудет нужное мне время, т.е. просто пропускать все, что внутри него...
Так пойдет для этого ваш WAITЕR! или нет???

[tyomitch]

Ariman, вкупе с CreateWaitableTimer - подойдёт.

[dimix]

Долго думал над твоим предложением

Ну и как, надумал?

2 Ariman. Давно бы уже скачал. Если сейчас не понадобится - может потом пригодится. (GSerg, мне проценты полагаются?)

Ктож такие интимные подробности разглашает???

Ariman, а может предложим GSerg'у встроить в Waiter! инструкцию в виде рекомендаций "Чем вы можете заняться, пока Waiter! ждет"? И статистику собирать. И топ-лист вывесить.

[Ariman]

2 Ariman. Давно бы уже скачал. Если сейчас не понадобится - может потом пригодится.

Не имею сейчас возможности проверять новые методы. Чуть-чуть разгружусь, обязательно скачаю и попробую.

Ariman, а может предложим GSerg'у встроить в Waiter! инструкцию в виде рекомендаций "Чем вы можете заняться, пока Waiter! ждет"? И статистику собирать. И топ-лист вывесить.

Здравая мысль!!! А еще лучше на форуме тему создать! С опросом!(Или без опроса, пусть сами предлагают!)

2tyomitch Если не трудно, кинь примерчик, пожалуйста...

А под ХР скорость цикла не падает? До 64 итерраций??? Мне же это главное.......