Busca el tema de tu interés

miércoles, 14 de enero de 2015

Ejemplos de tipos de códigos para crear una función de visual basic(VB)

En este post vamos a presentar diferentes maneras de hacer una función para utlizar en un entorno de programación del programa microsoft excel o window . 
Una función es un conjunto de expresiones lógicas o matemáticas que puede realizar diversas tareas , en materia informática una función puede ser utilizada para validar una entrada en una casilla de texto , también puede ser utilizada para devolver un valor lógico como es falso o verdadero , también puede ser usada para devolver un resultado de una operación aritmética , entre otras muchas formas de uso .
Debemos decir que las funciones son tan importantes que sin ellas sería imposible realizar páginas web , programas informático que requieran de una labor de inteligencia .
Bueno ya dicho esto vamos ha analizar un tipo especial de función .


Función del tipo bolean (Booleana)
Una función de este tipo dá cómo resultado un valor lógico osea , verdadero o falso .
Aquí les presento algunos códigos con los que ilustramos la forma de construir una función de un tipo boleano utlizando el lenguaje de programación visual basic . 

'Primero declaramos la funcion como un tipo boleano .

Function Prueba(edad1,edad2) As Boolean
'Este if devuelve un valor falso de la funcion prueba si la variable 'edad1 es mayor que edad2
'En caso contrario este if o condicion retorna un valor boleano 'verdadero .
If  edad1>edad2 Then
prueba=False
Else
prueba=True
End If

 End Function


Cómo se observa en el ejemplo anterior todo los bloques de construción tienen una apertura y un cierre ejemplo .



'Primero declaramos la funcion como un tipo boleano .
Function Prueba(edad1 As Single,edad2 As Single) As Boolean
'.....La apertiura es "Function" y el cierre es "End Function"
If (Si)..Condicion.... Then(Entonces)
....La apertura es "If" y el cierre es "End If"
End If
 End Function


Bueno mucho de ustedes dirían tengo el código de la función ahora ¿cómo compruebo que el código funcióna? , mira esa pregunta me hice cuándo me nació la curiosidad de averiguar en el programa microsoft excel cómo yo podría escribir mis propias funciones para usar en microsoft excel , así que averigué através de la ayuda del mismo programa excel la manera de cómo hacer mis propia funciones claro está en este propósito me ayudó bastante mis bastos conocimiento en matemáticas y física soy lo que dirían alguno sabios en esta materia un autodidácta , ya después me fué más sencillo extenderme a una programación más profesional utilizando el entorno de desarrollo de window para visual basic , bueno para no ampliar más , si usted quiere probar la función de nuestro primer ejemplo después que usted abra el programa excel use el metodo abreviado del teclado (Alt+F11) . Luego en la ficha que dice insertar haga click en "módulo" y allí pegue el código de la función "prueba" y eso es todo . Luego para probar la función , en cualquier celda de excel escriba  ejemplo "=prueba(20,30)" y presione la tecla enter , el resultado debera ser [Verdadero(True)] .
Si te sirve este post dejanos un comentario o una pregunta si tiene alguna duda .



Función del tipo string
Una función definida como string acepta todo tipo de cadena de texto , es decir puede recibir y devolver texto .
Veamos un código de una función calificadada cómo string .

'Primero declaramos la función y sus variables como string o  
'tipo  texto

Function textfuncion(text1 As string) As string
'Esta "If" devuele el texto "Texto correcto" si la variable text1 es 'una "a" una "b" o una "c" , pero devuelve "Texto incorrecto" 
'si la variable text1 es diferente de estos valores .
If text1="a" Or text1="b" Or text1="c" then
textfuncion="Texto correcto"
Else
textfuncion="Texto incorrecto"
End If

End Function




Función del tipo Integer
Las funciones y variables declarada como integer son aquellas que se almacenan como números de 16 bits(2 bytes) y sólo aceptan valores que están entre -32,768 a 32,767 [-32,768 ≤ ≤ 32,7767 ] .
Ejemplo de un código para una función y una variable de tipo Integer .


'Primero declaramos la función y sus variables como Integer 

Function Rproduct(product1 As Integer , product2 As integer) _
As Integer
'Esta función nos devuelve el producto de las variables product1 
'y product2

Rproduct= product1 * product2

End Function

       


Función del tipo long
Las funciones y variables del tipo long son aquellas que se almacenan cómo número con signo de 32 bits (4 bytes) , estas funciones o variables de este tipo puede pueden almacenar valores que van de -2,147,483,648 a 2,147,483,647 
[-2,147,483,648 ≤ x ≤ 2,147,483,647] .Una  función o variable de tipo long devuelve siempre la parte entera de un número dado en forma decimal
Ejemplo de un código para una función y variables del tipo long .



'Primero declaramos la función y sus variables como Long

Function Plong(long1 As long ,long2 As long )  As long

'Esta función nos devuelve el cociente de las variables long1 

'y long2
If long1=0 Then
'Este If devuelve un mensaje si la variable long1 es igual a cero
'En caso contrario se devuelve el cociente de long2 y long1

MsgBox "La variable long1 no debe ser igual a  " & long1
Exit Function
Else
Plong= long1 / long2
End If

End Function

Si probamos la función anterior nos daremos cuenta que "=Plong(12,10)" debería dar cómo resultado 1.2 pero de manera diferente nos dá 1 , esto se debe a que la función Plong está declarada como tipo long por tanto la función y las variables de este tipo nos devuelven sólo la parte entera de un número decimal por tanto "=Plong(4,10)" debería darnos 0.4 pero en vez de este resultado la función sólo toma la parte entera es decor 0 , ahora bien si el resultado fuera 0.6 en este caso la función nos dá 1 ya que 0.6 se redondea automáticamente a 1 .