как сделать "паузу" в выполнении кода программы...

[badDRAGON]

как сделать "паузу" в выполнении кода программы...?
Допустим я выполняю цикл...в теле цикла-условие,если оно выполняется,то мне нужно,какбы "затормозить программу" на определенное время,после которого ,код начнет выполняться не с начала,а с того места,где была пауза...Нужно сделать это ПРОГРАММНО...помогите...

[val]

Можно сделать по разному.

Например.....

Public Sub Pause(ByVal fSeconds As Single)

Dim dtStart As Date
Dim fTimeOut As Single


dtStart = Now
fTimeOut = Timer + fSeconds

Do
DoEvents
Loop Until Timer > fTimeOut Or DateDiff("s", dtStart, Now) > fSeconds

End Sub


'Делаешь паузу
Pause(2) или Pause(1.5)

[v-adix]

можно и так:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

например:
msgbox "hello"
sleep 5000
msgbox "goodbye"
end

[neic]

v-adix'вый способ самый рациональный и по проще!

[kirrun]

КОГДА ЛЮДИ БУДУТ ЮЗАТЬ ПОИСК???

Тема уже обсуждалась. Недавно. Приводилась куча способов. Обсуждались их плюсы и минусы.

[badDRAGON]

большое спасибо всем...

[Lenny]

А еще можно использовать SLEEP функцию

[GSerg]

Lenny, ты читал то, что написано выше?..

[kirrun]

Lenny

хм... странно...

[Lenny]

kirrun что странно?

[kirrun]

Lenny

Написал ты странную весч...