Gli Array
Si definisce Array un agglomerato di dati, statici o dinamici, archiviati in una variabile speciale in forma tabellare.
Un classico esempio di Array è rappresentato dai giorni della settimana, ma vediamo prima un esempio sintattico teorico:
Dim nome_array(numero_elementi)
nome_array(0) = "valore"
nome_array(1) = "valore"
nome_array(2) = "valore"
Si crei un nuovo EXE standard e si inserisca una Label di nome lblArr da ingrandire come nell'esempio del capitolo precedente, ed un bottone di comando da chiamare cmdArr.
Si inserisca nella porzione generale il seguente codice
Option Explicit Dim settimana(7) As Stringe nella Sub il seguente codice:
Private Sub cmdArr_Click()
settimana(0) = "Lunedi"
settimana(1) = "Martedi"
settimana(2) = "Mercoledi"
settimana(3) = "Giovedi"
settimana(4) = "Venerdi"
settimana(5) = "Sabato"
settimana(6) = "Domenica"
' Qui sotto richiameremo l'Array
End Sub
Ampliamo il codice con questa riga, da inserire sotto al commento:
Debug.Print settimana(5)Il risultato sarà Sabato perchè si è puntato all'indice equivalente. Si inserisca poi, al posto della precedente riga, il seguente codice:
Dim i As Integer
i = 0
For i = 0 To UBound(settimana)
lblArr.Caption = lblArr.Caption & settimana(i) & vbCrLf
Next
Dichiaro al volo una variabile che imposto come contatore ed effettuo un ciclo sulla lunghezza dell'Array
UBound(settimana)restituisce la lunghezza di un Array. Stampo poi a video il risultato passando all'Array la variabile che fa da contatore che, come abbiamo visto nel capitolo precedente, assume un valore differente ad ogni iterazione del ciclo
settimana(i)equivale a scrivere
lblArr.Caption = "" lblArr.Caption = lblArr.Caption & settimana(0) lblArr.Caption = lblArr.Caption & settimana(1) lblArr.Caption = lblArr.Caption & settimana(2) lblArr.Caption = lblArr.Caption & settimana(3) lblArr.Caption = lblArr.Caption & settimana(4) lblArr.Caption = lblArr.Caption & settimana(5) lblArr.Caption = lblArr.Caption & settimana(6)
