ByVal e ByRef

Module Module1
    Sub Change(ByVal N As Int32)
        N = 30
    End Sub

    Sub Main()
        Dim A As Int32 = 56
        Change(A)
        Console.WriteLine(A)
        Console.ReadKey()
    End Sub
End Module 

Module Module1
    Sub Change(ByRef N As Int32)
        N = 30
    End Sub

    Sub Main()
        Dim A As Int32 = 56
        Change(A)
        Console.WriteLine(A)
        Console.ReadKey()
    End Sub
End Module 

Module Module1
    Dim A As New Object

    Sub Test(ByVal N As Object)
        Console.WriteLine(N Is A)
    End Sub

    Sub Main()
        Test(A)
        Console.ReadKey()
    End Sub
End Module 

La funzioni

Function [name]([elenco parametri]) As [tipo]
    '...
    Return [risultato]
End Function 

Module Module1
    'Questa funzione calcola la media di un insieme
    'di numeri decimali passati come array
    Function Average(ByVal Values() As Single) As Single
        'Total conterrà la somma totale di tutti
        'gli elementi di Values
        Dim Total As Single = 0
        'Usa un For Each per ottenere direttamente i valori
        'presenti nell'array piuttosto che enumerarli
        'attraverso un indice mediante un For normale
        For Each Value As Single In Values
            Total += Value
        Next
        'Restituisce la media aritmetica, ossia il rapporto 
        'tra la somma totale e il numero di elementi
        Return (Total / Values.Length)
    End Function

    Sub Main(ByVal Args() As String)
        Dim Values() As Single = {1.1, 5.2, 9, 4, 8.34}
        'Notare che in questo caso ho usato lo stesso nome
        'per il parametro formale e attuale
        Console.WriteLine("Media: " & Average(Values))
        Console.ReadKey()
    End Sub
End Module 

Module Module1
    Function Potenza(ByVal Base As Single, ByVal Esponente As Byte) As Double
        Dim X As Double = 1

        If Esponente = 0 Then
            Return 1
        Else
            If Esponente = 1 Then
                Return Base
            Else
                For i As Byte = 1 To Esponente
                    X *= Base
                Next
                Return X
            End If
        End If
    End Function
    
    Sub Main()
        Dim F As Double
        Dim b As Single
        Dim e As Byte

        Console.WriteLine("Inserire base ed esponente:")
        b = Console.ReadLine
        e = Console.ReadLine
        F = Potenza(b, e)
        Console.WriteLine(b & " elevato a " & e & " vale " & F)
        Console.ReadKey()
    End Sub
End Module  

Usi particolari delle funzioni

• Quando una funzione si trova a destra dell'uguale, in qualsiasi punto di un'espressione durante un assegnamento, ed essa non presenta un elenco di parametri, la si può invocare senza usare la coppia di parentesi. L'esempio classico è la funzione Console.Readline. L'uso più corretto sarebbe:
  

  a = Console.ReadLine()

  ma è possibile scrivere, come abbiamo fatto fin'ora:
  

  a = Console.ReadLine

• Non è obbligatorio usare il valore restituito da una funzione: nei casi in cui esso viene tralasciato, la si tratta come se fosse una procedura. Ne è un esempio la funzione Console.ReadKey(). A noi serve per fermare il programma in attesa della pressione di un pulsante, ma essa non si limita a questo: restituisce anche informazione dettagliate sulle condizioni di pressione e sul codice del carattere inviato dalla tastiera. Tuttavia, a noi non interessava usare queste informazioni; così, invece di scrivere un codice come questo:
  

  Dim b = Console.ReadKey()

  ci siamo limitati a:
  

  Console.ReadKey()

  Questa versatilità può, in certi casi, creare problemi poiché si usa una funzione convinti che sia una procedura, mentre il valore restituito è importante per evitare l'insorgere di errori. Ne è un esempio la funzione IO.File.Create, che vedremo molto più in là, nella sezione C della guida.

Variabili Static

Module Module1
    Sub Test()
        Static B As Int32 = 0
        B += 1
        Console.WriteLine(B)
    End Sub

    Sub Main(ByVal Args() As String)
        For I As Int16 = 1 To 6
            Test()
        Next
        Console.ReadKey()
    End Sub
End Module