Code:
Public Class Form12
'Hieronder en hierboven zie je private staan wat betekent dat het alleen voor deze form geldt.
Private Sub Form12_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'De getallen worden gedeclareerd als gehele getallen met een ruimte van 4 bytes.
Dim getal1, getal2, getal3 As Integer
'Hieronder wordt aangegeven dat bij het opstarten van de form de text van label5 en label4 (de scoretellers) begint bij 0.
Label5.Text = 0
Label4.Text = 0
'Hier worden de variabelen ingesteld.
For getal1 = 10 To 100 Step 10
Next
For getal2 = 0 To 10 Step 5
Next
getal3 = getal1 / getal2
'Hieronder wordt benoemt welk getal waar moet komen te staan.
Label1.Text = getal1
Label2.Text = getal2
Label3.Text = getal3
End Sub
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'goed, fout en de drie getallen worden gedeclareerd. Goed en fout worden als integer gedeclareerd omdat
'zij het makkelijker maken om te zien wat er gebeurt als er een goed of fout antwoord wordt gegeven.
Dim goed, fout As Integer
Dim getal1, getal2, getal3 As Integer
'hieronder worden de resultaten bepaald
'Als het antwoord klopt dan krijg je de messagebox met Toppie! erin en je krijgt een punt erbij bij label5.
'daarna worden er weer 2 variabele getallen gemaakt.
If Label3.Text = TextBox1.Text Then
MsgBox("Toppie!")
goed = Label5.Text + 1
Label5.Text = goed
For getal1 = 10 To 100 Step 10
Next
For getal2 = 0 To 10 Step 5
Next
getal3 = getal1 / getal2
'Hieronder wordt benoemt welk getal waar moet komen te staan.
Label1.Text = getal1
Label2.Text = getal2
Label3.Text = getal3
'als het antwoord fout is krijg je de messagebox met Fout! en dan het juiste antwoord erachter.
'daarna wordt er een punt opgeteld bij form4
'als laatste worden er weer 2 nieuwe variabelen gegenereerd.
Else
MsgBox("Fout! Het juiste antwoord is " & Label3.Text & " !")
fout = Label4.Text + 1
Label4.Text = fout
For getal1 = 10 To 100 Step 10
Next
For getal2 = 0 To 10 Step 5
Next
getal3 = getal1 / getal2
'Hieronder wordt benoemt welk getal waar moet komen te staan.
Label1.Text = getal1
Label2.Text = getal2
Label3.Text = getal3
'en dan wordt de if afgesloten
End If
'het invoerschermpje wordt leeggehaald
TextBox1.Text = ("")
'als je goed- of foutpunten de 15 hebben bereikt gaat dit scherm weg en krijg je form3 met je resultaten.
If fout + goed = 15 Then
Me.Hide()
Form3.Show()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'hier wordt ervoor gezorgd dat als er op de stopbutton geklikt wordt je terug naar form1 gaat
'en je punten weer op 0 worden gezet.
Me.Hide()
Label5.Text = 0
Label4.Text = 0
Form1.Show()
End Sub
End Class-------------------------------------------------------------------------------
Hierboven is mij hele code en het gaat mij deels hierom:
Code:
'Hieronder wordt aangegeven dat bij het opstarten van de form de text van label5 en label4 (de scoretellers) begint bij 0.
Label5.Text = 0
Label4.Text = 0
'Hier worden de variabelen ingesteld.
For getal1 = 10 To 100 Step 10
Next
For getal2 = 0 To 10 Step 5
Next
getal3 = getal1 / getal2
'Hieronder wordt benoemt welk getal waar moet komen te staan.
Label1.Text = getal1
Label2.Text = getal2
Label3.Text = getal3
End SubIk wil een rekentoets maken maar het delen gaat moeilijk. Omdat het onmogelijk is om zomaar te weten hoeveel bv 123:52 is.
Ik heb meerdere soorten variabele geprobeerd (Rnd() * 100) + 10 bv maar dat hielp ook niet. Nu bedacht ik of het misschien mogelijk is om getal1 alleen maar een tiental aan te kunnen wijzen (dus dat getal1 alleen maar 10 of 20 of 30 etc. kan worden)
en dan getal2 1 of 2
Een ander probleem is dat ik er geen herhaling in krijg. Ik wil ervoor zorgen dat als de leerling op de button controller klikt er een bericht komt te staan met een melding waarna getal1 en getal2 vernieuwd worden.
Ik ben een beginner dus het kan zijn dat deze code helemaal niet klopt dus aub wees mild:$
thx alvast
Laatst bewerkt:
