Funzione che ritorna due variabili

[vuott]

http://foro.gambas-es.org/viewtopic.php?f=5&t=5147

[Gianluigi]

Scusa ma non dovrebbe essere così:

Codice: [Seleziona]

Public Sub Form_Open()

  Dim frutas, fecula As New String[]
  Dim fr_fe As String[][]
  Dim i As Integer, s As String

    fr_fe = Ad_Functionem()
    
    For i = 0 To fr_fe[0].Max
      s = fr_fe[0][i]
      Print s
    Next
    Print "==============="
    For i = 0 To fr_fe[1].Max
      s = fr_fe[1][i]
      Print s
    Next
    

End


Private Function Ad_Functionem() As String[][]
  
  Dim FruFec As New String[][]
  Dim Fru As New String[]
  Dim Fec As New String[]
  

   With Fru
     .Push("manzana")
     .Push("pera")
     .Push("higo")
   End With
   ' 
   With Fec
     .Push("arróz")
     .Push("fideos")
   End With
    FruFec = [Fru, Fec]

   Return FruFec

 

[vuott]

Scusa ma non dovrebbe essere così

Non lasciarti ingannare dal mio esempio fatto nel forum spagnolo: così come l'ho scritto, può andare bene la tua modifica, ma........  se la sub-Funzione prevedesse che le si debbano passare deile variabili vettoriali in tutto o in parte già istanziate ?   

[Gianluigi]

D'accordo a passare le array se devi anche passare dei dati e farli completare, ma allora dovevi mettere il ciclo come ho fatto io altrimenti non leggi tutti i dati di ritorno.
Comunque io quello che so sulle matrici dinamiche lo devo a te avendolo letto sulla nostra wiky e un po anche a Tobias.
  volevo mettere il link alla lezione sulle array di array ma non le trovo più, le devi cambiare o sono io che non trovo più l'acqua in mare?
A te l'onore dei link se li trovi, comunque qui un idea l'abbiamo data. 
Questo dovrebbe essere giusto:

Codice: [Seleziona]

Public Sub Form_Open()

  Dim frutas, fecula As New String[]
  Dim fr_fe As String[][]
  Dim i As Integer, s As String

    frutas.Add("Melone")
    fecula.Add("Spaghetti")
    
    fr_fe = Ad_Functionem(frutas, fecula)
    
    For i = 0 To fr_fe[0].Max
      s = fr_fe[0][i]
      Print s
    Next
    Print "==============="
    For i = 0 To fr_fe[1].Max
      Print fr_fe[1][i]
      'Print s
    Next    

End


Private Function Ad_Functionem(Fru As String[], Fec As String[]) As String[][]
  
  Dim FruFec As New String[][]
  ' Dim Fru As New String[]
  ' Dim Fec As New String[]
  

   With Fru
     .Push("manzana")
     .Push("pera")
     .Push("higo")
   End With
   ' 
   With Fec
     .Push("arróz")
     .Push("fideos")
   End With
   FruFec = [Fru, Fec]
   Return FruFec

End

Sbaglio o la formattazione del codice è andata a pallino?
 

[vuott]

dovevi mettere il ciclo come ho fatto io altrimenti non leggi tutti i dati di ritorno.

   

[Gianluigi]

Intendevo questo:

Codice: [Seleziona]

Public Sub Form_Open()

  Dim frutas, fecula As New String[]
  Dim fr_fe As String[][]
  
    frutas.Add("Mela")
    fecula.Add("Spaghetti")

    fr_fe = Ad_Functionem(frutas, fecula)
    
    Print fr_fe[0][0]
    Print fr_fe[0][1]
    Print fr_fe[0][2]
    Print
    Print fr_fe[1][0]
    Print fr_fe[1][1]

End


Private Function Ad_Functionem(mxFrutas As String[], mxFecula As String[]) As String[][]
  
  Dim FruFec As New String[][]

   With mxFrutas
     .Push("manzana")
     .Push("pera")
     .Push("higo")
   End With

   With mxFecula
     .Push("arróz")
     .Push("fideos")
   End With
    
    FruFec = [mxFrutas, mxFecula]

   Return FruFec

End

Devi mettere un ciclo altrimenti dovresti sapere a priori quante voci devi leggere.
 

[vuott]

Devi mettere un ciclo altrimenti dovresti sapere a priori quante voci devi leggere.

...ma non necessariamente se si descrive un codice esemplificativo-didattico.   

[Gianluigi]

Devi mettere un ciclo altrimenti dovresti sapere a priori quante voci devi leggere.

...ma non necessariamente se si descrive un codice esemplificativo-didattico.   

  

Però non mi hai detto dove sono finite le lezioni