Jump to content

Archived

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

AlexanderS

Para pasar el rato un juego en vba para recordar

Recommended Posts

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.rar

Duck Hunt-Riddle.zip

Duck Hunt-Riddle X2.zip

Duck Hunt-Riddle X2.rar

Link to post
Share on other sites

[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

Link to post
Share on other sites

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.

Link to post
Share on other sites



  • Posts

    • Hola compañeros del foro,   Tengo el siguiente problema de novato con el presente array que he creado: Este es el código: Option Explicit Option Base 1 Sub adminTemp() Dim admin As String admin = Array("...", "...", "...", "...", "Administrador", "Conectado", "...", "...") Dim fila As Long fila = Sheets("CONEXIONES").Range("A1048576").End(xlUp).Row Dim columna As Byte For columna = 1 To UBound(admin) If Sheets("CONEXIONES").Cells(fila, columna).Value = admin(columna) Then Sheets("CONEXIONES").Rows(fila).Delete Shift:=xlUp Next columna End Sub En otras palabras, me dice que el problema está en la declaración de la variable "admin", pues la declaro como una cadena de caracteres, en cambio cuando la misma variable la declaro como un variant, entonces la macro si funciona correctamente. Pero no quiero declarar el array como un tipo variant cuando sólo contiene valores de tipo string, y ocupar espacio innecesario de memoria.   Sería de ayuda que cualquier orientación sobre este problema...
    • Estoy de acuerdo con @Sergio, es díficil encontrar documentación oficial sobre el código XML de la ribbon.
    • Muchísimas gracias por la corrección, @JSDJSD. Y muchas gracias también por compartir ese vídeo. Efectivamente, me percaté de ese error cuando me pasó el código @Antoni.   Te felicito por tu corrección. Con gente como vosotros, da gusto compartir conocimientos a través de este foro. Mil gracias de nuevo.   Saludos.
    • Ya lo hice pero con gusto lo hago nuevamente, y soy afortunado  Gracias   
    • Buenas noches Ya cheque la modificación y es exactamente lo que no sabía como hacer, mis respetos y mi agradecimiento,  Un saludo desde Irapuato, Gto. México   Gracias 
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy