Перевод мсек в сек для AdlibRegister

[CreatiK]

как можно сделать чтобы AdlibRegister был в секундах а не в милисекундах

 

[madmasles]

Re: AdlibRegister

CreatiK
Попробуйте так:

$iTime = 10 ;секунд
AdlibRegister('My_Func', $iTime * 1000)

 

[r35p3ct]

Re: AdlibRegister

_AdlibRegister('MyFunc', 3)

Func _AdlibRegister($var1, $var2)
AdlibRegister($var1, $var2 * 1000)
EndFunc

 

[kaster]

Re: AdlibRegister

Предупреждение

За нарушение правил форума (пункт Б.5):

Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.

Как правильно называть темы

[AdlibRegister] это неприемлемое название темы, переименуйте тему иначе она будет закрыта.

С уважением, Модератор раздела.

 

[CreatiK]

Re: Как сделать функция повторялась в секундах

Можно как нибудь сделать с помощью AdlibRegister чтобы запускалось много функций

 

[SyDr]

Re: Как сделать функция повторялась в секундах

Да. И очень легко.

AdlibRegister('My_Func1', $iTime * 1000)
AdlibRegister('My_Func2', $iTime * 1000)

 

[tech-gs]

Re: Как сделать функция повторялась в секундах

Запуск функций с помощью таймеров:

#Include <WindowsConstants.au3>
#Include <GUIConstantsEx.au3>
#Include <Timers.au3>

Global $hGUI = GUICreate('Timers - WM_TIMER', 270, 110)
Global $lb1 = GUICtrlCreateLabel('Label1', 30, 30, 200, 15)
Global $lb2 = GUICtrlCreateLabel('Label2', 30, 60, 200, 15)
	GUISetState()
	GUIRegisterMsg($WM_TIMER, 'WM_TIMER')
Global $Timer1 = _Timer_SetTimer($hGUI, 1500)	; Таймер времени 1
Global $Timer2 = _Timer_SetTimer($hGUI, 600)	; Таймер времени 2

Do
Until GUIGetMsg() = -3


Func WM_TIMER($hWnd, $iMsg, $iwParam, $ilParam) ; Событие таймера
#forceref $hWnd, $iMsg, $ilParam
	Switch _Timer_GetTimerID($iwParam)
		Case $Timer1
			Label1_SetData()
			;MsgBox(0, 'WM_TIMER', 'Событие Timer1', 1)
		Case $Timer2
			Label2_SetData()
	EndSwitch
	Return $GUI_RUNDEFMSG
EndFunc

Func Label1_SetData()
	If GUICtrlRead($lb1) = 'Label1' Then
		GUICtrlSetData($lb1, 'Label1 - Управляется таймером Timer1')
	Else
		GUICtrlSetData($lb1, 'Label1')
	EndIf
EndFunc

Func Label2_SetData()
	If GUICtrlRead($lb2) = 'Label2' Then
		GUICtrlSetData($lb2, 'Label2 - Управляется таймером Timer2')
	Else
		GUICtrlSetData($lb2, 'Label2')
	EndIf
EndFunc