Vamos a ver en este tema las funciones en el lenguaje Visual Basic 2005.
La programación está basada en las estructuras.
Estructuras de datos y estructuras de programas.
Los programas son a su vez contenedores de estructuras de elementos individuales que ejecutan código.
El elemento más pequeño es la instrucción.
Después nos encontramos con procedimientos y funciones.
El siguiente nivel es la clase y por último el programa.
Los procedimientos y las funciones, dependiendo de la estructura del lenguaje utilizado, y del estilo de programación individual de cada uno, están bien en módulos independientes, de forma que son públicos para toda la aplicación, o de forma privada en el interior de un programa, o una clase.
En VB, las funciones son funciones y podrán o no pertenecer a una clase y ser un método, se albergará en el interior de una clase, haciendo referencia al mismo mediante el nombre de la clase y a continuación el de la función, método, o si está en el mismo nivel, con utilizar la función es suficiente, como vemos en el ejemplo.
Console.Writeline(“Factorial de 3 es " ,FuncionFactorial(3))
Pero no toda la resolución de una clase se realiza mediante código que se pueda o se tenga que traducir en un método.
La programación además se basa en la división de un problema grande, en varios pequeños, aquello de divide y vencerás, por lo que por esa misma filosofía es imposible, e ilógico, que todo se convierta en métodos.
Los métodos son la parte lógica visible de una clase, lógica en cuanto a que es aquello que cara al usuario le ayuda a resolver un problema en pasos “ comprensibles “ para él.
Con las funciones sucede lo mismo, al fin y al cabo, no son nada más que otra de las herramientas de programación.
Para crear una función la sintaxis es la siguiente:
Private Function FuncionFactorial(ByVal n As Integer) As Integer
La función puede estar en el programa Private
o en un módulo distinto, Public
La palabra reservada que indica que es una función Function
Después lo que sigue es el nombre de la función, FuncionFactorial
Entre paréntesis los datos que se reciben, indicando el tipo de cada uno de ellos, (ByVal n as Integer)
El tipo de dato que se devuelve en la función, Integer
A continuación empieza el código de la función que acaba con la línea End Function.
Private Function FuncionFactorial(ByVal n As Integer) As Integer
If (n <= 1) Then
FuncionFactorial = 1
Else
FuncionFactorial = n * FuncionFactorial(n - 1)
End If
End Function
En el ejemplo vemos la función, esta función calcula el factorial de un número, otro tema es que sea la mejor solución, pero es una función.
En el siguiente ejemplo se invierte el contenido de una variable de tipo string.
Public Function InvierteCadena(ByVal Cadena As String) As String
Dim Result As String = ""
Dim x As Integer
While x <> Len(Cadena)
x = x + 1
Result = Mid(Cadena, x, 1) & Result
End While
InvierteCadena = Result
End Function
El uso de la función anterior puede quedar :
Cadena = InvierteCadena(Cadena)
© Antonio Arjona Cornejo. Todos los derechos reservados.
Prohibida la reproducción por cualquier medio.
Publicación web autorizada a aulaClic S.L.
Cursos Informática Gratuitos Síguenos en: Facebook Sobre aulaClic Política de Cookies