Hi,
angenommen eine while-Schleife führt 20 Durchgänge aus.
Nach 10 Durchgängen klickt man auf Beenden.
Dann wird trotzdem erst das Programm nach dem Ende der 20 Durchgänge beendet.
Wie kann man schon vorher auf dem Eventhandler prüfen bzw. das Programm beenden?
Grüße und Danke
Guido
Guck mal bei AdlibRegister.
Mega
Hm,
in der Hilfe finde ich nur AdlibEnable("Funktion"), aber mit dem Beispiel komme ich nicht klar.
Ein Beispiel sagt mehr als 1000 Worte.
Das Beispielprogramm macht 10 Wiederholungen. Wenn man das Programm nach 5 Läufen beenden möchte, passiert nichts, bis die 10 Läufe durch sind.
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;Fenster erstellen
GUICreate("Programm vorzeitig beenden", 520, 360)
GUISetBkColor("0xFFFFCA")
GUISetFont(9, 400, 0, "Arial")
Global $lauf
;Fenster aufrufen
GUISetState(@SW_SHOW)
GUICtrlCreateLabel("Anzahl Läufe: 10", 10, 40)
$lauf = GUICtrlCreateLabel("Lauf:", 10, 80,100,20)
_repeat()
$msg = 0
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
Func _repeat()
Local $i
for $i = 0 to 10
guICtrlSetData($lauf,"Lauf: " & $i)
sleep (1000)
Next
EndFunc
Exit
[/autoit]Global $count = 0, $max = 20 ; $max ist die maximale Anzahl der Durchläufe (Aufrufe)
AdlibEnable('_msg', 1000) ; alle 1000 ms wird das Programm aufgerufen
HotKeySet('!e', '_ende') ; Hotkey zum vorzeitigen Beenden: ALT + e
While 1
Sleep(100)
WEnd
Func _msg()
$count += 1
ConsoleWrite('Message #' & $count & @CRLF)
If $count = $max Then
AdlibDisable()
Exit
EndIf
EndFunc
Func _ende()
ConsoleWrite("vorzeitig beendet" & @CRLF)
AdlibDisable()
Exit
EndFunc
Ich habe das jetzt mal in mein Demo-Programm umgesetzt, aber mit der Lösung erreiche ich immer noch nicht mein Ziel 
Mit Alt+e kann ich zwar den Lauf unterbrechen, der nach dem Klick auf der Gui aber weiter läuft. Auch wird ein erneutes Drücken des Start-Buttons dabei ignoiert.
Außerdem ruft "AdlibEnable" die Funktion "repeat" nach ihrem Durchlauf immer wieder erneut auf.
Mein eigentliches Ziel erreiche ich aber immer noch nicht.
a) ein wirklicher Abbruch der Funktion
b) nach der "Unterbrechung" der Funktion, die Möglichkeit haben das Programm zu beenden
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;Fenster erstellen
GUICreate("Programm vorzeitig beenden", 520, 360)
GUISetBkColor("0xFFFFCA")
GUISetFont(9, 400, 0, "Arial")
Global $lauf
;Fenster aufrufen
GUISetState(@SW_SHOW)
HotKeySet('!e', '_ende') ; Hotkey zum vorzeitigen Beenden: ALT + e
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]GUICtrlCreateLabel("Anzahl Läufe: 10", 10, 40)
$lauf = GUICtrlCreateLabel("Lauf:", 10, 80,100,20)
$btn_Start = GUICtrlCreateButton("Start", 270, 50, 60, 20)
$msg = 0
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $btn_Start
AdlibEnable('_repeat', 1000)
EndSelect
WEnd
Func _repeat()
Local $i
for $i = 0 to 10
guICtrlSetData($lauf,"Lauf: " & $i)
sleep (1000)
Next
EndFunc
Func _ende()
ConsoleWrite("vorzeitig beendet" & @CRLF)
AdlibDisable()
EndFunc
Exit
[/autoit]#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;Fenster erstellen
GUICreate("Programm vorzeitig beenden", 520, 360)
GUISetBkColor("0xFFFFCA")
GUISetFont(9, 400, 0, "Arial")
Global $lauf, $count = 1
;Fenster aufrufen
GUISetState(@SW_SHOW)
HotKeySet('!e', '_ende') ; Hotkey zum vorzeitigen Beenden: ALT + e
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]GUICtrlCreateLabel("Anzahl Läufe: 10", 10, 40)
$lauf = GUICtrlCreateLabel("Lauf:", 10, 80,100,20)
$btn_Start = GUICtrlCreateButton("Start", 270, 50, 60, 20)
$msg = 0
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $btn_Start
AdlibEnable('_repeat', 1000)
EndSelect
WEnd
Func _repeat()
guICtrlSetData($lauf,"Lauf: " & $count)
$count += 1
If $count = 10 Then AdlibDisable()
EndFunc
Func _ende()
ConsoleWrite("vorzeitig beendet" & @CRLF)
AdlibDisable()
EndFunc
Exit
[/autoit]
Danke, Perfekt
