Un juego solitario

[pegones1]

Los programadores de VBA solemos estar solos muchas horas cuando codificamos las aplicaciones y nos distraemos jugando al solitario de Windows.

Pero no siempre se puede jugar porque las empresas impiden su uso porque "piensan" que se pierde productividad si se distrae un@ pasando un rato jugando solitariamente.

Si tienes restringido el acceso y uso de juegos, ¿por qué no jugar con Excel?

¿O es que acaso no hay buenos juegos escritos en Excel y VBA?

¡YAAAAA en sus pantallas un nuevo SOLITARIO en Excel!

Gracias a las ideas expresadas en los temas:

"Jugar" al poker

Diseños de naipes

La última versión 2.x está probada en Excel 2003 y 2010: SOLITARIO_PW2x.zip

SOLITARIO_PW10.zip

SOLITARIO_PW11.zip

SOLITARIO_PW12.zip

SOLITARIO_PW20.zip

SOLITARIO_PW21.zip

[Invitado jorgetchake]

Hola Pegones

Esperaré tu juego,... no sólo para jugar, también para ver como lo hiciste,.... siempre y cuando sea compatible con E-2003,... por ejemplo lo que enviaste como juego de Corazones no pude verlo porque creo usaste E 2007.

Tal vez sea oportuno crear un foro exclusivo para juegos.

Adjunto el que más me gusta, espero puedan disfrutar,... hay una hoja con la descripción.

Cordiales saludos.

juego-boxman.zip

[pegones1]

Hola jorgetchake

Siento darte malas noticias pues lo programo en Excel 2010, compatible con Excel 2007.

A ver si Macro Antonio se digna convertir las macros a Excel 2003 si sus asuntos con su reina faraona Cleopatra se lo permiten, porque tiene muy pocas fórmulas excel.

Uno de los mejores juegos de solitario en "Excel libre" que yo conocía hasta ahora era éste:

Excel Klondike Solitaire

Excel Klondike Game

Este programa fue escrito por Darren Kearney.

Darren dijo que quería un juego de Solitario para Excel debido a que su departamento había impedido el acceso a los juegos de computadora en la compañía. Una historia triste, pero muy común. Este juego es muy similar al solitario que viene con Windows. Las macros están abiertas para que cualquier persona que quiera utilizar esto como un punto de la construcción de otros juegos de solitario o un punto de aprendizaje para VBA puede hacerlo. Los naipes son imágenes estáticas. Se juega seleccionando las celdas adyacentes a las cartas que se van a mover.

Por cierto, el Método de Montecarlo para el cálculo de complejos problemas matemáticos se le ocurrió a su inventor mientras jugaba un solitario estando enfermo.

Como verás, nada que ver con la imagen de mi solitario con movimientos de arrastrar y soltar los naipes.

[Antoni]

Hola a todos:

Pedro, cuando me aburro y no esta la Cleo, yo también hago solitarios, pero no necesito Excel ni cartas,....jajaja

Los siento Jorge, pero el progreso no se detiene por nadie, debes empezar a plantearte pasar a Excel 2007 o 2010.

Saludos.

PD: Paro con el solitario que ya viene la Cleo....jajaja

[ioyama]

Hola Macro

"...cuando me aburro y no esta la Cleo, yo también hago solitarios, pero no necesito Excel ni cartas,..."

Son las ventajas de tener una "gran espada" para entretenerse con ella (ten cuidado no te cortes, que más de uno y una han acabado "ensartados").

Quedamos a la espera del solitario de Pedro.

Un saludo desde Vitoria

[Antoni]

Hola Ioyama:

¡¡ Mira que llegas a ser mal pensado !! Yo me refería a la filatelia,.....jajaja

Salu2 a to2 to2

[pegones1]

Macro e ioyama ¡qué retorcidos somos! La verdad es que el título del tema da mucho juego pues buscando en Google "un juego solitario" aparecen muchas referencias morbosas al "amor propio".

Por amor propio, tengo que conseguir dejar listo este juego solitario este finde, que hace años que no me ponía a escribir juegos. Recuerdo con nostalgia cuando hacia juegos de barcos y de guerras de galaxias en pantallas de 80x24 o 25 caracteres ¡sin gráficos! ¡Qué tiempos aquellos!

[pegones1]

Una semana después ya puedo enseñar la patita de este juego y que conste que no es un vídeo "por no" de solitarios, queridos, amigos.

Espero que os guste solitariamente porque pronto va a desbancar al solitario de Windows.

[Invitado jorgetchake]

Estimado Pegones

Extraordinario,.... te felicito,....

Cordiales saludos

[pegones1]

Jorge, ¿a que te ha gustado el vídeo?

Este juego lo he hecho intentando ser fiel al movimiento de las cartas de la baraja del solitario, con unos naipes que se pueden arrastrar y soltar sobre los montones, darles la vuelta y mover en grupos de cartas de un montón a otro, que es lo que más quebraderos de cabeza me ha costado.

El resultado lo pienso subir en cuanto lo pruebe mi familia un poco más.

[Antoni]

Hola:

Igual me cambio de "solitario". Espero que el video no sea una demo........jajaja

Saludos.

[verzulsan]

Hola Pegones,

¿Como has hecho la deteccion de zona al soltar la carta? No he conseguido descargarme el archivo.

Saludos

[pegones1]

Eso espero Macro Antonio, que olvidemos el solitario de Windows, ¡que está muy visto!

Te aseguro que no es una demo, es una beta (ß es la 2ª letra del alfabeto griego) de las que le gusta tanto publicar a Micro$oft, aunque yo diría que ellos lo entienden como una veta de hacer dólares (símbolo $ o ISO 4217 USD), cosa que yo no pienso hacer vendiendo este solitario.

verzulsan, hasta ahora sólo he publicado el vídeo. Puede que mañana publique el archivo y libere la ß

El cómo lo he hecho lo podrás ver en código VBA y no adelanto nada por ahora sólo decir, para quien siga mi blog, que acabo de publicar un nuevo artículo con 3 libros Excel que espero que os guste sobre

Juegos de Caracteres

En mi blog y aquí quiero expresar mi pesar por las desgracias que está sufriendo el pueblo japonés.

[ioyama]

Hola Pedro y compañía

Muy buena la demo, aunque el jugador...., deseando estoy poner poder (jo parezco Yoda) mis manos sobre tu código, aunque sea en versión beta (anda que no se lo pones difícil a Macro con la ß, bueno aunque a lo mejor tuvo algún tutor que le enseño "el griego", con estos romanos nunca se sabe).

Un saludo desde Vitoria

P.S. Macro, prometo portarme bien (al menos una temporada9. ¡Salve Macro!

[Gerson Pineda]

Pedro

A veces me gusta mas observar para seguir aprendiendo aun mas... pero waoo mi amigo ese "Solitario" se ve fenomenal y ojala tu familia requiera algo mas para que quede aun mejor jeje, lo siento por ti (y tu quebradera de cabeza)

Saludos

[verzulsan]

Pedro, me tienes en ascuas!, deseando estoy el archivo poder bajar (Se me ha pegado el acento Yoda de ioyama jejeje).

[pegones1]

Santi, me encanta que te pique el gusanillo porque los inquietos e interesados son los que mueven el mundo Excel.

ioyama debe ser un profesional Yoda, aunque no es de extrañar con lo que leemos en inglés se nos pega poner el sujeto delante.

La familia me ha sugerido una mejora en la beta a la que resistirme no puedo, aunque quisiera antes del finde con mis Yodas compartir poder...

[Gerson Pineda]

Pedro no juegues al solitario pensando en nuestra ansiedad jejeje, los dioses macronianos no te lo perdonaran jaja

Saludos versulzan

[pegones1]

Gerson, para calmar a los dioses macronianos y para que Macro Antonio deje un rato tranquila a Cleo, hoy subo la beta ß de un juego solitario que va a hacer estragos en las oficinas de todo el mundo - worldwide offices y va a desbancar al solitario de Windows, que está desinstalado en muchos ordenadores para que los oficinistas no jueguen en horas laborables. ¡Va a ser todo un pelotazo!

INSTRUCCIÓN ÚNICA:

Si sospechas de miradas indiscretas detrás de tu espalda mientras juegas al solitario, presiona el tapete para minimizarlo.

Para crear este juego he leído estos interesantes temas del foro:

Diseños de naipes por jorgetchake

"Jugar" al poker por Macro Antonio

Shapes Flotantes por Galileogali

Placing Shapes with VBA por Proper

verzulsan e ioyama ya estáis bajar pudiendo el archivo desde

el post #1 de Un juego solitario

jorgetchake no lo he probado en Excel 2003, aunque en Excel 2010 diga que es totalmente compatible seguro que se me ha escapado alguna sentencia macroniana no compatible. A ver si algún compañero o tú mismo la corrigen en VBA y la suben al foro para que mas foreros puedan jugar solitariamente.

Después de testearlo en familia, os pido el favor de ser los próximos betatester solitarios de este juego y que os divirtáis tanto como yo al diseñarlo. Comentadme los fallos que encontréis y las ideas y mejoras que se os ocurran.

P.D.: Contraseña para desproteger las hojas: solitario

SOLITARIO_PW10.zip

[Gerson Pineda]

Pedro

INSTRUCCIÓN ÚNICA:

Si sospechas de miradas indiscretas detrás de tu espalda mientras juegas al solitario, presiona el tapete para minimizarlo.

A eso si que le llamo prevencion jajaja, y bueno imagino que algun adicto al solitario te lo requirio para que no los agarren de sorpresa, especialmente sus jefes:cool:

Dejame llegar a casa, para darle rigurosas pruebas, aunque no soy experto en solitario, pero con tu obra maestra, lo intantare

Saludos a todos

[pegones1]

Hola Gerson, Jorge, rolano, quisiera saber si os funciona y sobre todo en qué versión de Excel os funciona.

Como dije, el vídeo del post #8 está rodado en Excel 2010, por eso quiero saber si os funciona en Excel 2007 o si alguno es capaz de modificarlo para que funcione en Excel 2003.

Espero pronta respuesta de vosotros, los beta-tester, para saber en qué me he equivocado para ganar experiencia, como siempre digo en mi firma.

A eso si que le llamo prevencion jajaja, y bueno imagino que algun adicto al solitario te lo requirio para que no los agarren de sorpresa, especialmente sus jefes:cool:

Gerson, la parienta me lo requirió porque piensa que estoy perdiendo el tiempo cuando juego mientras diseño el solitario.

A Macro Antonio le diría que si aún confía en Cleo que la deje jugar también a ella.

Si alguno se lleva bien con su jefe no estaría mal que compartiera el solitario con él, ¡será una manera especial de hacer migas!

[Gerson Pineda]

Pedro

En excel 2003, me da error de color! ya sabras el porque

Baraja.Range(CeldaCarta, CeldaCarta.Offset(5, 4)).Select

    With Selection.Interior

        .PatternColorIndex = xlAutomatic

[B][U][COLOR=red]      .ThemeColor = xlThemeColorDark1[/COLOR][/U][/B]

        .TintAndShade = 0

        .PatternTintAndShade = 0

    End With[/CODE]

Dejame probarlo en 2007 y te aviso despues, y publicamente te agradecemos este juego que ya nadie nos va a restringir jeje

Si alguno se lleva bien con su jefe no estaría mal que compartiera el solitario con él, ¡será una manera especial de hacer migas!

Esa es mi idea jajaja

Saludos a todos

[pegones1]

Hola Gerson, muchísimas gracias por tu feedback!!!

En la rutina ColorCarta se han colado algunas propiedades como ThemeColor, TintAndShade y PatternTintAndShade que son de Excel 2007 por haberlas creado con el grabador de macros.

Vamos a ver si comentando esas líneas "solitariamente" se puede jugar en Excel 2003.

Subo versión 1.1 para los β-testers.

SOLITARIO_PW11.zip

[Gerson Pineda]

Pedro

Error de "Pictures" a Excel 2003 le cuesta asimilarlo, pues le doy "finalizar"... y continuo o intento seguir jugar, y a veces me funciona la baraja, y de pronto vuelve el mismo error "Metodo 'Pictures' of objeto _Worsheet failed"

Saludos maestro

[rolano]

Hola Pedro, a mi tambien igual que Gerson en excel 2003 a veces si a veces no se puede jugar.

linea de error

Tapete.Pictures(Application.Caller).ShapeRange.ZOrder msoBringToFront