Rekenprogramma

[Blinkiebling]

Hallo

Ik moet voor school een rekenprogramma maken in visual basic, waar ik niet echt goed in ben!

Ik ben begonnen met sommen te maken waarvan de uitkomst max. 10 is.
Er verschijnen 10 sommen onder elkaar

Public Class frmSommen
    Private Sub frmSommen_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim objLukraak As New Random 'Instantie van de klasse Random
        Dim intAantal As Integer = 0

        For intTeller = 1 To 10
            intAantal += 1
            '2 lukrake cijfers genereren van 0 t/m 10
            Dim intGetal1 As Integer = objLukraak.Next(0, 11)
            Dim intGetal2 As Integer = objLukraak.Next(0, 11 - intGetal1) 'De som van de twee getallen mag niet groter zijn dan 10
            lblGetal.Text &= intGetal1 & " + " & intGetal2 & "  = " & vbNewLine & vbNewLine & vbNewLine
        Next
    End Sub
End Class

Nu is het de bedoeling dat iemand in een tekstvak zijn oplossing invult. Het is de bedoeling dat het programma kijkt of het juist of fout is en het dan ook verbetert. Weet iemand hoe ik dit moet programeren?

Grts

 

[JoZ1]

Welkom op 't forum.

Wij op helpmij kunnen niet je huiswerk gaan maken, maar je er wel mee helpen. En aangezien je er zelf al serieus mee bezig bent geweest, ga ik een poging wagen


Het is makkelijker als je eerst de uitkomst genereert en er dan een som van gaat maken:

[CPP] Dim rand As New Random
Dim int1 As Integer = rand.Next(0, 11), uitkomst As Integer = rand.Next(0, 11), _
int2 As Integer = uitkomst - int1
Dim RekenTeken As Char = "+"
If uitkomst < int1 Then RekenTeken = "-" : int2 *= -1
MsgBox(int1.ToString & RekenTeken & int2.ToString & "=" & uitkomst.ToString)
[/CPP]

En dan zo controleren of het klopt:

[CPP]If TextBox1.Text = uitkomst.ToString Then MsgBox("Goedzo") Else MsgBox("Fout!")[/CPP]

 

[Blinkiebling]

Dankjewel voor de code, is dit de bedoeling om aan te vullen? Ik heb het geprobeert en het programma slaat allemaal fouten uit. Toch bedankt. Het is de bedoeling dat het wel een code is die het vervolg is op de vorige, maar dat kon jij niet weten (en ik ben maar een "pruts" programeur)

Toch echt bedankt voor de moeite!

 

[JoZ1]

Fouten? Wat voor fouten?

Ik heb deze code getest en je zou 'm zo moeten kunnen gebruiken...

 

[kevin1111]

controle button

mijn code is

  Private Sub frmaftrekkentot10_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim objLukraak As New Random
        Dim intAantal As Integer = 0
        For intTeller = 1 To 10
            intAantal += 1
            Dim intGetal1 As Integer = objLukraak.Next(0, 11)
            Dim intGetal2 As Integer = objLukraak.Next(0, 0 + intGetal1)
            lblgetal.Text &= intGetal1 & " - " & intGetal2 & "  = " & vbNewLine & vbNewLine & vbNewLine
        Next
    End Sub

nu moet ik daar een textbox aan linken zodat ik de controle button kan gebruiken maar ik weet niet hoe het moet

 

[mcfreak]

zo?

ik snap de vraag niet helemaal,maar ik denk dan je misschien wat hebt aan python.
dat is eigenlijk een digitale veel slimere (hoe schrijf je t?) rekenmachine.

 

[kevin1111]

Mijn neefje zou moeten 10 getallen invullen in 10 verschillende textboxen
ik wil dan een controle button waarop hij dan kan drukken om te zien wat er fout is
maar hoe kan ik dat maken ik weet niet zo goed om er aan te beginnen.

 

[JoZ1]

Gebruik allereerst eens code-tags, dat maakt het makkelijker te lezen.

Je kunt de antwoorden toch in een variabele opslaan en dat vergelijken met de TextBox?

 

[kevin1111]

Dit snap ik niet wat je bedoeld
ik ben geen grote kenner van visual basic

 

[JoZ1]

Dit zijn codetags.

[CPP]En dit C++ codetags voor betere Syntaxis highlighting
For i = 1 To Test
''// Gewoon een test om de kleuren te laten zien.
Next[/CPP]

Selecteer je code en klik (in de geavanceerde editor) op het #-teken om je code in codetags te zetten.

