Как организовать ПАУЗУ или Задержку

[zaf]

Добрый день!

Как можно организовать паузу скажем на 1,5 сек в коде?

Чтобы если код выполнился до этого места остановился на полтора сек и продолжил.

help plzz

[tyomitch]

Sleep

[DirectXManiac]

Можно например так:
1.На форму поставить Timer. В свойстве Interval установить 1500(1,5 сек)
2.Ввести переменную типа MayCompile As Boolean
3. При загрузке формы установить значение в False
4. Когда нужно включить Timer и в событии прописать:
Private Sub Timer1_Timer()
MayCompile = True
Timer1.Enabled = False
End Sub

А вот примерный код процедуры:

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


Dim mayCompile As Boolean

Private Sub Form_Load()
' Нужно установить в таймере свойство Timer1.Enabled = False
'Код
MayCompile = False
Timer1.Enabled = True
If MayCompile = True Then
'//Код после паузы
End If
End Sub


[tyomitch]

DirectXManiac, твоя процедура не заработает.

[DirectXManiac]

почему у меня работает! Я так делал перерыв между нажатиями клавиш! Чтоб сделать через DirectX окно для ввода текста =) Может щас что-то напутал!

[zaf]

Можно например так:
1.На форму поставить Timer. В свойстве Interval установить 1500(1,5 сек)
2.Ввести переменную типа MayCompile As Boolean
3. При загрузке формы установить значение в False
4. Когда нужно включить Timer и в событии прописать:
Private Sub Timer1_Timer()
MayCompile = True
Timer1.Enabled = False
End Sub

А вот примерный код процедуры:

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

Dim mayCompile As Boolean

Private Sub Form_Load()
' Нужно установить в таймере свойство Timer1.Enabled = False
'Код
MayCompile = False
Timer1.Enabled = True
If MayCompile = True Then
'//Код после паузы
End If
End Sub


Я изначально так сделал

100 If a = true then Goto 100

Только прога завилса


If MayCompile = True Then
'//Код после паузы
End If

так код выпонится недожидаясь того когда MayCompile = True

[zaf]

Sleep

Вылазит окошко и матерится
Sub or Function not defined


как исправить?

[uhm]

Declare её, declare

[Oxygen]

А вот и примерчик из MSDN. Тут ещё попутно показано как использовать функцию wait.

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


Option Explicit

