Loops wiederholen und unterbrechen

detrauti

Hallo Zusammen,

ich möchte folgendes Programm immer wieder wie folgt laufen lassen:
-Auftrag (laden und) bestätigen
-bis zum Limit zählen
-Fragen ob der Auftrag fertig ist ===> Hier soll im Hintergrund aber trotzdem weiter gezählt werden (im Falle von Ausschuss muss die Stückzahl erreicht werden) [Problem 1]
-Bei Bestätigung des erreichten Limits soll man wieder an den Anfang zurück kehren und das ganze wiederholt sich

Hier ist mein nicht funktionierendes Skript

AutoIt

#include <GUIConstantsEx.au3> #include <WindowsConstants.au3>


Global $CounterGlobal $Limit = 3Global $Button1


While 2_Auftrag_Starten()$Counter    =0Beep ( 500, 200)  ConsoleWrite("---------------the current number is:"&$Counter&"----------------------------"&@CRLF)                                ;~ programm checkWhile 1    Sleep(2000)


      ConsoleWrite("---------------the current hour is:"&@HOUR&"----------------------------"&@CRLF)                                ;~ programm check     $Date1                    = @YEAR&":"&@MON&":"&@MDAY                                                                                ;~ setting variable $Date1 [yyyymmdd]     $StartTime1            = @HOUR*3600+@MIN*60+@SEC                                                                                ;~ setting variable $StartTime1 [hhmmss      $Counter+=1      ConsoleWrite("---------------the current number is:"&$Counter&"----------------------------"&@CRLF)                                ;~ programm check      If $Limit=$Counter Then         _Auftrag_Fertig()      EndIf      If $Button1 Then         ExitLoop         EndIf      WEnd   WEnd


   Func _Auftrag_Starten()      #include <ButtonConstants.au3>#include <GUIConstantsEx.au3>#include <StaticConstants.au3>#include <WindowsConstants.au3>#Region ### START Koda GUI section ### Form=D:\detrauti\Desktop\FAUF-Fertig.kxf$Form1 = GUICreate("Form2", 615, 438, 192, 124)$limit = GUICtrlCreateLabel("neuer Auftrag Starten", 64, 48, 380, 49)GUICtrlSetFont(-1, 30, 400, 0, "Arial")$Button1Start = GUICtrlCreateButton("Start", 144, 216, 145, 97)GUICtrlSetFont(-1, 30, 800, 0, "Arial Narrow")$Label1 = GUICtrlCreateLabel("Bereit?", 68, 144, 129, 49)GUICtrlSetFont(-1, 30, 400, 0, "Arial")GUISetState(@SW_SHOW)#EndRegion ### END Koda GUI section ###


While 1    $nMsg = GUIGetMsg()    Switch $nMsg    Case $GUI_EVENT_CLOSE            Exit         Case $Button1Start            GUISetState(@SW_HIDE)            ExitLoop    EndSwitch WEnd EndFunc




    Func _Auftrag_Fertig()      #include <ButtonConstants.au3>#include <GUIConstantsEx.au3>#include <StaticConstants.au3>#include <WindowsConstants.au3>#Region ### START Koda GUI section ### Form=$Form1 = GUICreate("Form1", 500, 300, 469, 41, BitOR($WS_SYSMENU,$WS_POPUP))$limit = GUICtrlCreateLabel("Stückzahl erreicht", 64, 48, 316, 49)GUICtrlSetFont(-1, 30, 400, 0, "Arial")$Button1 = GUICtrlCreateButton("JA", 144, 216, 145, 97)GUICtrlSetFont(-1, 30, 800, 0, "Arial Narrow")$Label1 = GUICtrlCreateLabel("Arbeitsauftrag fertig?", 68, 144, 370, 49)GUICtrlSetFont(-1, 30, 400, 0, "Arial")GUISetState(@SW_SHOW)#EndRegion ### END Koda GUI section ###


While 1    $nMsg = GUIGetMsg()    Switch $nMsg        Case $GUI_EVENT_CLOSE            Exit         Case $Button1            GUISetState(@SW_HIDE)            ExitLoop    EndSwitch WEnd EndFunc

Alles anzeigen

Vielen Dank für die Hilfe

NO1 :-)

Könntest du deinen Code bitte mal schön einfügen mit Einrückungen und so, weil so kann man das schlecht lesen.

Lg NO1

Micha_he

Ich glaube Du solltest Deinen Quellcode nochmal neu formatieren. So steigt man dort kaum durch !

Tip was ich beim kurz draufschauen erkennen konnte:

