Procedura: creare una routine
Aggiornamento: novembre 2007
Una routine deve essere racchiusa tra un'istruzione di dichiarazione di inizio (Sub o Function) e una di fine (End Sub o End Function). Tra le due istruzioni è racchiuso tutto il codice della routine.
Una routine non può contenere un'altra routine, pertanto le istruzioni di inizio e di fine 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, quindi chiamarla dalle diverse posizioni del codice.
Per creare una routine che non restituisce alcun valore
Utilizzare un'istruzione Sub all'esterno di qualsiasi altra routine, seguita da un'istruzione End Sub.
Nell'istruzione Sub far seguire la parola chiave Sub dal nome della routine, quindi dall'elenco dei parametri racchiuso tra parentesi.
Inserire le istruzioni del codice della routine tra le istruzioni Sub e End Sub.
Per creare una routine che restituisce un valore
Utilizzare un'istruzione Function all'esterno di qualsiasi altra routine, seguita da un'istruzione End Function.
Nell'istruzione Function far seguire la parola chiave Function dal nome della routine, quindi dall'elenco dei parametri tra parentesi, infine da una clausola As che specifica il tipo di dati del valore restituito.
Inserire le istruzioni del codice della routine tra le istruzioni Function e End Function.
Utilizzare un'istruzione Return per restituire il valore al codice chiamante.
Per collegare la nuova routine ai vecchi blocchi di codice ripetitivi
Accertarsi di aver definito la nuova routine in una posizione che ne consenta l'accesso da parte del vecchio codice.
Nel vecchio blocco di codice ripetitivo sostituire le istruzioni che eseguono l'attività ripetitiva con un'istruzione singola che chiama la routine Sub o Function.
Se la routine è una Function che restituisce un valore, verificare che l'istruzione di chiamata esegua un'azione con il valore restituito, ad esempio lo memorizzi in una variabile, onde evitare che il valore venga perduto.
Esempio
La routine Function che segue consente di calcolare il lato più lungo, o ipotenusa, di un triangolo retto, dati i valori degli altri due lati.
Function hypotenuse(ByVal side1 As Single, ByVal side2 As Single) As Single
Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function
Vedere anche
Attività
Procedura: suddividere sezioni estese di codice in parti di dimensioni minori
Concetti
Parametri e argomenti delle routine