Per adesso ho fatto questo :
Dim Nome, Cognome, NomeFile as String
Dim Peso, Contaalunni, TotPeso as Integer
Dim PesoMedio as Single
Private Sub BtnApri_Click ()
'Apertura del File
NomeFile = txtNomeFile.text
On Error go to Errore
NumFile = FreeFile
Open NomeFile For Output As #NumFile
txtNome.setfocus
Exit Sub
Private Sub btnInserisci_Click ()
'Scrittura dei dati sul File
On Error Go to Errore
Nome = txtNome.text
Cognome = txtCognome.text
Peso = Val(txtPeso.text)
Contaalunni = Contaalunni + 1
TotPeso = TotPeso + Peso
Print #NumFile, Nome, Cognome, Peso
txtNome.text = ""
txtCognome.text = ""
txtPeso.text = ""
txtNome.setfocus
Exit Sub
Errore :
MsgBox "Errore" & Str.(Err.Number) & "" & Err.Description,_vbOkOnly, "Apertura del File"
End Sub
Private sub btnCalcola_click ()
PesoMedio = TotPeso \ Contaalunni
txtPesoMedio.text = cstr(PesoMedio)
End Sub
rivate Sub btnVisualizza_click ()
On Error go to Errore
lstCognomi.Clear
Do while not Eof (NumFile)
Line Input #NumFile, Cognome
lstCognomi.AddItem Cognome
Loop
Exit Sub
Errore : MsgBox "Errore" & Str(Err.Number) & "" & Err.Description, _vbOkOnly, "Lettura"
End Sub
Errore :
MsgBox "Errore" & Str.(Err.Number) & "" & Err.Description, _vbOkOnly, "Apertura del File"
End Sub
Private Sub btnChiudi_click ()
On Error go to Errore
Close #NumFile
End
Exit Sub
Errore :
MsgBox "Errore" & Str(Err.Number) & "" & Err.Description , _vbOkOnly, "Chiusura del File"
End Sub
Che dite?