Checking for an equation in an input box

[James]

Hey,

I know about my other topic, but this is a different question, so I thought it would be easier to start a new topic, so its easier to search for at a later date

Basically, I am making a game for a primary school (They dont know about it yet, but I said I would).

In the GUI there is a star with 1 number in each corner. The numbers range from 1-6. The aim of the game is to try and reach the number that is randomly generated from a series of 20 different possible numbers by using a number once and using the four basic symbols /*-+

Example:

The number I have to make is 22. I know that doing 5*4+2=22, so I enter it into the box. I then click a button which will look at the equation I have entered and it will check if I have used a number once. You dont need to use all the numbers but you need to use them once. It will then check against the number generated and if it is correct a message box appears, and you get a sound played.

Here is the variable names that I use:

$ToMake ; The number that is randomly generated
$NumberEntry ; The input box to check for equation

I can show you what I have done so far if anyone needs it.

Thanks,

James

[Xenobiologist]

HI,

and where is the prop?

A start:

$toget = 22
If Execute(InputBox('Test', '')) = $toget Then
    MsgBox(1, "WIN", 'You did it!')
Else
    MsgBox(1, "Lost", 'NO!!')
EndIf

Just need to parse the Input

So long,

Mega

[James]

and where is the prop?

Where is the what?

$toget = 22
If Execute(InputBox('Test', '')) = $toget Then
    MsgBox(1, "WIN", 'You did it!')
Else
    MsgBox(1, "Lost", 'NO!!')
EndIfoÝ÷ Ù±Ò!j÷§£(µ«­¢+ÙÕ¹5Ñ  ¤($ÀÌØí5­5ôÕ¥
ÑɱI ÀÌØíQ½5­¤(%%áÕÑ¡Õ¥
ÑɱI ÀÌØí9յɹÑÉ䤤ôÀÌØí5­5Q¡¸(5Í  ½à Ä°ÅÕ½Ðí]%8ÅÕ½Ðì°Ìäíe½Ô¥¥ÐÌÌìÌäì¤)±Í(5Í  ½à Ä°ÅÕ½Ðí1½ÍÐÅÕ½Ðì°Ìäí9

And now it will calculate, its just the problem of checking if a number has been used more than once.

Edited July 31, 2007 by NeoTroniX

[Xenobiologist]

Hi,

prob = problem.

You can use RegExp oder Strinsplit and then StringCount or StringReplace 1 by 1 and check extended.

So long,

Mega

[James]

That was what I was trying to do. Thanks I now have the functions needed.

Thanks again MG(Its much easier)

Where can I find StringCount? - Oh you mean StringLen()

Edited August 1, 2007 by NeoTroniX

[Xenobiologist]

Hi,

are you done with it? My girlfriend works at an elementary school, maybe she has need for the game, too.

So long,

Mega

[James]

No not quite.

I am trying atm to make, whatever you put into the input is taken from the Number you need to make.

Example time:

Number to make: 20

Inside the input: 5*3 (15)

15 is taken from the number to make. Any help?

Edited August 1, 2007 by NeoTroniX

[James]

OK, so far I have got,

Func RealTime()
    Local $OldStr
    $ToMakeRead = GuiCtrlRead($ToMake)
    $MathRead = GuiCtrlRead($NumberEntry)
    For $i = 1 To $MathRead
        If $ToMakeRead <> $OldStr Then
                GuiCtrlSetData($ToMake, $ToMakeRead =- $MathRead)
            EndIf
        $OldStr = $MathRead
    Next
EndFunc

But that keeps returning the word False. I am guessing that the function would be called in the Case statement for the input $NumberEntry.

[James]

Now I am really confused.

Using the following:

$ToMakeRead = GuiCtrlRead($ToMake)
    $MathRead = GuiCtrlRead($NumberEntry)
    GuiCtrlSetData($ToMake, $ToMakeRead =- Execute($MathRead))oÝ÷ ØH­êëzÛ«Ê®¢Ôë¹ê®¢Ú+ªê-©lz«¨·rËajÓhÀ!jxv+Zn+m¡«­¢+Ø$ÀÌØíQ½5­IôÕ¥
ÑɱI ÀÌØíQ½5­¤($ÀÌØí5Ñ¡IôÕ¥
ÑɱI ÀÌØí9յɹÑÉä¤(%Õ¥
ÑɱMÑÑ ÀÌØíQ½5­°$ÀÌØíQ½5­I´ÀÌØí5Ñ¡I

And now it takes what ever you enter into the box away, but it keeps going. It doesn't do it once. Please someone help me.

Edited August 1, 2007 by NeoTroniX

[James]

Anyone?

[James]

I have again tried this, using:

Func RealTime()
    $ToMakeRead = GuiCtrlRead($ToMake)
    $MathRead = GuiCtrlRead($NumberEntry)
    ;For $i = 1 to $MathRead
    ;   GuiCtrlSetData($ToMake, $ToMakeRead +- Execute($MathRead))
    ;Next
    ;nGuiCtrlSetData($ToMake, Execute(GuiCtrlRead($ToMake)) - Execute(GuiCtrlRead($NumberEntry)))
    Local $OldStr
        If $ToMakeRead <> $OldStr Then
                GuiCtrlSetData($ToMake, $ToMakeRead - Execute($MathRead))
        EndIf
        $OldStr = $MathRead
EndFunc

The commented out is what I have already tried.

[mikehunt114]

This seemed like fun, so here's my take at it:

expandcollapse popup

While 1
    $ToMake = Random(20, 40, 1)
    $Input = InputBox("Math game", "Enter forumla using numbers 1 through 6 to make: " & $ToMake)
    If @error = 1 Then Exit
    If $Input = "" Then
        MsgBox(0, "Error", "Please input an equation!")
    Else
        $check = Check($Input)
        If $check = False Then
            ContinueLoop
        Else
            If Execute($Input) = $ToMake Then
                MsgBox(0, "Hurrah", "You got it!")
                ExitLoop
            Else
                MsgBox(0, "Aww", "That's incorrect, try again!")
            EndIf
        EndIf
    EndIf
WEnd

Func Check($sText = "")
    Local $searchBefore = -1, $searchAfter = -1, $temp = "", $j = 1
    $sText = StringSplit($sText, "")
    For $i = 1 To $sText[0]
        $temp = Number($sText[$i])
        If $temp = 0 Then
            If $sText[$i] = "*" Then
                ContinueLoop
            ElseIf $sText[$i] = "/" Then
                ContinueLoop
            ElseIf $sText[$i] = "-" Then
                ContinueLoop
            ElseIf $sText[$i] = "+" Then
                ContinueLoop
            Else
                MsgBox(0, "Error", "Inavlid character in forumla!")
                Return False
            EndIf
        ElseIf $temp > 6 Then
            MsgBox(0, "Error", "You used a number outside the required range!")
            Return False
        Else
            If StringInStr($Input, $sText[$i], 0, 2) Then
                MsgBox(0, "Error", "You used the same value more than once! Try again.")
                Return False
            EndIf
        EndIf
        $j += 1
    Next
    Return True
EndFunc

[James]

Thankyou so much mike

I will add that tomorrow. Any advice/help on the other question?

[mikehunt114]

Hmm....sorry, what's your current issue?

[James]

I am trying atm to make, whatever you put into the input is taken from the Number you need to make.

Example time:

Number to make: 20

Inside the input: 5*3 (15)

15 is taken from the number to make. Any help?

Edited August 1, 2007 by NeoTroniX

[mikehunt114]

Like this?

$ToMake = 20
$Input = 5 * 5
$ToMake -= $Input
MsgBox(0, "", $ToMake)

Btw, 5*5 = 25, not 15. You sure you're making this for grade schoolers and not to test yourself?

[James]

Lol sorry, quick typing.

Look:

Func RealTime()
    $ToMakeRead = GuiCtrlRead($ToMake)
    $MathRead = GuiCtrlRead($NumberEntry)
    ;For $i = 1 to $MathRead
    GuiCtrlSetData($ToMake, $ToMakeRead =- $MathRead)
    ;Next
    ;nGuiCtrlSetData($ToMake, Execute(GuiCtrlRead($ToMake)) - Execute(GuiCtrlRead($NumberEntry)))
    ;Local $OldStr
        ;If $ToMakeRead <> $OldStr Then
                ;GuiCtrlSetData($ToMake,    $ToMakeRead - Execute($MathRead))
        ;EndIf
        ;$OldStr = $MathRead
EndFunc

[mikehunt114]

Case solved, or are you still having troubles? If so, please elaborate.

[James]

Ims till having problems. It either shows True or false.

[mikehunt114]

What shows True or False? Can you make me a quick reproducer?