Sommen voor spelletje

Status
Niet open voor verdere reacties.

ninjaplayer

Gebruiker
Lid geworden
15 apr 2007
Berichten
603
Ik heb voor de lol een reken spelletje gemaakt. Ik heb hier voor 2 vragen.

1. Ik wil een willekeurige som op Form1 hebben, ik heb gelezen dat het met een .txt bestand kon. Hoe moet dat?

2. Ik heb dat bijvoorbeeld het sommetje 7+4= en dat TextBox1 er achter. En ik heb ook een Form2 met aantal goed/fout met labels. Dus als er 11 in TextBox1 getypt word dat dat in Form2.Label1.Text = "Goed" verschijnt en als er iets anders getypt word dat er dan fout staat.

Is dit mogelijk?
 
Om te beginnen heb je op form1 nodig:
  • 1 Label (lblOpgave)
  • 1 TextBox (txtAntwoord)
  • 2 Buttons (btnControle, btnNieuweOpgave)
en op form2 enkel 1 label (lblOplossing)

Ik ga dit zo kort mogelijk uiteenzetten (bij de '...' komt er vanzelf code te staan als je op de
control dubbelclickt)

Voor Form1 wordt dit dan:
Code:
Public Class Form1

Dim antw As Integer

     Private Sub btnNieuweOpgave_Click (...) Handles btnNieuweOpgave.Click
          Dim rnd As New Random
          Dim getal1 As Integer = rnd.Next(1,11)
          Dim getal2 As Integer = rnd.Next(1,11)
          lblOpgave.Text = getal1 & " + " & getal2 & " = "
          antw = getal1 + getal2
     End Sub

     Private Sub btnControle_Click (...) Handles btnControle.Click
          Dim frm As New Form2
          If Convert.ToInt32(txtAntwoord.Text) = antw Then
               frm.lblOplossing.Text = "Goed"
          Else
               frm.lblOplossing.Text = "Fout"
          End If
          frm.Show()
     End Sub

End Class
Voor Form2:
Code:
Public Class Form2

     Private Sub Form2_FormClosing ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
          Me.Dispose()
     End Sub

End Class

Dit zou moeten werken!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan