3 en raya pasos a realizar

Paso 1. Crear el formulario del 3 en raya.

Para ello utilizaremos 9 botones, los nombraremos como button1, button2...

Los modifico hasta que tenga las dimensiones adecuadas y los coloco en mi formulario. 

Añadir un título e insertar una imagen adecuada en nuestro formulario.

Crear una etiqueta de nombre mensaje que utilizaremos para dejar los mensajes del programa: “la casilla está ocupada” ,”Turno de las X”, “Turno de las O”...

Guardar el proyecto y el formulario con el nombre 3 en raya en una nueva carpeta  dentro de vuestra carpeta personal, en el disco duro del ordenador.

Al finalizar la clase subir dicha carpeta al Drive a modo de Copia de Seguridad.

Paso 2.

Comenzar con el procedimiento que se ejecuta cuando pulsamos una de las casillas. Antes de empezar necesitamos una variable para saber de quién es el turno. La variable turno es 1 cuando le toca a la X y 2 cuando le toca a la O: Dim turno as integer

Cuando pulsamos la casilla, antes de escribir la ficha (X o O) tiene que verificar que la casilla está vacía y dependiendo del turno escribirá X o O.

Verificar que la casilla no esté ocupada antes de poner la ficha. Si está ocupada escribirá un mensaje indicándolo.

Una vez que hemos conseguido que funcione para la primera casilla, copiar y pegar para el resto de los botones.

Paso 3

Crear el procedimiento que detecta cuando un jugador ha hecho 3 en raya. Utilizaremos una función que devuelve un valor de tipo boolean, es decir que puede tomar dos valores, verdadero y falso.

La función lleva el nombre “haytres” y sería el siguiente:

Function haytres() As Boolean

         haytres = False

        If Button1.Text <> "" And Button1.Text = Button2.Text And Button2.Text = Button3.Text Then haytres = True

        ..............

            End Function

Completar la función con todas las combinaciones de 3 en raya.

Una vez terminada la función hay que añadirla en el programa que se ejecuta cuando ponemos una ficha.

Para ello hay que llamar a la función "haytres " de la siguiente forma:

 Si no hay tres en raya ponemos la ficha del turno que corresponda.

If haytres() = False Then...