|
Introducció
Es pretén construir
un full de càlcul a partir del qual l'ordinador es "pensi" un nombre
a l'atzar perquè l'usuari l'endevini. Al full s'haurà de
trobar informació sobre l'aproximació entre el nombre proposat
i el "pensat", i també la quantitat d'intents utilitzats en el
joc.
En tot aquest procés,
us trobareu amb:
- Introducció
al tractament de l'atzar en fulls de càlcul.
- Els condicional
compost.
- Enregistrament
de macros senzilles
- Creació
de botons per executar macros senzilles.
El resultat pot ser
similar a:
|
 |
Desenvolupament
de la pràctica
Per arribar al full de càlcul
demanat us proposem que feu les tres parts següents:
Primera part
L'objectiu d'aquesta part
és disposar d'un full de càlcul que permeti jugar a endevinar
un nombre "pensat" per l'ordinador. El nombre estarà entre 1 i 100.
L'ordinador indicarà si hem encertat o no l'esmentat nombre:
-
Seleccioneu el primer full del
llibre. Anomeneu-lo Endevina.
-
Entreu els rètols de
les files 1, 2 i 3 i de la cel·la A5.
-
Modifiqueu l'amplada de les
columnes A i B a 18,29 i 15,29. Recordeu, que per fer-ho, cal triar l'opció
Formato
| Columna | Ancho...
-
Modifiqueu l'alçada de
les files 1, 2, 3, 5 i 7 a 15, i la fila 9 a 23. Recordeu que per fer-ho
cal triar l'opció Formato | Fila | Alto...
-
Seleccioneu
la cel·la B5 i afegiu-li una vora. [1
 ]
-
Entreu a la cel·la C5
la fórmula que fa el sorteig del nombre situat entre l'1 i el 100,
sempre que la cel·la B5 contingui un zero:
=SI(B5=0;1+ENTERO(100*ALEATORIO());C5).
Es pot utilitzar la funció
TRUNCAR en lloc de ENTERO.
Si la cel·la B5
conté el 0, es fa un sorteig d'un nombre entre l'1 i el 100. En
cas contrari, manté el contingut de la cel·la C5.
 Busqueu
informació sobre les funcions TRUNCAR, ENTERO i ALEATORIO.
-
Situeu a la cel·la A9
la fórmula que avisarà de si s'ha encertat o no el nombre.
Per això fareu servir el condicional compost
=SI(B5=0;"";SI(B5=C5;"L'has
encertat";"No l'has encertat"))
Aquest és un exemple
d'un condicional compost. Si a la cel·la B5 hi ha el valor 0, restarà
la cel·la A9 buida; en cas contrari, es pregunta si el contingut
de les cel·les B5 i C5 és igual. Si és així,
escriu el rètol "L'has encertat"; en cas contrari, escriu "No l'has
encertat".
-
Seleccioneu la cel·la
A9 i feu que la mida de la lletra que sortirà sigui Times New Roman
20.
-
Amagueu el contingut de la cel·la
C5 fent que el color del text sigui blanc. És a dir, activeu la
cel·la C5 i trieu el color blanc en Formato | Celdas... | Fuente
| Color.
Observació: si en fer
anar el full us surt un missatge dient-vos que no es poden resoldre referències
circulars, activeu l'opció Herramientas | Opciones... | Calcular
| Iteración i feu que el nombre màxim d'iteracions sigui
1. Valideu els paràmetres entrats.
-
Proveu d'encertar el nombre
proposat. Si no l'encerteu i voleu saber quin nombre "ha pensat" l'ordinador,
cal que torneu a fer visible la cel·la C5.
-
Si voleu que l'ordinador faci
un sorteig nou heu d'entrar a la cel·la B5 el valor 0.
Segona part
El missatge ofert a la cel·la
A9 dóna poca informació i serà canviat per un que
indiqui, en cas de no haver-lo encertat, si el nombre proposat és
massa petit o massa gran.
-
Canvieu la fórmula
de la cel·la A9 per tal que ens informi de si el nombre proposat
és més gran o més petit que el "pensat" per l'ordinador.
La nova fórmula ha de ser: [2]
=SI(B5=0;"";SI(B5=C5;"L'has
encertat";SI(B5<C5;"Massa petit";"Massa gran")))
-
Proveu d'encertar ara l nombre.
La nova informació que surt a la cel·la A9 us facilitarà
la tasca.
Tercera part
Per completar el full de
càlcul, afegireu un comptador que indiqui el nombre d'intents abans
de l'encert final i un botó d'inicialització del full per
quan s'hi iniciï una nova jugada.
-
Entreu el rètol de la
cel·la A7.
-
Seleccioneu
la cel·la B7 i afegiu una vora. [3]
-
Entreu a la cel·la B7
la fórmula del comptador =SI(B5=0;0;B7+1)
Si a la cel·la
B5 hi ha el valor 0 significa que encara no hem començat a proposar
nombres. Per a cada nombre proposat, afegirà una unitat al contingut
de la cel·la B7.
Es proposa ara incorporar un
botó que en prémer inicialitzi automàticament posant
un zero a la cel·la B5.
-
Visualitzeu la barra de formularis
fent Ver | Barras de herramientas | Formularios.
-
Activeu el botó
de la barra de formularis. Observeu com el cursor, dins del full, es transforma
en +.
-
Seleccioneu amb aquest nou cursor
l'espai i la grandària del botó que voleu incorporar. En
aquest cas, l'espai del full de càlcul i la grandària és
el que correspon a la cel·la B12. Observeu que automàticament
el botó s'anomena "Botón 1" i s'obre la finestra "Asignar
macro".
-
Escriviu la paraula Inicialització
en el requadre anomenat Nombre de la macro:
-
Premeu el botó Grabar...
-
Escriviu la paraula: Inici1,
en el requadre de Nombre de la macro:
-
Escriviu en el requadre Descripción:
el text següent: Inicialitza el full Endevina posant un zero a la
cel·la B5.
-
Premeu el botó Aceptar,
però assegureu-vos abans, que Guardar macro en:, teniu activat
l'opció Este libro.
-
A continuació apareix
la finestra
 . El botó
de l'esquerre finalitza l'enregistrament de la macro i el botó de
la dreta fa que les macros tinguin referències relatives. Per a
aquesta pràctica el botó de la dreta mai ha d'estar activat.
Si no apareix aquesta finestra, el procés el finalitzareu a través
de la barra de menú.
Observeu que torneu al full
de càlcul Endevina. A partir d'ara tot el que feu s'està
gravant a la macro que heu anomenat Inici1.
-
Activeu la cel·la B5
i introduïu el valor 0. Torneu a activar la cel·la B5.
-
Per finalitzar l'enregistrament
de la macro premeu el botó esquerre de la finestra
o trieu l'opció Herramientas | Macro | Detener grabación.
-
Passeu el botó en format
disseny. Això és, feu clic amb el botó dret del ratolí,
aleshores Botón 1 apareix com
 ,
feu clic ara amb el botó esquerre del ratolí sobre el text
"Botón 1". Observeu que el cursor és un pal vertical. Canvieu
el nom "Botón 1" pel d'"Inicialització". Valideu l'entrada
activant qualsevol altra cel·la.
-
Feu servir la validació
de dades del menú Datos per evitar que es pugui introduir
en la cel·la B10 nombres que no siguin enters.
-
Finalment traieu l'engraellat
i protegiu les cel·les que creieu convenients.
-
Deseu el full de càlcul.
|
