Newsgroup: it.comp.lang.visual-basic
Titolo: Passaggio di Matrici??

Ciao a tutti!!
Volevo chiedere se sia possibile passare as una funzione una matrice di
valori!!
Ciao e grazie.
-- 
Posted from  [212.141.223.50] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ovviamente! ;)
Ciao.


 wrote in message
news:9opin7$duqdb$1...@ID-52601.news.dfncis.de...

Grazie ma potresti farmi vedere come???


Grazie ma potresti farmi vedere come???
Function CalcSum(ByVal FirstArg As Integer, ParamArray OtherArgs())
Dim ReturnValue 
' If the function is invoked as follows:
ReturnValue = CalcSum(4, 3 ,2 ,1)
' Local variables are assigned the following values: FirstArg = 4,
' OtherArgs(1) = 3, OtherArgs(2) = 2, and so on, assuming default
' lower bound for arrays = 1.
Preso pari pari pari da... Function -> F1
Forse era questo che intendeva zerodefex...
Ciao,
Moreno
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

Option Explicit
Private Sub Command1_Click()
    Dim vVar(3) As Variant
    Let vVar(0) = 1
    Let vVar(1) = "Pippo"
    Let vVar(2) = Date
    Call fnShowVar(vVar)
End Sub
Private Sub fnShowVar(vValue() As Variant)
    MsgBox vValue(0) & " - " & vValue(1) & " - " & vValue(2)
End Sub
Saluti,


 valori!!
Si. Ecco l'esempio:
Private Sub Form_Load()
   Dim aArray(10) As Long
   Call Pippo(aArray())
End Sub
Private Function Pippo(aArray() As Long) As Boolean
   ' qui puoi usare l'array
   MsgBox aArray(10)
End Function
Ciao
*Roby*

Function CalcSum(ByVal FirstArg As Integer, ParamArray OtherArgs())
Ops.... ho letto male, sorry...


Scusate ma mi sono spiegato malissimo!!
Il mio array e' bidimensionale!!Dunque per passarlo alla funzione metto il nome
dell'array senza
parentesi ma Vb mi dice che non e' possibile mettere un Array Bidimensionale in
uno monodimensionale!!!
Nel Form l'Array e' dichiarato "Dim matrix(10, 10) As String" mentre nella 
funzione "Dim matrix as string"!!!!!!!!!
La mia soluzione sarebbe di passare un variant alla funzione con "Distesa"
dentro la mia matrice!!!
Avete altre soluzioni????Se si' quali???
Scusate ma l'ignoranza a casa mia la fa' da padrona!!!!!!!


 metto il nome dell'array senza parentesi
E perchè?
Ecco l'esempio di prima debitamente corretto:
Private Sub Form_Load()
   Dim aArray(10, 10) As Long
   Call Pippo(aArray())
End Sub
Private Function Pippo(aArray() As Long) As Boolean
   ' qui puoi usare l'array
   MsgBox aArray(10, 10)
End Function
Ciao
*Roby*

Option Explicit
Private Sub Command1_Click()
    Dim vVar(3, 2) As Variant
    Let vVar(0, 0) = 1
    Let vVar(1, 1) = "Pippo"
    Let vVar(2, 1) = Date
    Call fnShowVar(vVar)
End Sub
Private Sub fnShowVar(vValue() As Variant)
    MsgBox vValue(0, 0) & " - " & vValue(1, 1) & " - " & vValue(2, 1)
End Sub


Scusate ma l'ignoranza a casa mia la fa' da padrona!!!!!!!
ehi! Siamo coinquilini! :-))


 Grazie ma potresti farmi vedere come???
Non so se e' detto esplicitamente nella guida comunque un suggerimento
arriva dalle parentesi in questo passaggio:
"La sintassi dell'argomento 'elencoargomenti' è composta dalle seguenti
parti:
[Optional] [ByVal|ByRef] [ParamArray] nomevariabile[()] [As tipo]
[=valorepredefinito]"
in sostanza quindi e' sufficiente dichiarare il parametro cosi':
Sub Prova(ArrayValori() As Long)
End Sub
e chiamare la routine cosi':
'l'array puo' essere fisso o dinamico, indipendentemente
'dal prototipo della funzione
Dim AltroArray(0 to 9) As Long
Prova AltroArray 'senza parentesi!
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett Brown