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