Problema da Risolvere.

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 .

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 ....

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

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 ...