Cómo: crear un procedimiento
Actualización: noviembre 2007
Se incluye un procedimiento entre una instrucción de declaración de inicio (Sub o Function) y una instrucción de declaración de fin (End Sub o End Function). Todo el código del procedimiento está incluido entre estas instrucciones.
Un procedimiento no puede contener otro procedimiento, por lo que sus instrucciones de inicio y de fin deben estar fuera de cualquier otro procedimiento.
Si tiene un código que realiza la misma tarea en distintos lugares, puede escribir la tarea una vez como procedimiento y llamarlo después desde distintos lugares del código.
Para crear un procedimiento que no devuelve un valor
Fuera de cualquier otro procedimiento, utilice una instrucción Sub, seguida de una instrucción End Sub.
En la instrucción Sub, agregue detrás de la palabra clave Sub el nombre del procedimiento y, a continuación, la lista de parámetros entre paréntesis.
Coloque las instrucciones del código del procedimiento entre las instrucciones Sub y End Sub
Para crear un procedimiento que devuelva un valor
Fuera de cualquier otro procedimiento, utilice una instrucción Function, seguida de una instrucción End Function.
En la instrucción Function, agregue detrás de la palabra clave Function el nombre del procedimiento y una cláusula As en la que se especifique el tipo de datos del valor devuelto.
Coloque las instrucciones del código del procedimiento entre las instrucciones Function y End Function
Utilice una instrucción Return para devolver el valor al código de llamada.
Para conectar el nuevo procedimiento con los anteriores bloques de código repetitivos
Asegúrese de que define el nuevo procedimiento en un lugar donde el código anterior tiene acceso a él.
En el anterior bloque de código repetitivo, reemplace las instrucciones que realizan la tarea repetitiva por una única instrucción que llama al procedimiento Sub o Function.
Si el procedimiento es una Function que devuelve un valor, asegúrese de que la instrucción de 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 procedimiento Function calcula la hipotenusa de un triángulo rectángulo a partir de los valores de los catetos.
Function hypotenuse(ByVal side1 As Single, ByVal side2 As Single) As Single
Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function
Vea también
Tareas
Cómo: Dividir secciones de código grandes en secciones más pequeñas
Conceptos
Procedimientos en Visual Basic
Argumentos y parámetros de procedimiento