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
Subinstrucción , seguida de unaEnd Subinstrucción .En la
Subinstrucción , siga laSubpalabra 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
SubyEnd Sub.
Para crear un procedimiento que devuelva un valor
Fuera de cualquier otro procedimiento, use una
Functioninstrucción , seguida de unaEnd Functioninstrucción .En la
Functioninstrucción , siga laFunctionpalabra clave con el nombre del procedimiento, la lista de parámetros entre paréntesis y, a continuación, unaAscláusula que especifique el tipo de datos del valor devuelto.Coloque las instrucciones de código del procedimiento entre las instrucciones
FunctionyEnd Function.Use una
Returninstrucció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
Subprocedimiento oFunction.Si el procedimiento es un
Functionque 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.
