Differenze tra le versioni di "Uso delle Strutture tra Classi e Moduli"

Da Gambas-it.org - Wikipedia.
 
(14 versioni intermedie di uno stesso utente non sono mostrate)
Riga 5: Riga 5:
 
==Passaggio della variabile attraverso i parametri di una chiamata a funzione==
 
==Passaggio della variabile attraverso i parametri di una chiamata a funzione==
 
I valori, contenuti in una variabile del tipo della Struttura dichiarata, possono essere passati ad un'altra ''Classe'' passando a quest'ultima la variabile medesima.
 
I valori, contenuti in una variabile del tipo della Struttura dichiarata, possono essere passati ad un'altra ''Classe'' passando a quest'ultima la variabile medesima.
<BR>Si dovrà, però, avere l'accortezza di <U>ripetere la medesima Struttura - come già dichiarata nella Classe principale - anche nelle Classi ove questa dovrà essere richiamata, confermandone precisamente anche il nome.
+
<BR>Si dovrà, però, avere l'accortezza di <U>ripetere la medesima Struttura</u> - <U>come già dichiarata nella Classe principale</u> - <U>anche nelle Classi ove questa dovrà essere richiamata, confermandone precisamente anche il nome</u>.
<BR>Il nome della variabile del tipo della Struttura della Classe secondaria potrà, invece, essere diverso dalla variabile della Classe principale.
+
<BR>Anche i membri della Struttura, dichiarata nella Classe secondaria, <U>dovranno avere i medesimi nomi</u> dei membri della corrispondente Struttura dichiarata nella Classe principale
 +
<BR>Il nome della <U>variabile</u> del tipo della Struttura della Classe secondaria potrà, invece, essere diverso dalla variabile della Classe principale.
 
<BR>Poiché tutte le classi sono in realtà completamente indipendenti durante il processo di compilazione, l'interprete verificherà in fase di esecuzione che la stessa Struttura è sempre dichiarata nello stesso modo in tutte le classi.
 
<BR>Poiché tutte le classi sono in realtà completamente indipendenti durante il processo di compilazione, l'interprete verificherà in fase di esecuzione che la stessa Struttura è sempre dichiarata nello stesso modo in tutte le classi.
  
 
Come esempio, poniamo di avere in un progetto una Classe principale ed una Classe secondaria.
 
Come esempio, poniamo di avere in un progetto una Classe principale ed una Classe secondaria.
 
+
<BR>Il Codice della <U>Classe principale</u> sarà il seguente:
Il Codice della <U>Classe principale</u> sarà il seguente:
 
 
  Public cl2 As New Class2  <FONT color=gray>' ''Istanzia la Classe secondaria''</font>
 
  Public cl2 As New Class2  <FONT color=gray>' ''Istanzia la Classe secondaria''</font>
 
   
 
   
Riga 46: Riga 46:
 
  End
 
  End
  
Nella <U>Classe secondaria</u>, chiamata ''Class2'', avremo il seguente codice:
+
Nella <U>Classe secondaria</u>, chiamata ad esempio ''Class2'', avremo il seguente codice:
 
  <FONT color=gray>' ''Dichiara una "Struttura" avente i medesimi membri della "Struttura" presente nella Classe principale.''
 
  <FONT color=gray>' ''Dichiara una "Struttura" avente i medesimi membri della "Struttura" presente nella Classe principale.''
  ' ''Sia tali membri che la "Struttura" stessa avranno i nomi uguali a quelli rispettivi della "Struttura" presente nella Classe principale:''</font>
+
  ' ''Sia tali membri che la "Struttura" stessa avranno i nomi uguali a quelli rispettivi della "Struttura" presente nella Classe principale.''</font>
 
  '''Public''' Struct <FONT color=#B22222>Structura</font>
 
  '''Public''' Struct <FONT color=#B22222>Structura</font>
 
     a As Byte
 
     a As Byte