' Sleep API is declared in the form to keep the
' SetWaitableTimer code in its own re-usable module.
Private Declare Sub Sleep Lib "kernel32" ( _
    ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
    Command1.Enabled = False
    Wait 10 ' seconds
    Command1.Enabled = True
End Sub

Private Sub Command2_Click()
    Command2.Enabled = False
    Sleep 10000 ' milliseconds
    Command2.Enabled = True
End Sub

Private Sub Form_Load()
    With Form1
        .Height = 1400
        .Width = 2400
    End With
    With Command1
        .Move 100, 100, 2000, 300
        .Caption = "SetWaitableTimer"
    End With
    With Command2
        .Move 100, 500, 2000, 300
        .Caption = "Sleep"
    End With
End Sub


[Dmitriy2003]

Пример из MSDN я видел.

а вот с TimerAPCProc проблемы, есть идеи как реализовать? Asynchronous Procedure Calls + vb = Есть подводные камни ?

Добавленно

В примере из MSDN заменил MsgWaitForMultipleObjects на MsgWaitForMultipleObjectsEx

TimerAPCProc

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


Public Function TimeOutEvent(ByVal lpArgToCompletion As Long, ByVal dwTimerLow As Long, ByVal dwTimerHigh As Long) As Long
    '
End Function


Вызов:

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


lRet = SetWaitableTimer(hTimer, ft, 0&, AddressOf TimeOutEvent, 0&, False)
   
    Do
        lBusy = MsgWaitForMultipleObjectsEx(1, hTimer, INFINITE, QS_ALLINPUT&, 2&)
        DoEvents
    Loop Until lBusy = WAIT_OBJECT_0


Че не так непойму - видать чет упустил ?

[alibek]

1.На форму поставить Timer. В свойстве Interval установить 1500(1,5 сек)

Самый плохой совет. Дальше можно не читать.
Interval=1500 означает, что событие Timer сработает в любой момент после запуска таймера от 0с до 1.5с.

[Dmitriy2003]

Может мне кто-нить объяснить в чем разница в работе между MsgWaitForMultipleObjectsEx и SleepEx, в купе с SetWaitableTimer , я честьно читал но чет тяжело доходит. в аттаче отложенный таймер + SleepEx. MsgWaitForMultipleObjectsEx - ??? или другая может какая

[tyomitch]

Dmitriy2003, ты лучше объясни по-русски, что конкретно тебе нужно, и чем обычный таймер не устроил.

[Dmitriy2003]

Dmitriy2003, ты лучше объясни по-русски, что конкретно тебе нужно, и чем обычный таймер не устроил.

1. Почему TimerAPCProc не вызывается ? (MsgWaitForMultipleObjectsEx, про периодику молчу.)
2. Ничего против обычного таймера не имею. (но это не значит что нужно именно его использовать).

[tyomitch]

Скачал аттач, запустил, работает.
В чём вопрос, так и не понял.
Зачем вместо FindWindow[Ex] используется Enum[Child]Windows, так и не понял.
Зачем вместо поиска контрола по ID (&H130) используется привязка к заголовку, зависящему от языка системы, тоже не понял.
Считай, совсем ничего в этом коде не понял

[Dmitriy2003]

В чём вопрос, так и не понял.

Работает потому-что SleepEx, а если с MsgWaitForMultipleObjectsEx то не работает. Почему ?

Зачем вместо FindWindow[Ex] используется Enum[Child]Windows, так и не понял.Зачем вместо поиска контрола по ID (&H130) используется привязка к заголовку, зависящему от языка системы, тоже не понял.

Это не существенно.(это код тут побоку), хотя еще впоросик ID (&H130) во всех версиях винтукея ?

[tyomitch]

Note that you cannot use WaitForSingleObjectEx to wait on the handle to the object for which the APC is queued. Otherwise, when the asynchronous operation is completed, the handle is set to the signaled state and the thread is no longer in an alertable wait state, so the APC function will not be executed. However, the APC is still queued, so the APC function will be executed if you call another alertable wait function.

[Mikle]

Если ничего не декларировать, то можно так:

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

t=Timer
Do While timer - t < 1.5
Loop


Можно в цикл вставить DoEvents, но это может быть опасно - зависит от остального кода.
А вообще лучше, конечно, Sleep.

[Dmitriy2003]

Note that you cannot use WaitForSingleObjectEx to wait on the handle to the object for which the APC is queued. Otherwise, when the asynchronous operation is completed, the handle is set to the signaled state and the thread is no longer in an alertable wait state, so the APC function will not be executed. However, the APC is still queued, so the APC function will be executed if you call another alertable wait function.

Сам просил по русски, пишеш однако по англиски. Не думаю что тебе сложно, наверно просто не хочеш.

Тогда может кто-нить кто еще русский не забыл - обьяснит по русски.

[tyomitch]

По-русски и коротко: от WaitableTimer-а надо юзать либо хэндл, либо процедуру завершения, но не обе одновременно.

[Dmitriy2003]

То-есть, если я правильно понял, в MsgWaitForMultipleObjectsEx можно юзать какой нить евент, в это время TimerAPCProc c интервалом 1000 мс будет работать. Как надоест просто сбросить евент. (к примеру) ? или опять мимо ?

[tyomitch]

Угу, верно. Только не сбросить, а наоборот, установить, чтобы удовлетворить ожидание.

[Dmitriy2003]

Наконец-то я добрался до истины, вот так всегда, сразу вспоминаеш подпись Gserg. Огромное человеческое спасибо tyomitch - за терпение и понимание. Respect