PDA

Visualizza la versione completa : [VB6] Help ME!


Mario113
17-03-2010, 15:22
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

LeleFT
17-03-2010, 15:26
C'Ŕ un regolamento interno (http://forum.html.it/forum/showthread.php?s=&threadid=973887) (secondo link in rilievo) che va letto e rispettato.
Titoli, modalitÓ di posting del codice, ecc.

In secondo luogo, c'Ŕ un forum per tutti i linguaggi VB: VisualBasic e .NET Framework.

Prima di aprire una nuova discussione nel forum indicato, leggi il regolamento interno.


Ciao. :ciauz:

Loading