'Tijd kiezen
Dim tijd As Integer
tijd = InputBox("Hoe lang wilt u erover doen??" & vbCrLf & "Graag invullen in minuten", "De Tijd invullen graag")
tijd = tijd * 60000
' start de tijd
Timer1.Start()
Timer1.Interval = tijd
'willekeurige getallen aanmaken
Dim WillekeurigGetal As New Random()
'maximaal getal van rekensom
Dim MaximaalGetal As Integer = 15
'getal kiezen voor de loop
Dim KiesEenGetal As New Random()
'voor de antwoord van gebruiker
Dim GebruikersInput As Integer
' voor een rekensom
Dim Antwoord As Integer
'voor de loop om te kiezen hoeveel sommen
Dim gooien As Integer
'rekenen hoe vaak sommen moet worden weergeven.
Dim IntTeller As Integer
'hoeveel sommen er gemaakt moet worden
gooien = InputBox(" Hoeveel sommen wilt u? ", "Aantal Sommen?")
'de loop
For IntTeller = 1 To gooien
'de willekeurige getallen laten maken
Dim Getal1 As Integer = WillekeurigGetal.Next(1, MaximaalGetal)
Dim Getal2 As Integer = WillekeurigGetal.Next(1, MaximaalGetal)
'kiest een random som
Select Case KiesEenGetal.Next(1, 5)
' de verschillende soorten sommen
Case 1
'Optellen som
GebruikersInput = InputBox("Wat is " & Getal1 & " + " & Getal2 & "?")
Antwoord = (Getal1 + Getal2)
'bericht voor juist of onjuist
If GebruikersInput = Antwoord Then
MsgBox("Goed gedaan, " & GebruikersInput & " was inderdaad de oplossing. ")
Else
MsgBox("Dat klopt niet, het antwoord is " & Antwoord)
End If
Case 2
'Aftrekken som (Zonder negatieve uitkomsten)
If Getal2 > Getal1 Then
GebruikersInput = InputBox("Wat is " & Getal2 & " - " & Getal1 & "?")
Antwoord = (Getal2 - Getal1)
Else
GebruikersInput = InputBox("Wat is " & Getal1 & " - " & Getal2 & "?")
Antwoord = (Getal1 - Getal2)
'bericht voor juist of onjuist
If GebruikersInput = Antwoord Then
MsgBox("Goed gedaan, " & GebruikersInput & " was inderdaad de oplossing. ")
Else
MsgBox("Dat klopt niet, het antwoord is " & Antwoord)
End If
End If
Case 3
'Vermenigvuldigen som
GebruikersInput = InputBox("Wat is " & Getal1 & " x " & Getal2 & "?")
Antwoord = (Getal1 * Getal2)
'bericht voor juist of onjuist
If GebruikersInput = Antwoord Then
MsgBox("Goed gedaan, " & GebruikersInput & " was inderdaad de oplossing. ")
Else
MsgBox("Dat klopt niet, het antwoord is " & Antwoord)
End If
Case 4
'Delen som
Antwoord = (Getal1 * Getal2)
GebruikersInput = InputBox("Wat is " & Antwoord & " / " & Getal2 & "?")
Antwoord = Getal1
'bericht voor juist of onjuist
If GebruikersInput = Antwoord Then
MsgBox("Goed gedaan, " & GebruikersInput & " was inderdaad de oplossing. ")
Else
MsgBox("Dat klopt niet, het antwoord is " & Antwoord)
End If
Case Else
MsgBox("Fout!")
End Select
Next
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'timer stoppen
Timer1.Stop()
'na timer.stop bericht weergeven
MessageBox.Show(" Uw tijd is om!", "Helaas!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Sub
End Class
)
