Advertisement
jsbsan

devolver ultimas jugadas

Oct 4th, 2013
3,121
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GAMBAS 0.27 KB | None | 0 0
  1. Public Function jugadasPosibles() As Integer[]
  2.  
  3.   Dim columna As Integer
  4.   Dim listaJugadas As New Integer[]
  5.  
  6.   For columna = 0 To 6 '
  7.     If Me.casillas[0, columna] = 0 Then
  8.       listaJugadas.Add(columna)
  9.     Endif
  10.   Next
  11.  
  12.   Return listaJugadas
  13.  
  14. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement