CAPITULO 7: Procedimientos
Un procedimiento se parece muchísimo en su concepción y uso a una función, con la diferencia fundamental de que no devuelve ningún resultado y algunas otras diferencias menores, que veremos en este apartado. En primer lugar los procedimientos se incluyen entre las palabras clave SUB y END SUB. Para invocar al procedimiento, simplemente teclearemos su nombre en una línea de comando, como si fuera una instrucción. Veamos un ejemplo:
Procedimientos
<HTML>
<HEAD>
<TITLE>Ejemplo del uso de procedimientos</TITLE>
<SCRIPT LANGUAGE = "VBScript">
SUB doble_mensaje()
MSGBOX ("Este es el primer mensaje.")
MSGBOX ("Este es el segundo mensaje.")
END SUB
</SCRIPT>
</HEAD>
<BODY>
<SCRIPT LANGUAGE = "VBScript">
doble_mensaje
</SCRIPT>
</BODY>
</HTML>
El resultado sería, como cabe esperar, que primero visualizaremos el mensaje:
Y a continuación, tras pulsar el botón ACEPTAR, veremos:
Tras pulsar el botón aceptar, finaliza la ejecución. Como vemos, el procedimiento no devuelve ningún resultado. Simplemente ejecuta una acción. En este caso, además hemos visto que se trata de un procedimiento que no recibe ningún parámetro. Por eso, en la definición aparece el nombre del procedimiento con dos paréntesis sin nada en medio y en la invocación aparece, simplemente, el nombre del procedimiento. Si hubiera que pasar parámetros al procedimiento, existen dos formas de realizar la invocación. La primera es la mas sencilla. El nombre del procedimiento seguido de los parámetros necesarios, separados por comas y sin paréntesis. Así:
procedimiento parám1, parám2, parám3, ... , parámN
La segunda forma es mas elegante y mas adecuada al concepto de programación estructurada. Consiste en anteponer al nombre de procedimiento la palabra reservada CALL y encerrar la lista de parámetros, separados por comas, entre paréntesis. Así:
CALL procedimiento (parám1, parám2, parám3, ... , parámN)
Modos de llamar a un procedimiento
<HTML>
<HEAD>
<TITLE>Ejemplo de llamadas a procedimiento</TITLE>
<SCRIPT LANGUAGE = "VBScript">
SUB cuento (final)
IF (final = "Bonito") THEN
MSGBOX ("...y fueron felices y comieron perdices.")
END IF
IF (final = "Feo") THEN
MSGBOX ("... les echaron del trabajo y les embargaron el piso.")
END IF
END SUB
</SCRIPT>
</HEAD>
<BODY>
<SCRIPT LANGUAGE = "VBScript">
cuento "Bonito"
CALL cuento ("Feo")
</SCRIPT>
</BODY>
</HTML>
El resultado de la ejecución de este programa es el siguiente:
Y, al pulsar Aceptar veremos lo siguiente:
Con lo que termina la ejecución del programa. Con esto hemos visto como operan las funciones de usuario y los procedimiento.
RUPTURAS
Al igual que sucedía con los bucles, es posible interrumpir la ejecución de una función de usuario o de un procedimiento y devolver el control de la ejecución al código llamante. Para ello se utiliza, una vez más, la instrucción EXIT. Si se trata de una función de usuario emplearemos EXIT FUNCTION. Si se trata de un procedimiento, emplearemos EXIT SUB. De todas formas no es bueno acostumbrarse a usar estas rupturas forzadas, porque se acaba abusando de ellas y escribiendo códigos chapuceros. En realidad se puede resolver casi cualquier problema sin necesidad de rupturas. Solo deben incluirse como solución de emergencia si se genera algún error indeseado, por ejemplo. Aclarado esto, es el momento adecuado para hablar de funciones del lenguaje.
Tutoriales
