Salve..
avrei bisogno di un aiuto .. scusatemi se non mi sono presentato, sono nuovo.
sto sviluppando un piccolo eseguibile per un'esercitazione..
In pratica, sfruttando un array bidimensionale (voti) vado a caricare i voti appunto di ogni alunno in ogno materia...
il tutto visualizzato in una flex grid... (presente in un secondo form)
adesso, collocando un menu nel secondo form, devo fare apparire una riga media che calcoli la media per ogni alunno e la faccia apparire nell'ultima colonna....
Non mi dilungo molto, vi allego il sorgente..
Se mi potete dare una mano ne sono molto fiero... .
In allegato la "faccia" dei due form...
primo form
Private Sub cmdCarica_Click()
Dim alunnoP, materiaP As Integer
alunnoP = lstCognomi.ListIndex + 1
materiaP = lstMaterie.ListIndex + 1
voti(alunnoP, materiaP) = txtVoto.Text
MsgBox ("Voto immesso")
End Sub
Private Sub lstCognomi_Click()
txtCognome.Text = lstCognomi.List(lstCognomi.ListIndex)
txtNome.Text = lstNomi.List(lstCognomi.ListIndex)
End Sub
Private Sub lstMaterie_Click()
txtMateria = lstMaterie.List(lstMaterie.ListIndex)
End Sub
Private Sub mnuCaricaAlunni_Click()
For I = 1 To quanti
nomi(I) = InputBox("Carica nomi")
cognomi(I) = InputBox("Carica Cognomi")
Next I
If I > quanti Then MsgBox ("Arrays Caricati")
For I = 1 To quanti
lstNomi.AddItem nomi(I)
lstCognomi.AddItem cognomi(I)
Next I
End Sub
Private Sub mnuCaricaMaterie_Click()
For I = 1 To quante
materie(I) = InputBox("immetti la materia")
lstMaterie.AddItem materie(I)
Next I
End Sub
Private Sub mnuFine_Click()
End
End Sub
Private Sub mnuMostra_Click()
frmscondo.Show
End Sub
Private Sub mnuNumAlunni_Click()
quanti = InputBox("Numero Alunni")
ReDim cognomi(1 To quanti) As String
ReDim nomi(1 To quanti) As String
End Sub
Private Sub mnuNumMaterie_Click()
quante = InputBox("Numero Alunni")
ReDim materie(1 To quante) As String
ReDim voti(1 To quanti, 1 To quante) As Single
End Sub
Private Sub mnuMedia_Click()
GrigliaVoti.Cols = Nummaterie + 3
GrigliaVoti.Row = 0
GrigliaVoti.Text = "Media"
End Sub
secondo form
Private Sub Form_Load()
GrigliaVoti.Rows = quanti + 1
GrigliaVoti.Cols = quante + 1
GrigliaVoti.Col = 0
GrigliaVoti.Row = 0
GrigliaVoti.Text = "Alunni/Materie"
For I = 1 To quanti
GrigliaVoti.Row = I
GrigliaVoti.Col = 0
GrigliaVoti.Text = nomi(I) & " " & cognomi(I)
Next I
For I = I To quante
GrigliaVoti.Row = 0
GrigliaVoti.Col = I
GrigliaVoti.Text = materie(I)
Next I
For k = 1 To quante
For I = 1 To quanti
GrigliaVoti.Row = I
GrigliaVoti.Col = k
GrigliaVoti.Text = voti(I, k)
Next I
Next k
End Sub
Modulo_Griglia
Public nomi() As String
Public cognomi() As String
Public materie() As String
Public voti() As Single
Public I As Integer
Public quanti As Integer
Public quante As Byte
Grazie ancora