Riga 57: Riga 57:
 
  ' ''Detta variabile può avere un nome anche diverso dalla variabile di tipo "Struttura" presente nella Classe principale.''
 
  ' ''Detta variabile può avere un nome anche diverso dalla variabile di tipo "Struttura" presente nella Classe principale.''
 
  ' ''E' previsto, inoltre, in questo esempio che sarà restituita per "indirizzo" alla funzione chiamante:'':</font>
 
  ' ''E' previsto, inoltre, in questo esempio che sarà restituita per "indirizzo" alla funzione chiamante:'':</font>
  Public Sub Prova(<FONT color=purple>var</font> As <FONT color=#B22222>Structura</font>)
+
  Public Sub Prova(<FONT color=green>var</font> As <FONT color=#B22222>Structura</font>)
 
   
 
   
   With <FONT color=purple>var</font>
+
   With <FONT color=green>var</font>
 
  <FONT color=gray>' ''Vede i valori ora contenuti negli elementi della variabile di tipo "Struttura":''</font>
 
  <FONT color=gray>' ''Vede i valori ora contenuti negli elementi della variabile di tipo "Struttura":''</font>
 
     Print "Elemento 'a' ricevuto dalla Classe principale = "; .a
 
     Print "Elemento 'a' ricevuto dalla Classe principale = "; .a
Riga 70: Riga 70:
 
  End
 
  End
 
   
 
   
 +
  
 
==Uso di una variabile ''Globale''==
 
==Uso di una variabile ''Globale''==
Riga 92: Riga 93:
 
  '''End''' Struct
 
  '''End''' Struct
 
   
 
   
  <FONT color=gray>' ''Quindi dichiariamo come ''Globale'' (Publica)'' ed istanziamo''
+
  <FONT color=gray>' ''Quindi dichiariamo come ''Globale'' (Publica)'' ed istanziamo la relativa variabile del tipo della precedente Struttura:''</font>
' ''la relativa variabile del tipo della precedente Struttura:''</font>
+
'''<FONT color=#B22222>Public</font>''' variabilis As New Structura
  '''<FONT color=#B22222>Public</font>''' variabilis As New Structura
 
 
   
 
   
 
   
 
   
 
  Public Sub Form_Open()
 
  Public Sub Form_Open()
 
   
 
   
  <FONT color=gray>' ''Assegnamo i valori agli elementi che formano la Struttura:''</font>
+
  <FONT color=gray>' ''Assegniamo i valori agli elementi che formano la Struttura:''</font>
    With variabilis
+
  With variabilis
      .a = 2
+
    .a = 2
      .b = 1000
+
    .b = 1000
    End With
+
  End With
 
+
 
  <FONT color=gray>' ''Chiamiamo una routine della Classe secondaria:''</font>
 
  <FONT color=gray>' ''Chiamiamo una routine della Classe secondaria:''</font>
    cl2.Prova()
+
  cl2.Prova()
 +
 +
  Print
 +
<FONT color=gray>' ''Verifichiamo i valori dei due membri della Struttura, come modificati nella Classe secondaria:''</font>
 +
  With variabilis
 +
    Print .a
 +
    Print .b
 +
  End With
 
   
 
   
 
  End
 
  End
  
Nella <U>Classe secondaria</u>, chiamata ''Class2'', avremo il seguente codice:
+
Nella <U>Classe secondaria</u>, chiamata ad esempio ''Class2'', avremo il seguente codice:
 
  Public Sub Prova()
 
  Public Sub Prova()
 
   
 
   
 
  <FONT color=gray>' ''Richiamiamo ed utilizziamo la Struttura dichiarata nella Classe principale:''</font>
 
  <FONT color=gray>' ''Richiamiamo ed utilizziamo la Struttura dichiarata nella Classe principale:''</font>
    With FMain.variabilis
+
  With FMain.variabilis
      Print "Elemento a = "; .a
+
    Print "Elemento a = "; .a
      Print "Elemento b = "; .b
+
    Print "Elemento b = "; .b
    End With
+
<FONT color=gray>' ''Modifichiamo i valori dei due membri della Struttura dichiarata nella Classe principale:''</font>
 +
    .a = 111
 +
    .b = 111111
 +
  End With
 
   
 
   
 
  End
 
  End
Riga 123: Riga 133:
  
 
===2° esempio===
 
===2° esempio===
In quest'altro esempio avremo un Classe principale ed un ''Modulo'', nel quale saranno semplicemente dichiarate la ''Struttura'', le variabili del tipo della ''Struttura'' e la variabile ''vettoriale'' del tipo della ''Struttura''. Tale variabile vettoriale raccoglierà nei suoi elementi le predette singole variabili del tipo della ''Struttura'' dichiarata.
+
In quest'altro esempio avremo un Classe principale ed un ''Modulo'', nel quale saranno semplicemente dichiarate la ''Struttura'', le variabili del tipo della ''Struttura'' e la variabile ''vettoriale'' del tipo della ''Struttura''. <BR>Tale variabile vettoriale raccoglierà nei suoi elementi le predette singole variabili del tipo della ''Struttura'' dichiarata.
  
Nella <U>Classe principale</u> avremo il sguente semplice codice:
+
Nella <U>Classe principale</u> avremo il seguente semplice codice:
 
  Public Sub Form_Open()
 
  Public Sub Form_Open()
 
   
 
   
Riga 139: Riga 149:
 
    
 
    
 
  <FONT color=gray>' ''Effettuiamo la verifica:''</font>
 
  <FONT color=gray>' ''Effettuiamo la verifica:''</font>
 +
  With Module1
 +
    Print .a[0].a
 +
    Print .a[0].b
 +
    Print .a[1].a
 +
    Print .a[1].b
 +
    Print .a[2].a
 +
    Print .a[2].b
 +
  End With
 +
 +
<FONT color=gray>' ''Se vogliamo modificare nel "Modulo secondario" i valori dei membri della Struttura ad esso passati:''</font>
 +
  Module1.Modifica()
 +
 +
<FONT color=gray>' ''Effettuiamo la verifica:''</font>
 +
  Print "\nValori modificati nel " "Modulo secondario:"
 
   With Module1
 
   With Module1
 
     Print .a[0].a
 
     Print .a[0].a
Riga 162: Riga 186:
 
  '''<FONT color=#B22222>Public</font>''' l2 As New Struttura
 
  '''<FONT color=#B22222>Public</font>''' l2 As New Struttura
 
  '''<FONT color=#B22222>Public</font>''' l3 As New Struttura
 
  '''<FONT color=#B22222>Public</font>''' l3 As New Struttura
 +
 +
Public Sub Modifica()
 +
 +
  a[0].a = a[0].a + 11
 +
  a[0].b = a[0].b + 1111
 +
  a[1].a = a[1].a + 11
 +
  a[1].b = a[1].b + 1111
 +
  a[2].a = a[2].a + 11
 +
  a[2].b = a[2].b + 1111
 +
 +
End
 +
 +
 +
==Passaggio per "valore" di un array di tipo ''Struttura'' da una Classe secondaria a quella principale==
 +
Nel seguente caso vedremo il passaggio per "valore" di un <U>array di tipo ''Struttura''</u> da una Classe ''secondaria'' a una Classe o Modulo ''principale''.
 +
<BR>La particolarità di questo esempio è che a differenza del codice, presente nel primo paragrafo sopra, dalla Classe o dal Modulo ''principale'' <U>non</u> avverrà alcun passaggio di un Oggetto di tipo ''Struttura'', ma verrà soltanto ricevuto dalla Classe ''secondaria''.
 +
 +
Nella Classe o nel Modulo <U>principale</u> avremo il seguente codice:
 +
Public Struct Struttura
 +
  b As Byte
 +
  c As Short
 +
End Struct
 +
 +
 +
Public Sub Main()
 +
 +
  Dim ss As Struttura[]
 +
  Dim cl1 As New Class1
 +
 +
  ss = cl1.Funzione()
 +
 +
<FONT Color=gray>' ''Verifica il risultato:''</font>
 +
  For b As Byte = 0 To ss.Max
 +
    Print ss[b].b
 +
    Print ss[b].c
 +
    Print
 +
  Next
 +
 +
End
 +
Nella Classe <U>secondaria</u> avremo:
 +
Public Struct Struttura
 +
  b As Byte
 +
  c As Short
 +
End Struct
 +
 +
 +
Public Sub Funzione() As Struttura[] <FONT Color=gray>' ''Ritorno per "valore" di un array del tipo della Struttura dichiarata''</font>
 +
 +
  Dim sstt As New Struttura[4]
 +
 +
<FONT Color=gray>' ''Genera le singole istanze, contenute negli elementi dell'array di tipo Struttura, e popola di valori i loro membri:''</font>
 +
  For b As Byte = 0 To sstt.Max
 +
    sstt[b] = New Struttura
 +
    sstt[b].b = b * 10
 +
    sstt[b].c = b * 1000
 +
  Next
 +
 
 +
  Return sstt
 +
 
 +
End

Versione attuale delle 11:57, 3 nov 2024

Una Struttura, o più precisamente una variabile di tipo "Struttura", dichiarata ed istanziata in una Classe o in un Modulo, può essere utilizzata anche in altre Classi ed in altri Moduli.
Tale utilizzo potrà avvenire o passando la variabile di tipo Struttura tramite i parametri di una chiamata a funzione, oppure mediante l'uso di una variabile globale di tipo Struttura.


Passaggio della variabile attraverso i parametri di una chiamata a funzione

I valori, contenuti in una variabile del tipo della Struttura dichiarata, possono essere passati ad un'altra Classe passando a quest'ultima la variabile medesima.
Si dovrà, però, avere l'accortezza di ripetere la medesima Struttura - come già dichiarata nella Classe principale - anche nelle Classi ove questa dovrà essere richiamata, confermandone precisamente anche il nome.
Anche i membri della Struttura, dichiarata nella Classe secondaria, dovranno avere i medesimi nomi dei membri della corrispondente Struttura dichiarata nella Classe principale
Il nome della variabile del tipo della Struttura della Classe secondaria potrà, invece, essere diverso dalla variabile della Classe principale.
Poiché tutte le classi sono in realtà completamente indipendenti durante il processo di compilazione, l'interprete verificherà in fase di esecuzione che la stessa Struttura è sempre dichiarata nello stesso modo in tutte le classi.

Come esempio, poniamo di avere in un progetto una Classe principale ed una Classe secondaria.
Il Codice della Classe principale sarà il seguente:

Public cl2 As New Class2  ' Istanzia la Classe secondaria


' Dichiara la Struttura:
Public Struct Structura
  a As Byte
  b As Integer
End Struct

' Quindi dichiara e istanzia la relativa variabile del tipo della Struttura:
Private variabilis As New Structura


Public Sub Form_Open()

' Assegna i valori agli elementi che formano la Struttura:
 With variabilis
   .a = 2
   .b = 2000
 End With

' Chiama una routine della Classe secondaria, e le passa la variabile Struttura.
' I valori saranno ritornati per "indirizzo" dalla Classe secondaria:
 cl2.Prova(variabilis)

 With variabilis
' Verifica i valori ricevuti dalla "Struttura" presente nella Classe secondaria:
   Print "\nValori ritornati, come modificati, dalla Classe secondaria:"
   Print "--->"; .a
   Print "--->"; .b
 End With

End

Nella Classe secondaria, chiamata ad esempio Class2, avremo il seguente codice:

' Dichiara una "Struttura" avente i medesimi membri della "Struttura" presente nella Classe principale.
' Sia tali membri che la "Struttura" stessa avranno i nomi uguali a quelli rispettivi della "Struttura" presente nella Classe principale.
Public Struct Structura
   a As Byte
   b As Integer
End Struct 

' La routine, che viene richiamata dalla funzione chiamante presente nella Classe principale, riceve la variabile dalla Classe principale e la assegna alla variabile di tipo "Struttura" della corrente Classe secondaria.
' Detta variabile può avere un nome anche diverso dalla variabile di tipo "Struttura" presente nella Classe principale.
' E' previsto, inoltre, in questo esempio che sarà restituita per "indirizzo" alla funzione chiamante::
Public Sub Prova(var As Structura)

 With var
' Vede i valori ora contenuti negli elementi della variabile di tipo "Struttura":
   Print "Elemento 'a' ricevuto dalla Classe principale = "; .a
   Print "Elemento 'b' ricevuto dalla Classe principale = "; .b
' Li modifica...:
   .a = .a + 2
   .b = .b + 2000
 End With

End


Uso di una variabile Globale

L'altra modalità è di utilizzare come Globale, dichiarandola publica (Public), la variabile del tipo della Struttura da richiamare. Per fare ciò, come è noto, si dichiarerà tale variabile come Public.

V'è da precisare che:

  • è possibile chiamare da una Classe, sia essa principale o secondaria, una variabile globale di tipo Struttura dichiarata ed instanziata in altra Classe o in un Modulo;
  • ugualmente è possibile chiamare da un Modulo una variabile globale, di tipo Struttura, dichiarata ed istanziata in un altro Modulo o in un'altra Classe.


1° esempio

Facciamo un esempio, nel quale abbiamo una Classe principale ed una Classe secondaria.

Nella Classe principale dichiareremo ed istazieremo sia la Struttura da passare alla Classe secondaria, sia, ovviamente, la relativa variabile:

Public cl2 As New Class2  ' Istanziamo la Classe secondaria


' Dichiariamo la Struttura:
Public Struct Structura
  a As Byte
  b As Integer
End Struct

' Quindi dichiariamo come Globale (Publica) ed istanziamo la relativa variabile del tipo della precedente Struttura:
Public variabilis As New Structura


Public Sub Form_Open()

' Assegniamo i valori agli elementi che formano la Struttura:
 With variabilis
   .a = 2
   .b = 1000
 End With

' Chiamiamo una routine della Classe secondaria:
 cl2.Prova()

 Print
' Verifichiamo i valori dei due membri della Struttura, come modificati nella Classe secondaria:
 With variabilis
   Print .a
   Print .b
 End With

End

Nella Classe secondaria, chiamata ad esempio Class2, avremo il seguente codice:

Public Sub Prova()

' Richiamiamo ed utilizziamo la Struttura dichiarata nella Classe principale:
 With FMain.variabilis
   Print "Elemento a = "; .a
   Print "Elemento b = "; .b
' Modifichiamo i valori dei due membri della Struttura dichiarata nella Classe principale:
   .a = 111
   .b = 111111
 End With

End


2° esempio

In quest'altro esempio avremo un Classe principale ed un Modulo, nel quale saranno semplicemente dichiarate la Struttura, le variabili del tipo della Struttura e la variabile vettoriale del tipo della Struttura.
Tale variabile vettoriale raccoglierà nei suoi elementi le predette singole variabili del tipo della Struttura dichiarata.

Nella Classe principale avremo il seguente semplice codice:

Public Sub Form_Open()

 With Module1
   .a = [.l1, .l2, .l3]
   .a[0].a = 10
   .a[0].b = 1000
   .a[1].a = 20
   .a[1].b = 2000
   .a[2].a = 30
   .a[2].b = 3000
 End With
 
' Effettuiamo la verifica:
 With Module1
   Print .a[0].a
   Print .a[0].b
   Print .a[1].a
   Print .a[1].b
   Print .a[2].a
   Print .a[2].b
 End With

' Se vogliamo modificare nel "Modulo secondario" i valori dei membri della Struttura ad esso passati:
 Module1.Modifica()

' Effettuiamo la verifica:
 Print "\nValori modificati nel " "Modulo secondario:"
 With Module1
   Print .a[0].a
   Print .a[0].b
   Print .a[1].a
   Print .a[1].b
   Print .a[2].a
   Print .a[2].b
 End With

End

Mentre nel Modulo secondario, che ad esempio chiameremo Module1, avremo il seguente codice:

Public Struct Struttura
 a As Byte
 b As Short
End Struct


Public a As New Struttura[3]

Public l1 As New Struttura
Public l2 As New Struttura
Public l3 As New Struttura

Public Sub Modifica()

 a[0].a = a[0].a + 11
 a[0].b = a[0].b + 1111
 a[1].a = a[1].a + 11
 a[1].b = a[1].b + 1111
 a[2].a = a[2].a + 11
 a[2].b = a[2].b + 1111

End


Passaggio per "valore" di un array di tipo Struttura da una Classe secondaria a quella principale

Nel seguente caso vedremo il passaggio per "valore" di un array di tipo Struttura da una Classe secondaria a una Classe o Modulo principale.
La particolarità di questo esempio è che a differenza del codice, presente nel primo paragrafo sopra, dalla Classe o dal Modulo principale non avverrà alcun passaggio di un Oggetto di tipo Struttura, ma verrà soltanto ricevuto dalla Classe secondaria.

Nella Classe o nel Modulo principale avremo il seguente codice:

Public Struct Struttura
  b As Byte
  c As Short
End Struct


Public Sub Main()

 Dim ss As Struttura[]
 Dim cl1 As New Class1

 ss = cl1.Funzione()

' Verifica il risultato:
 For b As Byte = 0 To ss.Max
   Print ss[b].b
   Print ss[b].c
   Print
 Next

End

Nella Classe secondaria avremo:

Public Struct Struttura
  b As Byte
  c As Short
End Struct


Public Sub Funzione() As Struttura[] ' Ritorno per "valore" di un array del tipo della Struttura dichiarata

 Dim sstt As New Struttura[4]

' Genera le singole istanze, contenute negli elementi dell'array di tipo Struttura, e popola di valori i loro membri:
 For b As Byte = 0 To sstt.Max
   sstt[b] = New Struttura
   sstt[b].b = b * 10
   sstt[b].c = b * 1000
 Next
 
 Return sstt
 

End