Visual Basics rekenprogramma

[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?

 

[janmulder85]

Ben je dit rekenprogramma aan het maken in bijvoorbeeld Excel d.m.v. VBA? Of standalone in Visual Basic?

 

[gijs67]

uuhm in windows visual basics.net!

 

[janmulder85]

Ik ben niet zo bekend met VB.Net, maar het euvel zit in je onderste deel met code:

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

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

End If
End If

End Sub

Wat je nu aangeeft met de huidige code: Als TextBox1 "een" waarde bevat, dan moet hij groen kleuren... ongeacht welke waarde er staat!

Kun je iets meer detaills geven over de opbouw van je programma?

 

[gijs67]

ik wil dat hij groen kleurt wanneer hij de juiste waarde bevat hoe doe je dat? en welk deel van het programmeren heb je nodig?

 

[gijs67]

dit is ook nog een deel van de code:

Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
Dim laagste, hoogste As Integer
Dim getal1, getal2 As Integer
laagste = 1
hoogste = 10
getal1 = Int(((hoogste - laagste + 1) * Rnd()) + laagste)
getal2 = Int(((hoogste - laagste + 1) * Rnd()) + laagste)
Label2.Text() = CStr(getal1)
Label4.Text() = CStr(getal2)
Dim getal3 As Integer
Dim laag, hoog As Integer
laag = 1
hoog = 4
getal3 = Int(((hoog - laag + 1) * Rnd()) + laag)
If getal3 = 1 Then
Label3.Text = "+"
ElseIf getal3 = 2 Then
Label3.Text = "-"
ElseIf getal3 = 3 Then
Label3.Text = "/"
ElseIf getal3 = 4 Then
Label3.Text = "x"
End If



End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = "?"
TextBox1.BackColor() = Color.White


Randomize()
Dim laagste, hoogste As Integer
Dim getal1, getal2 As Integer
laagste = 1
hoogste = 10
getal1 = Int(((hoogste - laagste + 1) * Rnd()) + laagste)
getal2 = Int(((hoogste - laagste + 1) * Rnd()) + laagste)
Label2.Text() = CStr(getal1)
Label4.Text() = CStr(getal2)
Dim getal3 As Integer
Dim laag, hoog As Integer
laag = 1
hoog = 4
getal3 = Int(((hoog - laag + 1) * Rnd()) + laag)
If getal3 = 1 Then
Label3.Text = "+"
ElseIf getal3 = 2 Then
Label3.Text = "-"
ElseIf getal3 = 3 Then
Label3.Text = "/"
ElseIf getal3 = 4 Then
Label3.Text = "x"
End If
End Sub

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


ik werk ook met verschillende forms....

Ik weet nog niet zo veel van visual basics want we zijn er pas net op school meebezig maar de opdracht is het maken van een rekenprogramma...

 

[janmulder85]

Ik denk dat dit zo'n beetje je bedoeling is (zie bijgevoegd excel bestandje). Helaas kan ik je niet helpen aan een werkende code in VB.NET, omdat ik de code niet kan maken en dus ook niet testen?

Misschien dat je aan de hand van mijn voorbeeldje je wensen kan aangeven?

Er zijn vast mensen op het forum aanwezig die je dan met je code kunnen helpen.

 

[m@rio]

Welkom,

Het is op helpmij niet de bedoeling dat je je vraag meerdere malen stelt. Je vraag de VB sectie daar mag je verder gaan.