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 si dispone di 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 procedura, usare un'istruzione Sub , seguita da un'istruzione End Sub .

  2. Nell'istruzione Sub seguire la Sub parola chiave con il nome della routine, quindi l'elenco dei 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 procedura, usare un'istruzione Function , seguita da un'istruzione End Function .

  2. Nell'istruzione Function seguire la Function parola chiave con il nome della routine, quindi l'elenco di parametri tra parentesi e quindi una As clausola 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 procedura ai blocchi di codice precedenti e ripetitivi

  1. Assicurati di definire la nuova procedura in una posizione in cui il codice precedente possa avervi accesso.

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

  3. Se la procedura è un Function che restituisce un valore, assicuri che l'istruzione chiamante esegua un'azione con il valore restituito, ad esempio memorizzandolo in una variabile, altrimenti il valore sarà perso.

Esempio

La procedura seguente Function calcola il lato più lungo, o ipotenusa, di un triangolo destro, 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

Vedere anche

  • Last updated on