Vettori di record
Usando i record, una delle possibilità più interessanti è dichiarare un vettore di record. Facendo riferimento al tipo Studente definito nella precedente scheda, si consideri il seguente programma:
Dim Studenti(1000) As Studente
Dim cont As Integer
Private Sub cmdInserisci_click()
If cont > 999 Then
MsgBox "Vettore pieno!"
End If
Studenti(cont).Nome = txtNome.text
Studenti(cont).Cognome = txtCognome.text
Studenti(cont).Eta = Val(txtEta.text)
Studenti(cont).Classe = txtClasse.text
cont = cont + 1
End Sub
In questo programma i dati relativi a ogni studente inserito non vengono immediatamente salvati su file, ma vengono prima scritti in un vettore di record di nome Studenti. Ogni elemento del vettore Studenti è una variabile di tipo Studente. Ecco come sarebbe possibile salvare su un file l'intero contenuto del vettore di record:
Private Sub cmdSalva_Click()
Dim i As Integer
Open "studenti.txt" For Output As #1
For i=0 to cont
Print #1, Studenti(i).Nome
Print #1, Studenti(i).Cognome
Print #1, Cstr(Studenti(i).Eta)
Print #1, Studenti(i).Classe
Next i
Close #1
End Sub
precedente - successiva
Sito realizzato in base al template offerto da
http://www.graphixmania.it