Ciao a tutti
a scuola mi hanno dato questo codice da capire l'uso dei file.
Però non riesco a capire cosa fa la prima parte del codice.
Private Type studente
nominativo As String * 25
età As Integer
End Type
Dim n, filenum As Integer
Dim alunno As studente
Dim vettore(1 To 100) As studente
Private Sub cmdesegui_Click()
Dim i As Integer
filenum = FreeFile
Open app.Path & "\studenti.dat" For Input As filenum
i = 1
Do
Input #1, alunno.nominativo, alunno.età
vettore(i).nominativo = alunno.nominativo
vettore(i).età = alunno.età
i = i + 1
Loop Until (i > 20) Or (EOF(filenum))
Close #1
n = i - 1
Call ordina(vettore, n)
i = 0
For i = 1 To n
Txttabella.Text = Txttabella.Text & vettore(i).nominativo & vettore(i).età & vbCrLf
Next i
Open app.Path & "\studenti2.dat" For Output As filenum
For i = 1 To n
alunno.nominativo = vettore(i).nominativo
alunno.età = vettore(i).età
Write #filenum, alunno.nominativo, alunno.età
Next i
Close #filenum
End Sub
Private Sub ordina(ByRef v() As studente, ByVal k As Integer)
Dim i As Integer
Dim app As studente
Dim ordinato As Boolean
Do
ordinato = True
For i = 1 To k - 1
If v(i).età > v(i + 1).età Then
app = v(i)
v(i) = v(i + 1)
v(i + 1) = app
ordinato = False
End If
Next i
Loop Until ordinato
End Sub
Grazie per l'aiuto
