Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


bestkz,
Sleep(),
TimerInit(), TimerDiff().
Например:
Код: Выделить весь код
$iPause = 5 ;секунд

MsgBox(64, 'Sleep()', 'Запускаем паузу на ' & $iPause & ' секунд')
Sleep($iPause * 1000)
MsgBox(64, 'Sleep()', 'Кончилась пауза в ' & $iPause & ' секунд')

MsgBox(64, 'TimerDiff()', 'Запускаем паузу на ' & $iPause & ' секунд')
$iStart = TimerInit()
While 1
    If TimerDiff($iStart) >= $iPause * 1000 Then ExitLoop
    Sleep(10)
    ToolTip(Round(TimerDiff($iStart) / 1000, 2), 0, 0)
WEnd
MsgBox(64, 'TimerDiff()', 'Кончилась пауза в ' & $iPause & ' секунд')

Последний раз редактировалось madmasles, 20-12-2010 в 18:31.


Отправлено: 18:03, 20-12-2010 | #4