Mòdul 5
Aplicacions educatives de full de càlcul
Pràctica 124567

 

Introducció

L'objectiu d'aquesta pràctica és realitzar una versió alternativa de la pràctica anterior fent ús de la recursivitat. Els càlculs que realitzarem seran molt similars però l'estructura del full és molt diferent.  Us trobareu amb:

  • Tractament de la recursivitat amb botons de control.
  • Modificacions de macros escrivint instruccions de Visual Basic.

Com ja heu fet a la pràctica 1, disposareu de dos botons. El botó Iniciar permetrà iniciar el procés fixant en 0 el nombre d'anys transcorreguts. El botó Avançar permetrà incrementar, un a un, el nombre d'anys transcorreguts, obtenint el capital final calculat a interès simple i a interès compost. També coneixereu un mètode diferent per associar codi a aquests botons.

La proposta de full és la següent: 

 

Desenvolupament de la pràctica
                   
Fase inicial
  • Seleccioneu un nou full del llibre MODUL5 i anomeneu-lo "Interès recursiu".
  • Introduïu els rètols de la columna B amb els tipus de lletra adequats.
  • Modifiqueu l'amplada de les columnes A i B.
  • Doneu-li a la regió A1:E10 un fons groc clar i una vora negra.
  • Doneu-li a les cel·les C3 i C4, d'entrada de dades, un fons blanc.
  • Desactiveu la visió de la quadrícula.
Realització dels càlculs
  • Introduïu a la cel·la C3 el valor 1000 com a capital inicial i a la cel·la C4 el valor 8 com a tipus d'interès. 
  • Situeu a la cel·la A1 el valor 0.

    • El contingut d'aquesta cel·la, de manera similar a com hem fet a la pràctica 1, actuarà com a commutador. Si val 0 es començarà el procés; si val 1 el procés avançarà progressivament.
  • Situeu a la cel·la C6 el càlcul del nombre d'anys:
      • =SI(A1=0;0;C6+1)
    Al començament valdrà 0 i cada vegada que es recalculi s'incrementarà en una unitat. 
    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.
  • Situeu a la cel·la C7 el càlcul de l'interès simple:
      • =SI(A1=0;C3;C7+C3*C4/100)
    El primer any coincidirà amb el capital inicial i els següents coincidiran amb el valor anterior (C7) més el capital inicial pels tipus d'interès en tant per cent (C3*C4/100) 
  • Situeu a la cel·la C8 el càlcul de l'interès compost:
      • =SI(A1=0;C3;C8+C8*C4/100)
    El primer any coincidirà amb el capital inicial i els següents coincidiran amb el valor anterior (C8) més el capital d'aquest any pels tipus de interès en tant per cent (C8*C4/100) 
  • Doneu a les cel·les C3, C7 i C8 el format sense decimals i amb el punt dels milers.
  • Modifiqueu el valor de la cel·la A1 per un 1. Premeu repetidament F9 i observeu els resultats.
Incorporació dels botons de control 

La mecànica prevista per iniciar el procés és situar un 0 o un 1 a la cel·la A1. En aquesta fase final incorporareu dos botons per tal de realitzar aquest procés amb més comoditat. El procés per a la incorporació dels botons Iniciar i Avançar que assignin els valors 0 i 1 a la cel·la A1 pot ser idèntic al que heu fet en la pràctica 1 d'aquest mòdul.[1] 

A continuació us presentem un mètode alternatiu per escriure un codi molt senzill associat a aquests botons que pot resultar més comprensible.
Suposem que al vostre ordinador disposeu dels botons  i  per tal d'enregistrar còmodament les macros. Aquests botons han estat instal·lats a la pràctica 1 d'aquest mòdul. 

  • Premeu el botó  i creeu un botó ocupant parcialment les cel·les D3 i E3.
  • Indiqueu el nom "Interès_iniciar" al requadre Nombre de la macro. 
  • Premeu el botó Nuevo. En aquest moment us apareix l'editor de Visual Basic amb el codi escrit:
                                     Sub Interès_iniciar()
                                     End Sub

Aquestes dues línies signifiquen el principi i el final de les instruccions que voleu associar al botó que esteu creant, de manera que en el moment que el premeu s'executin. Cal escriure entre aquestes línies la instrucció que col·loqui un zero a la cel·la A1.

  • Col·loqueu el cursor al principi de la paraula END i premeu Return per deixar una línia en blanc.
  • Accediu a aquesta línia i escriviu  [A1] = 0 . Estem indicant que entri el valor 0 a la cel·la A1. Haurà quedat així:
                                     Sub Interès_iniciar()
                                        [A1] = 0 
                                     End Sub
  • Torneu al full de càlcul i feu clic amb el botó dret del ratolí a sobre del botó per tal de modificar el seu nom. Anomeneu-lo "Iniciar".
  • Repetiu el procés per tal de crear un segon botó de nom "Avançar" que escrigui un 1 a la cel·la A1.
  • Poseu una font de color blanc a la cel·la A1 per tal que no es vegi el contingut de la cel·la.
  • Protegiu la part del full que us sembli més convenient.
  • Deseu el full. 

Aclariments
[1] Incorporeu els botons Iniciar i Avançar que assignin els valors 0 i 1 a la cel·la A1.

Suposem que al vostre ordinador disposeu dels botons  i  per tal d'enregistrar còmodament les macros. Aquests botons han estat instal·lats a la pràctica 1 d'aquest mòdul. 

  • Premeu el botó  i creeu un botó ocupant parcialment les cel·les D3 i E3.
  • Indiqueu el nom "Interès_iniciar" al requadre Nombre de la macro.
  • Premeu el botó Grabar.
  • Indiqueu el nom "Interès_iniciar" com a nom de la macro. Afegiu el comentari "Escriu 0 a la cel·la A1 per tal d'iniciar el procés" al requadre Descripción:
  • Premeu el botó Aceptar per tal de començar a enregistrar les accions associades al botó. 
  • Assegureu-vos que està desactivada l'opció Referencia relativa dins de la barra d'eines .
  • Situeu el cursor a la cel·la A1. Escriviu el valor 0.
  • Premeu el botó de final d'enregistrament  o activeu el menú Herramientas | Macro | Detener grabación. 
  • Feu clic amb el botó dret del ratolí a sobre del botó per tal de modificar el seu nom. Anomeneu-lo "Iniciar".
  • Repetiu el procés per tal de crear un segon botó de nom "Avançar" que escrigui un 1 a la cel·la A1.