Condividi tramite


Procedura: creare una routine (Visual Basic)

È possibile racchiudere una routine tra un'istruzione di dichiarazione iniziale (Sub o Function) e un'istruzione di dichiarazione finale (End Sub o End Function). Tutto il codice della routine si trova tra queste istruzioni.

Una routine non può contenere un'altra routine, pertanto le istruzioni iniziali e finali devono essere esterne a qualsiasi altra routine.

Se è presente codice che esegue la stessa attività in posizioni diverse, è possibile scrivere l'attività una sola volta come routine e quindi chiamarla da posizioni diverse nel codice.

Per creare una routine che non restituisce un valore

  1. All'esterno di qualsiasi altra routine, usare un'istruzione Sub, seguita da un'istruzione End Sub.

  2. Nell'istruzione Sub far seguire la parola chiave Sub dal nome della routine, quindi dall'elenco di parametri tra parentesi.

  3. Inserire le istruzioni di codice della routine tra le istruzioni Sub e End Sub.

Per creare una routine che restituisce un valore

  1. All'esterno di qualsiasi altra routine, usare un'istruzione Function, seguita da un'istruzione End Function.

  2. Nell'istruzione Function far seguire la parola chiave Function dal nome della routine, quindi dall'elenco di parametri tra parentesi e quindi da una clausola As che specifica il tipo di dati del valore restituito.

  3. Inserire le istruzioni di codice della routine tra le istruzioni Function e End Function.

  4. Usare un'istruzione Return per restituire il valore al codice chiamante.

Per connettere la nuova routine ai blocchi di codice precedenti e ripetitivi

  1. Assicurarsi di definire la nuova routine in una posizione a cui il codice precedente ha accesso.

  2. Nel blocco di codice ripetitivo precedente sostituire le istruzioni che eseguono l'attività ripetitiva con una singola istruzione che chiama la routine Sub o Function.

  3. Se la routine è un oggetto Function che restituisce un valore, assicurarsi che l'istruzione chiamante esegua un'azione con il valore restituito, ad esempio l'archiviazione in una variabile, altrimenti il valore andrà perso.

Esempio

La routine Function seguente calcola il lato più lungo, o ipotenusa, di un triangolo rettangolo, in base ai valori per gli altri due lati:

Function Hypotenuse(side1 As Double, side2 As Double) As Double
    Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function

Vedi anche