[VB6] - Problema con array e funzioni

[buba88]

C ho un problema che nn riesco a risolvere.
Allora, io ho una funziono che prende un array di double come argomento e restituisce un altro array di double. quando la richiamo, faccio così:

Vettore1 = Funzione(Vettore2)

con questa sintassi però mi da l errore: "Impossibile assegnare alla matrice". Come posso risolvere???

[Mabi]

Risolvi modificando l'array nella procedura.
Ad esempio:

Private Sub Command1_Click()
Dim Arr1(2) As Long
Dim Arr2(2) As String

Arr1(0) = 1&
Arr1(1) = 2&
Arr1(2) = 3&
Call Procedura(Arr1, Arr2)
End Sub

Private Sub Procedura(ByRef Arr1() As Long, ByRef Arr2() As String)
Const AscUno As Long = 48&
Dim Cont1 As Long

For Cont1 = 0& To UBound(Arr1)
  Arr2(Cont1) = Chr(AscUno + Arr1(Cont1))
Next Cont1
End Sub

[buba88]

scusami ma nn ho capito praticamente niente. prima di tutto perchè hai dichiarato un array long e uno string se io devo assegnare il valore di una funzione a un array??????

[Mabi]

Perchè:

Il valore di ciascun elemento di una matrice deve essere assegnato individualmente.

Quindi una funzione non può restituire una matrice.
Per questo motivo se devi ottenere un array (Arr2) da un altro (Arr1) lo devi passare come parametro e assegnare ogni elemento individualmente.

Nel mio esempio ottengo il corrispondente valore stringa di quello numerico (Long).

[buba88]

una funzione può restituire un array, infatti ho risolto.

praticamente quando dichiaravo l array, ne dichiaravo anche la grandezza, ho provato invece a dichiarare la grandezza in seguito e funziona!

nel modulo:

Public Vettore() as Double

Nel form:

Private Sub Form_Load()
ReDim Vettore(40)
End sub

Private Command1_Click()
Vettore = Funzione(Vettore2)
End Sub

[Mabi]

Originariamente inviato da buba88
nel modulo:

Public Vettore() as Double

Nel form:

Private Sub Form_Load()
ReDim Vettore(40)
End sub

Private Command1_Click()
Vettore = Funzione(Vettore2)
End Sub

Non riesco ad intuirne il funzionamento...
E' completo ?

[buba88]

no nn è completo era solo un esempio per far capire cosa mi serviva

[xegallo]

fuction Funzione1 (byref x()as tipo) as tipo()
   'elaborazioni varie

   funzione1 = x()
end function

per richiamarla

dim a() as tipo
dim b() as tipo

   a() = funzione1(b())