Practica No. 2 - Simulación del lanzamiento de un dado.
A través del presente tutorial te iré guiando para crear la simulación de lanzar un dado a través de Excel 2013. Este "juego" lo elabore pensando en el juego del cubilete que mi padre jugaba en sus años mozos, ya hace muchos años y se practicaba en las cantinas de ese entonces (ahora llamadas Bares o Antros).
Para darnos una idea, les muestro las 6 diferentes caras que muestra un dado al ser lanzado:
En Excel se tiene la función "Aleatorio.entre(inferior, superior)", la cual nos permite generar números aleatorios cuyo valor comprende el numero inferior y el numero superior especificado), para que te des cuenta de ello, teclea la siguiente fórmula en cualquier celda que se te pegue la gana:
=ALEATORIO.ENTRE(1,6)
ya que la hayas capturado, por favor ahora oprime la tecla "F9" varias veces, y observa bien, el número irá cambiando aleatoriamente mostrando únicamente valores desde el 1 hasta el 6, en otras palabras se esta "simulando" el lanzamiento de un dado.
Ahora bien, vamos a preparar el "escenario" pertinente para esta situación. En la siguiente imagen se muestra la cara del dado sin puntos negros:
Te sugiero seleccionar las columnas B, C y D y haz clic derecho del Mouse y del menú contextual que aparece elige la opción "Ancho de celda" y asigna el valor de 6, tal como se muestra enseguida:
y ahora, haz lo mismo con las filas 2, 3 y 4, es decir selecciónalas y haz clic derecho del Mouse y del menú contextual elige la opción "Alto de fila" y asigna el valor de 30.
y finalmente, selecciona el rango B2:D4, y elige del comando Bordes, que se encuentra en el grupo "Fuente" de la cinta "Inicio" la opción "Todos los bordes" y enseguida de la misma forma aplica "Borde de cuadro grueso", debiéndose tener lo siguiente:
Ahora, en la celda A2 teclea la fórmula:
=ALEATORIO(1,6)
A manera de prueba, oprime la tecla F9 varias veces y deberás de observar los diferentes números que aparecerán (obviamente del 1 al 6) en la celda A2, tal como se muestra enseguida:
Bien, estamos en condiciones de emplear las fórmulas en Excel que nos permitirán simular las caras del dado al ser "lanzado".
Iniciaremos con la fórmula más simple, observa bien la celda C2, para que aparezca un punto negro en ella, deberá de aparecer el numero 6 en la celda A2, teclea la fórmula siguiente en la celda C2:
=SI(A2=6,".","")
La interpretación de la fórmula es Si la celda A2 es igual a 6, entonces coloca el punto, de lo contrario no pongas nada. Para comprobar, oprime la tecla F9 varias veces, y notaras que cuando "sale" el 6 aparecerá el "punto" negro, te sugiero le des mayor tamaño al contenido de la celda A2, de tal forma que el punto negro sea más notorio, como se muestra enseguida:
Observa bien, aumentamos a 48 puntos el tamaño del contenido de la celda C2 y lo centramos (flechas rojas).
Ahora colocaremos la misma fórmula que utilizamos en la celda C2, en la celda C4, oprimiendo la celda F9 varias y al obtener de nueva cuenta el 6, se obtendrá lo siguiente:
Espero que ya hayas comprendido, porque ahora colocaremos la fórmula para la celda B2, observa bien, para que aparezca el punto negro en esta celda, deberá de aparecer en la celda A2 el número 2, o el 3, o el 4, o el 5, o el 6 (puedes corroborarlo con la 1a. imagen que coloque en este tutorial), por lo que la fórmula a teclear es:
=SI(A2=2,".",SI(A2=3,".",SI(A2=4,".",SI(A2=5,".",SI(A2=6,".","")))))
Esta misma fórmula podemos modificarla empleando la función "O", siendo:
=SI(O(A2=2,A2=3,A2=4,A2=5,A2=6),".","")
y también si deseamos optimizar esta misma fórmula, en lugar de preguntar si la celda A2 es igual a 2 o igual a 3 o igual a 4 o igual a 5 o igual a 6, pues sencillamente preguntaríamos si la celda A2 es diferente de 1:
=SI(A2<>1,".","")
Cualquiera de estas 3 fórmulas nos brinda el mismo resultado:
Observa bien, la celda D4 deberá de tener la misma fórmula que la de la celda B2 (obviamente: =SI(A2<>1,".","")) , la introducimos y obtendríamos:
Ahora colocaremos la fórmula correspondiente para la celda B4, siendo:
=SI(O(A2=4,A2=5,A2=6),".","")
pero aprovechamos que ésta misma fórmula también la podemos introducirla en la celda D2, y obtenemos:
y finalmente, la fórmula para la ceda C3 es:
=SI(O(A2=1,A2=3,A2=5),".","")
y obtendríamos:
Bien, hemos terminado, sin embargo como valor agregado cambiaremos el empleo de la opresión de la tecla F9 (para la generación de los valores aleatorios, del 1 al 6) por un botón, al cual haremos clic sobre él y será el mismo efecto que el estar oprimiendo la tecla F9, como que es más práctico y común oprimir un botón que el oprimir una tecla (según yo), ¿ok?.
Para ello habilitamos la cinta "Desarrollador" en caso de que no lo este, y para ello elige la opción "Opciones" del menú "Archivo", debiendo aparecer una ventana de diálogo y en ella elige la opción "Personalizar cinta de opciones" (en el panel de la izquierda) y entonces aparecerá un panel a la derecha donde habilitarás la cinta "Desarrollador", tal como se muestra enseguida:
y terminando con clic en el botón Aceptar, y listo.
Ahora elige el comando "Insertar" del grupo "Controles" de la cinta "Desarrollador", y del menú que aparece haz clic sobre el ícono "Botón de control (Control ActiveX)", tal como se aprecia enseguida:
Ahora traza un rectángulo con la ayuda del Mouse en la parte inferior del "dado", tal como se muestra enseguida:
ya tenemos el botón, y vamos a programarlo, para ello oprime la tecla F11 o dale doble clic al botón recién creado, lo que nos permitirá irnos al ambiente de programación como se muestra enseguida:
entre la línea "Private...." y la línea "End Sub", teclea la instrucción:
Application.Calculate
debiendo quedar como sigue:
Enseguida haz clic en la opción "Cerrar y volver a Microsoft Excel" del menú Archivo, y por último cambiamos el texto del botón, para ello haz clic en el comando "Propiedades" del grupo "Controles" de la cinta "Desarrollador", debiendo aparecer la siguiente ventana, en donde cambia el valor de la opción "Caption" por "Lanzar dado", BackColor por azul oscuro y ForeColor por color blanco:
ahora cierra la ventana y regresa a Microsoft Excel, para poder usar el botón de comando recién creado debemos de deshabilitar el "Modo diseño" (comando del grupo "Controles" de la cinta "Desarrollador" y liso, deberá mostrarse como sigue:
Finalmente, cambiamos el color del texto de la celda A2 a color blanco, es decir lo "ocultamos". Lo único que hace falta es mencionar que el hecho de haber empleado programación nos obliga a guardar el archivo de forma diferente, es decir debemos de asignar la 2a. opción del "Tipo de archivo", tal como se muestra enseguida:
y como se esta mostrando, Excel le asigna la extensión a nuestro archivo: "xlsm", quedando: "lanzarDado.xlsm".
En caso de que desees volver a editar este mismo archivo, Excel te mostrará el mensaje "Advertencia de seguridad.......", sólo da clic al botón "Habilitar contenido" y listo. Por fin hemos terminado.
Espero te sea de utilidad, nos vemos en el próximo tutorial, saludos.
Atte. prof. Carlos Montiel Rentería
CECyT 6, I.P.N.
