mathwizz

[thenewkid]

mathwizz is a program you can use to test your math skills with

the script now works with the beta update

the code is not to clear as im new to programing and have been away from it for some time

things to add

setings hard med and easy

a timer

to add / to its list atm it will only do * - +

to make a sore board so you know if you are geting beter as well

and sounds

if you have any ideas plz post them

things added

negative numbers

sounds

score borad

expandcollapse popup

#include <GuiConstants.au3>
#include <Array.au3>
#include <File.au3>
Opt("TrayMenuMode",1)
Opt('TrayOnEventMode',1)

Global $numbers1, $numbers2, $simbol, $usersays, $usersay, $Result, $score, $name

$scoreborad = TrayCreateItem("Score borad")
TrayItemSetOnEvent($scoreborad,"Showscoreborad")
$trayexit = TrayCreateItem("Exit")
TrayItemSetOnEvent($trayexit,"_Exit")

;Start guis
GuiCreate("math wizz", 268, 90,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

$Input_1 = GuiCtrlCreateInput("", 90, 20, 160, 20)
$Label_2 = GuiCtrlCreateLabel("Name", 20, 20, 60, 20)
$Button_3 = GuiCtrlCreateButton("start", 90, 60, 90, 20)
GUISetBkColor( 0xB0B0D0 )
GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $Button_3
            $name = GUICtrlRead($Input_1)
            ExitLoop
            GUIDelete("math wizz")
    EndSelect
WEnd


GuiCreate("Math wizz" & " " & $name , 312, 118,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$Makethemath = GuiCtrlCreateButton("Make the math", 210, 20, 90, 20)
$Checkthemath = GuiCtrlCreateButton("Check the math", 210, 40, 90, 20)
$Exit = GuiCtrlCreateButton("Exit", 210, 60, 90, 20)
$seescore = GUICtrlCreateLabel($score, 250, 90, 90, 20)
$nubers1 = GuiCtrlCreateLabel($numbers1, 30, 30, 60, 20)
$simbal = GuiCtrlCreateLabel($simbol, 90, 30, 30, 20)
$mubers2 = GuiCtrlCreateLabel($numbers2, 140, 30, 50, 20)
$usersay = GuiCtrlCreateInput($usersays, 30, 60, 90, 20)
$Group_8 = GuiCtrlCreateGroup("The math", 10, 10, 200, 100)
$Label_9 = GuiCtrlCreateLabel($Result, 140, 60, 60, 20)
GUISetBkColor( 0xB0B0D0 )

GuiSetState()
; end of gui

$score = "0"
GUICtrlSetData($seescore, $score)
Func checkthemath()
    ;geting the numbers
    $n1 = GUICtrlRead($nubers1)
    $sb = GUICtrlRead($simbal)
    $n2 = GUICtrlRead($mubers2)
    ;doing some math
    $Res = $n1 & $sb & $n2
    $Result = Execute($Res)
    GUICtrlSetData($Label_9 ,$Result)
    $final = GUICtrlRead($Label_9)
    $us = GUICtrlRead($usersay)
    ; are we right?
    if $final = $us Then
        SoundPlay(@WindowsDir & "\media\tada.wav",1)
        ToolTip("thats right")
        $score += "1"
        GUICtrlSetData($seescore, $score)
        doingthemath()
    Else
        SoundPlay(@WindowsDir & "\media\chord.wav",1)
        ToolTip("Wrong")
        $score -= "1"
        GUICtrlSetData($seescore, $score)
    EndIf
EndFunc

Func doingthemath()
    ; to make the math
    GUICtrlSetData($usersay , "")
    GUICtrlSetData($Label_9 , "")
    $simbol = Random ( 1, 3, 1)
    if $simbol = 1 Then
        $simbol = "+"
        $numbers1 = Random( -9999, 9999,1)
        $numbers2 = Random( -9999, 9999,1)
    ElseIf $simbol = 2 Then
        $simbol = "-"
        $numbers1 = Random( -9999, 9999,1)
        $numbers2 = Random( -9999, 9999,1)
    ElseIf $simbol = "3" Then
        $simbol = "*"
        $numbers1 = Random( -100, 100,1)
        $numbers2 = Random( -100, 100,1)
    EndIf
    ; to set the math
    GUICtrlSetData($nubers1, $numbers1)
    GUICtrlSetData($simbal, $simbol)
    GUICtrlSetData($mubers2, $numbers2)
EndFunc

Func Showscoreborad()

    Dim $line
    ;to count the file lines
    $howmenylines = _FileCountLines ("Scores.txt")
    ;to make the arrays
    If Not _FileReadToArray("Scores.txt",$line) Then
        MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
        Exit
    EndIf
    ; to sart the arrays
    _ArraySort ($line ,1 ,0, $howmenylines)
    ;to show thw arrays
    _ArrayDisplay($line, "Score Borad")
EndFunc

Func _Exit()
    FileWriteLine("Scores.txt",$score & " " & "was " & $name &  " score" )
    Exit
EndFunc

While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            _Exit()
        Case $msg = $Makethemath
            doingthemath()
        Case $msg = $Checkthemath
            checkthemath()
        Case $msg = $Exit
            _Exit()
    EndSelect
WEnd

Math_wizz.au3

Edited April 24, 2007 by thenewkid

[Hasher]

Good math skill is using negative numbers too , I like the fact you mix up math operators like *+-/ ......keep going Mate :-D

[thenewkid]

k thx it now does negative numbers as well

[jvanegmond]

What is this?

[Hasher]

its called 'MATH' Manadar....you know the stuff they teach at school.

I had to do an aptitude test for a job interview last week and simular apps helped me score an A :-D

Go get em thenewkid!!!!!

[jvanegmond]

its called 'MATH' Manadar....you know the stuff they teach at school.

I'll take you on in a math test any time!! Be prepared to get your butt kicked.

I don't understand how to use this at all. =/ It's not very obvious.

Edit: Make the math, does nothing.

Check the math, shops a tooltip 'Thats right'

and Exit, exits..

I don't get it??

Edited April 23, 2007 by Manadar

[thenewkid]

Make the math will make and show the question just above the textbox and check the math will tell you if you are right or wrong and show the answer next to the text box im working on a timer as well now for it

[jvanegmond]

Make the math will make and show the question just above the textbox and check the math will tell you if you are right or wrong and show the answer next to the text box im working on a timer as well now for it

Make the math will not show the question for me. I'm using Windows XP Pro SP2, Classic theme, and AutoIt v3.2.3.6 Beta.

[thenewkid]

ic i tryed it with bata and could not get it to work as well ill see if i can see what is wrong do you know what thay chaged in the new beta?

[RazerM]

doesn't work for me

Edited April 23, 2007 by RazerM

[thenewkid]

ya it wonk work under the new beta i dont know why yet but working on it (if you run it not under beta then it shold work)

Edited April 23, 2007 by thenewkid

[thenewkid]

over 100 Views and no one posts

[jvanegmond]

over 100 Views and no one posts

Are you crazy?! Including my post, you have twelve! That nearly makes this a 'hot topic'.

[Gabburd]

Hey, nice code!

The problem when running the code with beta seems to be that you are using 3 parameters for GUICtrlSetData() each time.

The third parameter is not neccesary with a GUI Label object, as it's just for controls that need a default selection.

After removing all of the default value parameters for GUICtrlSetData, (I think there's 9 of them) your code works for me!

Have fun and Happy scripting!

[thenewkid]

ok thx for the help i never know why it was not working in beta