Matrici Dinamiche (era: matrici e if ..then)

[alchimista84]

salve, vorrei un piccolo ragguaglio sulle matrici ... mi servirebbe sapere come
si possono creare matrici "durante l'esecuzione" e non prima! mi spiego, date due
variabili in input (x,y) vorrei creare una matrice mat(x,y) ... è possibile?
io ho provato con il seguente code ma mi da errore:

private sub cmd1_click()
x = inputbox("")
y=inputbox("")
dim mat(x,y)
end sub

per ovviare a questo ho pensato di inserire dei cicli if ... ma ...questa volta non posso
inserire la matrice "cab" più volte, ma in diversi if, poichè mi da errore!


Private Sub Command1_Click()

If (v = 5) And (r = 3) Then
Dim cab(3, 8) As Integer
End If

If (v = 5) And (r = 2) Then
Dim cab(2, 7) As Integer
End If

If (v = 4) And (r = 3) Then
Dim cab(3, 7) As Integer
End If

If (v = 4) And (r = 2) Then
Dim cab(2, 6) As Integer
End If

If (v = 3) And (r = 3) Then
Dim cab(3, 6) As Integer
End If

If (v = 3) And (r = 2) Then
Dim cab(2, 5) As Integer
End If

End Sub

[xegallo]

dichiari la matrice
dim Matrice() as tipo_di_dato
e poi la ridimensioni
così

redim Matrice(x[,...]) as tipo_di_dato

[alchimista84]

mi da errore per matrice già dimensionata .. con il seguente code:

Dim Matrice(100, 100) As Integer





Private Sub Command1_Click()
If (v = 5) And (r = 2) Then
ReDim Matrice(v, r) As Integer
End If
End Sub


premetto che v e r sono acquisiti in un precedente form

[xegallo]

infatti non hai fatto come ti ho detto

[alchimista84]

help!!
come dovrei fare, scusa?

[alchimista84]

se faccio così ... mi dice tipo non corrispondente!!

e dai help!!!

Dim Matrice() As Integer
Private Sub Command1_Click()
If (v = 5) And (r = 3) Then
ReDim Matrice(v, r) As Integer
End If

f = 0
For i = 1 To 3
For j = 1 To 8
Matrice(i, j) = a(f)
f = f + 1
Next
Next

For i = 1 To 3
For j = 1 To 8
Print Matrice(i, j)
Next
Next
End Sub

[xegallo]

ammettendo che a(f) restituisca un valore integer
dimensioni la matrice
matrice(5,3)
e poi vuoi trovare la posizione
matrice(3,8)

difficile che esista non credi?

[alchimista84]

:tongue:

[alchimista84]

l'errore c'è ancora ... sigh!1

Dim Matrice() As Integer
Private Sub Command1_Click()
If (v = 5) And (r = 3) Then
ReDim Matrice(3, 8) As Integer
End If

f = 0
For i = 1 To 3
For j = 1 To 8
è qui --> Matrice(i, j) = a(f)
f = f + 1
Next
Next

For i = 1 To 3
For j = 1 To 8
Print Matrice(i, j)
Next
Next
End Sub

[xegallo]

Originariamente inviato da alchimista84
l'errore c'è ancora ... sigh!1


è qui --> Matrice(i, j) = a(f)

ammettendo che a(f) restituisca un valore integer