Prueba de sobrecarga de procedimientos

Actualizado: 25/Oct/2000

Por ahora sólo está el código, más adelante puede que comente el código mostrado...

'
'------------------------------------------------------------------------------
' Prueba de sobrecarga de procedimientos                            (25/Oct/00)
'
' ©Guillermo 'guille' Som, 2000
'
' Para compilar:
' vbc Prueba1_25Oct.vb /t:exe /r:System.dll
'------------------------------------------------------------------------------
Imports System


Namespace Guille.Ejemplos.Prueba1_25Oct
    '
    Public Module MPrueba1_25Oct
    ' El módulo se usará como punto de entrada
        '
        Public Sub Main()
            Mensaje("Prueba de sobrecarga de procedimientos")
            Mensaje("--------------------------------------")
            Mensaje
            ' Declarar un objeto del tipo Clase25_1
            Dim tClase1 As New Clase25_1
            Dim unDouble As Double
            Dim unInteger As Integer
            '
            unInteger = tClase1.Suma(10, 15)
            Mensaje("Suma de dos enteros: " & unInteger.ToString)
            '
            unDouble = tClase1.Suma(10.3, 15.25)
            Mensaje("Suma de dos doubles: " & unDouble.ToString)
            Mensaje
            '
            Mensaje("Parámetro Integer: " & tClase1.aCadena(123))
            Mensaje("Parámetro Double: " & tClase1.aCadena(123.25))
            '
            Mensaje()
            ' Final
            Console.Write("Pulsa una INTRO")
            Dim s As String = Console.ReadLine()
        End Sub
        '
        ' Método para mostrar los mensajes en la consola
        ' Los parámetros opcionales siempre tienen que tener un valor por defecto
        Friend Sub Mensaje(Optional ByVal Msg As String = "")
            ' Muestra el contenido de la cadena en la consola
            Console.WriteLine(Msg)
        End Sub
        '
    End Module
    '
    ' Clase con procedimientos "sobrecargados"
    Public Class Clase25_1
        ' Variables privadas
        Private m_Nombre As String
        Private m_Edad As String
        '
        ' Recibe parámetros Integer y devuelve un Integer
        Public Overloads Function Suma(ByVal a As Integer, ByVal b As Integer) As Integer
            Return a + b
        End Function
        ' Recibe parámetros Double y devuelve un Double
        Public Overloads Function Suma(ByVal a As Double, ByVal b As Double) As Double
            Return a + b
        End Function
        '
        ' Estos procedimientos reciben distintos tipos de parámetros,
        ' pero devuelven el mismo tipo
        Public Overloads Function aCadena(ByVal a As Integer) As String
            Return "Es un Integer convertido a cadena: " & a.ToString
        End Function
        '
        Public Overloads Function aCadena(ByVal a As Double) As String
            Return "Es un Double convertido a cadena: " & a.ToString
        End Function
        '
    End Class
End Namespace

...

Nos vemos.
Guillermo

Ir al índice de vb.net