FUNCIONES Y PROCEDIMIENTOS EN VISUAL.NET

VB.Net / ASP.Net: Funciones, Procedimientos y Clases

La programación modular es beneficiosa, por que permite fragmentar un programa complejo en varios subprogramas, permitiendo al programador, centrarse en procedimientos que ejecutan instrucciones específicas. Visual Basic .Net, no escapa de la definición de funciones y procedimientos. A continuación, se indica la sintáxis de definición de funciones y procedimientos en Visual Basic .Net:

Sub ProcedureName()
   Instrucciones…
End Sub

La sintáxis anterior describe la definición de un procedimiento o función sin retorno de valor. En Visual Basic .Net, se declara de maneja diferente los procedimientos a las funciones.

Function StringFunction() As String
    Instrucciones…
    Return CStr(val)
End Function

Function ParmFunction(a As String, b As String) As String
    Instrucciones…
    Return CStr(A & B)
End Function

Para programadores anteriores a Visual Basic .Net, la sintáxis para la declaración de funciones en Visual Basic, difería en que el valor de retorno se indicaba igualando una variable con el nombre de la función, con el valor a devolver. Ahora, la nueva sintáxis deVB.Net, tiene el agregado de la palabra reservada Return.

Las funciones es VB.Net, se definen con la palabra reservada Function, seguida del nombre de la función. Si se reciben parámetros, estos se indican dentro de paréntesis, junto con el tipo de dato. Finalmente, se termina la definición, indicando el tipo de dato que regresará la función.

Dim s1 As String = StringFunction()
Dim s2 As String = ParmFunction("Hello", "World!")

Clases en VB.Net: Siempre será importante, la utilización de clases, que nos faciliten la tarea en asuntos rutinarios. Las clases permiten agrupar procedimientos y funciones comunes.

Imports System

Public Class ClassName

    Public Sub New()
        MyBase.New()
    End Sub

    ‘ Procedimiento Principal

    Public Shared Sub Main()
        Instrucciones…

    End Sub

End Class

Al igual que en Java, en VB.Net, pueden definirse clases con herencia.

Imports System

Namespace MySpace

    Public Class Foo : Inherits Bar

        Dim x As Integer     ‘ En este caso, una propiedad

        Public Sub New()
            MyBase.New()     ‘ Crea el objeto, utilizando New()
            x = 4
        End Sub

        Public Sub Add(x As Integer)
            Me.x = Me.x + x  ‘ Hace referencia a la propiedad X
        End Sub

        Public Function GetNum() As Integer
            Return x         ‘ Tambien hace referencia a X
        End Function

    End Class

End Namespace