Hilfe zum CountdownTimer

;$timerAdd soll dem dll_Event_Code zugeordnet werden um spaeter damit den CountDown zu fuettern
Global $timerAdd1 = 240000
Global $timerAdd2 = 85000
Global $timerAdd3 = 1190000

Start(); hier wurde start eingeleitet und ab jetzt sollen die events ausgewertet werden

While 1 * Sleep(1) ; wird benoetigt wenn Event ausgeloest wird, damit das skript weiter laeuft
WEnd

Func _Event($Code) ; loest aehnliche Funktion aus wie die hier >>> $Code = int(Random(4,7))

MsgBox(0,'',$Code) ; <---------- Ihr kannst du schauen was du für werte bekommst und reagierst !!!!1

If $Code = 0 Then
;was passieren soll
ElseIf $Code = 1 Then
;was passieren soll
ElseIf $Code = 2 Then
;was passieren soll
ElseIf $Code = 3 Then
;was passieren soll
ElseIf $Code = 4 Then
$Code = $timerAdd1
Starte mit oder addiere $timerAdd1 zum Countdown

ElseIf $Code = 5 Then
$Code = $timerAdd2
Starte mit oder addiere $timerAdd2 zum Countdown

ElseIf $Code = 6 Then
$Code = $timerAdd3
Starte mit oder addiere $timerAdd3 zum Countdown
EndIf

Folgendes soll passieren:
Wenn Countdown = 0, dann erstelle "Gui Countdown nicht gestartet" und warte bis gestartet
Wenn Countdown gestartet dann schliesse "Gui Countdown nicht gestartet" und erstelle neue
Gui fuer die ablaufende Zeit, falls vor Ablauf der Zeit ein weiteres Ereigniss passiert,
dann verlaengere die Zeit um die Variable.
Wenn Countdown auf 0, dann schliessen und wieder "Gui Countdown nicht gestartet" erstellen
und warten bis ein Event passiert

