Что нового

[Автоматизация] Качественный таймер

M

max1300

Гость
AutoIt: 3.3.14.2
Версия: 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
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
[info border=#0000ff float=left]max1300
Для файлов (изображений, программ и т. д.) на форуме есть "Файловый архив".
С уважением, ваш Модератор.[/info]
 
Верх