Что нового

[Время, дата] Помогите Как сделать чтоб действие выполнялось по таймеру ?

M

max1300

Гость
Всем привет и у меня есть такой вопрос: как сделать чтоб действие выполнялось по таймеру ?
может есть ответ пишите сюда
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
max1300,
Код:
Local $iTimer, $iInterval = 5000 ;5 sec

$iTimer = TimerInit()
While 1
	If TimerDiff($iTimer) >= $iInterval Then
		If MsgBox(65, 'Info', 'Прошло ' & $iInterval / 1000 & ' секунд') = 2 Then ExitLoop
		$iTimer = TimerInit()
	EndIf
	Sleep(20)
WEnd
 

GUIMish

Знающий
Сообщения
122
Репутация
12
Можно создать при помощи TimerInit(), но я люблю создавать при помощи, AdlibRegister(), вот так:

Код:
AdlibRegister("func1", 5000) ;5 sec

While 1
	Sleep(100)
WEnd

Func func1()
	AdlibUnRegister("func1")
	MsgBox(0, "Информация", "Прошло 5 сек.")
EndFunc
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
Да, мне тоже больше нравится через AdlibRegister :smile:
 
Верх