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

[Emzari]

Можно ли организовать задержку при виполнении кода, без использования пустых циклов. Может есть какое нибудь функция или чтото вроде.

[moderator]

Можно. Берешь API-Guide и ищещь в нем слово "pause".

[kazah_]

попробуй использовать таймер. Клевая штука... помогает иногда. и парева никакого

[basicom]

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
а зтем вызываешь например
Sleep 1000
, где 1000-значение в миллисекундах, тобишь одна секунда

[moderator]

попробуй использовать таймер. Клевая штука... помогает иногда. и парева никакого

Таймер - не всегда хорошее решение. Для повторяющихся действий (вывод на экран времени, например) таймер очень подходит. А для организации задержек в коде таймер - оч-ч-ень плохой способ.

[X-BOND]

Таймер - не всегда хорошее решение. Для повторяющихся действий (вывод на экран времени, например) таймер очень подходит. А для организации задержек в коде таймер - оч-ч-ень плохой способ.

Согласен. Это лишний контрол в проекте. К тому же обязательно нужна форма, что не всегда приемлимо. Sleep - идеальный вариант

[MEMBER]

Sleep, при всей его хорошести, замораживает форму полностью, что не гуд.

[Mirus]

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

Option Explicit
Private Declare Function MsgWaitForMultipleObjects Lib "user32" (ByVal nCount As Long, pHandles As Long, ByVal fWaitAll As Long, ByVal dwMilliseconds As Long, ByVal dwWakeMask As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Const QS_ALLINPUT = (&H40& Or &H20& Or &H10& Or &H8& Or &H4& Or &H2& Or &H80& Or &H1&)
Public Function Pause(Interval As Long) As Long
Dim Tstart As Long, Tend As Long
Tstart = GetTickCount() + Interval
Do
    Tend = Tstart - GetTickCount()
    If Tend < 0 Then Exit Function
    Call MsgWaitForMultipleObjects(0, 0, 0, Tend, QS_ALLINPUT)
    DoEvents
Loop
End Function

Пактически не ест процессорного времени и не замораживает форму как Sleep

[goro]

Пактически не ест процессорного времени и не замораживает форму как Sleep

Классная фича!

[basicom]

Так примитивно, но тоже ничего не тормозит и не ест ресурсы:

Dim i As Long
For i = 0 To 10000000
DoEvents
Sleep 1
Next i

[Sebas]

С засыпанием и WaitFor... есть один неприятный момент

МОжно не получить нужный Event((((

Как сказал чел, который толстую книку про АПИ написал

Каждое решение хорошо только в контекте выполняемой задачи!

[PSV]

В исходниках кнопок axButton на сайте vbStreets.ru есть модуль для организации таймеров в коде (судя по комметариям взятый где то у MS).

Для мега-маньяков на vbAccelerator.com есть компнент с исходниками для использования мультимедийного таймера с РЕАЛЬНЫМ мин. интервалом 1ms.

[Alex_new_2030]

А если так:

sub zad(n)
t=timer
while (t+n)>timer:wend
end sub



Call zad(1.3) 'Задержка на 1300 милисекунд

[KDima]

А если так:

sub zad(n)
t=timer
while (t+n)>timer:wend
end sub



Call zad(1.3) 'Задержка на 1300 милисекунд

Хм... А DoEvents? Пример Mirus'a покруче будет...

[VOS]

Хм... А DoEvents?

Интересно, кому тогда нужна задержка?

[vvs_adm]

А если так:

sub zad(n)
t=timer
while (t+n)>timer:wend
end sub



Call zad(1.3) 'Задержка на 1300 милисекунд

А если внимательно вопрос прочитать??

...без пустых циклов...