Advertisement
Guest User

Untitled

a guest
Nov 28th, 2015
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 0.66 KB | None | 0 0
  1.     Public Function Winnaar(winnaarnummer) 'Nog niet klaar
  2.         If winnaarnummer = 1 Then
  3.             speelbaar = False
  4.             MessageBox.Show("Speler 1 heeft gewonnen met 100 punten!")
  5.  
  6.             'Reset beide scores:
  7.             NumericUpDown1.Value = 0
  8.             NumericUpDown2.Value = 0
  9.  
  10.             speelbaar = True
  11.         End If
  12.  
  13.         If winnaarnummer = 2 Then
  14.             speelbaar = False
  15.             MessageBox.Show("Speler 2 heeft gewonnen met 100 punten!")
  16.  
  17.             'Reset beide scores:
  18.             NumericUpDown1.Value = 0
  19.             NumericUpDown2.Value = 0
  20.  
  21.             speelbaar = True
  22.         End If
  23.     End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement