Beiträge von Yaerox

#include <Date.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $hour, $Mins, $secs
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 800, 600, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_POPUP, $WS_GROUP, $WS_CLIPSIBLINGS), BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("Label1", 10, 10, 780, 580, $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 150, 400, 0, "Arial")
GuiCtrlSetColor($Label1, 0xFF0000)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
_Update()
AdlibRegister("_Update", 1000)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Func _Update()
_TicksToTime(_DateDiff('s', _NowCalc(), "2012/11/19 15:00:00") * 1000, $hour, $Mins, $secs)
GUICtrlSetData($Label1, StringFormat("%02i:%02i:%02i", $hour, $Mins, $secs))
EndFunc ;==>_Update

#include <GUIConstants.au3>
#include <StaticConstants.au3>
;~ ***
Opt('GUIOnEventMode', 1)
Opt('GUICloseOnEsc', 0)
;~ ***
Global $Save_Input_1 = ''
Global $Save_Input_2 = ''
Global $Save_Input_3 = ''
;~ # INFO >>
;~ > Diese beiden Variablen sind als Speicherort gedacht.
;~ > Diese helfen dass die 2 Lables nur dann geändert werden,
;~ > wenn eine Eingabe erfolgt wurde.

;~ +| ===== ===== ===== ===== ===== |+

Global Const $GUI = GUICreate('Counter', 180, 40)
Global Const $Input_1 = GUICtrlCreateInput('00', 10, 10, 50, 20)
Global Const $Input_2 = GUICtrlCreateInput('00', 60, 10, 50, 20)
Global Const $Input_3 = GUICtrlCreateInput('00', 100, 10, 50, 20)
Global Const $Label_1 = GUICtrlCreateLabel('', 10, 10, 45, 20, $SS_CENTER)
Global Const $Label_2 = GUICtrlCreateLabel(':', 55, 10, 10, 20, $SS_CENTER)
Global Const $Label_3 = GUICtrlCreateLabel('', 65, 10, 50, 20, $SS_CENTER)
Global Const $Label_4 = GUICtrlCreateLabel(':', 110, 10, 10, 20, $SS_CENTER)
Global Const $Label_5 = GUICtrlCreateLabel('', 125, 10, 50, 20, $SS_CENTER)
;~ ***
GUICtrlSetState($Input_1, $GUI_HIDE)
GUICtrlSetState($Input_2, $GUI_HIDE)
GUICtrlSetState($Input_3, $GUI_HIDE)
;~ ***
GUICtrlSetFont($Label_1, 15)
GUICtrlSetFont($Label_2, 15)
GUICtrlSetFont($Label_3, 15)
GUICtrlSetFont($Label_4, 15)
GUICtrlSetFont($Label_5, 15)
;~ ***
GUICtrlSetOnEvent($Label_1, '_SetFocus_1')
GUICtrlSetOnEvent($Label_3, '_SetFocus_2')
GUICtrlSetOnEvent($Label_5, '_SetFocus_3')
;~ # INFO >>
;~ > Weil es nicht möglich ist mit der Maus manuell zwischen den Input Controls zu wechseln,
;~ > werden beim draufklicken der Fokus auf diese gewechselt.
GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit', $GUI)
GUISetState(@SW_SHOW, $GUI)

Global $sEndzeit = "14:00:00"
;~ # INFO >>
;~ > Hier die gewünschte Endzeit im Format HH:MM:SS eintragen.
Global $aEndzeit = StringSplit($sEndzeit, ":")
;~ +| ===== ===== ===== ===== ===== |+

;~ +| ===== ===== ===== ===== ===== |+

