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

Problema da Risolvere.

  1. #1
    Alessinho non  in linea Novello
    Post
    23
    Like Inviati  
    0
    Like Ricevuti  
    0
    Il problema il seguente:

    Caricare da tastiera i dati relativi alle valutazioni conseguite dagli alunni in un compito in classe.
    Per ogni compito si dispone dei seguenti dati : Cognome, Nome, Voto Conseguito.
    Comunicare in una Flex Grid i Nomi e i Cognomi degli alunni che saranno impegnati nel recupero, considerando tali le situazioni con voto minore a 6.


    Ora provo a risolverlo, ma ogni altra variante ben accetta .

  2. #2
    AlbertoM non  in linea Scribacchino
    Post
    598
    Like Inviati  
    1
    Like Ricevuti  
    0
    Ciao Alessinho.
    Se stai cercando qualcuno che ti faccia un programma per svolgere il compito che hai esposto, devi postare in un'altra sezione.
    Se ti serve un aiuto devi postare un po' di codice e dire dove non ti funziona o dove hai dei dubbi.
    Comunque:
    Per inserire dei dati in una grid utile farlo da un form con tante TextBox quanti sono i campi da inserire; form provvisto del pulsante 'Conferma' per caricare i dati sulla griglia.
    Bisognerebbe affiancare un DataBase in cui memorizzare i dati per poi gestirli (Modifica record, elimina, aggiungi, ecc) e prevedere un report per la stampa.
    Tutto qui .... e non solo ....
    ℹ️ Leggi di pi su AlbertoM ...

  3. #3
    Alessinho non  in linea Novello
    Post
    23
    Like Inviati  
    0
    Like Ricevuti  
    0
    Io solitamente metto qui gli esercizi che svolgo e, in caso, chiedo su come implementarlo e renderlo pi efficiente.
    Ma se sbaglio sezione ditelo pure.

    Io comunque l'ho risolto cos.

    Private Type Alunni
           Nome As String
           Cognome As String
           Voto As Integer
    End Type
    Dim ArrayAlunni() As Alunni
    Dim N As Integer
    Dim ContFlexGrid As Integer
    Dim i As Integer
    
    Private Sub Form_Load()
    i = 1
    ContFlexGrid = 1
    grdRecupero.Cols = 2
    grdRecupero.Col = 0
    grdRecupero.Row = 0
    grdRecupero.Text = "Nome"
    grdRecupero.Col = 1
    grdRecupero.Row = 0
    grdRecupero.Text = "Cognome"
    btnInserisci.Enabled = False
    btnCalcola.Enabled = False
    End Sub
    
    
    
    Private Sub btnConferma_Click()
    N = Val(txtAlunni.Text)
    ReDim ArrayAlunni(1 To N) As Alunni
    grdRecupero.Rows = N + 1
    btnConferma.Enabled = False
    txtAlunni.Enabled = False
    btnInserisci.Enabled = True
    txtNome.SetFocus
    End Sub
    
    
    
    Private Sub btnInserisci_Click()
    If txtVoto.Text > 10 Then
       MsgBox "Valore non Accettabile"
       Exit Sub
    End If
    ArrayAlunni(i).Nome = txtNome.Text
    ArrayAlunni(i).Cognome = txtCognome.Text
    ArrayAlunni(i).Voto = Val(txtVoto.Text)
    i = i + 1
    txtNome.Text = ""
    txtCognome.Text = ""
    txtVoto.Text = ""
    txtNome.SetFocus
    If i > N Then
       btnInserisci.Enabled = False
       txtNome.Text = ""
       txtNome.Enabled = False
       txtCognome.Text = ""
       txtCognome.Enabled = False
       txtVoto.Text = ""
       txtVoto.Enabled = False
       btnCalcola.Enabled = True
       Exit Sub
    End If
    End Sub
    
    Private Sub btnCalcola_Click()
    For i = 1 To N
        If ArrayAlunni(i).Voto < 6 Then
           grdRecupero.Col = 0
           grdRecupero.Text = ArrayAlunni(i).Nome
           grdRecupero.Col = 1
           grdRecupero.Text = ArrayAlunni(i).Cognome
           ContFlexGrid = ContFlexGrid + 1
           grdRecupero.Row = ContFlexGrid
        End If
    Next i
    
    End Sub
    
    Private Sub btnFine_Click()
    Unload Me
    End Sub
    

  4. #4
    L'avatar di AntonioG
    AntonioG non  in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,502
    Blogs
    5
    Like Inviati  
    6
    Like Ricevuti  
    35
    Quello che probabilmente ti voleva dire Alberto e' che il tuo primo messaggio non era appropriato perche' non poneva alcuna questione di programmazione.

    Il fatto che tu metta il tuo codice in un thread, non e' giusto (non e' una questione di sezione in cui scrivi) perche' non rappresenta un problema di programmazione ...

    Devi postare il tuo codice SOLAMENTE se hai un determinato problema e vuoi un aiuto SPECIFICO.

    E per farlo, devi anche inserire un titolo adeguato (quello che hai inserito non ha molto senso perche' TUTTI in un forum hanno un problema da risolvere ...).

    Dato che in questo momento non mi pare che tu abbia un problema, ritengo che questo tuo thread possa essere chiuso.


    EDIT: riapro il post in modo che si possa avere una indicazione se qualcuno vuol essere cosi' disponibile da fare quello che viene chiesto.
    Ma invito Alessinho in futuro a non aprire piu' thread in cui si presenta codice funzionante e senza problemi specifici ...
    Ultima modifica di AntonioG; 17-12-2007 01:36  Motivo: ...
    ℹ️ Leggi di pi su AntonioG ...

+ 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. aiutatemi a risolvere questo problema urgente
    Da chita nel forum Visual Basic .Net
    Risposte: 1
    Ultimo Post: 23-05-2014, 09:38
  3. Come risolvere questo problema delle OII?
    Da brb nel forum Altri linguaggi e strumenti
    Risposte: 0
    Ultimo Post: 28-06-2012, 18:23
  4. Un saluto e Un problema da risolvere
    Da Giostra nel forum Presentazioni e saluti
    Risposte: 4
    Ultimo Post: 03-08-2009, 19:21
  5. Problema da risolvere su creazione File.
    Da Alessinho nel forum Visual Basic 6
    Risposte: 9
    Ultimo Post: 11-02-2008, 22:45