- Includes gehören alle an den Script-Anfang und nicht in Funktionsaufrufe
- Wenn schon 2 GUI's, diese am besten auch am Anfang erzeugen und in den Funktionen nur ein-/ausblenden (GUISetState(@SW_SHOW), GUISetState(@SW_HIDE)). Sonst erstellts Du bei jedem Funktionsaufruf eine NEUE GUI !
- keine identischen Variable für unterschiedliche GUI-Objekte ($Label1) verwenden. Nach dem Start der 2. GUI, kannst Du das 1. Label-Objekt mit der Variablen nicht mehr ansprechen !

detrauti

Danke für die Tips. Ich habe versucht sie umzusetzen. Wie ich die GUIs mit den Befehlen aus und einblenden unterscheiden kann verstehe ich aber nicht. Micha_he: vlt kannst du mir da noch einen weiteren Tip geben

Nun also noch einmal das angepasste Skript

C

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


Global $Counter
Global $Limit = 3
Global $Button1


While 2
_Auftrag_Starten()
$Counter	=0
Beep ( 500, 200)
  ConsoleWrite("---------------the current number is:"&$Counter&"----------------------------"&@CRLF)								;~ programm check
   While 1
	  Sleep(2000)
	  ConsoleWrite("---------------the current hour is:"&@HOUR&"----------------------------"&@CRLF)								;~ programm check
	  $Date1					= @YEAR&":"&@MON&":"&@MDAY																				;~ setting variable $Date1 [yyyymmdd]
	  $StartTime1			= @HOUR*3600+@MIN*60+@SEC																				;~ setting variable $StartTime1 [hhmmss
	  $Counter+=1
	  ConsoleWrite("---------------the current number is:"&$Counter&"----------------------------"&@CRLF)								;~ programm check
   If $Limit=$Counter Then
	  _Auftrag_Fertig()
		 EndIf
   If $Button1 Then
	  ExitLoop
		 EndIf
	  WEnd
   WEnd


Func _Auftrag_Starten()
#Region ### START Koda GUI section ### Form=D:\detrauti\Desktop\FAUF-Fertig.kxf
$Form1 		= GUICreate("Form2", 615, 438, 192, 124)
$TextBox1_1	= GUICtrlCreateLabel("neuer Auftrag Starten", 64, 48, 380, 49)
GUICtrlSetFont(-1, 30, 400, 0, "Arial")
$Button1Start = GUICtrlCreateButton("Start", 144, 216, 145, 97)
GUICtrlSetFont(-1, 30, 800, 0, "Arial Narrow")
$TextBox1_2 = GUICtrlCreateLabel("Bereit?", 68, 144, 129, 49)
GUICtrlSetFont(-1, 30, 400, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	  Case $GUI_EVENT_CLOSE
		Exit
	  Case $Button1Start
		GUISetState(@SW_HIDE)
		ExitLoop
	EndSwitch
 WEnd
 EndFunc


Func _Auftrag_Fertig()
#Region ### START Koda GUI section ### Form=
$Form2 		= GUICreate("Form1", 500, 300, 469, 41, BitOR($WS_SYSMENU,$WS_POPUP))
$TextBox2_1	= GUICtrlCreateLabel("Stückzahl erreicht", 64, 48, 316, 49)
GUICtrlSetFont(-1, 30, 400, 0, "Arial")
$Button1 = GUICtrlCreateButton("JA", 144, 216, 145, 97)
GUICtrlSetFont(-1, 30, 800, 0, "Arial Narrow")
$TextBox2_2 = GUICtrlCreateLabel("Arbeitsauftrag fertig?", 68, 144, 370, 49)
GUICtrlSetFont(-1, 30, 400, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
	  Case $GUI_EVENT_CLOSE
		Exit
	  Case $Button1
		 GUISetState(@SW_HIDE)
		 ExitLoop
	EndSwitch
 WEnd
 EndFunc

Alles anzeigen

**alpines**

Zitat von detrauti

Wie ich die GUIs mit den Befehlen aus und einblenden unterscheiden kann verstehe ich aber nicht.

Du darfst die GUIs nur einmal erstellen und zeigst sie nur an wenn sie gebraucht werden.

Schreib die GUIs an den Anfang deines Scripts und zeige mit GUISetState() nur die an die angezeigt werden soll. Dann kannst du in der While-Schleife die anderen GUIs anzeigen/ausblenden.

Micha_he

Noch ein Tip: In Funktionen keine 'While 1 Wend'-Schleifen !

Ich habe mal etwas Form reingebracht und nutze dabei den 'OnEventMode' bei zwei GUI's, ist einfacher.
Damit kannst Du den Buttons Funktionen zuweisen. Dann nur noch ein Schleife die immer läuft, bis Ende.

AutoIt

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


Opt("GUIOnEventMode", 1) ; OnEvent-Modus ein


Global $Counter
Global $Limit = 3
Global $Button1
Global $gestartet = False


#Region ### START Koda GUI section ### Form=D:\detrauti\Desktop\FAUF-Fertig.kxf
$Form1 		= GUICreate("Form1", 615, 438, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$TextBox1_1	= GUICtrlCreateLabel("neuer Auftrag Starten", 64, 48, 380, 49)
GUICtrlSetFont(-1, 30, 400, 0, "Arial")
$Button1Start = GUICtrlCreateButton("Start", 144, 216, 145, 97)
GUICtrlSetOnEvent( -1, "_Auftrag_Starten") ; Funktion für Button 'Start'
GUICtrlSetFont(-1, 30, 800, 0, "Arial Narrow")
$TextBox1_2 = GUICtrlCreateLabel("Bereit?", 68, 144, 129, 49)
GUICtrlSetFont(-1, 30, 400, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


#Region ### START Koda GUI section ### Form=
$Form2 		= GUICreate("Form2", 500, 300, 469, 41, BitOR($WS_SYSMENU,$WS_POPUP))
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$TextBox2_1	= GUICtrlCreateLabel("Stückzahl erreicht", 64, 48, 316, 49)
GUICtrlSetFont(-1, 30, 400, 0, "Arial")
$Button1 = GUICtrlCreateButton("JA", 144, 216, 145, 97)
GUICtrlSetOnEvent( -1, "_Auftrag_Ja_Beenden") ; Funktion für Button 'JA beenden'
GUICtrlSetFont(-1, 30, 800, 0, "Arial Narrow")
$TextBox2_2 = GUICtrlCreateLabel("Arbeitsauftrag fertig?", 68, 144, 370, 49)
GUICtrlSetFont(-1, 30, 400, 0, "Arial")
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###


While 1
   If $gestartet = True Then
	  Beep ( 500, 200)
	  ConsoleWrite("---------------the current number is:"&$Counter&"----------------------------"&@CRLF)							;~ programm check
	  Sleep(2000)
	  ConsoleWrite("---------------the current hour is:"&@HOUR&"----------------------------"&@CRLF)								;~ programm check
	  $Counter+=1
	  ConsoleWrite("---------------the current number is:"&$Counter&"----------------------------"&@CRLF)							;~ programm check
	  If $Limit = $Counter Then _Auftrag_Fertig()
   EndIf
   Sleep(100)
WEnd




Func _Auftrag_Starten()
   $Counter	= 0
   $Date1 = @YEAR&":"&@MON&":"&@MDAY																								;~ setting variable $Date1 [yyyymmdd]
   $StartTime1 = @HOUR*3600+@MIN*60+@SEC																							;~ setting variable $StartTime1 [hhmmss
   $gestartet = True
EndFunc




Func _Auftrag_Fertig()
   GUISetState(@SW_HIDE, $Form1)
   GUISetState(@SW_SHOW, $Form2)
EndFunc




Func _Auftrag_Ja_Beenden()
   GUISetState(@SW_HIDE, $Form2)
   GUISetState(@SW_SHOW, $Form1)
   $gestartet = False
EndFunc




Func _Exit()
   Exit
EndFunc

Alles anzeigen

Ob das nun dem Nahe kommt was Du erwartest, kann ich nicht sagen.

NO1 :-)

Also

Als erstes kommen alle #includes. Dann erstellts du deine Variablen. Als 3. einmalig die GUIs erstellen. Und dann kommt deine While-Schleife, da reicht aber eine aus und in die kannst du unter anderem schreiben, welche GUI angezeigt werden soll z.B. GUISetState (@SW_Show, $Form1) zeigt Form1...
z.B. GUISetState (@SW_Hide, $Form2) versteckt Form2...

Lies dir dazu mal GUISetState durch.

Lg NO1

Micha_he

NO1 :-): Warum wiederholts Du alles, was vorher schon geschrieben stand... Brauchst Du Beiträge... die zählen hier nicht

NO1 :-)

@Micha_he

Tut mir leid, hab eure Posts noch nicht gesehen, als ichs abgeschickt hab. Hatte mal länger kein Internet heute .

Lg NO1