While @HOUR & ":" & @MIN & ":" & @SEC < $sEndzeit
Local $sStunde, $sMinute, $sSekunde
For $sStunde = 0 To $aEndzeit[1]
For $sMinute = 0 To 59
For $sSekunde = 1 To 59
Sleep(1000)
If _Check($Input_1, $Save_Input_1) Then GUICtrlSetData($Label_1, GUICtrlRead($Input_1))
If _Check($Input_2, $Save_Input_2) Then GUICtrlSetData($Label_3, GUICtrlRead($Input_2))
If _Check($Input_3, $Save_Input_3) Then GUICtrlSetData($Label_5, GUICtrlRead($Input_3))
GUICtrlSetData($Input_3, $sSekunde)
Next
GUICtrlSetData($Input_3, "00")
GUICtrlSetData($Input_2, $sMinute+1)
Next
GUICtrlSetData($Input_2, "00")
GUICtrlSetData($Input_3, "00")
GUICtrlSetData($Input_1, $sStunde+1)
Next
WEnd

;~ +| ===== ===== ===== ===== ===== |+

Func _Exit()
Exit
EndFunc

Func _Check($Control, ByRef $Save)
Local Const $Read = GUICtrlRead($Control)
If $Read <> $Save Then
$Save = $Read
Return True
Else
Return False
EndIf
;~ # INFO >>
;~ > Diese Funktion verhindert, dass die Labels permament flackern.
;~ > Es wird geprüft ob das Input Control ungleich den gespeicherten Wert ist.
;~ > Wenn dies der Fall ist, wird der neue Wert in die entsprechende Variable gespeichert.
;~ > Danach wird TRUE Returnt und die If-Abfrage in der Hauptschleife wird ausgeführt.
;~ > Erst dann wird das Label verändert!
EndFunc

Func _SetFocus_1()
ControlFocus($GUI, '', $Input_1)
GUICtrlSetData($Input_1, '')
EndFunc

Func _SetFocus_2()
ControlFocus($GUI, '', $Input_2)
GUICtrlSetData($Input_2, '')
EndFunc

Func _SetFocus_3()
ControlFocus($GUI, '', $Input_3)
GUICtrlSetData($Input_3, '')
EndFunc

@ECHO OFF

CLS

REM ------------------------------------------------------------

REM Name: create_txt_x10.BAT

REM Autor: YaeroxXO

REM Datum: 15 November 2012

REM ------------------------------------------------------------

ECHO Die Dateierstellung der txt-Dokumete wird gestartet ..

ECHO.

for /L %%i IN (1 1 10) do (
echo >> "H:\AutoIt\Automatische Ablaufsteuerung\Testszenario\neue_Dateien\%date%_at_%time:~0,2%%time:~3,2%%time:~6,2%-Datei_%%i.txt"

echo ... Datei_%%i.txt wurde erfolgreich erstellt!

)

ECHO.

ECHO Die Dateierstellung wurde abgeschlossen ...

REM -------------------------- E O F ---------------------------

@ECHO OFF

CLS

REM ------------------------------------------------------------

REM Name: create_txt_x10.BAT

REM Autor: YaeroxXO

REM Datum: 15 November 2012

REM ------------------------------------------------------------

ECHO Die Dateierstellung der txt-Dokumete wird gestartet ..

ECHO.

for /L %%i IN (1 1 10) do (

Set /a Zufall=%random%%38

echo >> "H:\AutoIt\Automatische Ablaufsteuerung\Testszenario\neue_Dateien\Datei_%Zufall%.txt"

)

ECHO.

ECHO Die Dateierstellung wurde abgeschlossen ...

REM -------------------------- E O F ---------------------------

Batch

@ECHO OFF


CLS


REM ------------------------------------------------------------


REM Name:  create_txt.BAT


REM Autor: YaeroxXO


REM Datum: 15 November 2012


REM ------------------------------------------------------------


ECHO Die Dateierstellung der txt-Dokumete wird gestartet ..


ECHO.


for /L %%a IN (1 1 10) DO (


Set /a Zufall=%random%%38


echo Die Zufallszahl in dieser Datei ist: %Zufall% > txt_%Zufall%.txt


)


ECHO.


ECHO Die Dateierstellung wurde abgeschlossen ...


REM -------------------------- E O F ---------------------------