Dark_Sephirot86
26-12-2005, 20:47
Sono da poco alle prese con le matrici dinamiche (a scuola non abbiamo fatto neanche quelle statiche...), e sno già incappato in un problema
Private Sub btm_inserisci_Click()
Dim NEquazioni As Integer
Dim I As Integer
Dim J As Integer
Dim Moltiplicatore As Integer
NEquazioni = Val(lbl_eq.Caption)
ReDim MatriceDet(1 To NEquazioni, 1 To NEquazioni) As Single
ReDim VettoreV(1 To NEquazioni) As Single
ReDim VettoreO(1 To NEquazioni) As Single
For J = 0 To NEquazioni
lst_1(J).Clear
Next J
For I = 1 To NEquazioni
For J = 0 To NEquazioni
lst_1(J).AddItem Val(InputBox("Inserisci un coefficiente"))
Next J
Next I
For I = 0 To NEquazioni - 1
For J = 1 To NEquazioni
MatriceDet(I, J) = Val(lst_1(I).List(J))
Next J
Next I
For I = 1 To NEquazioni
For J = I To NEquazioni
VettoreV = lst_1(I).List(J)
Next J
For J = I To NEquazioni
VettoreO = lst_1(J).List(I)
Next J
Next I
End Sub
*scusate, non so come mettere i codici
Chiaramente è solo una bozza. Appena lo avvio mi dice: Impossibile assegnare alla matrice, e mi evidenzia questo:
VettoreV = lst_1(I).List(J)
Che può essere?
Private Sub btm_inserisci_Click()
Dim NEquazioni As Integer
Dim I As Integer
Dim J As Integer
Dim Moltiplicatore As Integer
NEquazioni = Val(lbl_eq.Caption)
ReDim MatriceDet(1 To NEquazioni, 1 To NEquazioni) As Single
ReDim VettoreV(1 To NEquazioni) As Single
ReDim VettoreO(1 To NEquazioni) As Single
For J = 0 To NEquazioni
lst_1(J).Clear
Next J
For I = 1 To NEquazioni
For J = 0 To NEquazioni
lst_1(J).AddItem Val(InputBox("Inserisci un coefficiente"))
Next J
Next I
For I = 0 To NEquazioni - 1
For J = 1 To NEquazioni
MatriceDet(I, J) = Val(lst_1(I).List(J))
Next J
Next I
For I = 1 To NEquazioni
For J = I To NEquazioni
VettoreV = lst_1(I).List(J)
Next J
For J = I To NEquazioni
VettoreO = lst_1(J).List(I)
Next J
Next I
End Sub
*scusate, non so come mettere i codici
Chiaramente è solo una bozza. Appena lo avvio mi dice: Impossibile assegnare alla matrice, e mi evidenzia questo:
VettoreV = lst_1(I).List(J)
Che può essere?