Compartir a través de

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 diferentes 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 devuelva un valor

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

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

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

Para crear un procedimiento que devuelva un valor

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

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

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

  4. Use una Return instrucción 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 su antiguo bloque de código repetitivo, reemplace las instrucciones que realizan la tarea repetitiva con una sola instrucción que llama al procedimiento Sub o Function.

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

Ejemplo

El procedimiento siguiente Function 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

Consulte también

  • Last updated on