Nicht angemeldet.
Hier können Sie Ihre eigenen Skripte und UDF's veröffentlichen undanderen zum Download anbieten oder von anderen herunterladen
#include <GUIConstants.au3> ToolTip("Entscheidungshelfer ist im Einsatz | by Blacky",0,0) $lol = True $Form1 = GUICreate("Form1", 625, 445, 193, 125) $Label1 = GUICtrlCreateLabel("Wie viele Möglichkeiten???", 128, 24, 330, 36) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") $Radio1 = GUICtrlCreateRadio("Zwei", 248, 152, 49, 17) $Radio2 = GUICtrlCreateRadio("Drei", 248, 200, 49, 17) $Radio3 = GUICtrlCreateRadio("Vier", 248, 248, 49, 17) $Button1 = GUICtrlCreateButton("Bestätigen", 176, 312, 265, 97, 0) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) While $lol = True $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $Button1 $rad1 = GUICtrlRead($Radio1) $rad2 = GUICtrlRead($Radio2) $rad3 = GUICtrlRead($Radio3) if $rad1 = 1 Then $was = 1 $lol = False EndIf if $rad2 = 1 Then $was = 2 $lol = False EndIf if $rad3 = 1 Then $was = 3 $lol = False EndIf If $rad1 = 4 And $rad2 = 4 And $rad3 = 4 Then MsgBox(0,"Fehler","Bitte wählen sie eine Option aus!") EndIf EndSwitch WEnd GUISetState(@SW_HIDE) If $was = 1 Then $Form1 = GUICreate("Form1", 625, 445, 193, 125) $Label1 = GUICtrlCreateLabel("Bitte geben sie die Möglichkeiten ein!", 88, 24, 356, 30) GUICtrlSetFont(-1, 17, 400, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("1.", 96, 136, 17, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Label3 = GUICtrlCreateLabel("2.", 93, 183, 17, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Input1 = GUICtrlCreateInput("", 120, 136, 449, 21) $Input2 = GUICtrlCreateInput("", 122, 185, 449, 21) $Button1 = GUICtrlCreateButton("Bestätigen", 192, 296, 241, 89, 0) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) $lool = True While $lool = True $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $in1 = GUICtrlRead($Input1) $in2 = GUICtrlRead($Input2) $lool = False EndSwitch WEnd GUISetState(@SW_HIDE) $ergzahl = Random(1,2,1) If $ergzahl = 1 Then MsgBox(0,"Ergebnis","UUUUUND... das ergebnis ist:") MsgBox(0,"",$in1) Exit EndIf If $ergzahl = 2 Then MsgBox(0,"Ergebnis","UUUUUND... das ergebnis ist:") MsgBox(0,"",$in2) Exit EndIf EndIf If $was = 2 Then $Form1 = GUICreate("Form1", 625, 445, 193, 125) $Label1 = GUICtrlCreateLabel("Bitte geben sie die Möglichkeiten ein!", 88, 24, 356, 30) GUICtrlSetFont(-1, 17, 400, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("1.", 96, 136, 17, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Label3 = GUICtrlCreateLabel("2.", 93, 183, 17, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Input1 = GUICtrlCreateInput("", 120, 136, 449, 21) $Input2 = GUICtrlCreateInput("", 122, 185, 449, 21) $Button1 = GUICtrlCreateButton("Bestätigen", 192, 336, 241, 89, 0) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Label4 = GUICtrlCreateLabel("3.", 96, 228, 17, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Input3 = GUICtrlCreateInput("", 125, 230, 449, 21) GUISetState(@SW_SHOW) $lool = True While $lool = True $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $in1 = GUICtrlRead($Input1) $in2 = GUICtrlRead($Input2) $in3 = GUICtrlRead($Input3) $lool = False EndSwitch WEnd GUISetState(@SW_HIDE) $ergzahl = Random(1,3,1) If $ergzahl = 1 Then MsgBox(0,"Ergebnis","UUUUUND... das ergebnis ist:") MsgBox(0,"",$in1) Exit EndIf If $ergzahl = 2 Then MsgBox(0,"Ergebnis","UUUUUND... das ergebnis ist:") MsgBox(0,"",$in2) Exit EndIf If $ergzahl = 3 Then MsgBox(0,"Ergebnis","UUUUUND... das ergebnis ist:") MsgBox(0,"",$in3) Exit EndIf EndIf If $was = 3 Then $Form1 = GUICreate("Form1", 625, 445, 193, 125) $Label1 = GUICtrlCreateLabel("Bitte geben sie die Möglichkeiten ein!", 88, 24, 356, 30) GUICtrlSetFont(-1, 17, 400, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("1.", 96, 136, 17, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Label3 = GUICtrlCreateLabel("2.", 93, 183, 17, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Input1 = GUICtrlCreateInput("", 120, 136, 449, 21) $Input2 = GUICtrlCreateInput("", 122, 185, 449, 21) $Button1 = GUICtrlCreateButton("Bestätigen", 192, 336, 241, 89, 0) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Label4 = GUICtrlCreateLabel("3.", 96, 228, 17, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Input3 = GUICtrlCreateInput("", 125, 230, 449, 21) $Label5 = GUICtrlCreateLabel("4.", 95, 273, 17, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Input4 = GUICtrlCreateInput("", 124, 275, 449, 21) GUISetState(@SW_SHOW) $lool = True While $lool = True $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $in1 = GUICtrlRead($Input1) $in2 = GUICtrlRead($Input2) $in3 = GUICtrlRead($Input3) $in4 = GUICtrlRead($Input4) $lool = False EndSwitch WEnd GUISetState(@SW_HIDE) $ergzahl = Random(1,4,1) If $ergzahl = 1 Then MsgBox(0,"Ergebnis","UUUUUND... das ergebnis ist:") MsgBox(0,"",$in1) Exit EndIf If $ergzahl = 2 Then MsgBox(0,"Ergebnis","UUUUUND... das ergebnis ist:") MsgBox(0,"",$in2) Exit EndIf If $ergzahl = 3 Then MsgBox(0,"Ergebnis","UUUUUND... das ergebnis ist:") MsgBox(0,"",$in3) Exit EndIf If $ergzahl = 4 Then MsgBox(0,"Ergebnis","UUUUUND... das ergebnis ist:") MsgBox(0,"",$in4) Exit EndIf EndIf MsgBox(0,"","Danke das sie meinen Entscheidungshelfer benutzt haben!") Sleep(2000) Exit
Dauerhaft angemeldet bleiben?