Juego de las cuatro en raya

[Antoni]

Hola:

Como os prometí os he hecho un juego.

Supongo que todos conoceis el juego de "Las 4 en raya", por si acaso os cuento la mecánica:

Se juega entre dos y hay que conseguir colocar 4 fichas en horizontal, vertical o diagonal, el primero que lo consiga, gana.

Hay dos tipos de jugada:

1) Introducir la ficha por arriba

2) Quitar una ficha por abajo, en este caso solo puedes quitar las fichas de tu color situadas en la línea inferior.

Para realizar el tipo de jugada 1, podemos arrastrar la ficha de nuestro color hasta la columna deseada o pulsar la letra situada en la parte superior de la columna,

Para realizar el tipo de jugada 2, desplazar la flecha amarilla hasta la columna que queramos y soltar.

El juego detecta las jugadas invalidas y lleva el control de a quien le toca jugar (Cuadrado amarillo junto a la ficha del jugador que tiene el turno).

Al pasar sobre los objetos activos aparece un texto aclaratorio en la línea de estado de Excel.

Descripción técnica.

En el formulario existen 2 label, uno rojo y uno verde, en tiempo de ejecución se clonan 70 veces y representan las fichas con las que se juega. (35 rojas+35 verdes).

Estos controles se sitúan en la misma posición de manera que solo 2 son visible, uno rojo y uno verde.

Creamos una clase para poder manipular todos los labels con si fueran uno solo.

También existe un textbox oculto que recoge la tecla que se pulsa.

Podemos variar el nº de fichas a alinear de 3 a 6.

Espero que este tenga mas éxito que "Sopa de letras"

Saludos.

CuatroEnLínea II.zip

[Gerson Pineda]

Antony! que ha pasado, que gran aporte! (juego!!!)

Parece que en semana santa la cleo te ha iluminado aun mas jeje

Funciona perfecto, hasta el momento ni un tan solo error, va para mis dos nenes, que te aseguro que les encantara (como a mi)

Saludos mi estimado

[himself]

Cada dia me dejas mas sorprendido. Excelente aporte, muy bien logrado.

Espero que vayas teniendo mas tiempo libre, a ver que nos traes.

Muchas gracias por compartir tu gran obra maestra.

Saludos Antoni, Gerson.

[Julibaga]

Está muy bueno. Nunca había jugado pudiendo sacar fichas de abajo. Muy interesante.

[pegones1]

Vaya regalo que nos haces para tu cumple y eso que nosotros solo te hemos felicitado.

Habrá que pensar en hacerte un buen regalo que no todos los días se cumple una década más.

Algunos ajustes harán falta en estas líneas para que vaya más fino:

      UserForm1.TTRojo.Left = Int((Milabel.Left - 41) / 40) * 40 + 97

      UserForm1.TTVerde.Left = Int((Milabel.Left) / 40) * 40 + 17[/CODE]

Como Gerson lo ve todo perfecto yo hecho en falta el poder sacar la ficha por abajo [b]arrastrándola y soltandola fuera del fichero.[/b]

RAE Definición de [b]fichero[/b]:

[i]1. m. Caja o mueble con cajonería donde se pueden guardar ordenadamente las fichas.[/i]

[Antoni]

Hola Pedro:

Como Gerson lo ve todo perfecto yo hecho en falta el poder sacar la ficha por abajo arrastrándola y soltandola fuera del fichero.

Cambiate el nombre de pegones1 a toca2pegones,....jajaja

Saludos.

[Guanche57]

Estimado maestro.

Me hicistes recordar mi ultimo año en el instituto, nos escapabamos de clase y nos poniamos a jugar, la verdad es que era un experto (modestia aparte),pero era de 8 x 7 y no 10 x 7 como este. Y como dice julibaga ,nunca pude sacar las fichas por abajo.

Pero nunca es tarde para volver a aprender, Quien se anima a jugar una partidita ?

Gracias por el juego,muy bueno

[pegones1]

Ya me vas conociendo. Soy de los que meten el dedo en la llaga para poder creer y más en esta Semana.

Aunque no lo creas lo de pegones1 viene a ser el "pegon number one from .es" pero siempre mirando el lado constructivo y calculador...