vb.net devolver varios parámetros en una función

vb.net devolver varios parámetros en una función

Una forma de devolver varios parámetros en un mismo retorno de función es con una clase específicamente creada, con todos los parámetros que puedas llegar a devolver aunque en cada caso no se utilicen.

Por ejemplo vamos a realizar una función para dividir, pasaremos el dividiendo y el divisor y obtendremos el cociente, el resto, el cociente parte entera truncada, y un booleano (true o false) si podemos realizar la división, es decir, en caso de que el divisor sea 0 devolvemos false.

Public Class class_resultadoDivision
    Public success As Boolean = False
    Public Resultado As Double = 0
    Public ResultadoParteEntera As Integer = 0
    Public Resto As Integer = 0
End Class

Declaramos una función cuyo valor resultado es un objeto de la clase anteriormente creada.

Public Function f_division(dividendo As Double, divisor As Double) As class_resultadoDivision

        Dim devolver As New class_resultadoDivision
        If divisor <> 0 Then
            devolver.Resultado = dividendo / divisor
            devolver.ResultadoParteEntera = dividendo \ divisor  ' sin decimales
            devolver.Resto = dividendo Mod divisor
            devolver.success = True
        End If
        f_division = devolver
End Function

En la llamada a la función procedemos así:

Dim res As class_resultadoDivision = f_division(25, 5)
MsgBox(res.success & " " & res.Resultado & " " & res.ResultadoParteEntera & " " & res.Resto)

Deja una respuesta