probleempje

Status
Niet open voor verdere reacties.
G

gregoryv

Gebruiker
Lid geworden
12 mei 2007
Berichten
7
hallo iedereen,

ik moet voor school een soort rekenmachine maken en heb een volgend probleem:

er zijn 2 random die gegenereerd worden in een label en die 2 moet ik optelln bij elkaar en de juiste oplossing moet in een textbox ingegeven worden en dan moet deze gecontroleerd worden of het juist is. ik heb volgend stukje code maar er vind zich een fout plaats:

If txtoplossing1.Text = Val(lblrandom1) + Val(lblrandom11) Then
lblcontrole1.Text = "goed"
Else
lblcontrole1.Text = "Fout"
End If

help mij a.u.b
 
Bij een Label is het Label.Caption en niet Label.Text, dus probeer dit maar eens:

Code: 
If txtoplossing1.Text = Val(lblrandom1) + Val(lblrandom11) Then
lblcontrole1.Caption = "Goed"
Else
lblcontrole1.Caption = "Fout"
End If

Succes ermee:thumb:
Grtz, Ronald!
 
En als je dan gewoon Caption vervangt voor Text, wat je eerst had! Wat voor fout geeft hij dan aan?
 
dan gaf hij in deze lijn een fout maar snap er niets van :s :
If txtoplossing1.Text = Val(lblrandom1) + Val(lblrandom11) Then

fout:

An unhandled exception of type 'System.ArgumentException' occurred in microsoft.visualbasic.dll

Additional information: Argument 'Expression' cannot be converted to type 'Label'.
 
Probeer dit is:

Code: 
If txtoplossing1.Text = lblrandom1 + 1 * lblrandom11 Then
 
dan zegt hij dat operators '*' niet gedienieerd zijn voor types 'integer' en 'system.windows.Form.labels'

pffff kgeraak er niet aan uit.
 
Laatst bewerkt:
Kun je misschien is een groter stuk van je code posten, dan kan ik er is even in zen geheel naar kijken!
 
Private Sub btngetallen20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btngetallen20.Click
Dim nieuwesommen As Random = New Random
lblrandom1.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom2.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom3.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom4.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom5.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom6.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom7.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom8.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom9.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom10.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom11.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom12.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom13.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom14.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom15.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom16.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom17.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom18.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom19.Text = CStr(nieuwesommen.Next(0, 11))
lblrandom20.Text = CStr(nieuwesommen.Next(0, 11))
End Sub
Private Sub btngetallen100_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btngetallen100.Click
Dim nieuwesommen As Random = New Random
lblrandom1.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom2.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom3.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom4.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom5.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom6.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom7.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom8.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom9.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom10.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom11.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom12.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom13.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom14.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom15.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom16.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom17.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom18.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom19.Text = CStr(nieuwesommen.Next(0, 51))
lblrandom20.Text = CStr(nieuwesommen.Next(0, 51))
End Sub
Private Sub btngetallen1000_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btngetallen1000.Click
Dim nieuwesommen As Random = New Random
lblrandom1.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom2.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom3.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom4.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom5.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom6.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom7.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom8.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom9.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom10.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom11.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom12.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom13.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom14.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom15.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom16.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom17.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom18.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom19.Text = CStr(nieuwesommen.Next(0, 501))
lblrandom20.Text = CStr(nieuwesommen.Next(0, 501))
End Sub
Private Sub btncontrole1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncontrole1.Click
If txtoplossing1.Text = lblrandom1 + lblrandom11 Then
lblcontrole1.Text = "Goed"
Else : lblcontrole1.Text = "Fout"
End If
End Sub
End Class

dit is mijn gehele code dat ik tot nu toe heb :p
maar heb je geen msn ofzo is makkelijker om te communiceren :p
 
Ik zal er morgen even naar kijken! Ik ga nu
Later

Grtz, Ronald
 
Laatst bewerkt:
Als je VS2003 gebruikt kan je maar beter omschakelen naar de vernieuwde convertfuncties:

Code: 
If Convert.toInt32(txtOplossing1.Text) = Convert.toInt32(lblRandom1.Text) + Convert.toInt32(lblRandom11.Text) Then
lblControle1.Text = "Goed"
Else
lblControle1.Text = "Fout"
End If

Indien je kommagetallen gebruikt, kan je de functie Convert.toInt32 vervangen door Convert.toDouble
 
Of zoiets

Code: 
        If CDbl(txtoplossing1.Text .Replace(".", ",")) = CDbl(lblRandom1.Text.Replace(".", ",")) + CDbl(lblRandom2.Text.Replace(".", ",")) Then
            lblControle1.Text = "Goed"
        Else
            lblControle1.Text = "Fout"
        End If
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan