Jump to content

Juego de las cuatro en raya


Antoni

Recommended Posts

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • 107 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Current Donation Goals

    • Raised 0.00 EUR of 130.00 EUR target
  • Files

  • Download Statistics

    • Files
      184
    • Comments
      96
    • Reviews
      27

    More information about "Un juego solitario en Excel"
    Latest File
    By pegones1

    4    0

  • Crear macros Excel

  • Posts

    • Excelente código  JSDJSD, gracias por compartir tus conocimientos
    • necesito ayuda con lo siguiente. el caso es este, existe alrededor de 20 tipos de productos(A1, B1, C1, C2, F1, F2, F3, ETC), y varias sucursales, cada sucursal tiene un mix de estos mismos productos, por ejemplo, la sucursal 1, tiene los productos: B1, C1, C2 y F1.  algunas sucursales solicitan bloquear o liberar venta de ciertas categorías de su mix por stock, por ejemplo, la sucursal 1 solicita bloquear la venta de B1 por stock. cuando esto ocurre llega a una planilla Excel, donde dice que sucursal hace el requerimiento, para que producto y que periodo de tiempo quiere bloquear esa venta. actualmente llega una solicitud, bloqueo la venta en el sistema y coloreo manualmente en Excel con rojo, las fechas en las que realicé el bloqueo. y aquí es el punto que quisiera que me leyera los datos de la hoja para completar y colorear las celdas con las fechas automáticamente. por ejemplo, si la sucursal 1, pide bloquear B1 del 5 al 10 de enero, que en la planilla donde está la sucursal 1, en las celdas del 5 al 10, queden estas de color rojo adjunto, el archivo que debo colorear. el archivo que lee es muy simple, solo dice sucursal, que producto bloquea y que fecha, y tengo una celda que gestiono yo donde escribo, REALIZADO calendario bloqueos.xlsx
    • en el siguiente archivo hay dos tablas con información, la tabla de la hoja3 es la que quiero que se me actualice tomando los datos de la hoja1, el código buscará el "clues" , "mes", "anio", y la letra del abecedario que son encabezados de la matriz y que están pintados en amarillo,  los buscará en la hoja3, si los encuentra  entonces pegará los valores en la hoja3,  en este ejemplo ya están pintadas de azul y he colocado los valores, de igual manera hará la búsqueda para todos los registros o líneas de la hoja1, no requiero que se pinte de color las celdas solo es para ayudarme a explicarme Espero me puedan ayudar, Bendiciones   actualizar tabla2.xlsx
    • Puedes subir tu segundo archivo con las plantillas  
    • Holaa JSDJSD:   Solo para ir al archivo 2, para consulta.   Muchas gracias.
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy