Quiero agradecer primero por la ayuda que me puedan brindar, estoy haciendo un juego en visual basic 2010, es el popular batalla naval o tambien conocido como astucia naval, uso dos matrices de 9x9 las cuales por defecto vienen llenas de ceros, y al azar introduzco diez unos que son los barquitos o bases que hay que destruir, en la interfaz coloque cada boton pero solo los del campo del enemigo estan activos para hacerle click, los de mi campo estan como inactivos, ya cuadre el codigo para que al hacer click en un boton del enemigo me salga una "X" si no le di a nada y me salga una "O" para ver si le pegue a la base, enlace un timer que se activa cada click que hago para que se haga el lanzamiento al azar de la maquina sobre mi campo, pero no se como condicionar bn para que el me dispare y se desactive el timer para asi lanzar yo de nuevo, intente condicionarlo haceindo esto:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
( 'J = contador del ciclo for, i = tiro al azar en la matriz 2 )
Dim j, i, fil, col As Integer
Randomize(DateTime.Now.Millisecond)
fil = Int((8 + 1 - 1) * Rnd() + 1)
col = Int((8 + 1 - 1) * Rnd() + 1)
'i = Mat2(fil, col)
For j = 0 To 1
If i = Mat2(0, 0) And Mat2(0, 0) = 0 Then
Button1.Text = "X"
Mat2(0, 0) = 2
j = 2
Timer1.Enabled = False
ElseIf i = Mat2(0, 0) And Mat2(0, 0) = 1 Then
Button1.Text = "O"
Mat2(0, 0) = 2
j = 2
cont2 += 1
Timer1.Enabled = False
ElseIf i = Mat2(0, 0) And Mat2(0, 0) = 2 Then
fil = Int((8 + 1 - 1) * Rnd() + 1)
col = Int((8 + 1 - 1) * Rnd() + 1)
j = 0
End If
Next
este codigo es repetitivo 81 veces para cada posicion de la matriz, enlazando asi cada posicion de la matriz con un boton diferente, pero al ejecutarlo me llena todo mi campo de solo"X"... la verdad ya no se que mas hacerle, estoy muy muy perdido, les agradeceria cualkier colaboracion y sugerencia, o si pudieran corregir mi codigo seria genial...
se que el lenguaje es muy muy basico y feo, pero soy estudiante de ing. industrial de primer semestre y trabajo con las bases que me han enseñado
