+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 10 su 10

Problema da risolvere su creazione File.

  1. #1
    Alessinho non è in linea Novello
    Post
    23
    Like Inviati  
    0
    Like Ricevuti  
    0
    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?

  2. #2
    L'avatar di Brontolo
    Brontolo non è in linea Very Important Person
    Post
    3,134
    Like Inviati  
    5
    Like Ricevuti  
    5
    Beh, una soluzione potrebbe essere.... scrivere un programma . Perché non inizi ?

  3. #3
    AlbertoM non è in linea Scribacchino
    Post
    598
    Like Inviati  
    1
    Like Ricevuti  
    0
    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
    ℹ️ Leggi di più su AlbertoM ...

  4. #4
    Alessinho non è in linea Novello
    Post
    23
    Like Inviati  
    0
    Like Ricevuti  
    0
    Io adesso sto iniziando a ragionare sul codice. Poi lo scrivo e mi dite che ne pensate e dove si può implementare.

  5. #5
    Alessinho non è in linea Novello
    Post
    23
    Like Inviati  
    0
    Like Ricevuti  
    0
    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?
    Ultima modifica di Alessinho; 10-02-2008 21:44 

  6. #6
    L'avatar di gibra
    gibra non è in linea Very Important Person
    Post
    6,235
    Like Inviati  
    20
    Like Ricevuti  
    11
    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!
    ℹ️ Leggi di più su gibra ...

  7. #7
    Alessinho non è in linea Novello
    Post
    23
    Like Inviati  
    0
    Like Ricevuti  
    0
    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'è?

  8. #8
    L'avatar di gibra
    gibra non è in linea Very Important Person
    Post
    6,235
    Like Inviati  
    20
    Like Ricevuti  
    11
    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.
    ℹ️ Leggi di più su gibra ...

  9. #9
    L'avatar di Brontolo
    Brontolo non è in linea Very Important Person
    Post
    3,134
    Like Inviati  
    5
    Like Ricevuti  
    5
    Un'altra osservazione sulla dichiarazione delle variabili: siccome hai detto che i pesi sono espressi in grammi probabilmente la variabile TotPeso, dichiarata Integer, è piccola.


  10. #10
    Alessinho non è in linea Novello
    Post
    23
    Like Inviati  
    0
    Like Ricevuti  
    0
    Sai che non l'avevo notato?! Grazie :9

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Problema Java da risolvere
    Da dauphin nel forum Java
    Risposte: 1
    Ultimo Post: 25-01-2015, 16:33
  2. Come risolvere questo problema delle OII?
    Da brb nel forum Altri linguaggi e strumenti
    Risposte: 0
    Ultimo Post: 28-06-2012, 18:23
  3. Un saluto e Un problema da risolvere
    Da Giostra nel forum Presentazioni e saluti
    Risposte: 4
    Ultimo Post: 03-08-2009, 19:21
  4. File risorse danneggiato Come risolvere?
    Da idaret nel forum Visual Basic .Net
    Risposte: 14
    Ultimo Post: 01-05-2009, 13:24
  5. Problema da Risolvere.
    Da Alessinho nel forum Visual Basic 6
    Risposte: 3
    Ultimo Post: 16-12-2007, 22:22