[VB6] Matrici casuali inizializzate da un modulo

[NeoProgramVB]

Ciao Ragazzi...
ho un piccolo problemino....
HO realizzato un piccolo programma che con un command button si crea una matrice 3x3 casuale...dove ogni numero sta in un textbox.
il prblema sta: Ho creato le variabili in un modulo bas e nel form dove c'è il cmd che mi dovrebbe creare la marice con numeri casuali non riesco a farlo funzionare..cioè..non mi ricordo più il codice...

esempio

Private Sub cmdCreaMatrice_Click()
txt_11.text = ?
End Sub

nel modulo bas le variabili sono le seguenti

Option Explicit
Option Base 1

Public Function Matrice(Dimensione As Single) As Variant
Dim temp() As Single
Dim i As Integer
Dim j As Integer

ReDim temp(i, j) As Single
For i = 1 To Dimensione(i, j)
For j = 1 To Dimensione(i, j)
temp(i, j) = Int(Rnd() * 10)
Next j
Next i
End Function

grazie x chi mi risponde

[kalosjo]

Non ho capito bene il problema. Puoi spiegare meglio?

[NeoProgramVB]

Allora...
ho creato un programmino che mi calcoli una matrice casuale
il sodice nel modulo bas l'ho fatto
peò non riesco a inserirlo nella form.

[oregon]

Non riesci ad inserire il codice nel form?

Copialo !

Oppure non riesci a fare altro ?

Se ti spiegassi un po' meglio ...

[icecube_HT]

Originariamente inviato da NeoProgramVB
Ciao Ragazzi...
ho un piccolo problemino....
HO realizzato un piccolo programma che con un command button si crea una matrice 3x3 casuale...dove ogni numero sta in un textbox.
il prblema sta: Ho creato le variabili in un modulo bas e nel form dove c'è il cmd che mi dovrebbe creare la marice con numeri casuali non riesco a farlo funzionare..cioè..non mi ricordo più il codice...

esempio

Private Sub cmdCreaMatrice_Click()
txt_11.text = ?
End Sub

nel modulo bas le variabili sono le seguenti

Option Explicit
Option Base 1

Public Function Matrice(Dimensione As Single) As Variant
Dim temp() As Single
Dim i As Integer
Dim j As Integer

ReDim temp(i, j) As Single
For i = 1 To Dimensione(i, j)
For j = 1 To Dimensione(i, j)
temp(i, j) = Int(Rnd() * 10)
Next j
Next i
End Function

Quel codice non funziona, prova cosi':

(nel prog. principale)
Private Sub CreaMatrice_Click()
Dim prova() As Single
prova = Matrice(3) 'crea la matrice
Debug.Print prova(1, 1) 'accede al singolo elemento
'.............
End Sub


(nel modulo .bas):
Option Explicit
Option Base 1
Public Function Matrice(N As Integer) As Variant
' restituisce una matrice N x N di Single
Dim temp() As Single
Dim i As Integer, j As Integer
ReDim temp(N, N)
For i = 1 To N
For j = 1 To N
temp(i, j) = (10 * i) + j
Debug.Print i, j, temp(i, j)
Next
Next
Matrice = temp
End Function

[NeoProgramVB]

Grazie mille..funziona..grazie ancora