Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Function GameOver() As Boolean
- Dim notablas As Boolean = False
- Dim i, j As Integer
- 'hay ganador?
- If Me.ganador()[0] = 0 Then
- For i = 6 To 0 Step -1
- For j = 6 To 0 Step -1
- If Me.casillas[i, j] = 0 Then
- 'comprobar tablas
- notablas = True
- Return False
- Endif
- Next
- Next
- Endif
- Return True
- End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement