Ir al contenido principal

Destacados

Cómo crear un Tic Tac Toe en PowerPoint sin programar ni usar VBA

  ¿Alguna vez has querido crear un juego interactivo en PowerPoint para tus clases o presentaciones, pero te has detenido al pensar que necesitas saber programación o macros? La buena noticia es que PowerPoint cuenta con herramientas avanzadas integradas que permiten crear dinámicas de juego completamente interactivas sin tocar una sola línea de código. En esta guía te muestro cómo utilizar los desencadenadores (triggers) para construir una versión funcional del clásico juego del Tic Tac Toe (el juego del gato) . 🎯 ¿Qué son los desencadenadores y por qué cambian el juego? Normalmente, las animaciones de PowerPoint siguen un orden lineal: haces clic y las cosas van apareciendo una tras otra. Los desencadenadores rompen esta linealidad. Permiten asociar una animación a un objeto específico en la diapositiva. Es decir: solo cuando el usuario hace clic en el Botón A, ocurre la Animación B . Gracias a esto podemos: Alternar entre símbolos (   y ) en una mi...

Juego Crucigrama numérico en Excel - Macros



En esta entrega voy a compartir con ustedes,  como realizar un divertido y sencillo juego en Excel, que pondrá a prueba las habilidades de tus alumnos y porque no las tuyas, en cuanto a resolver un crucigrama numérico de multiplicación y suma.

En este link puedes descargar el archivo base para comenzar a trabajar.

http://www.mediafire.com/file/td3b570u3mi6ex8/CRUCIGRAMA+BASE.7z

En este vídeo podrás ver en que consiste este juego:



Primera Parte:

En esta primera parte te voy a explicar paso a paso como crear una sencilla macro para crear números aleatorios o al azar estos números están comprendidos entre 1 y el 10
Lo que vamos hacer es lo siguiente vamos a insertar un modulo para ello vamos a ir a la ficha Programador, allí en el editor de VBA.
Vamos a escribir lo siguientes lineas de código:

Sub calcular1()
n = Int(Rnd() * 10 + 1)
Range("f43") = n
n = Int(Rnd() * 10 + 1)
Range("h43") = n
n = Int(Rnd() * 10 + 1)
Range("f49") = n
n = Int(Rnd() * 10 + 1)
Range("h49") = n
Range("f3,f9,h3,h9").Select
Selection.ClearContents

End Sub

Lo que hemos utilizado es la función Rnd(Random), esta función nos genera un numero al azar en este caso comprendido entre 1 al 10 por eso n = Int(Rnd() * 10 + 1)
Donde n es un numero, Int numero entero, Rnd función Random
Range es el rango donde deseo que genere este numero, "f43" es la celda que va a guardar este valor.

En el siguiente vídeo te explico como hacer la primera parte de nuestro juego, ya que este es el Primer Nivel.




Segunda Parte:

Vamos a usar el formato condicional para que al momento de escribir nuestra respuesta si esta es correcta en este caso la celda F3 se rellene de color azul.
En este vídeo te explico como hacer este sencillo paso.




Ahora solo nos falta ver como ir aumentando nuestros puntos de 10 en 10.
Eso lo veremos en las siguientes lecciones...
No te la pierdas.


Puedes ver y continuar con el juego aquí


Comentarios

Entradas populares