Compartir a través de

Cómo: Crear un procedimiento (Visual Basic)

  • Artículo

Se incluye un procedimiento entre una instrucción de declaración de inicio (Sub o Function) y una instrucción de declaración de finalización (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 de inicio y finalización 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, llamar a la tarea desde diferentes lugares del código.

Para crear un procedimiento que no devuelve un valor

  1. Fuera de cualquier otro procedimiento, use una instrucción Sub, seguida de una instrucción End Sub.

  2. En la instrucción Sub, ponga el nombre del procedimiento después de la palabra clave Sub y, a continuación, la lista de parámetros entre paréntesis.

  3. Coloque las instrucciones de código del procedimiento entre las instrucciones Sub y End Sub.

Para crear un procedimiento que devuelva un valor

  1. Fuera de cualquier otro procedimiento, use una instrucción Function, seguida de una instrucción End Function.

  2. En la instrucción Function, ponga el nombre del procedimiento después de la palabra clave Function, después, la lista de parámetros entre paréntesis y, a continuación, una cláusula As que especifique el tipo de datos del valor devuelto.

  3. Coloque las instrucciones de código del procedimiento entre las instrucciones Function y End Function.

  4. Use una instrucción Return para devolver el valor al código de llamada.

Para conectar el nuevo procedimiento con los bloques de código antiguos y repetitivos

  1. Asegúrese de definir el nuevo procedimiento en un lugar donde el código anterior tenga acceso a él.

  2. En el bloque de código antiguo y repetitivo, reemplace las instrucciones que realizan la tarea repetitiva por una sola instrucción que llame al procedimiento Sub o Function.

  3. Si el procedimiento es un Function que devuelve un valor, asegúrese de que la instrucción de llamada realice alguna acción con el valor devuelto, como almacenarlo en una variable o, de lo contrario, se perderá el valor.

Ejemplo

El siguiente procedimiento Function calcula el lado más largo, o hipotenusa, de un triángulo rectángulo, 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

Consulte también