Mòdul 6
Aplicacions educatives de full de càlcul
nnn
Pràctica 1234567
Pràctica optativa .7710

 

Introducció

L'objectiu d'aquesta pràctica és:

  • Introducció a les macros amb bucles.

En aquesta pràctica construireu un full de càlcul que permeti conèixer quina és l'hora de sortida d'un transport públic a partir d'una hora determinada. Aquesta pràctica està relacionada amb la pràctica 7 del mòdul 4. A la figura següent podeu veure l'aspecte final d'aquest full:

nnn

nnn
En aquesta figura es pot veure que s'ha fet una consulta per un transport públic que surt cada 25 minuts, des de les 6:45 i que té l'última sortida a les 22:10. L'usuari ha volgut saber quina era la primera sortida després de les 9:12. Ha premut els botons corresponents i el full de càlcul ha donat per resposta que la propera sortida seria a les 9:15.

nnn
Desenvolupament de la pràctica

Construcció del full de càlcul

  • Seleccioneu un nou full del llibre MODUL6. Anomeneu-lo "Transport 2". 
  • Modifiqueu l'amplada de les columnes per tal que, aproximadament, quedin com les de la figura.
  • Introduïu els rètols de les files 2, 4, 5, 6 i 9.
  • Doneu format horari als rangs E4:E6, E9 i E13, de la mateixa manera que ho vàreu fer en la pràctica 7 del mòdul 4.
  • Entreu a la cel·la E13 la fórmula =SI(E9>0;SI(E9=E4;E4;SI(O(E9<E4;E9>E5);"Està fora d'horari";SI(E13<E9;SI(E13=0;E4+E6;E13+E6);E13)));0)
Aquesta fórmula revisa, en primer lloc, si s'ha introduït a la cel·la E9 una hora positiva. Si és així, observa si aquesta hora és igual a la primera sortida. En aquest cas, dóna per resposta aquesta mateixa hora. En cas contrari, comprova que l'hora entrada estigui dintre del marge horari entre la primera i l'última sortida. Si és així sortirà el rètol "Està fora d'horari". Si l'hora entrada no és igual a la de l'última sortida, fa els càlculs corresponents per arribar a l'hora desitjada. Aquests càlculs els fa de manera recursiva fent servir, en aquest cas, el botó "Pròxima sortida".
 

Incorporació dels botons de control

En aquest full hi ha dos botons de control, que serveixen per iniciar el procés i per calcular l'hora de sortida correcta, respectivament. El procés de dissenyar botons i d'assignar-los a les seves respectives macros ja l'heu treballat en pràctiques anteriors. En aquest cas, farem servir la tècnica treballada en la pràctica 3 del mòdul 5, en la qual una vegada dibuixat el botó, s'escriuen directament les instruccions que volem que s'executin en prémer aquest botó.

En el cas del botó Iniciar:

  • Dibuixeu el botó. (Veure la pràctica 1 del mòdul 5)
  • Indiqueu el nom "Transport_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 Transport_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.
     

    • 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 

      •  
                                         Sub Transport_iniciar()
                                           [E9] = ""
                                           [E9].Select
                                         End Sub
Amb aquestes instruccions aconseguiu que la cel·la E9 quedi buida i seleccionada per a introduir l'hora.

En el cas del botó Pròxima sortida:

  • Repetiu el procés anterior de manera que les instruccions associades a aquest botó siguin:

    •  

                                            Sub Pròxima_sortida()
                                              Calculate
                                              For contador = 1 To ([E9] - [E4]) / [E6]
                                               Calculate
                                              Next contador
                                           End Sub

Amb aquestes instruccions, en prémer el botó, es repetirà la instrucció "Calculate" tants cops com s'indica en el comptador. D'aquesta manera, la fórmula de la cel·la E13, s'anirà executant fins arribar a la resposta correcta.
     
  • Acabeu els detalls de forma i color que es veuen en la figura. 
  • Deseu el full de càlcul.