Cómo: Crear un procedimiento (Visual Basic)
Se incluye un procedimiento entre una instrucción de declaración inicial (Sub
o Function
) y una instrucción de declaración final (End Sub
o End Function
). Todo el código del procedimiento se encuentra entre estas instrucciones.
Un procedimiento no puede contener otro procedimiento, por lo que sus instrucciones iniciales y finales deben estar fuera de cualquier otro procedimiento.
Si tiene código que realiza la misma tarea en distintos lugares, puede escribir la tarea una vez como un procedimiento y, a continuación, llamarla desde diferentes lugares del código.
Para crear un procedimiento que no devuelve un valor
Fuera de cualquier otro procedimiento, use una
Sub
instrucción , seguida de unaEnd Sub
instrucción .En la
Sub
instrucción , siga laSub
palabra clave con el nombre del procedimiento y, a continuación, la lista de parámetros entre paréntesis.Coloque las instrucciones de código del procedimiento entre las instrucciones
Sub
yEnd Sub
.
Para crear un procedimiento que devuelva un valor
Fuera de cualquier otro procedimiento, use una
Function
instrucción , seguida de unaEnd Function
instrucción .En la
Function
instrucción , siga laFunction
palabra clave con el nombre del procedimiento, la lista de parámetros entre paréntesis y, a continuación, unaAs
cláusula que especifique el tipo de datos del valor devuelto.Coloque las instrucciones de código del procedimiento entre las instrucciones
Function
yEnd Function
.Use una
Return
instrucción para devolver el valor al código que llama.
Para conectar el nuevo procedimiento con los bloques de código antiguos y repetitivos
Asegúrese de definir el nuevo procedimiento en un lugar donde el código anterior tenga acceso a él.
En el bloque de código antiguo y repetitivo, reemplace las instrucciones que realizan la tarea repetitiva por una sola instrucción que llama al
Sub
procedimiento oFunction
.Si el procedimiento es un
Function
que devuelve un valor, asegúrese de que la instrucción que realiza una llamada realiza una acción con el valor devuelto, como almacenarlo en una variable o, de lo contrario, se perderá el valor.
Ejemplo
El siguiente Function
procedimiento calcula el lado más largo, o hipotenusa, de un triángulo derecho, dados los valores de los otros dos lados:
Function Hypotenuse(side1 As Double, side2 As Double) As Double Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2)) End Function
A continuación, te compartimos un video donde podrás ver de forma gráfica la información arriba mencionada.