Istruzioni di controllo
Per istruzione intendiamo qualsiasi unità con sintassi completa, la quale esprime un tipo di:
- azione;
- dichiarazione o definizione;
- Istruzioni di dichiarazione - le abbiamo già viste a proposito dell'argomento sui tipi di dati, variabili, costanti;
- Istruzioni di assegnazione - sono istruzioni le quali permettono di assegnare valori o espressioni ad una variabile o costante;
- Istruzioni eseguibili - sono particolari istruzioni che inizializzano operazioni. Concretamente sono rappresentate da un metodo, funzione e possono eseguire spostamenti ciclici o passaggi tra blocchi di codice.
Ecco perchè a tal proposito annoveriamo:
- Istruzioni condizionali;
- Istruzioni per implementare i cicli.
Condizioni, che si sostanziano sottoforma di espressioni, e combinate con:
- operatori relazionali o di confronto;
- operatori logici And Or Not.
If <espressione> Then
Azione 1
Azione 2
...
Azione N
Else
Azione 1
Azione 2
...
Azione N
End If
Questo costrutto è quello completo. Nel caso in cui non dovessimo eseguire nessun blocco di istruzioni, quando la condizione non viene verificata, allora si chiude il blocco di codice, dopo il Then, sempre con End If.
Nell'ipotesi di dover eseguire molti test di uguaglianza sul valore di una particolare variabile, utilizzeremo un'istruzione condizionale a scelta multipla. Stiamo parlando di Select Case.
La sintassi completa di questo costrutto è:
Select Case <variabile>
Case 1:
Azione 1
Azione 2
...
Azione N
Case 2:
Azione 1
Azione 2
...
Azione N
Case Else:
Azione 1
Azione 2
...
Azione N
End Select
L'altra sintassi del costrutto Select Case è:
Select Case <variabile>
Case 1 TO 10
...
Case 11 to 20
...
Case Else
...
End Select
Nella programmazione di codice con VBA, sovente capita anche di dover eseguire un blocco di codice più volte. In questo caso occorre racchiudere quel blocco di codice all'interno di un ciclo.
Ci sono diverse tipologie di cicli, ma sono tutti caratterizzati da:
- una variabile iniziale, che ha la funzione di contare il numero di volte in cui il blocco di codice viene eseguito;
- si fissa una condizione per mezzo della quale, si possa ritenere concluso il ciclo, o bisogna continuare a ripeterlo.
- Ciclo For... Next
- Do... Loop in tutte le sue varianti
- For Each...Next utile nella programmazione ad oggetti, della quale si parlerà negli ultimi paragrafi di questa guida. In sostanza questo costrutto è utile per ripetere un blocco di istruzioni per ogni oggetto o insieme;
For ct = valore iniziale to valore finale
Azione 1
Azione 2
...
Azione N
Next ct
In questo ciclo verrà incrementato unitariamente la variabile contatore ct (variabile iniziale). Si uscirà da questo ciclo for solo e solo quando la variabile iniziale, dopo successivi incrementi, raggiungerà il valore finale fissato o espresso attraverso una variabile.
Il ciclo For..Next viene utilizzato quando sappiamo a priori quante volte dobbiamo eseguire un ciclo. Nel caso non dovessimo saperlo (caso molto frequente), allora si dovrà utilizzare il ciclo Do...Loop.
Presentiamo la sua sintassi con un esempio applicativo. Dobbiamo contare in modo indefinito il numero di volte in cui verrà eseguito il blocco di istruzioni.
Dim Risp as String
Dim Ct as Integer
Risp="S"
Do While Risp="S"
Ct=Ct+1
Risp=Inputbox("Vuoi uscire dal ciclo S/N")
Loop
Msgbox("Numero di volte eseguito:" & Ct)
- E' stata inizializzata la variabile Risp di tipo stringa con il valore "S", in modo che il blocco di codice racchiuso tra Do While... Loop possa essere eseguito;
- Viene incrementato unitariamente il valore della variabile ct;
- Viene acquisita, tramite l'istruzione Inputbox, la scelta dell'utente di eseguire o meno il blocco di codice definito;
- Nel caso la variabile Risp sia uguale ancora al valore inizializzato il ciclo viene rieseguito;
Il blocco di codice racchiuso sarà eseguito per vero, ossia solo se, ad ogni inizio ciclo, la variabile Risp sia sempre uguale ad "S".
Nel caso in cui la variabile Risp non sia uguale ad "S", già prima di entrare nel ciclo, allora non verrà eseguito neanche una volta.
Presentiamo la seconda variante del ciclo Do...Loop, ossia Do..Loop Until <condizione>
Dim Risp As String
Dim Ct as Integer
Do
ct=ct+1
Risp=Inputbox("Vuoi uscire dal ciclo S/N:")
Loop Until Risp="N"
Msgbox("Numero di volte eseguito:" & ct)
Rispetto alla prima versione la condizione è stata collocata all'uscita del ciclo (vedi Loop Until...). Il blocco di codice viene eseguito finchè la condizione di uscita non diventi True.Usciti dal ciclo (quando finalmente l'utente sceglierà di non eseguirlo più) sapremmo sempre il valore di ct quanto vale.
E' possibile uscire anticipatamente da un ciclo impostato in questo modo, utilizzando l'istruzione Exit Do.
