If-Schleife in Funktion funktioniert nicht.

ashadehigher

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

C

#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

**alpines**

Schön das du den Fehler gefunden hast aber dein Script kann man definitiv besser schreiben.

Zuerst solltest du dir den Begriff "If-Schleife" abgewöhnen, sowas gibt es nicht. Ein If-Befehl ist eine Verzweigung und keine Schleife.

Zum anderen kannst du den dritten Parameter bei der Random-Funktion verwenden mit der du ganzzahlige Ergebnisse direkt kriegst wenn du den Parameter auf 1 setzt.
Somit sparst du dir den extra Round-Befehl direkt danach.

Deine If-Abfrage If $MoeGLICHKEITINPUT1 = 1 Then ist absolut falsch und unnötig dazu.
Wenn dein Programm bei der Generierung der 1. Zufallszahl definitiv nicht scheitern kann (was der Fall ist), dann brauchst du diese If-Abfrage überhaupt nicht.
Lass sie einfach weg und füll die zweite InputBox direkt.

Außerdem ist die Bedingung falsch. $MoeGLICHKEITINPUT1 = 1 würde prüfen ob der Inhalt von $MoeGLICHKEITINPUT1 gleich 1 ist obwohl dort nur Strings wie "Moeglichkeit 8 in INPUT 1" enthalten sind. Du müsstest - wenn du überhaupt diese If-Abfrage haben willst - prüfen ob der String leer ist oder nicht, was wie gesagt nicht notwendig ist weil die If-Abfrage Müll ist.

Zuletzt solltest du dir doch angewöhnen deinen Code gut und sauber zu strukturieren, Einrückungen richtig einzuhalten und deinen Variablen sowie Funktionen bessere und aussagekräftigere Namen zu geben. $MoeGLICHKEITINPUT1 ist einfach falsch.