Mathematics

[adamlonsdale]

Hello there,

Okay, my school has put me in charge of making a program, for the maths department. So i went out and bought vb6 (as i have been wanting to for a while now). Ive got the GUI and everything, its just i want to know how to do "sums"

As in, there are three text boxes box, going:

TB1 + TB2 = TB3

Now, i need a code or something, which will create a random number in TB1 and TB2. And when the user enters the answer (in TB3), it will display a tick, and "correct" or a cross and "incorrect"

I would like to achieve the above for multiplication, addition, subtraction and division.

Many Thanks

Adam

[sessi4ml]

Create a text box on the form
Text1.Text=TB1 + TB2
Create a random number generator
Private Sub Command1_Click()
Dim TB1 As Integer: Dim TB2 As Integer
Randomize Timer
TB1 = Rnd(0 + 1) * 100
Text1.Text = TB1
TB2 = Rnd(0 + 1) * 100
Text2.Text = TB2
End Sub

[leinad31]

Make sure the textboxes for operands are locked since they're auto generated

[adamlonsdale]

Many thanks! I get an Invalid outside procedure with that. :s Sorry, i am pretty new to VB.

Also, i will makesure to lock them, thanks for the heads up

[sessi4ml]

Timer, guess game...maybe helpful

[adamlonsdale]

Ah wow, many thanks! Ive got the randomizing working perfectly

How would i go about the IF tb1 + tb2 = tb3 it says "output1" if not it says "output2"

[DigiRev]

Ah wow, many thanks! Ive got the randomizing working perfectly

How would i go about the IF tb1 + tb2 = tb3 it says "output1" if not it says "output2"

Assuming you have a TextBox for the output named txtOutput:

txtOutput.Text = Iif(tb1 + tb2 = tb3, "output1", "output2")

Is that what you mean?

[adamlonsdale]

Yeah, but would that be able to pop up in a box? And alert. Well i suppose i could show form2 when commandVerify is clicked, and have txtOutput in there, then when they hit "OK" it hides it again?

[adamlonsdale]

Aha, yes that is working sort of, how do i sort of link to form1? with the

txtOutput.Text = IIf(TB1 + TB2 = TB3, "output1", "output2")

Oh, and should the IIF have 2 I's?

[adamlonsdale]

Anybody? Also, is it possible to make a textbox transparrent? Or show the result in a label?

Edit: And is it possible to make a textbox clear when clicked?

[Al42]

lblOutput.Caption = IIf(TB1 + TB2 = TB3, "output1", "output2")

[adamlonsdale]

Ah, thanks! I have got it working sort of, when i click "check" it always comes out with label2. Ive attatched my project.

[adamlonsdale]

Okay this is getting confusing, with saving an what not. So ive added my updated project. I have tried many methods, but i still cannot fix my problem. When i click the check button, it says incorrect no matter what the answer is.

Also here is the code:

Form 1:

Private Sub Form_Load()
Dim TB1 As Integer: Dim TB2 As Integer
Text1.Caption = TB1 + TB2
Randomize Timer
TB1 = Rnd(0 + 1) * 100
Text1.Caption = TB1
TB2 = Rnd(0 + 1) * 100
Text2.Caption = TB2
End Sub
Private Sub Command1_Click()
Dim TB1 As Integer: Dim TB2 As Integer
Randomize Timer
TB1 = Rnd(0 + 1) * 100
Text1.Caption = TB1
TB2 = Rnd(0 + 1) * 100
Text2.Caption = TB2
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub

Form 2:

Private Sub Form_Load()
Dim form1 As New form1
lblOutput.Caption = IIf(form1.Text1 + form1.Text2 = form1.Text2, "Correct", "Incorrect")
End Sub
Private Sub Command1_Click()
Form2.Hide
End Sub

[leinad31]

string + string results in stringstring and not the sum of the numbers in string.

Val(textbox.text) + Val(textbox.Text) results in their sum

[adamlonsdale]

pardon? Sorry, i do not understand

edit: ive got:

lblOutput.Caption = IIf(Val(form1.Text1.Caption) + Val(form1.Text2.Caption) = Val(form1.Text3.Text), "Correct", "Incorrect")

edit: just so you know, the numbers are generated in labels

label1 is called Text1
label2 is called Text2

[leinad31]

form1.Text1 + form1.Text2 does concatenation or
"12" + "34" results in "1234"

correct answer is derived with
val("12") + val("34") results in 46, to check txtanswer.text then

If Val(txtAnswer.Text) = val(txtValueA.Text) + val(txtValueB.Text) Then
msgbox "Correct"
Else
msgbox "wrong"
End IF

[gavio]

How about using a ScriptControl?

Debug.Print ScriptControl1.Eval("12+34") 'returns 46

[adamlonsdale]

Oh my god you are a genius!! Thank you so much! I have set it to display in a label in form 2, and it is working like a charm

One last question, then im done. How do i

a) close a form (.net was close())
b) when form1 is closed, it closes all other forms

Thanks

[leinad31]

in form1 unload event

Dim oFrm As Form

   For Each oFrm in Forms
      Unload oFrm
      Set oFrm = Nothing
   Next