Sign in to follow this  
Followers 0
bigfattoby

gettin radom tekst

4 posts in this topic

#1 ·  Posted (edited)

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 by bigfattoby

Getting hang on the basic, still much to learn.If I take high class, taking high test im getting highscore right?

Share this post


Link to post
Share on other sites



$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.


AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Share this post


Link to post
Share on other sites

Thanks for trying but that is not working


Getting hang on the basic, still much to learn.If I take high class, taking high test im getting highscore right?

Share this post


Link to post
Share on other sites

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

Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0