Что нового

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

CreatiK

Новичок
Сообщения
93
Репутация
4
как можно сделать чтобы AdlibRegister был в секундах а не в милисекундах
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,320
Re: AdlibRegister

CreatiK
Попробуйте так:
Код:
$iTime = 10 ;секунд
AdlibRegister('My_Func', $iTime * 1000)
 

r35p3ct

Продвинутый
Сообщения
228
Репутация
60
Re: AdlibRegister

:shok:

Код:
_AdlibRegister('MyFunc', 3)

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

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
623
Re: AdlibRegister

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


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

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

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

CreatiK

Новичок
Сообщения
93
Репутация
4
Re: Как сделать функция повторялась в секундах

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

SyDr

Сидра
Сообщения
651
Репутация
158
Re: Как сделать функция повторялась в секундах

Да. И очень легко.
Код:
AdlibRegister('My_Func1', $iTime * 1000)
AdlibRegister('My_Func2', $iTime * 1000)
 

tech-gs

Знающий
Сообщения
54
Репутация
5
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
 
Верх