FUNDAMENTOS DE VISUAL BASIC .NET

en este capitulo vamos a ver los fundamento de visual basic .NET  ya hemos visto las definiciones  básicas que se deben tener en cuenta para cualquier lenguaje de programación ahora vamos a tomar dos ejemplos como caso practico para entender mejor todo esto.

1- decida que tipos de valores necesita para escribir un programa que calcule la suma y la media de cuatro números de tipo integer.

Module Module1

'declaración de la función suma con 4 variables de tipo entero

    Function suma(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer) As Integer

'declaración de la variable resultado como como entere y su inicialización en cero

        Dim resultado As Integer = 0

'suma de las 4 variables

        resultado = a + b + c + d

'se retorna el resultado de la suma

        Return resultado

'finalizacion de la función

    End Function

'declaración de la función para calcular la media se envía como parámetro el resultado de la suma

    Function media(ByVal resultado)

'declaración de la variable media1 y su inicialización en cero

        Dim media1 As Integer = 0

'se calcula la media dividiendo el resultado en 4

        media1 = resultado / 4

'se retorna el resultado de la media

        Return media1

'finalisacion de la función

    End Function

'declaración de la función principal

    Sub Main()

'se declaran todas las variables y se inicializan 

        Dim a As Integer = 2, b As Integer = 4, c As Integer = 6, d As Integer = 8, r As Integer = 0, m As Integer = 0

'se envian los parametros a la función suma

        r = suma(a, b, c, d)

'parametros de la función media

        m = media(r)

'se imprimen los resultados por consola

        System.Console.WriteLine("suma=" & r)

        System.Console.WriteLine("media=" & m)

        Console.Write("presione una tecla para salir")

        Console.ReadLine()

    End Sub

End Module

'fin del programa

si un procedimiento empieza con la palabra reservada Function es porque retorna un valor; en este caso su bloque de código finaliza con end función y si empieza con sub es por que no retorna un valor; en este caso su bloque de código finaliza con end sub.

vamos a ver un segundo ejemplo

2- escriba un programa que incluya  un procedimiento denominado calcular que devuelva como resultado el valor de la expresión:

b^2-4ac/2a

el procedimiento Main invocara a calcular pasando los valores de a=1, b=5 y c=2 y mostrara el resultado obtenido

Module Module1

' declaración de la función calcular con todos los parámetros como tipo entero pero la función nos 'devolverá un parámetro de tipo double hay que tener cuidado con el tipo de dato  que manejamos

    Function calcular(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer) As Double

' declaración de la variable resultado

        Dim resultado As Double = 0

'se hace la operación indicada

        resultado = ((b * b) - (4 * a * c)) / (2 * a)

'se retorna el resultado obtenido después de hacer la operacion

        Return resultado

' se finaliza la función

    End Function

' declaración del main

    Sub Main()

'se declaran las variables y se inicializan 

        Dim a As Integer = 1, b As Integer = 5, c As Integer = 2, r As Double = 0

'se pasan los parametros a la función calcular

        r = calcular(a, b, c)

'se muestra el resultado por consola

        System.Console.WriteLine("calcular=" & r)

        Console.Write("presione una tecla para salir")

        Console.ReadLine()

' se finaliza el main

    End Sub

' se finaliza el  modulo

End Module

espero y les sirva próximamente mas capítulos y ejemplos