We kunnen beter verdergaan met deze thread: http://www.helpmij.nl/forum/showthread.php/700247-sommen-en-verschil.
Daar heb ik ook antwoord gegeven en daar zit gelijk de controle in verwerkt.

 

[kevin1111]

Ik ben op zoek naar een code voor mijn rekenprogramma te controleren

   Dim intteller As Integer = 0
        Dim intoplossing1 As Integer
        Dim intoplossing2 As Integer
        Dim intoplossing3 As Integer
        Dim intoplossing4 As Integer
        Dim intoplossing5 As Integer
        Dim intoplossing6 As Integer
        Dim intoplossing7 As Integer
        Dim intoplossing8 As Integer
        Dim intoplossing9 As Integer
        Dim intoplossing10 As Integer
        Dim objrandom As New Random
        Dim intGetal1 As Integer = objrandom.Next(0, 0)
        Dim intGetal2 As Integer = objrandom.Next(0, 0)
        If objrandom.Next = 1 Then
            arrOplossing(intteller) = intGetal1 + intGetal2
        Else
            arrOplossing(intteller) = intGetal1 - intGetal2
        End If
        If arrOplossing(intteller) = TextBox1.Text Then
            TextBox1.BackColor = Color.Green
            intteller += 1
        Else
            TextBox1.BackColor = Color.Red
            arrOplossing(intteller) = intoplossing1

        End If
        If intoplossing2 = TextBox2.Text Then
            TextBox2.BackColor = Color.Green
            intteller += 1
        Else
            TextBox2.BackColor = Color.Red
            lblOplossing2.Text = intoplossing2
        End If
        If intoplossing3 = TextBox3.Text Then
            TextBox3.BackColor = Color.Green
            intteller += 1
        Else
            TextBox3.BackColor = Color.Red
            lbloplossing3.Text = intoplossing3
        End If
        If intoplossing4 = TextBox4.Text Then
            TextBox4.BackColor = Color.Green
            intteller += 1
        Else
            TextBox1.BackColor = Color.Red
            lbloplossing4.Text = intoplossing4
        End If
        If intoplossing5 = TextBox5.Text Then
            TextBox5.BackColor = Color.Green
            intteller += 1
        Else
            TextBox5.BackColor = Color.Red
            lbloplossing5.Text = intoplossing5
        End If
        If intoplossing6 = TextBox6.Text Then
            TextBox6.BackColor = Color.Green
            intteller += 1
        Else
            TextBox6.BackColor = Color.Red
            lbloplossing6.Text = intoplossing6
        End If
        If intoplossing7 = TextBox7.Text Then
            TextBox7.BackColor = Color.Green
            intteller += 1
        Else
            TextBox7.BackColor = Color.Red
            lbloplossing7.Text = intoplossing7
        End If
        If intoplossing8 = TextBox8.Text Then
            TextBox8.BackColor = Color.Green
            intteller += 1
        Else
            TextBox8.BackColor = Color.Red
            lbloplossing8.Text = intoplossing8
        End If
        If intoplossing9 = TextBox9.Text Then
            TextBox9.BackColor = Color.Green
            intteller += 1
        Else
            TextBox9.BackColor = Color.Red
            lbloplossing9.Text = intoplossing9
        End If
        If intoplossing10 = TextBox10.Text Then
            TextBox10.BackColor = Color.Green
            intteller += 1
        Else
            TextBox10.BackColor = Color.Red
            lbloplossing10.Text = intoplossing10
        End If
        MessageBox.Show("Je score is " & intteller & "  /10")
  End Sub

 

[JoZ1]

Graag codes in codetags plaatsen, dat maakt 't leesbaarder

[ontopic] Je kan beter met een een foreach-loop door alle TextBoxen gaan om te kijken of de waarde klopt.

[edit] Hé, dit is je derde topic al over dit onderwerp!? Waarom reageer je niet gewoon hier op de al door mij aangedragen oplossing:
http://www.helpmij.nl/forum/showthread.php/700229-controle-button
(Toen vroeg ik ook al of je codetags wilde gebruiken.)[/edit]

[edit] Thanks KwarK!

Aangezien in deze topic ook iemand om een rekenprogramma vraagt (wel iets anders dan deze vraag) zal ik een rekenprogramma-voorbeeld schrijven die aan de eisen van beide topics voldoen.[/edit]

 

[KwarK]

Blinkieblink / Kevin, ik heb meerdere topics van jou / jullie over hetzelfde programma samengevoegd. Bij deze het verzoek om alles in dit ene topic te houden.

 

[JoZ1]

Hier mijn rekenvoorbeeld project:

Download hier.