gettin radom tekst

[bigfattoby]

Hi. ive got this script, and i want to do so that $Question1 and $Question2 will be randomly putted into $Label1 can anyone help me with this?

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Question1 = "What color is blood?"
$Question2 = "What color is water?"
Global $Form1 = GUICreate("Form1", 349, 89, 192, 124)
Global $Label1 = GUICtrlCreateLabel($Question1, 16, 8, 300, 20)
Global $Button1 = GUICtrlCreateButton("Red", 4, 48, 60, 33)
Global $Button2 = GUICtrlCreateButton("Blue", 64, 48, 60, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $Msg = GUIGetMsg()
    If $Msg = -3 Then Exit
    If $Msg = $Button1 Then Button1()
    If $Msg = $Button2 Then Button2()
WEnd

Func Button1()
    $hej = GUICtrlRead($Label1)
    If $hej = $Question1 Then
        MsgBox(0, "Correct!", "That is correct")
    EndIf
EndFunc
Func Button2()
    $hej = GUICtrlRead($Label1)
    If $hej = $Question1 Then
        MsgBox(0, "Wrong", "That is wrong")
    EndIf
    EndFunc

Edited July 30, 2011 by bigfattoby

[JohnOne]

$Questions[2] = ["What color is blood?","What color is water?"] ; put questions into an array
Global $Form1 = GUICreate("Form1", 349, 89, 192, 124)
Global $Label1 = GUICtrlCreateLabel($Questions[Random(0,Ubound($Questions)-1,1)], 16, 8, 300, 20) ; display a random question

Alter rest to suit.

[bigfattoby]

Thanks for trying but that is not working

[Jos]

Thanks for trying but that is not working

Working fine assuming you code the rest properly.

for exxample:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Dim $Questions[2] = ["What color is blood?","What color is water?"] ; put questions into an array
Global $Form1 = GUICreate("Form1", 349, 89, 192, 124)
Global $Label1 = GUICtrlCreateLabel($Questions[Random(0,Ubound($Questions)-1,1)], 16, 8, 300, 20) ; display a random question

GUISetState(@SW_SHOW) ; will display an empty dialog box

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd