Corsi per Webmaster e Web Designer
Corsi on-line

Gli Array

  • Scrivi un commento
  • Discuti sul forum
  • Istruzioni di iterazione
  • Funzioni e Sub

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 String
e 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)

Corsi
  • Corso MS Access
    Corso MS Access
    Impara a creare e gestire database in maniera semplice e veloce. A partire da 29 €
  • Corso Visual Basic 6
    Corso Visual Basic 6
    Realizzare applicazioni Desktop con VB6. A partire da 49 €