rekenprogramma, antwoord controleren

[gijs67]

Hee!

Ik heb even een vraagje. Ik ben voor visual basics een rekenprogramma aan het maken. En nu wil ik dat wanneer je, je antwoord invoert in de textbox en op controleren drukt dat de textbox dan rood kleurt wanneer het antwoordt fout is en groen kleurt wanneer het antwoord goed is. Dit is wat ik heb staan, maar het werkt niet want de textbox wordt heel de tijd groen:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Label3.Text = "+" Then
TextBox1.Text = Val(Label2.Text) + Val(Label4.Text)
ElseIf Label3.Text = "-" Then
TextBox1.Text = Val(Label2.Text) - Val(Label4.Text)
ElseIf Label3.Text = "x" Then
TextBox1.Text = Val(Label2.Text) * Val(Label4.Text)
ElseIf Label3.Text = "/" Then
TextBox1.Text = Val(Label2.Text) / Val(Label4.Text)
End If

If TextBox1.Text = True Then
TextBox1.BackColor = Color.Green
Else
If TextBox1.TextAlign = False Then
TextBox1.BackColor = Color.Red

End If
End If



End Sub

hebben jullie misschien een idee over wat ik anders moet doen?

 

[Roncancio]

Je laat de computer rekenen ipv dat de computer controleert.
Bijv.:

TextBox1.Text = Val(Label2.Text) + Val(Label4.Text)

De computer berekent de juiste waarde en vandaar dat de uitkomst goed is en de kleur dus groen.

Je kan je het oplossen door het eindresultaat te vergelijken.
Zo iets als:

If Textbox_Eindresultaat.Value = textbox1.Value + textbox2.Value then
      Textbox_eindresultaat.BackColor = VbGreen 
Else
      Testbox_eindresultaat.BackColor = VbRed.
End If

Met vriendelijke groet,


Roncancio

 

[Pizara]

TextBox1.Text = Val(Label2.Text) + Val(Label4.Text)

Je telt 2 variablen bij elkaar. Dus textbox1.text is een getal.

If TextBox1.Text = True Then
TextBox1.BackColor = Color.Green
Else
If TextBox1.TextAlign[COLOR="Red"]?[/COLOR] = False Then
TextBox1.BackColor = Color.Red

Maar je vergelijkt de textbox hier met een boolean (true/false).
Je moet de uitkomst vergelijken met een getal. Want een TextBox1.Text is altijd True.

Bovendien moet het TextBox1.Text zijn in plaat van TextBox1.TextAlign

 

[gijs67]

dankje wel voor jullie reacties,

ik zal kijken of het lukt....