Что нового

Как вывести визульное отображение таймера Sleep ?

BoxaH

Новичок
Сообщения
2
Репутация
0
Подскажите пож, сделал кликер на игру, в нем в определенный период запускается таймер на 30 минут, меня интересует как сделать так чтобы отсчет таймера был виден визуально? Заранее спасибо.
 

SECTOR

Продвинутый
Сообщения
398
Репутация
58
Может сойдет :smile:

Код:
_Sleep(15) ; Таймер на 15 секунд
MsgBox(0,"Пауза...","Время вышло :)")

Func _Sleep($iSec,$iX=10,$iY=10)

	Local $hTimer = TimerInit(), $iTimer = 0

	Do
		$iTimer = Round(TimerDiff($hTimer)/1000,0)
		ToolTip("Прошло "&$iTimer&" из "&$iSec&" секунд...",$iX,$iY,"Пауза...")
		Sleep(250)
	Until $iTimer >= $iSec

	ToolTip("")

EndFunc
 

Kalisnik

Эволюция
Сообщения
295
Репутация
63
Код:
Dim $Time, $Time_H, $Time_M, $Time_C

While 1
	Sleep(1000)
	$Time += 1
	$Time_H = Floor($Time / 3600)
	$Time_M = Floor(($Time - ($Time_H * 3600)) / 60)
	$Time_C = ($Time - ($Time_H * 3600)) - ($Time_M * 60)
	ConsoleWrite($Time_H & ":" & $Time_M & ":" & $Time_C & @CRLF)
	If $Time_M = 30 Then
		MsgBox(0, "Сообщение!", $Time_M & " минутный период таймера закончен!")
		ExitLoop
	EndIf
WEnd
 
Автор
B

BoxaH

Новичок
Сообщения
2
Репутация
0
Sektor спасибо, то что нужно.
 
Верх