EndFunc ;==>_Event

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 154, 206, 278, 133)
$Input1 = GUICtrlCreateInput("", 16, 136, 121, 21, BitOR($ES_CENTER, $ES_READONLY))
$Button1 = GUICtrlCreateButton("EventSimulation", 24, 24, 105, 57, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Form2 = GUICreate("Form1", 154, 206, 278, 133)
$Input2 = GUICtrlCreateInput("", 16, 136, 121, 21, BitOR($ES_CENTER, $ES_READONLY))
GUISetState(@SW_HIDE, $Form2)

Global $timerAdd1 = 12540000; Millisekunden nur als Beispiel
Global $timerAdd2 = 12585000; Millisekunden nur als Beispiel
Global $timerAdd3 = 12590000; Millisekunden nur als Beispiel

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_TimeADD()
EndSwitch
WEnd
;############################ Ich habe die zeiten ein bischen verlängert das man auch das runterzählen sehen kann!
Func _TimeADD()
$Code = Int(Random(4, 7))
If $Code == 4 Then
$Code = $timerAdd1
ElseIf $Code == 5 Then
$Code = $timerAdd2
ElseIf $Code == 6 Then
$Code = $timerAdd3
EndIf
GUICtrlSetData($Input1, $Code)
Sleep(50)
While $Code
GUISetState(@SW_HIDE, $Form1) ; versteckt gui (form1)
GUISetState(@SW_SHOW, $Form2); zeigt gui (form2)
GUICtrlSetData($Input2, $Code)
$Code -= 1000 ; zählt 1000 runter
If $Code = 0 Then ; wenn 0 dann fenster wechsel
GUISetState(@SW_HIDE, $Form2)
GUISetState(@SW_SHOW, $Form1)
EndIf
WEnd
EndFunc ;==>_TimeADD

#include <date.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

;Form1 ist nur fuer den Button und dient nur fuer den Test der Simulation
;ueber den Button generiere ich die Events, welche normaleweise von der DLL generiert,

$Form1 = GUICreate("Form1", 180, 419, 192, 124)
$Input1 = GUICtrlCreateInput("", 19, 259, 143, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL, $ES_READONLY, $ES_NUMBER), BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Button1 = GUICtrlCreateButton("Button1", 47, 28, 80, 46, $WS_GROUP)
Local $zaehlen = GUICtrlCreateInput('0', -100, -100) ; Eine Input die nicht im sichtfeld ist!
GUISetState(@SW_SHOW)

; Fenster1 ist zu Beginn geoeffnet
; SplashText ist nur Beispiel
SplashTextOn("", "Das ist Fenster 1" & @CRLF & "Test hat noch nicht begonnen", "-1", "100", "-1", "-1", 3, "Courier New", "20", "400")
#EndRegion ### END Koda GUI section ###

Global $GeheZumEnde, $lh, $lm, $ls
Global $zeit[3] = [10000, 40000, 20000000]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_ZeitADD1()
EndSwitch
WEnd
Func _ZeitADD1()
$code = Int(Random(4, 7))
; Weil ein Event aufgetreten, wird Fenster1 geschlossen,
;jetzt wird Fenster2 erstellt, fuer die Simulation ist es $Input1
;in $Input1 laeuft die Zeit, wenn Zeit abgelaufen, wieder zum Fenster1 zurueck

SplashOff()
If $code == 4 Then
$code = $zeit[0]
ElseIf $code == 5 Then
$code = $zeit[1]
ElseIf $code == 6 Then
$code = $zeit[2]
EndIf

$aus = GUICtrlRead($zaehlen); Die Input auslesen
$code += $aus * 1000; Da soltest du schauen wie du die zeit wieder aufaddirst ich habe 1000 genommen
$GeheZumEnde = $code
MsgBox(0, '', $aus); Zum schauen was der ausgelesene wert dir gibt
$start = TimerInit()

While $GeheZumEnde > 0
$GeheZumEnde = $code - TimerDiff($start)
_RechneRunter()
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE ; zum schlißen der gui (form1) Habe ich hir her verlegt denn sonst hat sich die gui (form1) sich nicht schlißen lassen
Exit
Case $Button1 ; noch mal weil dann sich der Button wieder ausführen läst!
Local $test = GUICtrlRead($Input1); Auslesen was gerade in der ( Input1 ) steht sagen wir mal 05:35:03
Local $fei = StringReplace($test, ':', ''); Hir wird der String nach ( : ) durchsucht und entfernt
GUICtrlSetData($zaehlen, $fei); die ausgabe wehr dann 053503 wie schon gesagt mußt mal schauen wie du den wert aufrechnest!
_ZeitADD1()
EndSwitch
WEnd

If TimerDiff($start) Then
;Timer ist bei 0 angekommen, oeffne wieder Fenster1 und warte auf Events
SplashTextOn("", "Das ist Fenster 1" & @CRLF & "Test hat noch nicht begonnen", "-1", "100", "-1", "-1", 3, "Courier New", "20", "400")
EndIf
EndFunc ;==>_ZeitADD1

Func _RechneRunter()
Local $iHours, $iMins, $iSecs
_TicksToTime($GeheZumEnde, $iHours, $iMins, $iSecs)
If $lh <> $iHours Or $lm <> $iMins Or $ls <> $iSecs Then
;Die Imputbox (Fenster2 in unserem Beispiel) war ja schon erstellt, jetzt werden die Zeitdaten an diese uebertragen
GUICtrlSetData($Input1, StringFormat("%02i", $iHours) & ":" & StringFormat("%02i", $iMins) & ":" & StringFormat("%02i", $iSecs))
$lh = $iHours
$lm = $iMins
$ls = $iSecs
EndIf
EndFunc ;==>_RechneRunter

#include <date.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
;Form1 ist nur fuer den Button und dient nur fuer den Test der Simulation
;ueber den Button generiere ich die Events, welche normaleweise von der DLL generiert,
$Form1 = GUICreate("Form1", 180, 419, 192, 124)
$Input1 = GUICtrlCreateInput("", 19, 259, 143, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL, $ES_READONLY, $ES_NUMBER), BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Button1 = GUICtrlCreateButton("Button1", 47, 28, 80, 46, $WS_GROUP)
Local $zaehlen = GUICtrlCreateInput('0', -100, -100) ; Eine Input die nicht im sichtfeld ist!
GUISetState(@SW_SHOW)
SplashTextOn("", "Das ist Fenster 1" & @CRLF & "Test hat noch nicht begonnen", "-1", "100", "-1", "-1", 3, "Courier New", "20", "400")
#EndRegion ### END Koda GUI section ###
Global $GeheZumEnde, $lh, $lm, $ls
Global $zeit[3] = [10000, 40000, 20000000]
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_ZeitADD1()
EndSwitch
WEnd
Func _ZeitADD1()
$code = Int(Random(4, 7))
SplashOff()
If $code == 4 Then
$code = $zeit[0]
ElseIf $code == 5 Then
$code = $zeit[1]
ElseIf $code == 6 Then
$code = $zeit[2]
EndIf
$GeheZumEnde = $code
$start = TimerInit()
Do
$aus = GUICtrlRead($zaehlen) * 1000
$GeheZumEnde = ($code + $aus) - TimerDiff($start)
_RechneRunter()
Local $test = GUICtrlRead($Input1)
Local $fei = StringReplace($test, ':', '')
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
GUICtrlSetData($zaehlen, $fei)
_ZeitADD1()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
If $fei = 0 Then
SplashTextOn("", "Das ist Fenster 1" & @CRLF & "Test hat noch nicht begonnen", "-1", "100", "-1", "-1", 3, "Courier New", "20", "400")
ExitLoop
EndIf
Until 0
EndFunc ;==>_ZeitADD1
Func _RechneRunter()
Local $iHours, $iMins, $iSecs
_TicksToTime($GeheZumEnde, $iHours, $iMins, $iSecs)
If $lh <> $iHours Or $lm <> $iMins Or $ls <> $iSecs Then
GUICtrlSetData($Input1, StringFormat("%02i", $iHours) & ":" & StringFormat("%02i", $iMins) & ":" & StringFormat("%02i", $iSecs))
$lh = $iHours
$lm = $iMins
$ls = $iSecs
EndIf
EndFunc ;==>_RechneRunter

#include <date.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
$Form1 = GUICreate("Form1", 180, 419, 192, 124)
$Input1 = GUICtrlCreateInput("", 19, 259, 143, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL, $ES_READONLY, $ES_NUMBER), BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Button1 = GUICtrlCreateButton("Button1", 47, 28, 80, 46, $WS_GROUP)
Local $zaehlen[1] = [GUICtrlCreateInput('0', -100, -100)] ; Eine Input die nicht im sichtfeld ist: zum auslesen des gespeicherten ( glesenen ) wert!
GUISetState(@SW_SHOW)
SplashTextOn("", "Das ist Fenster 1" & @CRLF & "Test hat noch nicht begonnen", "-1", "100", "-1", "-1", 3, "Courier New", "20", "400")
Global $GeheZumEnde, $lh, $lm, $ls,$a = 0
Global $zeit[3] = [10000, 40000, 20000000] ; Habe ich in eine Array gepackt spart platz ( zeilen )!
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE; Ich habe dein aufbau beibehalten denn ich weiß nicht wie du weiter machst, ich würde alles mit ( GUIOnEventMode ) machen!
Exit
Case $Button1
_ZeitADD1()
EndSwitch
WEnd
Func _ZeitADD1()
MsgBox(0, '', GUICtrlRead($zaehlen[0])); zum Debugen: auslesen was du fürn wert bekommst, um daruf reagieren zu könne !
$code = Int(Random(4, 7));------------------------------------------------------------------------------
MsgBox(0,'',$code)
SplashOff()
If $code == 4 Then
$code = $zeit[0]
ElseIf $code == 5 Then; !##! Ist gleich geblieben !##! (ausser (zeile 33) )
$code = $zeit[1]
ElseIf $code == 6 Then
$code = $zeit[2]
EndIf
; $code = $code <---- brauchst du nicht denn du legst den wert schon zu ( $GeheZumEnde )
$GeheZumEnde = $code
$start = TimerInit();----------------------------------------------------------------------------------
Do; ( schleife )!
$aus = GUICtrlRead($zaehlen[0]);läuft mit in der schleife denn wenn du denn butten erneut clickst wird der gespeicherte wert ausgelesen und verarbeitet!
$GeheZumEnde = ($code + $aus) - TimerDiff($start); hir lass ich den zurückgegebenen wert mit einrechenen!
_RechneRunter()
Local $test = GUICtrlRead($Input1);läuft mit und ist wichtig denn wenn du den button clickst, wurde die input bereits ausgelesen und kann gesetzt werden!
Local $fei = StringReplace($test, ':', '');Ihr lass ich den zurückgegebenen wert von (:) befreien denn wenn z.B 00:00:90 zurückgegeben wurde ist dann nach
;denm (:) entfernen 00009 ist wichtig für das rechnen und wieder einspielen in die rechnung!
$nMsg = GUIGetMsg(); mußte nochmal gesetzt werden denn in der schleife ist es nicht möglich befehle einzubrinen vieleicht schon aber die kenn ich nicht!
Switch $nMsg
Case $Button1
GUICtrlSetData($zaehlen[0], $fei * 1000);durch clicken des button wird der wert in ( $zaehlen ) neu gesetzt die werte wurden ja schon gelesen und
; von (:) entfernt so könne wir auch gleich den wert wieder aufrechnen das wehr dann bei 00009 * 1000 = 9000 = 9 sec.
_ZeitADD1(); soltest du drin lassen durch meine test ging und ging es mal "nicht", das heist in manchen fällen addiert er und in machen subtrahiert er
Case $GUI_EVENT_CLOSE;um den code auch wieder schließen zu können
Exit
EndSwitch
If $fei = 0 Then; überprüfung ob Input 0 erreicht hat dann das und das
SplashTextOn("", "Das ist Fenster 1" & @CRLF & "Test hat noch nicht begonnen", "-1", "100", "-1", "-1", 3, "Courier New", "20", "400")
GUICtrlSetData($zaehlen[0], '0');um den wert wieder auf 0 zu setzen wenn du nach ablauf der zeit denn button erneut clickst, ist wichtig sonst bekommst
; du ein falschen wert z.b bei meiner darstellung, 9000 der wird beim zweiten click miteingerechnet. Die zeit runtergezählt du denn button erneut
; clickst wirst du den noch immer enthaltenen wert der Input ( $zaehlen ) = 9000 bekommen darum setzen wir ihn auf 0
ExitLoop; um die schleife zu verlassen!
EndIf
Until 0
EndFunc ;==>_ZeitADD1
;Ganz wichtig geht die rechnug über stunden z.B die Input zeigt 05:33:00 wie er bei $code = 6 ausgibt an und du wieder den button clickst bei 05:20:00
;oder einer anderen ist die rechnung * 1000 nicht mehr angemessen du sagtest das du kurz vor ende die eigentschaft braucht ansonsten ist das rechnen mit * 1000
;zu hoch ich will dir ja nicht alles weg nehmen darum überlass ich dir den kleinen Bug der solte nicht all zu schwer sein!

;/////////////////////////////////////////////////////// Ich hoffe das meine Beispiel dir ein wenig helfen konnte! \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Func _RechneRunter()
Local $iHours, $iMins, $iSecs
_TicksToTime($GeheZumEnde, $iHours, $iMins, $iSecs)
If $lh <> $iHours Or $lm <> $iMins Or $ls <> $iSecs Then
GUICtrlSetData($Input1, StringFormat("%02i", $iHours) & ":" & StringFormat("%02i", $iMins) & ":" & StringFormat("%02i", $iSecs))
$lh = $iHours
$lm = $iMins
$ls = $iSecs
EndIf
EndFunc ;==>_RechneRunter
;////////////////////////////////////////////////////////////////// Mit freundlichen Grüßen Kleiner \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\