A
at
Гость
Здравствуйте! Прошу, поправить мой скрипт или подсказать, как правильно включить в скрипт таймер с условием. Нужно, чтобы время таймера соответствовало выбранному в комбоксе периоду.
Код:
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=
$_Form = GUICreate("", 339, 146, 189, 114)
$_Label_1 = GUICtrlCreateLabel("Автоматический режим", 16, 24, 125, 17)
$_Checkbox = GUICtrlCreateCheckbox("", 176, 24, 25, 17)
$_Combo = GUICtrlCreateCombo("не выбрано", 176, 56, 145, 25)
GUICtrlSetData(-1, "1 мин|2 мин")
$_Label_2 = GUICtrlCreateLabel("Повторять через каждые", 16, 56, 131, 17)
$_Button = GUICtrlCreateButton("Сейчас", 104, 96, 107, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $_Auto_Taime, $_Auto_Taime_Summ = $_Auto_Taime*3000
$_Automatics = TimerInit()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $_Button
_Mehanic()
Case $_Checkbox
If BitAND(GUICtrlRead($_Checkbox), $GUI_CHECKED) Then
If TimerDiff($_Automatics) > $_Auto_Taime_Summ Then ; Таймер
Switch $_Combo
Case GUICtrlRead($_Combo) = 'не выбрано'
$_Auto_Taime = '0'
Case GUICtrlRead($_Combo) = '1 мин'
$_Auto_Taime = '1'
Case GUICtrlRead($_Combo) = '2 мин'
$_Auto_Taime = '2'
EndSwitch
_Automat()
$_Automatics = TimerInit()
EndIf
EndIf
EndSwitch
WEnd
Func _Mehanic()
MsgBox(0,"","Механика")
EndFunc
Func _Automat()
MsgBox(0,"","Автомат")
EndFunc