Problema da risolvere su creazione File.

Ho questo problema da risolvere :

"Crea file di testo dove vengono archiviati i nomi, i cognomi, i pesi espressi in grammi dei componenti di una classe. Successivamente mostra tutti i cognomi presenti in archivio e alla fine comunica il peso medio"

Voi come lo risolvereste?

Beh, una soluzione potrebbe essere.... scrivere un programma . Perché non inizi ?

Ciao Alessinho.

Voi come lo risolvereste?

Secondo me non è corretto in un Forum come questo porre le domande in tal modo.
Al limite dovresti dire: ".... io credo di dover fare così (vedi codice allegato), ma non so se va bene..."

Comunque prova a:
in un Form inserisci tante TextBox quanti sono i campi da inserire,
una Griglia per visualizzare i dati

Fai in modo che con un click su una riga della Griglia si attivi una routine per modificare o eliminare un record.

Aggiungi un pulsante per aggiungere un record, uno per eliminare un record ed uno per confermare i dati inseriti e per aggiornare il file di testo e la griglia.

La griglia viene riempita da codice all'apertura dell'applicazione.

Se vuoi aggiungere un record clicchi sul pulsante "Nuovo Record" che ti attiverà le caselle di testo. Alla fine si premerà il pulsante "Conferma" per aggiornare tutto.

Se vuoi modificare un record\campo, al click sulla griglia carichi i valori delle celle nelle TextBox relative, alla fine delle modifiche premi "Conferma" per aggiornare tutto.

Se vuoi eliminare un record dopo aver selezionato una riga della griglia premi il pulsante "Elimina Record" che attiverà una msgBox di conferma, al cui "SI" seguirà l'eliminazione del record e l'aggiornamento del file e della griglia
........ecc, ecc.

Nel Forum trovi molte discussione sull'uso dei file di testo e di tutto ciò di cui sopra.
Ciao e buon lavoro.

P.S. Per fare la media fai la somma di tutti i valori diviso il numero dei record (se ci sono 10 record: (peso 1 + peso 2...+ peso 10)/10

Io adesso sto iniziando a ragionare sul codice. Poi lo scrivo e mi dite che ne pensate e dove si può implementare.

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?

Funziona ?

Piccolo suggerimento, le dichiarazioni vanno esplicitate. Nel tuo caso, invece

Dim Nome, Cognome, NomeFile as String

non è come sembra, infatti così hai dichiarato:
- Nome As Variant
- Cognome As Variant
- NomeFile As String

la dichiarazione corretta è invece

 
Dim Nome As String, Cognome As String, NomeFile As String

Facci sapere se funziona!

Sisi, le dichiarazioni messe consecutive sono solo per guadagnare spazio. Nel codice le metto incolonnate.
Però non ho visual basic, non posso provarlo.

A proposito, una domanda poco poco Ot = ma visual basic per Windows vista c'è?

Visual Basic non è dedicato ad un solo sistema operativo
quindi va anche su Vista, solo che bisogna installarlo da amministratore, e non da utente standard.

Un'altra osservazione sulla dichiarazione delle variabili: siccome hai detto che i pesi sono espressi in grammi probabilmente la variabile TotPeso, dichiarata Integer, è piccola.

Sai che non l'avevo notato?! Grazie :9