Descargar el PDF
Descargar el PDF
¿Tienes problemas con los conceptos de “función” en VB (Visual Basic)? Si es así, lee esta guía para que puedas aprender acerca de las llamadas a funciones en el paradigma de VB.
Pasos
-
¿Qué es una función?
- Usa un procedimiento de función cuando necesites devolver un valor al código de llamada.
- Una función tiene un tipo, y la función devolverá un valor a la subrutina de llamada basándose en el código que contenga.
-
¿Cómo declarar una función?
- Solo es posible definir una función a nivel del módulo. Esto significa que el contexto de declaración de una función debe ser una clase, estructura, módulo o interfaz, y no puede ser un archivo de código fuente, procedimiento o bloque.
- Una función se declara de la misma manera que una subrutina, excepto en que debes usar la palabra clave “Function” en lugar de “Sub”.
- Las funciones por defecto tienen acceso público. Puedes ajustar su nivel de acceso con los modificadores de acceso.
-
¿Cómo llamar una función?
- Llamas a una función con el nombre del procedimiento, seguido de la lista de argumentos entre paréntesis, en una expresión.
- Puedes omitir los paréntesis sólo si no proporcionas argumentos. Sin embargo, el código es más legible si incluyes siempre los paréntesis.
- Una función también puede ser llamada usando una instrucción Call, en cuyo caso se ignora el valor de retorno.
- Para devolver un valor, asigna un valor del tipo apropiado para el nombre de la función, como si se tratara de una variable.
Anuncio
Sintaxis
Declaración
[ <attributelist> ] [ accessmodifier ] [ proceduremodifiers ] [ Shared ] Function name [ (Of typeparamlist) ] [ (parameterlist) ] [ As returntype ] [ statements ] [ Exit Function ] [ statements ] End Function
Llamado
'Sin Call Function_Name() 'Con Call Call Function_Name()
Ejemplo
Ejemplo de una función que sumo dos números
Private
Function
Add
(
ByVal
x
As
Integer
,
ByVal
y
As
Integer
)
As
Integer
Dim
Res
as
integer
Res
=
x
+
y
Add
=
Res
End
Function
Private
Sub
Form_Load
()
Dim
a
As
Integer
Dim
b
As
Integer
Dim
c
As
Integer
a
=
32
b
=
64
c
=
Add
(
a
,
b
)
MsgBox
(
"Sum is : "
&
c
)
End
Sub
Anuncio