M
max1300
Гость
AutoIt: 3.3.14.2
Версия: 1.1
Категория: Автоматизация
Описание: Программа выполняет выбранные действия в указанное время,то есть она является таймером.
Принцип работы данной программы построен на условиях.Если вам интересно увидеть видеоинструкцию по использованию данной программы
то вам сюда.
Код/Пример:
Файл: Max1300, файл загружаем сюда!
Снимок:
История версий:
Источник: autoit-script.ru
Автор(ы):Max1300
Версия: 1.1
Категория: Автоматизация
Описание: Программа выполняет выбранные действия в указанное время,то есть она является таймером.
Принцип работы данной программы построен на условиях.Если вам интересно увидеть видеоинструкцию по использованию данной программы
то вам сюда.
Код/Пример:
Код:
Global $hours
Global $minutes
AdlibRegister("UpdateTime")
AdlibRegister("HOUR")
AdlibRegister("MIN")
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <TrayConstants.au3>
#include <Memory.au3>
#Region ### START Koda GUI section ### Form=c:\users\user\documents\timer rod control.kxf
$Form1_1 = GUICreate("Timer ", 356, 159, 197, 130)
GUISetBkColor(0x00FF00)
$Label1 = GUICtrlCreateLabel("Время", 8, 16, 66, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Label2", 80, 16, 66, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("ЧЧ", 16, 88, 28, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 8, 56, 65, 21)
$Label4 = GUICtrlCreateLabel("ММ", 88, 88, 38, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 88, 56, 73, 21)
$Button1 = GUICtrlCreateButton("Выполнить ", 8, 120, 161, 33)
$Combo1 = GUICtrlCreateCombo("", 168, 56, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Выключение|Вывести сообщение")
$Label5 = GUICtrlCreateLabel("Текст для сообщения", 160, 88, 188, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("", 176, 128, 169, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Opt("TrayMenuMode", 3)
$IdMenu = TrayCreateMenu ("Действия")
$iDisplay = TrayCreateItem("Выключить таймер", $IdMenu)
$exit = TrayCreateItem("Выход", $IdMenu)
$SHOW = TrayCreateItem("Развернуть", $IdMenu)
TraySetState($TRAY_ICONSTATE_SHOW)
TraySetToolTip("Timer")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
While 1
If GUICtrlRead($Input1) = HOUR() Then
If GUICtrlRead($Input2) = MIN() Then
If GUICtrlRead($Combo1) = "Вывести сообщение" Then
$amsg = MsgBox(64,"Информация",GUICtrlRead($Input3))
If $amsg = 1 Or -1 Then ExitLoop
EndIf
If GUICtrlRead($Combo1) = "Выключение" Then
$downsystem = Shutdown(8)
If $downsystem = 1 Or 0 Then ExitLoop
EndIf
EndIf
EndIf
Switch TrayGetMsg()
Case $iDisplay
ExitLoop
Case $exit
Exit
EndSwitch
WEnd
EndSwitch
WEnd
Func UpdateTime()
GUICtrlSetData($Label2,@HOUR & ":" & @MIN)
EndFunc
Func HOUR()
Return @HOUR
EndFunc
Func MIN()
Return @MIN
EndFunc
Файл: Max1300, файл загружаем сюда!
Снимок:
История версий:
1.1
Источник: autoit-script.ru
Автор(ы):Max1300