domingo, 10 de abril de 2016

Param

Aquí les dejo un ejemplo de como usar Param, dado que las funciones Max y Min solo permiten dos parámetros e creado este ejemplo que permite muchos parámetros.

' gambas module file

'by postapase abril 2016

Public Sub Main()

Print op.Maximo(30, 10, 5, 2, 2000, 500)'aquí podes poner mas números, desconozco el limite.
Print op.Minimo(30, 10, 5, 2, 2000, 500)

End

---------------------------------------------------

' gambas module file

'by postapase abril 2016

Private Lista As New Integer[]
Private a As Integer

Public Sub Maximo(...) As Integer

For Each a In Param
Lista.Add(a)
Next

Return Lista.Sort(True)[0]

End


Public Sub Minimo(...) As Integer

For Each a In Param
Lista.Add(a)
Next

Return Lista.Sort(True)[Lista.Max]

End



Código Fuente

1 comentario:

  1. Buenos días hermano estoy haciendo un proyecto ¿serias tan amable de echarme una mano? este es mi correo willyanjosesuarez@hotmail.com escribeme si la respuesta es positiva para enviarte lo que llevo hecho hasta ahora
    saludos Willian Suárez de Venezuela

    ResponderBorrar