Saltar al contenido

Para pasar el rato un juego en vba para recordar


AlexanderS

Recommended Posts

publicado

Cuantos recuerdan uno de los clásicos juegos de la NES de 1984, me refiero al conocido (o no tanto por los mas jóvenes) Duck Hunt o Cacería de patos, ya que disponía de mas tiempo del que quería me di a la tarea de recrear este clásico en VBA lo cual fue un poco complicado por las limitaciones de este entorno ademas de que no quería exceder los 174kb que permite la subida a este servidor.

Bueno como es una adaptación puede que no sea igual al original, las reglas son simples cada nivel tiene 10 patos para pasar de nivel necesitas darle al menos a 5 patos (con un click sobre el), tienes 3 tiros para darle a 1 pato si le das a la primera son 1000pts, a la segunda son 750pts y a la tercera 500, si no le das pasa al siguiente pato, solo puedes fallar 5 veces o el juego terminara. Cada vez que pasas de nivel la velocidad del vuelo de los patos aumenta.

Creo que eso es todo, si te animas puedes compartir tu puntuación máxima que este mismo tema.

Saludos a todos y feliz cacería de patos.

PD: Estoy en contra de la caza de animales por diversión y con este aporte no pretendo apoyarla.

Si el juego te va demasiado lento utiliza el archivo Duck Hunt-Riddle X2 ira mas rápido pero las animaciones no serán tan fluidas.

Duck Hunt-Riddle.rarFetching info...

Duck Hunt-Riddle.zipFetching info...

Duck Hunt-Riddle X2.zipFetching info...

Duck Hunt-Riddle X2.rarFetching info...

publicado

Lástima que con la cafetera que tengo por PC me va demasiado lento y por tanto demasiado fácil.

¿ No puedes poner caras de políticos en vez de patos ? :D:D:D

publicado

[uSER=46507]@Macro Antonio[/uSER] lo de que el juego te valla lento creo que es un problema del mismo juego va lento en algunas PC y en otras mas fluido no se que sera, igual dejo una versión del juego en el 1° Post con la velocidad de las animaciones mas rápidas, al principio los patos vuelan lento conforme avanzas de nivel se eleva la velocidad y se vuelve mas difícil.

Lo de los políticos es una excelente idea a tomar en cuenta a el juego le pondría "Caza de corruptos" jeje. :D:D

Salu2

publicado

Simplemente Genial!!!!

Me trae recuerdos de niño, cuando me compraron un video juego y que tenia ese de caza de patos con la pistolita y todo.

Mil gracias porque en verdad cada dia uno se maravilla de lo mucho que se puede hacer con VBA. Esto demuestra aun mas que los limites son solo de la mente,.... cosa que no la tiene.

Mis respetos hermano.

  • 4 weeks later...
  • 3 weeks later...
publicado

Me divertí jugando, no lo recuerdo muy bien ya que en 1984 apenas había nacido, lo guardaré para cuando me quiera desestresar del tedio de la oficina.

Saludos a todos.

publicado
  "Onardem dijo:
Me divertí jugando, no lo recuerdo muy bien ya que en 1984 apenas había nacido, lo guardaré para cuando me quiera desestresar del tedio de la oficina.

Saludos a todos.

Jeje yo en 1984 ni siquiera había nacido pero lo puede jugar por ahí del 98...:D:D

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 109 ¿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

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29

    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Por pegones1

    3    1

  • Crear macros Excel

  • Mensajes

    • Saludos amigos espero estén bien  En la actualidad utilizo la siguiente macro para generar un código alfanumérico continuo que al guardar los datos se copia en la Celdas “B5” de las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) Private Sub CommandButton3_Click()     If Hoja58.Range("B5").Value < 9999 Then Hoja58.Range("B5").Value Hoja58.Range("B6").Value + 1     Else        Hoja58.Range("B5").Value = 1     End If If Hoja59.Range("B5").Value < 9999 Then Hoja59.Range("B5").Value = Hoja59.Range("B6").Value + 1 Else        Hoja59.Range("B5").Value = 1     End If End Sub El código se genera normalmente sin embargo no se copia inmediatamente en las Celdas “B5” sino que aparece en las Celdas “B6” mientras que las Celdas “B5” siempre permanecen en blanco, actualmente el código consta de tres letras y cuatro dígitos (RCI-0000) pero me interesa poderle concatenar el mes y año en formato mm-yy para que el código finalmente quede expresado de la siguiente forma RCI-0000-00-00 Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • Saludos amigos espero estén bien  En la actualidad  los datos provenientes de los TextBox 5, 6 y 7 se guardan en las Columnas H, I y O de las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) sin embargo cuando el texto es abundante no se visualiza completamente en las celdas correspondientes de allí que necesito que cada fila se ajuste al tamaño de la celda que contenga mayor cantidad de texto para lo cual he probado con la siguiente macro: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.EntireRow.AutoFit End Sub Sin embargo, dicha macro coloca todas las filas del tamaño del texto que contengan y lo que en realidad necesito es que dicha macro solo se aplique desde la Fila 5 en adelante. Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • Saludos amigos espero estén bien  En la actualidad utilizo la siguiente macro para que la fecha aparezca en el Textbox2: Private Sub UserForm_activate() Me.TextBox2.Value = VBA.Date End Sub Sin embargo, una vez guardo los datos la fecha cambia de formato y se guarda en formato mm/dd/yyyy en vez de dd/mm/yyyy y este cambio de fecha me distorsiona los resultados de las fórmulas en las Columnas J en las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • ¡Hola! Después de un buen tiempo ausente...  @Gabriela hg ya que veo que tienes Excel 365, te dejo mi solución para piezas y gramos.   Extraer piezas - gramos 365_GP.xlsx
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.