Llistat de la macro "DAU_HORA".

Descripció: demana números i crea data 1 {SI SE CANCELA}{IR}Fugida~~ 2 3 {;}A:Demanar les hores~ 4 {;}Inicialitzem els paràmetres de DAU_TEXT.~ 5 {ASIGNAR}VP-missatge~Escriviu l'hora (en xifres de 0 a 23)~ 6 {ASIGNAR}VP-resposta~~ 7 {ASIGNAR}VP-obliga~sí~ 8 9 {ASIGNAR}vàlida~no~ 10 {MIENTRAS} "{VARIABLE}hora~"<"0"|"{VARIABLE}hora~">"9"| 11 "{VARIABLE}vàlida~"="no"~ 12 {ANIDAR}{VARIABLE}viaMacros~Dau_text~ 13 {ASIGNAR}hora~{VARIABLE}VP-resposta~~ 14 {SI}{VARIABLE}hora~<0|{VARIABLE}hora~>23~ 15 {ASIGNAR}vàlida~no~ 16 {DE OTRO MODO} 17 {ASIGNAR}vàlida~sí~ 18 {FIN SI} 19 {FIN MIENTRAS} 20 21 {SI}{VARIABLE}hora~=1|{VARIABLE}hora~=11~ 22 {ASIGNAR}VP-apostrofar~sí~ 23 {DE OTRO MODO} 24 {ASIGNAR}VP-apostrofar~no~ 25 {FIN SI} 26 27 28 {;}A:Demanar els minuts~ 29 {;}Inicialitzem els paràmetres de DAU_TEXT.~ 30 {ASIGNAR}VP-missatge~Escriviu els minuts (en xifres de 0 a 59)~ 31 {ASIGNAR}VP-resposta~~ 32 {ASIGNAR}VP-obliga~sí~ 33 34 {ASIGNAR}vàlid~no~ 35 {MIENTRAS} "{VARIABLE}minuts~"<"0"|"{VARIABLE}minuts~">"59"| 36 "{VARIABLE}vàlid~"="no"~ 37 {ANIDAR}{VARIABLE}viaMacros~Dau_text~ 38 {ASIGNAR}minuts~{VARIABLE}VP-resposta~~ 39 {SI}{VARIABLE}minuts~<0|{VARIABLE}minuts~>59~ 40 {ASIGNAR}vàlid~no~ 41 {DE OTRO MODO} 42 {ASIGNAR}vàlid~sí~ 43 {FIN SI} 44 {FIN MIENTRAS} 45 46 47 {;}A:Escriure 2 xifres als minuts o res si no n'hi ha~ 48 {SI}{VARIABLE}minuts~=0~ 49 {ASIGNAR}minuts~~ 50 {DE OTRO MODO} 51 {SI}{VARIABLE}minuts~>0&{VARIABLE}minuts~<10~ 52 {ASIGNAR}minuts~0{VARIABLE}minuts~ ~ 53 {FIN SI} 54 {FIN SI} 55 56 {ASIGNAR}VP-hora~{VARIABLE}hora~ h {VARIABLE}minuts~~ 57 {REGRESAR} 58 59 60 {ROTULO}Fugida~ 61 {ANIDAR}{VARIABLE}viaMacros~DauCance~ Comentaris Macro cridada des de la macro DAU4H1.WPM. 1. {SI SE CANCELA}{IR} redirecciona la funció de la tecla de cancel.lació cap al rètol "Fugida", que transfereix l'execució a la macro DAUCANCE.WPM, que cancel.la el procediment i torna a la macro matriu d'on parteix aquesta. 4. {;} comentari que ens avisa que tot seguit inicialitzarem els paràmetres de la macro DAU_TEXT.WPM, que controla el valor de les variables que ens serviran per definir l'hora de la reunió. 5. {ASIGNAR} assigna a la variable "VP-missatge" el valor "Escriviu l'hora (en xifres de 0 a 23)". 6. {ASIGNAR} inicialitza la variable "VP-resposta". 7. {ASIGNAR} assigna a la variable "VP-obliga" el valor "sí". 9. {ASIGNAR} assigna a la variable "vàlida" el valor "no". 10. {MIENTRAS} mentre el valor de la variable "hora" no estigui comprès entre "0" i "9" o el valor de la variable "vàlida" sigui "no"... 12. ... {ANIDAR} transfereix l'execució a la macro DAU_TEXT.WPM, que retorna una resposta després de rebre una pregunta. 13. {ASIGNAR} assigna a la variable "hora" el valor de la variable "VP-resposta". 14. {SI} si el valor de la variable "hora" no està comprès entre 0 i 23 (com a valor numèric)... 15. {ASIGNAR} assigna a la variable "vàlida" el valor "no". 16. {DE OTRO MODO} altrament... 17. {ASIGNAR} assigna a la variable "vàlida" el valor "sí". 21. {SI} el valor de la variable "hora" és "1" o "11"... 22. ... {ASIGNAR} assigna a la variable "VP-apostrofar" el valor "sí". 23. {DE OTRO MODO} altrament... 24. ... {ASIGNAR} assigna a la variable "VP-apostrofar" el valor "no". 29. {;} comentari que ens avisa que tot seguit inicialitzarem els paràmetres de la macro DAU_TEXT.WPM, que controla el valor de les variables que ens serviran per definir la fracció d'hora (en minuts) de la reunió. 30. {ASIGNAR} assigna a la variable "VP-missatge" el valor "Escriviu els minuts (en xifres de 0 a 59)". 31. {ASIGNAR} inicialitza la variable "VP-resposta". 32. {ASIGNAR} assigna a la variable "VP-obliga" el valor "sí". 34. {ASIGNAR} assigna a la variable "vàlid" el valor "no". 35. {MIENTRAS} mentre el valor de la variable "minuts" no estigui comprès entre "0" i "59" o el valor de la variable "vàlid" sigui "no"... 37. ... {ANIDAR} transfereix l'execució a la macro DAU_TEXT.WPM, que retorna una resposta després de rebre una pregunta. 38. {ASIGNAR} assigna a la variable "minuts" el valor de la variable "VP-resposta". 39. {SI} si el valor de la variable "minuts" no està comprès entre 0 i 59 (com a valor numèric)... 40. {ASIGNAR} assigna a la variable "vàlid" el valor "no". 41. {DE OTRO MODO} altrament... 42. {ASIGNAR} assigna a la variable "vàlid" el valor "sí". 48. {SI} el valor de la variable "minuts" és "0"... 49. ... inicialitzar la variable "minuts". 50. {DE OTRO MODO} altrament... 51. ... {SI} si la variable minuts té un valor més gran que "0" i més petit que "10" (o sigui, que té un valor numèric d'una sola xifra i diferent de "0"). 52. {ASIGNAR} assigna a la variable "minuts" el valor "0" + el valor que contenia la variable "minuts". 56. {ASIGNAR} assigna a la variable "VP-hora" el valor de la variable "hora" + " h " + el valor de la variable "minuts". 57. {REGRESAR} retorna el control a la macro des d'on havíem cridat aquesta. 60. {ROTULO} declara el rètol "fugida", que... 61. ... transfereix l'execució a la macro DAUCANCE.WPM, que cancel.la l'execució de la macro, neteja la pantalla i inicialitza les variables generals.

Josep Tordera, Lluís de Yzaguirre i Víctor Pàmies
Institut de Lingüística Aplicada ( Universitat "Pompeu Fabra")
Servei de Llengua Catalana ( Universitat de Barcelona)
corr-el: lluis punt deyzaguirre arrova upf punt edu