Hallo,
habe gehofft das Problem alleine lösen zu können, komme aber nicht zum gewünschter Ergebnis und hoffe nun hier Hilfe zu bekommen.
Ich habe eine GUI. 2 Inputboxen, Ein Button. Klickt man auf den Button so soll in der ersten Inputbox eine zufällige, gerundete Zahl zwischen 1 und 10 erscheinen. Das klappt auch soweit. Nun möchte ich aber, dass in der 2. Inputbox ebenfalls eine zufällige und gerundete Zahl angezeigt wird, sobald in der ersten Box die Zahl 1 erscheint. Das klappt nicht.
Die funktion selbst funktioniert, wenn ich "If $MoeGLICHKEITINPUT1 = 1 Then" weglasse. natürlich ändert dann die 2. box auch bei jedem Buttonklick den Wert und nicht nur wenn Box1 eine "1" auswirft. Kann mir bitte jemand auf die Sprünge helfen? Wenn "If" nicht funktioniert, was nehme ich dann? Freue mich über jede Hilfe. Vielen Dank
Bitte löschen, ich hab grad selbst den Fehler gefunden. Liegt wohl an der Uhrzeit
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("TEST", 428, 74, 663, 199)
$INPUT1 = GUICtrlCreateInput("INPUT 1", 64, 8, 241, 21)
$INPUT2 = GUICtrlCreateInput("INPUT 2", 64, 40, 241, 21)
$BUTTON = GUICtrlCreateButton("GET", 8, 8, 49, 21)
WinSetOnTop("TEST", "", 1)
GUISetState(@SW_SHOW)
Dim $input1moeglichkeiten[100]
$input1moeglichkeiten[001] = "Moeglichkeit 1 in INPUT 1"
$input1moeglichkeiten[002] = "Moeglichkeit 2 in INPUT 1"
$input1moeglichkeiten[003] = "Moeglichkeit 3 in INPUT 1"
$input1moeglichkeiten[004] = "Moeglichkeit 4 in INPUT 1"
$input1moeglichkeiten[005] = "Moeglichkeit 5 in INPUT 1"
$input1moeglichkeiten[006] = "Moeglichkeit 6 in INPUT 1"
$input1moeglichkeiten[007] = "Moeglichkeit 7 in INPUT 1"
$input1moeglichkeiten[008] = "Moeglichkeit 8 in INPUT 1"
$input1moeglichkeiten[009] = "Moeglichkeit 9 in INPUT 1"
$input1moeglichkeiten[010] = "Moeglichkeit 10 in INPUT 1"
Dim $input2moeglichkeiten[100]
$input2moeglichkeiten[001] = "Moeglichkeit 1 in INPUT 2"
$input2moeglichkeiten[002] = "Moeglichkeit 2 in INPUT 2"
$input2moeglichkeiten[003] = "Moeglichkeit 3 in INPUT 2"
$input2moeglichkeiten[004] = "Moeglichkeit 4 in INPUT 2"
$input2moeglichkeiten[005] = "Moeglichkeit 5 in INPUT 2"
$input2moeglichkeiten[006] = "Moeglichkeit 6 in INPUT 2"
$input2moeglichkeiten[007] = "Moeglichkeit 7 in INPUT 2"
$input2moeglichkeiten[008] = "Moeglichkeit 8 in INPUT 2"
$input2moeglichkeiten[009] = "Moeglichkeit 9 in INPUT 2"
$input2moeglichkeiten[010] = "Moeglichkeit 10 in INPUT 2"
Func _TESTFUNKTION()
$RandomNumber = Random (1,10)
$RandomNumberRound = Round ($RandomNumber)
$MoeGLICHKEITINPUT1 = $input1moeglichkeiten[$RandomNumberRound]
GUICtrlSetData($INPUT1, $MoeGLICHKEITINPUT1)
If $MoeGLICHKEITINPUT1 = 1 Then
$RandomNumber2 = Random (1,10)
$RandomNumberRound2 = Round ($RandomNumber2)
$MoeGLICHKEITINPUT2 = $input2moeglichkeiten[$RandomNumberRound2]
GUICtrlSetData($INPUT2, $MoeGLICHKEITINPUT2)
EndIf
EndFunc
While True
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $BUTTON
_TESTFUNKTION()
EndSwitch
WEnd
Alles anzeigen