Ik heb de volgende code:
Maar het random getal is iedere keer 0
Wat doe ik fout??
Alvast bedankt!:thumb:
Code:
Dim Antwoord As Integer
Dim Gok As Integer
Private Sub Form_Load()
Call NieuwGetal
End Sub
Private Sub NieuwGetal()
Antwoord = Int((100 * Rnd()) + 1)
End Sub
Private Sub CommandButton1_Click()
Gok = TextBox1
If Gok = Antwoord Then
TextBox2 = "Heel goed! Je hebt het getal geraden."
Call NieuwGetal
ElseIf Gok > Antwoord Then
TextBox2 = "Helaas! Probeer een lager getal te typen."
ElseIf Gok < Antwoord Then
TextBox2 = "Helaas! Probeer een hoger getal te typen."
End If
End Sub
Maar het random getal is iedere keer 0
Wat doe ik fout??
Alvast bedankt!:thumb: