Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Function Winnaar(winnaarnummer) 'Nog niet klaar
- If winnaarnummer = 1 Then
- speelbaar = False
- MessageBox.Show("Speler 1 heeft gewonnen met 100 punten!")
- 'Reset beide scores:
- NumericUpDown1.Value = 0
- NumericUpDown2.Value = 0
- speelbaar = True
- End If
- If winnaarnummer = 2 Then
- speelbaar = False
- MessageBox.Show("Speler 2 heeft gewonnen met 100 punten!")
- 'Reset beide scores:
- NumericUpDown1.Value = 0
- NumericUpDown2.Value = 0
- speelbaar = True
- End If
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement