Public Class Form1
Dim punten1 As Integer
Dim punten2 As Integer
Dim score1 As Integer
Dim score2 As Integer
Dim games1 As Integer
Dim games2 As Integer
Dim sets1 As Integer
Dim sets2 As Integer
Function score(ByVal punten As Integer)
Select Case punten
Case 0
Return 0
Case 1
Return 15
Case 2
Return 30
Case 3
Return 40
Case 4
Return 60
End Select
End Function
Sub scoor1()
punten1 += 1 'in Excel: punten1 = punten1+1
toonscore()
End Sub
Sub scoor2()
punten2 += 1
toonscore() 'in Excel: punten2 = punten2+1
End Sub
Sub toonscore()
If punten1 = 4 Then
games1 += 1
punten1 = 0
punten2 = 0
End If
If punten2 = 4 Then
games2 += 1
punten1 = 0
punten2 = 0
End If
If games1 > 5 And Math.Abs(games1 - games2) > 1 Then
sets1 += 1
games1 = 0
games2 = 0
End If
If games2 > 5 And Math.Abs(games1 - games2) > 1 Then
sets2 += 1
games1 = 0
games2 = 0
End If
If sets1 = 3 Then
MsgBox("Speler 1 wint met " & sets1 & " - " & sets2)
Me.Dispose()
End If
If sets2 = 3 Then
MsgBox("Speler 1 wint met " & sets1 & " - " & sets2)
Me.Dispose()
End If
Label1.Text = score(punten1) & " - " & score(punten2) & vbCrLf & "Games: " & games1 & " - " & games2 & vbCrLf & "Setstand: " & sets1 & " - " & sets2
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
scoor1()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
scoor2()
End Sub
End Class