Shadir
Legacy Member
Hallo,
Ik was bezig met het programmeren van een Vb programma om men kleine broertje te helpen met zijn optellen en aftrekken te oefenen maar ik heb random sommen en verschillen gemaakt en wat ik nu zou willen doen is het controleren of het juist is, het aantal juiste weergeven en indien het fout is de juiste oplossing in een label (momenteel genaamd label5) weergeven.
Is er iemand die me zou kunnen helpen? Liefst met gebruik van een array zodat ik het in het vervolg ook zelf kan doen
Ik zou jullie hulp heel erg kunnen waarderen
Dit is mijn code:
Private Sub FrmSomEnVerschil_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim ObjRandom As New Random
Dim Intgetal, Intgetal2 As Integer
Label1.Text = ""
Label2.Text = ""
Label3.Text = ""
Label4.Text = ""
For Shtteller As Short = 0 To 9
Label4.Text &= "=" & vbNewLine
Intgetal = ObjRandom.Next(0, 100)
If Intgetal >= 50 Then
Label2.Text &= "+" & vbNewLine
Intgetal = ObjRandom.Next(0, 11)
Intgetal2 = ObjRandom.Next(0, 10 - Intgetal)
Label1.Text &= Intgetal & vbNewLine
Label3.Text &= Intgetal2 & vbNewLine
Else
Label2.Text &= "-" & vbNewLine
Intgetal = ObjRandom.Next(0, 11)
Intgetal2 = ObjRandom.Next(0, Intgetal)
Label1.Text &= Intgetal & vbNewLine
Label3.Text &= Intgetal2 & vbNewLine
End If
Next
End Sub
Dit is hoe het design er uit ziet (mijn broertje is jong dus beyblade om het aantrekkelijk te maken):
http://desmond.imageshack.us/Himg843/scaled.php?server=843&filename=79153516.png&res=medium
De eerste getallen voor het plus- of minteken is 1 label, het plus- of minteken is een tweede label, de tweede getallen na het plus- of minteken is een label en de = tekens zijn ook een label (totaal 4 labels)
Ik was bezig met het programmeren van een Vb programma om men kleine broertje te helpen met zijn optellen en aftrekken te oefenen maar ik heb random sommen en verschillen gemaakt en wat ik nu zou willen doen is het controleren of het juist is, het aantal juiste weergeven en indien het fout is de juiste oplossing in een label (momenteel genaamd label5) weergeven.
Is er iemand die me zou kunnen helpen? Liefst met gebruik van een array zodat ik het in het vervolg ook zelf kan doen

Ik zou jullie hulp heel erg kunnen waarderen
Dit is mijn code:
Private Sub FrmSomEnVerschil_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim ObjRandom As New Random
Dim Intgetal, Intgetal2 As Integer
Label1.Text = ""
Label2.Text = ""
Label3.Text = ""
Label4.Text = ""
For Shtteller As Short = 0 To 9
Label4.Text &= "=" & vbNewLine
Intgetal = ObjRandom.Next(0, 100)
If Intgetal >= 50 Then
Label2.Text &= "+" & vbNewLine
Intgetal = ObjRandom.Next(0, 11)
Intgetal2 = ObjRandom.Next(0, 10 - Intgetal)
Label1.Text &= Intgetal & vbNewLine
Label3.Text &= Intgetal2 & vbNewLine
Else
Label2.Text &= "-" & vbNewLine
Intgetal = ObjRandom.Next(0, 11)
Intgetal2 = ObjRandom.Next(0, Intgetal)
Label1.Text &= Intgetal & vbNewLine
Label3.Text &= Intgetal2 & vbNewLine
End If
Next
End Sub
Dit is hoe het design er uit ziet (mijn broertje is jong dus beyblade om het aantrekkelijk te maken):
http://desmond.imageshack.us/Himg843/scaled.php?server=843&filename=79153516.png&res=medium
De eerste getallen voor het plus- of minteken is 1 label, het plus- of minteken is een tweede label, de tweede getallen na het plus- of minteken is een label en de = tekens zijn ook een label (totaal 4 labels)