Visual Basic Italia

Esempio di creazione di un progetto in Visual Basic Net, con i sorgenti da scaricare? Le trovi su Opentraining.it Visual Basic Italia

Corso di Visual Basic:

Quarta lezione - le funzioni in Visual Basic (a cura di Giorgio Abraini)

Dopo le routine, tocca alle funzioni: la differenza tra una routine e una funzione è che la prima esegue un certo numero di istruzioni, la seconda esegue un certo numero di istruzioni e in più restituisce un valore, che quindi può essere memorizzato in una variabile. L'uso delle funzioni è comodo quando è opportuno sapere quale sia il risultato finale delle operazioni eseguite: ad es., la funzione potrebbe restituire un valore di errore se qualcosa è andato storto durante la sua esecuzione, oppure potrebbe restituire il risultato di un'operazione matematica come quella eseguita dalla routine quadrato che abbiamo visto nella lezione precedente. Per dichiarare una funzione bisogna usare la parola chiave Function al posto di Sub; inoltre è sempre meglio, se possibile, specificare il tipo di dati restituito dalla funzione. Ad es.:

Private Function Quadrato (Param As Integer) As Long
Quadrato=Param ^ 2
Debug.Print Quadrato
End Function

Il valore che la funzione deve restituire deve essere assegnato al nome della funzione:

Quadrato = Param ^ 2

che viene quindi trattato come se fosse una variabile: perciò rispetto alla routine Quadrato (v.lez. precedente) si può fare a meno di dichiarare una variabile locale a cui assegnare il risultato dell'elevamento a potenza. Inoltre, possiamo fare a meno di usare l'istruzione Debug.Print all'interno della funzione, perché il valore che vogliamo visualizzare è quello restituito dalla funzione e quindi è visibile anche all'esterno di essa: nell'evento Load del form, anziché scrivere

Quadrato 2
Quadrato 5
Quadrato 8

possiamo quindi scrivere:

Debug.Print Quadrato(2)
Debug.Print Quadrato(5)
Debug.Print Quadrato(8)

In questo caso è necessario usare le parentesi tonde: queste vanno sempre indicate se si vuole che la funzione restituisca effettivamente un valore; infatti è anche possibile richiamare la funzione senza parentesi:

Quadrato 2

come se fosse una routine, ma non sarà possibile scrivere:

Debug.Print Quadrato 2

perché chiamando la funzione senza usare le parentesi si impedisce che essa restituisca un valore. Lo stesso accade se si chiama la funzione con l'istruzione Call; pertanto mentre una routine può essere chiamata indifferentemente con o senza le parentesi, una funzione deve essere chiamata con le parentesi (ma senza usare l'istruzione Call) affinché restituisca un valore.
Per quanto riguarda il passaggio di parametri, valgono le stesse regole che abbiamo visto per le routine; a questo proposito c'è da sapere un'altra cosa: i parametri possono essere preceduti dalla parola chiave ByVal o ByRef. Queste parole chiave specificano, rispettivamente, che il parametro viene passato per valore o per riferimento: senza entrare troppo nei dettagli, è sufficiente dire che nel primo caso la funzione (o la routine) conosce soltanto il valore della variabile passata come argomento, mentre nel secondo caso conosce, per così dire, la variabile stessa, potendo quindi intervenire direttamente su di essa. Concretamente ciò significa che se la variabile è passata per valore, la funzione (o la routine) potrà eseguire operazioni sul valore della variabile ma non potrà modificarla; se invece la variabile è passata per riferimento, la funzione potrà modificare direttamente la variabile. Per ulteriori dettagli consultare l'articolo COME DICHIARARE LE API

Un esempio chiarirà tutto: creiamo una funzione con due argomenti, uno passato per valore, l'altro per riferimento e facciamo qualche operazione su di essi:

Private Function Prova (ByVal Valore As Integer, ByRef Riferimento As _
Integer) As Integer
Valore = Valore + 1
Riferimento = Riferimento + 1
Prova = Valore + Riferimento
End Function

La funzione non fa altro che incrementare di 1 i due argomenti e restituirne la somma.
Ora dichiariamo, nell'evento Load del form, due variabili e passiamole alla funzione:

Private Sub Form_Load()
Dim Var1 As Integer, Var2 As Integer
Dim Risultato As Integer
Var1 = 3
Var2 = 10
Risultato = Prova(Var1, Var2)
Debug.Print Risultato
Debug.Print Var1, Var2
End Sub

Eseguendo il progetto, noteremo che nella finestra immediata compaiono i valori:

15 è il risultato della funzione ((3+1)+(10+1)=15); la variabile Var1, che è stata passata per valore e che quindi non ha potuto essere stata modificata, conserva il valore che aveva prima della chiamata della funzione, cioè 3; invece Var2, che è stata passata per riferimento, è stata effettivamente modificata durante l'esecuzione della funzione, e infatti dopo la chiamata ha assunto il valore 11, cioè il valore originario più 1.
Se non viene specificata né ByVal né ByRef, Visual Basic penserà automaticamente che la variabile è stata passata per riferimento: questa infatti è l'impostazione predefinita. Un'altra parola chiave che può precedere gli argomenti è Optional: questa specifica che l'argomento seguente non è obbligatorio, e in tal caso è possibile indicare un valore di default che l'argomento deve assumere nel caso in cui l'istruzione chiamante la funzione (o la routine) ometta effettivamente il parametro. Ad es.:

Private Function Prova (A As Integer, Optional B As Integer = 1) As Integer
Prova = A + B
End Function

se nell'evento Load del form scriviamo:

Private Sub Form_Load()
Debug.Print Prova(2)
Debug.Print Prova(2, 3)
End Sub

vedremo nella finestra immediata:

3
5

Nel primo caso, infatti, il parametro B è omesso e quindi assumerà per default il valore 1.

Come per le routine, anche le variabili locali di una funzione possono essere dichiarate Static per indicare che il loro valore viene mantenuto tra una chiamata e l'altra della funzione (v.lez. 2): se si vuole che TUTTE le variabili locali siano statiche, si può dichiarare la funzione in questo modo:

Private Static Function Prova() As Integer
Dim A As String 'variabile statica
Dim B As Long 'variabile statica
End Function

Le variabili locali saranno statiche anche se nella loro dichiarazione non è stata specificata la parola chiave Static.

Archivio:ndexed
Lezioni	Commenta questa lezione	Invia la tua guida	Avviso per le nuove lezioni	Proponi un argomento