Visualizza wikitesto di Passare a una funzione un numero imprecisato di argomenti

Una funzione i cui argomenti sono in numero arbitrario si dice [https://it.wikipedia.org/wiki/Funzione_variadica variadica].



== Argomenti ovvero Parametri ==


Per poter passare un numero "''imprecisato''" di argomenti a una funzione occorre che la funzione faccia ricorso alla parola chiave '...'

  Private Sub Funzione(...)

Scritta così questa funzione o metodo accetterà un qualunque numero di argomenti di vario tipo.

Per fare in modo che la funzione possa leggere gli argomenti a lei passati e rispondere adeguatamente, Gambas ci mette a disposizione la classe statica [http://gambaswiki.org/wiki/comp/gb/param?l=it Param]

Con questa classe possiamo verificare i ''parametri'' passati attraverso la variabile vettoriale ''variant'' ottenuta attraverso '''Param.All''' e il numero di parametri attraverso '''Param.Count'''.

Invece per conoscerne il tipo ci avvarremo di '''TypeOf('''variant[x]''')'''


== Esempio pratico ==


Creeremo una funzione che sommerà tutti i numeri interi a lei passati:

  Public Sub Main()
  
    Print SommaInteri(1, 2, 3, 4, 5, 6, 7, 8, 9)
  
  End
  
  Private Function SommaInteri(...) As Long
  
    Dim aSomma As Variant = Param.All
    Dim iSomma As Long = 0
  
    For i As Integer = 0 To aSomma.Max
      If TypeOf(aSomma[i]) = 4 Then
        iSomma += aSomma[i]
      Else
        Print "#ERRORE: Tipo di dato non corrispondente"
        Return 0
      Endif
    Next
    Return iSomma
  
  End



== Verifica del numero degli argomenti ==


Volendo applicare un ulteriore maggior controllo alla funzione potremo passare un primo dato che indichi alla funzione il numero degli argomenti passati:

  Public Sub Main()
  
    Print SommaInteri(5, 1, 2, 3, 4, 5)
  
  End
  
  Private Function SommaInteri(argomenti As Byte, ...) As Long
  
    Dim aSomma As Variant = Param.All
    Dim iSomma As Long = 0
  
    If Param.Count <> argomenti Then
      Print "#ERRORE: Numero di argomenti non corrispondente"
      Return 0
    Endif
    For i As Integer = 0 To aSomma.Max
      If TypeOf(aSomma[i]) = 4 Then
        iSomma += aSomma[i]
      Else
        Print "#ERRORE: Tipo di dato non corrispondente"
        Return 0
      Endif
    Next
    Return iSomma
  
  End