• Jueves 28 de Marzo de 2024, 15:04

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - kdaniel86

Páginas: [1]
1
Visual FoxPro / Batalla naval en visual 2010
« en: Lunes 1 de Noviembre de 2010, 02:02 »
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



Páginas: [1]