Differenze tra le versioni di "Strutture: dichiarazione ed uso"

Da Gambas-it.org - Wikipedia.
(46 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
La '''Struttura''' similmente al ''vettore'' (''Array'') aggrega due o più elementi. Però, mentre il vettore aggrega elementi del medesimo tipo (per esempio tutti valori di tipo ''Integer'', o di tipo ''Byte'', etc), la ''Struttura'' aggrega ''solitamente'' (ma non necessariamente) elementi di tipo diverso.
+
La '''Struttura''' <SUP>&#091;[[#Note|nota 1]]&#093;</sup> similmente al ''vettore'' (''Array'') aggrega due o più elementi. Però, mentre il vettore aggrega elementi del medesimo tipo (per esempio tutti valori di tipo ''Integer'', o di tipo ''Byte'', etc), la ''Struttura'' aggrega ''solitamente'' (ma non necessariamente) elementi di tipo diverso.
  
In Gambas3 la ''Struttura'', analogamente ad un oggetto, può essere considerata una Classe priva di ''Metodi'' e di ''Eventi'', che, come nel C, definisce e si riserva una porzione di memoria. Più precisamente la ''Struttura'' in Gambas è semplicemente una Classe <SPAN Style="text-decoration:underline">senza</span> proprietà, metodi ed eventi, ed essendo dichiarabile esclusivamente ''Pubblica'', conseguentemente i suoi membri sono "Pubblici".
+
In Gambas la ''Struttura'' può essere considerata una "Classe" priva di ''Metodi'' e di ''Eventi'', che, come nel C, definisce e si riserva una porzione di memoria. Più precisamente la ''Struttura'' in Gambas è semplicemente una Classe <SPAN Style="text-decoration:underline">senza</span> ''Proprietà'', ''Metodi'' ed ''Eventi'', ed essendo dichiarabile esclusivamente ''Pubblica'', conseguentemente i suoi membri sono "Pubblici". <SUP>&#091;[[#Note|nota 2]]&#093;</sup>
  
La ''Struttura'', variabile strutturata di reminescenza del C, è un ''tipo derivato'' che aggrega elementi di tipo diverso. Ci si serve di essa, qualora si abbia necessità di utilizzare un'area riservata di memoria di tipi di dati ''non'' omogenei.
+
La ''Struttura'', variabile strutturata di reminescenza del C, è un "''tipo derivato'' " che aggrega elementi di tipo diverso. Ci si serve di essa, qualora si abbia necessità di utilizzare un'area riservata di memoria di tipi di dati <SPAN Style="text-decoration:underline">''non''</span> omogenei.
  
La ''Struttura'' va dichiarata <SPAN Style="text-decoration:underline">sempre</span> con la parola chiave ''Public'':
+
 
 +
=Dichiarazione di una Struttura=
 +
La ''Struttura'' va dichiarata <SPAN Style="text-decoration:underline">sempre</span> con la parola chiave ''Public'' :
 
  <Font Color=red><B>Public</b></font> '''Struct''' Nome_della_Struttura
 
  <Font Color=red><B>Public</b></font> '''Struct''' Nome_della_Struttura
 
   nome_membro1 As ''tipo''
 
   nome_membro1 As ''tipo''
Riga 12: Riga 14:
 
  '''End Struct'''
 
  '''End Struct'''
 
laddove:
 
laddove:
* '''''Struct''''' è la parola chiave che introduce alla dichiarazione della ''Struttura'';
+
* '''''Struct''''' è la parola-chiave che introduce alla dichiarazione della ''Struttura'';
 
* '''''Nome_della_Struttura''''' è l'etichetta che attribuisce un nome alla dichiarazione della ''Struttura'';
 
* '''''Nome_della_Struttura''''' è l'etichetta che attribuisce un nome alla dichiarazione della ''Struttura'';
* '''''nome_membro1''''' e '''''nome_membro2''''' sono le variabili della ''Struttura'' destinate a ricevere ciascuna un valore in base base al proprio tipo di appartenza (''Byte'', ''Short'', ''Integer'', etc).
+
* '''''nome_membro1''''' e '''''nome_membro2''''' sono le variabili della ''Struttura'' destinate a ricevere ciascuna un valore (in base al proprio tipo di dati di appartenenza);
 
* '''''tipo''''' è il ''tipo'' di dati (''Byte'', ''Short'', ''Integer'', etc.), al quale il membro della ''Struttura'' appartiene.
 
* '''''tipo''''' è il ''tipo'' di dati (''Byte'', ''Short'', ''Integer'', etc.), al quale il membro della ''Struttura'' appartiene.
  
La dichiarazione della ''Struttura'' termina sempre con le parole chiave: ''End Struct'' .
+
La dichiarazione della ''Struttura'' termina <SPAN Style="text-decoration:underline">sempre</span> con le parole-chiave ''End Struct'' .
 
 
  
 
====Esempio astratto====
 
====Esempio astratto====
Riga 31: Riga 32:
 
  End Struct
 
  End Struct
 
   
 
   
  <Font Color=gray>' ''Dichiariamo una variabile di tipo Struttura (composta a perfetta immagine della Struttura modello):''</font>
+
  <Font Color=gray>' ''Possiamo ovviamente dichiarare la variabile di tipo Struttura come "Globale":''</font>
  Private <Font Color= #0000FF>variabileStruttura</font> As New <Font Color= #B22222>NomeStruttura</font>
+
  <Font Color=gray>' Private variabileStruttura As '''New''' NomeStruttura</font>
 
   
 
   
 
   
 
   
 
  '''Public''' Sub Main()
 
  '''Public''' Sub Main()
 
    
 
    
  <Font Color=gray>' ''La variabile di tipo "Struttura" può essere dichiarata, ovviamente, anche come variabile "locale" nelle sub-procedure con:''
+
  <Font Color=gray>' ''Dichiariamo in questo semplice esempio la variabile di tipo "Struttura" come "locale":''</font>
' '''''Dim variabile_struttura As New NomeStruttura'''''</font>
+
   Dim <Font Color= #0000FF>variabileStruttura</font> As New <Font Color= #B22222>NomeStruttura</font>
    
 
 
<Font Color=gray>' ''Attribuiamo un valore a ciascun membro della variabile di tipo Struttura:''</font>
 
  <Font Color= #0000FF>variabileStruttura</font>.valore1 = 4
 
  <Font Color= #0000FF>variabileStruttura</font>.valore2 = 444
 
  <Font Color= #0000FF>variabileStruttura</font>.valore3 = 44444
 
 
   
 
   
 +
<Font Color=gray>' ''Attribuiamo un valore a ciascun membro della variabile di tipo Struttura nel rispetto del proprio tipo di dati:''</font>
 +
  <Font Color= #0000FF>variabileStruttura</font>.valore1 = 4
 +
  <Font Color= #0000FF>variabileStruttura</font>.valore2 = 444
 +
  <Font Color= #0000FF>variabileStruttura</font>.valore3 = 44444
 
   
 
   
 
  <Font Color=gray>' ''Quindi operiamo con i valori contenuti dalla variabile "variabileStruttura", per esempio li facciamo mostrare in console:</font>
 
  <Font Color=gray>' ''Quindi operiamo con i valori contenuti dalla variabile "variabileStruttura", per esempio li facciamo mostrare in console:</font>
  With <Font Color= #0000FF>variabileStruttura</font>
+
  With <Font Color= #0000FF>variabileStruttura</font>
    Print .valore1
+
    Print .valore1
    Print .valore2
+
    Print .valore2
    Print .valore3
+
    Print .valore3
  End With
+
  End With
 
   
 
   
 
  '''End'''
 
  '''End'''
  
  
 +
=Dichiarazione e creazione delle variabili di tipo Struttura=
 +
La dichiarazione e la creazione di una variabile di tipo  ''Struttura'' può richiedere l'uso della parola-chiave '''New'''.
 +
<BR>Con l'uso della parola-chiave "''New'' " viene creato l'Oggetto (ossia la variabile) del tipo della Classe Struttura dichiarata dall'utente.
  
==Dichiarazione e creazione delle variabili di tipo Struttura==
+
L'uso della parola-chiave "New" in fase di dichiarazione della variabile di tipo ''Struttura'' è richiesto, quando vi è l'assegnazione diretta di un dato ad uno o più membri della ''Struttura'' all'interno di una routine, e, quindi, anche quando si deve passare a una funzione una variabile di tipo Struttura.  
La dichiarazione di una variabile di tipo ''Struttura'' può richiedere l'uso della parola chiave '''''New'''''.
 
  
L'uso della parola chiave ''New'' in fase di dichiarazione della variabile di tipo ''Struttura'' è richiesto, quando vi è l'assegnazione di un dato ad uno o più membri della ''Struttura''.
 
<BR>In tal caso l'inserimento della parola chiave ''New'' è richiesto:
 
* subito nella routine ove è dichiarata - come ''locale'' - la variabile di tipo ''Struttura'', qualora in detta routine avvenga l'assegnazione di un valore ad uno o più membri della ''Struttura'';
 
* nella Funzione o Procedura, alla quale è passata, come argomento, da una routine principale chiamante, qualora debba avvenire l'assegnazione di un valore ad uno o più membri della ''Struttura''.
 
 
Esempio:
 
Esempio:
 
  Public Struct STRUTTURA
 
  Public Struct STRUTTURA
Riga 76: Riga 73:
 
   Dim sr As <FONT Color=#B22222>'''New'''</font> STRUTTURA
 
   Dim sr As <FONT Color=#B22222>'''New'''</font> STRUTTURA
 
    
 
    
  Prova(sr)
+
<FONT Color=gray>' ''Assegnazione diretta di un valore a un membro nella routine'':</font>
 +
  sr.s = 999
 +
 +
<FONT Color=gray>' ''Passaggio per "indirizzo" della variabile di tipo Struttura ad una funzione'':</font>
 +
  Prova(sr)
 
    
 
    
  Print sr.b
+
  Print sr.b
 
    
 
    
 
  '''End'''
 
  '''End'''
Riga 85: Riga 86:
 
  '''Private''' Function Prova(t as STRUTTURA)
 
  '''Private''' Function Prova(t as STRUTTURA)
 
    
 
    
  t.b = 99
+
<FONT Color=gray>' ''Assegnazione diretta di un valore a un membro nella routine della funzione:''</font>
 +
  t.b = 99
 
      
 
      
 
  '''End'''
 
  '''End'''
  
 
+
Non è invece richiesto nella routine principale, quando alla variabile deve essere assegnata una ''Struttura'' quale ritorno di una Funzione, nella quale è stata ''creata''.
Non è invece richiesto quando alla variabile deve essere assegnata una ''Struttura'' quale ritorno di una Funzione, nella quale è stata ''creata''.
+
<BR>Dunque non sarà necessaria la parola-chiave "New" in una routine principale, qualora la variabile del tipo della ''Struttura'', dichiarata e creata in una Funzione o in una Procedura, venga restituita alla routine principale che ha invocato la Funzione o la Procedura.
  
 
Esempio:
 
Esempio:
Riga 101: Riga 103:
 
  '''Public''' Sub Main()
 
  '''Public''' Sub Main()
 
   
 
   
   Dim sr As STRUTTURA    <Font Color= gray>' ''Qui non serve la parola-chiave "New" !</font>
+
   Dim sr As STRUTTURA    <Font Color= gray>' ''Qui non serve la parola-chiave "New", perché la variabile Struttura sarà istanziata nella Funzione chiamata !</font>
 
    
 
    
 +
<FONT Color= gray>' ''La Funzione invocata restituisce una Struttura istanziata nella Funzione medesima:</font>
 
   sr = Prova(9, 199)
 
   sr = Prova(9, 199)
 
    
 
    
Riga 111: Riga 114:
 
   
 
   
 
   
 
   
  '''Private''' Function Prova(vlb As Byte, vlc As Short) As STRUTTURA
+
  '''Private''' Function Prova(vlb As Byte, vlc As Short) As STRUTTURA   <Font Color= gray>' ''La Funzione restituisce la Struttura</font>
 
    
 
    
   Dim tt As New STRUTTURA
+
   Dim tt As New STRUTTURA   <FONT Color= gray>' ''Crea la variabile del tipo della Struttura dichiarata all'inizio (Struct "STRUTTURA")</font>
 
    
 
    
 
   tt.b = vlb * 10
 
   tt.b = vlb * 10
Riga 119: Riga 122:
 
    
 
    
 
   Return tt
 
   Return tt
 +
 
 +
'''End'''
 +
 +
====Uso della parola-chiave "Struct"====
 +
E' possibile anche usare la parola-chiave "'''Struct'''", ma solo per la dichiarazione di una variabile ''globale'' di tipo della "Struttura" di riferimento.
 +
Public Struct STRUTTURA
 +
  b As Byte
 +
  c As Short
 +
End Struct
 +
 +
Private variabileStruttura As '''Struct''' STRUTTURA
 +
 +
'''Public''' Sub Main()
 +
 +
......
 +
Questa parola-chiave incorpora una "Struttura" direttamente all'interno di una variabile o di un'altra Struttura, come fa C per impostazione predefinita. Quindi il contenuto della "Struttura" viene incorporato nell'Oggetto in cui è dichiarato. Di conseguenza, per usarlo come ogni altro Oggetto, Gambas deve creare un Oggetto temporaneo. Ciò lo rende più lento rispetto all'utilizzo di un Oggetto reale.
 +
 +
 +
=Passaggio di una Struttura a una Funzione=
 +
Una variabile di tipo ''Struttura'' può senz'altro essere passata (e ritornata) "''per Valore''" a una Funzione o a una Procedura; ma, poiché tale variabile è in sostanza un ''Puntatore'', contenente l'indirizzo di memoria della Struttura, sarà più opportuno e più adeguato passarla "''per Indirizzo''" (analogamente a quanto avviene con gli array): <SUP>&#091;[[#Note|nota 3]]&#093;</sup>
 +
Public Struct STRUTTURA
 +
  b As Byte
 +
  c As Short
 +
End Struct
 +
 +
 +
'''Public''' Sub Main()
 +
 
 +
  Dim sr as New STRUTTURA
 +
 
 +
  sr.b = 10
 +
  sr.c = 100
 +
 
 +
  Funzione(sr)  <Font Color=gray>' ''La variabile di tipo Struttura viene passata per "Indirizzo"''</font>
 +
 
 +
  Print sr.b
 +
  Print sr.c
 +
 
 +
'''End'''
 +
 +
 +
'''Private''' Function Funzione(sra As STRUTTURA)
 +
 
 +
  sra.b *= 10
 +
  sra.c *= 10
 
    
 
    
 
  '''End'''
 
  '''End'''
Riga 124: Riga 172:
  
 
=Strutture contenenti Vettori e Matrici=
 
=Strutture contenenti Vettori e Matrici=
Le Strutture possono essere costituite da membri di variabili vettoriali (''Array'') e Matrici.
+
Le Strutture possono essere costituite da membri di variabili vettoriali (''Array'' ) e Matrici annidate.
 +
<BR>Se il membro è di tipo array di numero di elementi non definito, dovrà essere istanziato opportunamente con la parola-chiave "NEW".
  
 
Esempio:
 
Esempio:
  
 
  Public Struct <Font Color= #B22222>StrutturaModello</font>
 
  Public Struct <Font Color= #B22222>StrutturaModello</font>
   arB[10] As Byte      <Font Color= #006400>' ''array monodimensionale definito''</font>
+
   mt110] As Byte      <Font Color= #006400>' ''array monodimensionale annidato definito''</font>
 
   arI As Integer[]      <Font Color= #006400>' ''array monodimensionale non definito''</font>
 
   arI As Integer[]      <Font Color= #006400>' ''array monodimensionale non definito''</font>
   mt$[10, 4] As String  <Font Color= #006400>' ''matrice''</font>
+
   mt2[10, 4] As Byte    <Font Color= #006400>' ''matrice annidata''</font>
 
  End Struct
 
  End Struct
+
 
Private <Font Color= #0000FF>variabileStruttura</font> As New <Font Color= #B22222>StrutturaModello</font>
 
 
 
   
 
   
 
  '''Public''' Sub Form_Open()
 
  '''Public''' Sub Form_Open()
+
 
 +
  Dim <Font Color= #0000FF>variabileStruttura</font> As New <Font Color= #B22222>StrutturaModello</font> <FONT Color= gray>' ''Crea l'Oggetto del tipo della Struttura dichiarata</font>
 
   Dim a, m As Byte
 
   Dim a, m As Byte
 
   
 
   
  <Font Color= #0000FF>variabileStruttura</font>.arI = New Integer[]
+
<FONT Color= gray>' ''Crea l'Oggetto del tipo vettore "Intero" del membro della Struttura dichiarata:</font>
 +
  <Font Color= #0000FF>variabileStruttura</font>.arI = <B>New</b> Integer[]
 
   
 
   
  For a = 0 To 9
+
<FONT Color= gray>' ''Assegna dei valori a ciascun membro della "Struttura":</font>
    With <Font Color= #0000FF>variabileStruttura</font>
+
   For a = 0 To 9
      .arB[a] = a
 
      .arI.Add(a + a)
 
        For m = 0 To 3
 
          .mt$[a, m] = Chr(<Font Color= #0000FF>variabileStruttura</font>.arI[a] + 70)
 
        Next
 
    End With
 
   Next
 
 
'''End'''
 
 
 
'''Public''' Sub Button1_Click()
 
 
  Dim a, m As Byte
 
 
  For a = 0 To 9
 
 
     With <Font Color= #0000FF>variabileStruttura</font>
 
     With <Font Color= #0000FF>variabileStruttura</font>
    Print .arB[a]
+
      .mt1[a] = a
    Print .arI[a]
+
      .arI.Push(a)
    For m = 0 To 3
+
      For m = 0 To 3
      Print .mt$[a, m]
+
        .mt2[a, m] = a + 1
    Next
+
      Next
 
     End With
 
     End With
 
   Next
 
   Next
 +
 
 +
<FONT Color= gray>' ''Verifica i valori assegnati a ciascun membro della "Struttura":</font>
 +
  With <Font Color= #0000FF>variabileStruttura</font>
 +
    Print "mt1"
 +
    For a = 0 To 9
 +
      Print .mt1[a]
 +
    Next
 +
    Print
 +
    Print
 +
    Print "arI"
 +
    For a = 0 To 9
 +
      Print .arI[a]
 +
    Next
 +
    Print
 +
    Print
 +
    Print "mt2"
 +
    For a = 0 To 9
 +
      For m = 0 To 3
 +
        Print .mt2[a, m]
 +
      Next
 +
    Next
 +
    Print
 +
  End With
 
   
 
   
 
  '''End'''
 
  '''End'''
 
 
  
  
 
=Strutture che contengono altre Strutture=
 
=Strutture che contengono altre Strutture=
Le ''Strutture'' possono contenere, come proprio membro, altre Strutture. In tal caso la ''Struttura'' principale è chiamata "''Struttura innestata''", mentre quella richimata nel membro della ''Struttura'' principale è chiamata "''Struttura innesto''".
+
Le ''Strutture'' possono contenere, come proprio membro, altre Strutture. In tal caso la ''Struttura'' principale è chiamata "''Struttura innestata''", mentre quella richiamata nel membro della ''Struttura'' principale è chiamata "''Struttura innesto''".
 
Da tenere presente che è necessario dichiarare e definire la ''Struttura'' "''innesto''", che sarà contenuta nella ''Struttura'' principale, <Span style="text-decoration:underline">prima</span> della dichiarazione  della ''Struttura'' principale contenente.
 
Da tenere presente che è necessario dichiarare e definire la ''Struttura'' "''innesto''", che sarà contenuta nella ''Struttura'' principale, <Span style="text-decoration:underline">prima</span> della dichiarazione  della ''Struttura'' principale contenente.
  
 
Esempio:
 
Esempio:
  <Font Color= #006400>' ''va dichiarata e definita innanzitutto la Struttura "innesto"''
+
  <Font Color= #006400>' ''Va dichiarata e definita innanzitutto la Struttura "innesto"'' che sarà contenuta nella Struttura principale:''</font>
' ''che sarà contenuta nella Struttura principale:''</font>
 
 
  Public Struct <Font Color= #FF0000>strutturaInnesto</font>
 
  Public Struct <Font Color= #FF0000>strutturaInnesto</font>
 
   sb As Byte
 
   sb As Byte
Riga 189: Riga 242:
 
   
 
   
 
   
 
   
  <Font Color= #006400>' ''...quindi la Struttura principale "innestata", ossia quella che conterrà la Struttura "innesto".''
+
  <Font Color= #006400>' ''...poi va dichiarata la Struttura principale "innestata", ossia quella che conterrà la Struttura "innesto".''
 
  ' ''In un suo membro verrà dichiarata la variabile di tipo della Struttura "innesto" (che si intende appunto contenere in quella principale):''</font>
 
  ' ''In un suo membro verrà dichiarata la variabile di tipo della Struttura "innesto" (che si intende appunto contenere in quella principale):''</font>
 
  Public Struct <Font Color= #0000FF>StrutturaPrincipale</font>
 
  Public Struct <Font Color= #0000FF>StrutturaPrincipale</font>
 
   prB As Byte
 
   prB As Byte
 
   prI As Integer
 
   prI As Integer
   <Font Color= #FFA500>innestoStru</font> As Struct <Font Color= #FF0000>strutturaInnesto</font>
+
   <Font Color= #FFA500>innestoStru</font> As Struct <Font Color= #FF0000>strutturaInnesto</font> <Font Color=gray>' ''oppure più semplicemente: <B>innestoStru As strutturaInnesto</b></font>
 
  End Struct
 
  End Struct
 
   
 
   
Private <Font Color= #1E90FF>struttVariab</font> As New <Font Color= #0000FF>StrutturaPrincipale</font>
 
 
   
 
   
 +
'''Public''' Sub Main()
 
   
 
   
'''Public''' Sub Form_Open()
+
  Dim <Font Color= #1E90FF>struttVariab</font> As New <Font Color= #0000FF>StrutturaPrincipale</font>
 
 
   Dim a As Byte
 
   Dim a As Byte
 
   
 
   
 
   a = 1
 
   a = 1
 
   
 
   
  <Font Color= #006400>' ''Assegnamo i valori alle variabili contenute nei membri della variabile Struttura principale:''</font>
+
  <Font Color=gray>' ''Assegniamo i valori alle variabili contenute nei membri della variabile Struttura principale:''</font>
 
   With <Font Color= #1E90FF>struttVariab</font>
 
   With <Font Color= #1E90FF>struttVariab</font>
 
     .prB = 10
 
     .prB = 10
Riga 214: Riga 266:
 
     .<Font Color= #FFA500>innestoStru</font>.s$ = "prova " & Str(a)
 
     .<Font Color= #FFA500>innestoStru</font>.s$ = "prova " & Str(a)
 
   End With
 
   End With
 
'''End'''
 
 
 
<Font Color= #006400>' ''Andiamo a mostrare i risultati in console:''</font>
 
'''Public''' Sub Button1_Click()
 
 
    
 
    
 +
<Font Color=gray>' ''Mostra i risultati in console:''</font>
 
   With <Font Color= #1E90FF>struttVariab</font>
 
   With <Font Color= #1E90FF>struttVariab</font>
 
     Print .prB
 
     Print .prB
Riga 237: Riga 284:
 
<BR>1001
 
<BR>1001
 
<BR>prova 1
 
<BR>prova 1
 
 
  
  
Riga 247: Riga 292:
 
<BR>- mediante la parola ''Struct''. Tale dichiarazione è ''Statica'';
 
<BR>- mediante la parola ''Struct''. Tale dichiarazione è ''Statica'';
 
<BR>- mediante la parola ''New''. Tale dichiarazione è ''Dinamica''.
 
<BR>- mediante la parola ''New''. Tale dichiarazione è ''Dinamica''.
 
  
  
Riga 253: Riga 297:
 
Possiamo dichiarare e creare variabili array di tipo ''Struttura'' con numero di elementi definito.  
 
Possiamo dichiarare e creare variabili array di tipo ''Struttura'' con numero di elementi definito.  
  
===1° esempio===
+
===Uso della parola-chiave "Struct"===
 +
Se, per dichiarare un array di Struttura, viene usata la parola-chiave "Struct", come sappiamo, tale dichiarazione dovrà essere posta al di fuori delle routine.
 +
<BR>La parola-chiave "Struct" può essere utilizzata solo con array annidato del tipo della "Struttura".
 
  Public Struct <Font Color= #B22222>strutturaModello</font>
 
  Public Struct <Font Color= #B22222>strutturaModello</font>
 
   prB As Byte
 
   prB As Byte
Riga 259: Riga 305:
 
  End Struct
 
  End Struct
 
   
 
   
  <Font Color= #006400>' ''Dichiariamo la variabile della Struttura come array con numero di elementi definito.''
+
  <Font Color=gray>' ''Dichiariamo la variabile della Struttura come array con numero di elementi definito.''</font>
' ''In questo tipo di esempio sarà necessario inserire dopo "As" la parola "'''Struct'''":''</font>
 
 
  Private <Font Color= #0000FF>strutturaVariabile[10]</font> As '''Struct''' <Font Color= #B22222>StrutturaModello</font>
 
  Private <Font Color= #0000FF>strutturaVariabile[10]</font> As '''Struct''' <Font Color= #B22222>StrutturaModello</font>
 
   
 
   
 
   
 
   
  '''Public''' Sub Form_Open()
+
  '''Public''' Sub Main()
 
   
 
   
 
   Dim a As Byte
 
   Dim a As Byte
 
   
 
   
  <Font Color= #006400>' ''Assegnamo i valori agli elementi della variabile array di tipo Struttura:''</font>
+
  <Font Color=gray>' ''Assegnamo i valori agli elementi della variabile array di tipo Struttura:''</font>
 
   For a = 0 To 9
 
   For a = 0 To 9
 
     With <Font Color= #0000FF>strutturaVariabile[a]</font>
 
     With <Font Color= #0000FF>strutturaVariabile[a]</font>
Riga 275: Riga 320:
 
     End With
 
     End With
 
   Next
 
   Next
 +
 
 
   
 
   
'''End'''
+
  <Font Color=gray>' ''Andiamo a mostrare i risultati in console:''</font>
+
   For a = 0 To 9
+
    With <Font Color= #0000FF>strutturaVariabile[a]</font>
  <Font Color= #006400>' ''Andiamo a mostrare i risultati in console:''</font>
+
      Print .prB
'''Public''' Sub Button1_Click()
+
      Print .prI
+
    End With
   Dim a As Byte
+
  Next
 
For a = 0 To 9
 
  With <Font Color= #0000FF>strutturaVariabile[a]</font>
 
    Print .prB
 
    Print .prI
 
  End With
 
Next
 
 
   
 
   
 
  '''End'''
 
  '''End'''
  
===2° esempio===
+
===Uso della parola-chiave "New"===
 +
Se, per dichiarare  un array di Struttura, si usa la parola-chiave "New", la dichiarazione potrà essere posta a seconda delle esigenze sia all'interno (per una variabile array "locale") che all'esterno (per una variabile array "Globale") delle routine. 
 
  Public Struct <Font Color= #B22222>strutturaModello</font>
 
  Public Struct <Font Color= #B22222>strutturaModello</font>
 
   prB As Byte
 
   prB As Byte
Riga 299: Riga 339:
 
  End Struct
 
  End Struct
 
   
 
   
<Font Color= #006400>' ''Dichiariamo la variabile della Struttura come array con numero di elementi definito.''
 
' ''In questo caso sarà necessario inserire dopo "As" la parola "'''New'''":''</font>
 
Private <Font Color= #0000FF>strutturaVariabile</font> As '''New''' <Font Color= #B22222>StrutturaModello[10]</font>
 
 
 
'''Public''' Sub Form_Open()
 
 
Dim a As Byte
 
 
<Font Color= #006400>' ''Assegnamo i valori agli elementi della variabile array di tipo Struttura:''</font>
 
  For a = 0 To 9
 
 
    With <Font Color= #0000FF>strutturaVariabile[a]</font> = New <Font Color= #B22222>StrutturaModello</font>
 
      .prB = a
 
      .prI = 1000 + a
 
    End With
 
 
  Next
 
 
'''End'''
 
 
 
<Font Color= #006400>' ''Andiamo a mostrare i risultati in console:''</font>
 
'''Public''' Sub Button1_Click()
 
 
   
 
   
 +
'''Public''' Sub Main()
 +
 
 
   Dim a As Byte
 
   Dim a As Byte
   
+
  <Font Color=Gray>' ''Dichiariamo la variabile della Struttura come array con numero di elementi definito.''</font>
 +
  Dim <Font Color= #0000FF>strutturaVariabile</font> As '''New''' <Font Color= #B22222>StrutturaModello[10]</font>
 +
 
 +
<Font Color=gray>' ''Assegnamo i valori agli elementi della variabile array di tipo Struttura:''</font>
 
   For a = 0 To 9
 
   For a = 0 To 9
     With <Font Color= #0000FF>strutturaVariabile[a]</font>
+
     With <Font Color= #0000FF>strutturaVariabile[a]</font> = New <Font Color= #B22222>StrutturaModello</font>
       Print .prB
+
       .prB = a
       Print .prI
+
       .prI = 1000 + a
 
     End With
 
     End With
 
   Next
 
   Next
 
'''End'''
 
 
 
 
==Variazione successiva del numero degli elementi già definito==
 
E' possibile variare successivamente, anche in modo ricorsivo, il numero degli elementi di una variabile vettoriale (''array'') di tipo ''Struttura'', purché il numero dei suoi elementi, preliminarmente dichiarati, sia maggiore di zero.
 
 
Nell'esempio che segue dichiariamo una variabile array di tipo ''Struttura'' con numero di elementi uguale a 3. Successivamente varieremo più volte detto numero portandolo complessivamente a 6:
 
Public Struct esempio
 
  b As Byte
 
  i As Integer
 
End Struct
 
 
<FONT color=gray>' ''Viene dichiarata una variabile vettoriale (array) del tipo della "Struttura" denominata "Esempio",''
 
' ''e contestualmente viene impostato ad esempio a 3 il numero iniziale degli elementi che si provvederà a variare successivamente:''</font>
 
Private eV As New Esempio[<FONT color=B22222>3</font>]
 
 
 
'''Public''' Sub Form_Open()
 
 
  Dim j, k As Byte
 
 
<FONT color=gray>' ''Il ciclo imposta volta per volta,  incrementandolo, il valore del numero degli elementi''
 
' ''della variabile vettoriale di tipo "Struttura":</font>
 
  For k = 4 To 6
 
 
    eV = New Esempio[k]
 
 
  Next
 
 
  For j = 0 To eV.Max
 
<FONT color=gray>' ''Viene creata, quindi, la nuova variabile,''
 
' ''e vengono assegnati dei valori ai suoi membri:''</font>
 
      With eV[j] = New Esempio
 
        .b = j
 
        .i = j + 1
 
      End With
 
 
    
 
    
  Next
 
 
    
 
    
  <FONT color=gray>' ''Si verifica il numero complessivo finale''
+
  <Font Color=gray>' ''Andiamo a mostrare i risultati in console:''</font>
' ''degli elementi della variabile vettoriale:''</font>
+
   For a = 0 To 9
  Print "eV.Count = "; eV.Count
+
     With <Font Color= #0000FF>strutturaVariabile[a]</font>
 
+
       Print .prB
'''End'''
+
       Print .prI
 
 
'''Public''' Sub Button1_Click()
 
 
  Dim j As Byte
 
 
<FONT color=gray>' ''Si verifica quindi il valori contenuti dai membri di ciascuna variabile creata:''</font>
 
   For j = 0 To eV.Max
 
 
     With eV[j]
 
       Print "b = "; .b
 
       Print "i = "; .i
 
 
     End With
 
     End With
 
 
 
   Next
 
   Next
 
'''End'''
 
 
 
 
==Aggiungere dinamicamente ulteriori elementi ad un vettore di tipo ''Struttura'' dichiarato con la parola chiave ''New'' avente dimensione prestabilita==
 
Ad una variabile vettoriale di tipo ''Struttura'', dichiarato con la parola chiave ''New'' ed avente un numero di elementi prestabilito, è possibile aggiungere dinamicamente ulteriori elementi con le modalità consuete.
 
 
Mostriamo un semplice esempio:
 
Public Struct strutturaModello
 
  prB As Byte
 
  prI As Integer
 
End Struct
 
 
 
'''Public''' Sub Main()
 
 
  Dim b As Byte
 
  Dim strutturaVariabile As New StrutturaModello[10]
 
  Dim sv As New StrutturaModello
 
 
  Print strutturaVariabile.Count
 
  Print
 
 
 
<FONT Color=gray>' ''Aggiungiamo 5 elementi al vettore di tipo "Struttura":''</font>
 
  For b = 1 To 5
 
    strutturaVariabile.Add(sv)
 
<FONT Color=gray>' ''Mostriamo la corrente quantità di elementi posseduta dal vettore:''</font>
 
    Print strutturaVariabile.Count
 
  Next
 
 
    
 
    
 
  '''End'''
 
  '''End'''
 
  
  
Riga 439: Riga 377:
 
  End Struct
 
  End Struct
 
   
 
   
<Font Color= #006400>' ''Dichiariamo la variabile della Struttura come array con numero di elementi indefinito.''
 
' ''In questo caso sarà necessario inserire dopo "As" la parola "'''New'''":''</font>
 
Private <Font Color= #0000FF>prima</font> As '''New''' <Font Color= #B22222>StrutturaModello[]</font>
 
 
   
 
   
 +
'''Public''' Sub Main()
 
   
 
   
  '''Public''' Sub Form_Open()
+
  <Font Color=gray>' ''Dichiariamo la variabile della Struttura come array con numero di elementi indefinito.''
 +
' ''In questo caso sarà necessario inserire dopo "As" la parola "'''New'''", poiché '''creiamo''' un Oggetto array del tipo della Struttura:''</font>
 +
  Dim <Font Color= #0000FF>prima</font> As '''New''' <Font Color= #B22222>StrutturaModello[]</font>
 +
  Dim a As Byte
 +
<Font Color=gray>' ''Dichiariamo un'altra variabile del tipo della Struttura modello:''</font>
 +
  Dim <Font Color= #1E90FF>seconda</font> As <Font Color= #B22222>StrutturaModello</font>
 
   
 
   
  Dim a As Byte
+
  <Font Color=gray>' ''Assegnamo i valori agli elementi della variabile normale di tipo Struttura:''</font>
 
<Font Color= #006400>' ''Dichiariamo un'altra variabile del tipo della Struttura modello:''</font>
 
  Dim <Font Color= #1E90FF>seconda</font> As <Font Color= #B22222>StrutturaModello</font>
 
 
  <Font Color= #006400>' ''Assegnamo i valori agli elementi della variabile normale di tipo Struttura:''</font>
 
 
   For a = 0 To 9
 
   For a = 0 To 9
 
   
 
   
Riga 467: Riga 403:
 
   Next
 
   Next
 
   
 
   
'''End'''
 
 
 
<Font Color= #006400>' ''Andiamo a mostrare i risultati in console:''</font>
 
'''Public''' Sub Button1_Click()
 
 
  Dim a As Byte
 
 
   
 
   
 +
<Font Color=gray>' ''Andiamo a mostrare i risultati in console:''</font>
 
   For a = 0 To 9
 
   For a = 0 To 9
 
     With <Font Color= #0000FF>prima[a]</font>
 
     With <Font Color= #0000FF>prima[a]</font>
Riga 483: Riga 413:
 
   
 
   
 
  '''End'''
 
  '''End'''
 
 
 
==Impostazione successiva del numero di elementi di un Vettore con numero di elementi indefinito==
 
E' possibile impostare successivamente il numero di elementi di una variabile vettoriale dichiarata priva di un numero definito di elementi.
 
 
Nell'esempio che segue dichiariamo una variabile array di tipo ''Struttura'' senza definire preventivamente il numero dei suoi elementi. Esso verrà impostato solo successivamente portandolo complessivamente a 6:
 
Public Struct esempio
 
  b As Byte
 
  i As Integer
 
End Struct
 
 
<FONT color=#006400>' ''Viene dichiarata una variabile vettoriale (array) del tipo della "Struttura" denominata "Esempio" senza definizione del numero dei suoi elementi:''</font>
 
Private eV As Esempio<FONT color=B22222>[]</font>
 
 
 
'''Public''' Sub Form_Open()
 
 
  Dim j, k As Byte
 
 
<FONT color=#006400>' ''Il ciclo imposta volta per volta, incrementadolo sino al valore stabilito, il numero degli elementi della variabile vettoriale di tipo "Struttura":</font>
 
  For k = 1 To 6
 
 
<FONT color=#006400>' ''Viene variato il numero degli elementi della variabile vettoriale del tipo della Struttura denominata "esempio":''</font>
 
    eV = New Esempio[k]
 
 
  Next
 
 
  For j = 0 To eV.Max
 
<FONT color=#006400>' ''Viene creata, quindi, la nuova variabile, e vengono assegnati dei valori ai suoi membri:''</font>
 
      With eV[j] = New Esempio
 
        .b = j
 
        .i = j + 1
 
      End With
 
 
 
  Next
 
 
 
<FONT color=#006400>' ''Si verifica il numero complessivo finale degli elementi della variabile vettoriale:''</font>
 
  Print "eV.Count = "; eV.Count
 
 
 
'''End'''
 
 
 
'''Public''' Sub Button1_Click()
 
 
  Dim j As Byte
 
 
<FONT color=#006400>' ''Si verifica quindi il valori contenuti dai membri di ciascuna variabile creata:''</font>
 
  For j = 0 To eV.Max
 
 
    With eV[j]
 
      Print "b = "; .b
 
      Print "i = "; .i
 
    End With
 
 
 
  Next
 
 
'''End'''
 
 
 
  
  
 
=Strutture che contengono variabili vettoriali di tipo ''Struttura''=
 
=Strutture che contengono variabili vettoriali di tipo ''Struttura''=
Le ''Strutture'' possono contenere membri rappresentati da variabili vettoriali (''array''), o anche matrici, di tipo ''Struttura''. Gli elementi di tali variabili vettoriali, o matrici, possono essere sia definiti che indefiniti, e dunque in quest'ultimo caso incrementabili nelle modalità viste nel paragrafo precedente.
+
Le ''Strutture'' possono contenere membri rappresentati da variabili vettoriali (''array'' ), o anche matrici, di tipo ''Struttura''. Gli elementi di tali variabili vettoriali, o matrici, possono essere sia definiti che indefiniti, e dunque in quest'ultimo caso incrementabili nelle modalità viste nel paragrafo precedente.
 
<BR>In ogni caso la sintassi seguirà le forme viste in precedenza.
 
<BR>In ogni caso la sintassi seguirà le forme viste in precedenza.
 
  
  
Riga 564: Riga 433:
 
   primo_membro As Integer
 
   primo_membro As Integer
 
   secondo_membro As Integer
 
   secondo_membro As Integer
  <FONT color=gray>' ''Dichiariamo mediante la parola "Struct" la variabile vettoriale di tipo della Struttura denominata "Struttura_Secondaria":''</font>
+
  <FONT color=gray>' ''Dichiariamo mediante la parola "Struct" la variabile vettoriale di tipo della Struttura denominata "Struttura_Secondaria".''
 +
' ''La variabile vettoriale di tipo Struttura, membro di una Struttura principale e avente un numero definito di elementi deve essere "annidata".''</font>
 
   <FONT color=Green>str_sec['''n''']</font> As Struct <FONT color=Red>Struttura_Secondaria</font>
 
   <FONT color=Green>str_sec['''n''']</font> As Struct <FONT color=Red>Struttura_Secondaria</font>
 
  End Struct
 
  End Struct
Riga 596: Riga 466:
 
   
 
   
 
  '''End'''
 
  '''End'''
 
  
  
Riga 633: Riga 502:
 
   
 
   
 
   Dim sp As New Struttura_Principale
 
   Dim sp As New Struttura_Principale
   Dim s1, s2, s3 As New Struttura_Secondaria
+
   Dim ss As Struttura_Secondaria
+
  Dim i As Integer
  s1.a = 99
+
 
  s2.a = 100
+
  sp.str_sec = New Struttura_Secondaria[]
  s3.a = 101
+
 
+
  For i = 1 To 8
+
    With ss = New Struttura_Secondaria
  sp.str_sec = New Struttura_Secondaria[]
+
      .a = i * 10
+
    End With
  sp.str_sec.Add(s1)
+
    sp.str_sec.Push(ss)
  sp.str_sec.Add(s2)
+
  Next
  sp.str_sec.Add(s3)
+
 
+
  For i = 0 To 7
  Print sp.str_sec[0].a
+
    Print sp.str_sec[i].a,
  Print sp.str_sec[1].a
+
  Next
  Print sp.str_sec[2].a
+
 
 
 
  '''End'''
 
  '''End'''
 +
 +
 +
 +
=Note=
 +
[1] Vedasi anche la seguente sezione della Wiki: [https://www.gambas-it.org/wiki/index.php?title=Guide_della_comunit%C3%A0#Strutture Strutture]
 +
 +
[2] In ordine all'uso delle ''Strutture'' in Gambas, [https://it.wikipedia.org/wiki/Beno%C3%AEt_Minisini Benoît Minisini] afferma che le ''Strutture'' esistono per permettere a Gambas di dialogare con le librerie C.
 +
<BR>Quando Gambas al suo interno crea un Oggetto di tipo ''Struttura'', esso crea una Classe; pertanto, affinché Gambas non compia un doppio lavoro, al posto di una ''Struttura'' è meglio usare direttamente una Classe.
 +
<BR>
 +
 +
[3] E' appena il caso di ricordare che il passaggio di valori "''per Indirizzo'' " a una sotto-procedura/funzione, non crea una copia dell'Oggetto, o comunque del tipo, passato, come avviene invece nel passaggio "''per Valore'' ", ove si va ad occupare un'altra area di memoria (per generare la copia) di dimensioni pari a quella occupata dall'Oggetto (o dal tipo di valore) passato.
 +
<BR>Va da sé che con il passaggio "''per Valore'' ", avendo due copie uguali, avremo due indirizzi di memoria che si riferiscono ovviamente a due aree di memoria riservate automaticamente di uguale dimensione, ...e quindi un consumo doppio delle risorse (ossia della memoria necessaria per il passaggio dei dati).
 +
<BR>Il passaggio "''per Indirizzo'' " fa in modo che la modifica avvenga direttamente all'indirizzo di memoria dell'Oggetto (o del tipo di valore) passato evitando così la creazione di una copia e l'occupazione di altra memoria per il medesimo dato da passare.

Versione delle 08:30, 5 apr 2023

La Struttura [nota 1] similmente al vettore (Array) aggrega due o più elementi. Però, mentre il vettore aggrega elementi del medesimo tipo (per esempio tutti valori di tipo Integer, o di tipo Byte, etc), la Struttura aggrega solitamente (ma non necessariamente) elementi di tipo diverso.

In Gambas la Struttura può essere considerata una "Classe" priva di Metodi e di Eventi, che, come nel C, definisce e si riserva una porzione di memoria. Più precisamente la Struttura in Gambas è semplicemente una Classe senza Proprietà, Metodi ed Eventi, ed essendo dichiarabile esclusivamente Pubblica, conseguentemente i suoi membri sono "Pubblici". [nota 2]

La Struttura, variabile strutturata di reminescenza del C, è un "tipo derivato " che aggrega elementi di tipo diverso. Ci si serve di essa, qualora si abbia necessità di utilizzare un'area riservata di memoria di tipi di dati non omogenei.


Dichiarazione di una Struttura

La Struttura va dichiarata sempre con la parola chiave Public :

Public Struct Nome_della_Struttura
  nome_membro1 As tipo
  nome_membro2 As tipo
  etc....
End Struct

laddove:

  • Struct è la parola-chiave che introduce alla dichiarazione della Struttura;
  • Nome_della_Struttura è l'etichetta che attribuisce un nome alla dichiarazione della Struttura;
  • nome_membro1 e nome_membro2 sono le variabili della Struttura destinate a ricevere ciascuna un valore (in base al proprio tipo di dati di appartenenza);
  • tipo è il tipo di dati (Byte, Short, Integer, etc.), al quale il membro della Struttura appartiene.

La dichiarazione della Struttura termina sempre con le parole-chiave End Struct .

Esempio astratto

Mostriamo un esempio astratto, nel quale dichiariamo una Struttura con dei membri, che dovranno essere riempiti con dei valori. Tale Struttura avrà un proprio nome e farà da modello alle particolari variabili di tipo Struttura che saranno effettivamente utilizzate per contenere valori.
La Struttura modello avrà il nome: NomeStruttura, mentre la variabile del tipo di quella Struttura la chiameremo: variabileStruttura:

Public Struct NomeStruttura
' definiamo i membri della Struttura "modello".
' Questa Struttura si riserverà, occupandola, 8 byte di memoria in tutto:
  valore1 As Byte     ' Occupa 1 byte + un altro in questo caso per l'allineamento (byte di indici 0 e 1) 
  valore2 As Short    ' Occupa 2 byte: da quello di indice 2 a quello di indice 3
  valore3 as Integer  ' Occupa 4 byte: da quello di indice 4 a quello di indice 7
End Struct

' Possiamo ovviamente dichiarare la variabile di tipo Struttura come "Globale":
' Private variabileStruttura As New NomeStruttura


Public Sub Main()
  
' Dichiariamo in questo semplice esempio la variabile di tipo "Struttura" come "locale":
 Dim variabileStruttura As New NomeStruttura

' Attribuiamo un valore a ciascun membro della variabile di tipo Struttura nel rispetto del proprio tipo di dati:
 variabileStruttura.valore1 = 4
 variabileStruttura.valore2 = 444
 variabileStruttura.valore3 = 44444

' Quindi operiamo con i valori contenuti dalla variabile "variabileStruttura", per esempio li facciamo mostrare in console:
 With variabileStruttura
   Print .valore1
   Print .valore2
   Print .valore3
 End With

End


Dichiarazione e creazione delle variabili di tipo Struttura

La dichiarazione e la creazione di una variabile di tipo Struttura può richiedere l'uso della parola-chiave New.
Con l'uso della parola-chiave "New " viene creato l'Oggetto (ossia la variabile) del tipo della Classe Struttura dichiarata dall'utente.

L'uso della parola-chiave "New" in fase di dichiarazione della variabile di tipo Struttura è richiesto, quando vi è l'assegnazione diretta di un dato ad uno o più membri della Struttura all'interno di una routine, e, quindi, anche quando si deve passare a una funzione una variabile di tipo Struttura.

Esempio:

Public Struct STRUTTURA
  b As Byte
  s As Short
End Struct


Public Sub Main()

 Dim sr As New STRUTTURA
 
' Assegnazione diretta di un valore a un membro nella routine:
 sr.s = 999

' Passaggio per "indirizzo" della variabile di tipo Struttura ad una funzione:
 Prova(sr)
 
 Print sr.b
  
End


Private Function Prova(t as STRUTTURA)
 
' Assegnazione diretta di un valore a un membro nella routine della funzione:
 t.b = 99
    
End

Non è invece richiesto nella routine principale, quando alla variabile deve essere assegnata una Struttura quale ritorno di una Funzione, nella quale è stata creata.
Dunque non sarà necessaria la parola-chiave "New" in una routine principale, qualora la variabile del tipo della Struttura, dichiarata e creata in una Funzione o in una Procedura, venga restituita alla routine principale che ha invocato la Funzione o la Procedura.

Esempio:

Public Struct STRUTTURA
  b As Byte
  s As Short
End Struct


Public Sub Main()

 Dim sr As STRUTTURA     ' Qui non serve la parola-chiave "New", perché la variabile Struttura sarà istanziata nella Funzione chiamata !
 
' La Funzione invocata restituisce una Struttura istanziata nella Funzione medesima:
  sr = Prova(9, 199)
  
  Print sr.b
  Print sr.s
 
End


Private Function Prova(vlb As Byte, vlc As Short) As STRUTTURA   ' La Funzione restituisce la Struttura
 
 Dim tt As New STRUTTURA   ' Crea la variabile del tipo della Struttura dichiarata all'inizio (Struct "STRUTTURA")
  
  tt.b = vlb * 10
  tt.s = vlc * 100
  
  Return tt
  
End

Uso della parola-chiave "Struct"

E' possibile anche usare la parola-chiave "Struct", ma solo per la dichiarazione di una variabile globale di tipo della "Struttura" di riferimento.

Public Struct STRUTTURA
  b As Byte
  c As Short
End Struct

Private variabileStruttura As Struct STRUTTURA

Public Sub Main()

......

Questa parola-chiave incorpora una "Struttura" direttamente all'interno di una variabile o di un'altra Struttura, come fa C per impostazione predefinita. Quindi il contenuto della "Struttura" viene incorporato nell'Oggetto in cui è dichiarato. Di conseguenza, per usarlo come ogni altro Oggetto, Gambas deve creare un Oggetto temporaneo. Ciò lo rende più lento rispetto all'utilizzo di un Oggetto reale.


Passaggio di una Struttura a una Funzione

Una variabile di tipo Struttura può senz'altro essere passata (e ritornata) "per Valore" a una Funzione o a una Procedura; ma, poiché tale variabile è in sostanza un Puntatore, contenente l'indirizzo di memoria della Struttura, sarà più opportuno e più adeguato passarla "per Indirizzo" (analogamente a quanto avviene con gli array): [nota 3]

Public Struct STRUTTURA
  b As Byte
  c As Short
End Struct


Public Sub Main()
 
 Dim sr as New STRUTTURA
 
  sr.b = 10
  sr.c = 100
  
  Funzione(sr)   ' La variabile di tipo Struttura viene passata per "Indirizzo"
  
  Print sr.b
  Print sr.c
  
End


Private Function Funzione(sra As STRUTTURA)
 
  sra.b *= 10
  sra.c *= 10
  
End


Strutture contenenti Vettori e Matrici

Le Strutture possono essere costituite da membri di variabili vettoriali (Array ) e Matrici annidate.
Se il membro è di tipo array di numero di elementi non definito, dovrà essere istanziato opportunamente con la parola-chiave "NEW".

Esempio:

Public Struct StrutturaModello
  mt110] As Byte       ' array monodimensionale annidato definito
  arI As Integer[]      ' array monodimensionale non definito
  mt2[10, 4] As Byte     ' matrice annidata
End Struct
 

Public Sub Form_Open()
 
 Dim variabileStruttura As New StrutturaModello ' Crea l'Oggetto del tipo della Struttura dichiarata
 Dim a, m As Byte

' Crea l'Oggetto del tipo vettore "Intero" del membro della Struttura dichiarata:
 variabileStruttura.arI = New Integer[]

' Assegna dei valori a ciascun membro della "Struttura":
 For a = 0 To 9
   With variabileStruttura
     .mt1[a] = a
     .arI.Push(a)
     For m = 0 To 3
       .mt2[a, m] = a + 1
     Next
   End With
 Next
 
' Verifica i valori assegnati a ciascun membro della "Struttura":
 With variabileStruttura
   Print "mt1"
   For a = 0 To 9
     Print .mt1[a]
   Next
   Print
   Print
   Print "arI"
   For a = 0 To 9
     Print .arI[a]
   Next 
   Print
   Print
   Print "mt2"
   For a = 0 To 9
     For m = 0 To 3
       Print .mt2[a, m]
     Next 
   Next 
   Print 
 End With

End


Strutture che contengono altre Strutture

Le Strutture possono contenere, come proprio membro, altre Strutture. In tal caso la Struttura principale è chiamata "Struttura innestata", mentre quella richiamata nel membro della Struttura principale è chiamata "Struttura innesto". Da tenere presente che è necessario dichiarare e definire la Struttura "innesto", che sarà contenuta nella Struttura principale, prima della dichiarazione della Struttura principale contenente.

Esempio:

' Va dichiarata e definita innanzitutto la Struttura "innesto" che sarà contenuta nella Struttura principale:
Public Struct strutturaInnesto
  sb As Byte
  sI As Integer
  s$ As String
End Struct


' ...poi va dichiarata la Struttura principale "innestata", ossia quella che conterrà la Struttura "innesto".
' In un suo membro verrà dichiarata la variabile di tipo della Struttura "innesto" (che si intende appunto contenere in quella principale):
Public Struct StrutturaPrincipale
  prB As Byte
  prI As Integer
  innestoStru As Struct strutturaInnesto ' oppure più semplicemente: innestoStru As strutturaInnesto
End Struct


Public Sub Main()

 Dim struttVariab As New StrutturaPrincipale
 Dim a As Byte

  a = 1

' Assegniamo i valori alle variabili contenute nei membri della variabile Struttura principale:
 With struttVariab
   .prB = 10
   .prI = 1000
   .innestoStru.sb = a
   .innestoStru.sI = struttVariab.prI + a
   .innestoStru.s$ = "prova " & Str(a)
 End With
 
' Mostra i risultati in console:
 With struttVariab
   Print .prB
   Print .prI
   Print .innestoStru.sb
   Print .innestoStru.sI
   Print .innestoStru.s$
 End With

End

Il risultato in console sarà:
10
1000
1
1001
prova 1


Variabili array di tipo "Struttura"

E' infine possibile realizzare variabili array di tipo "Struttura".

La dichiarazione di variabili vettoriali di tipo Struttura può avvenire:
- mediante la parola Struct. Tale dichiarazione è Statica;
- mediante la parola New. Tale dichiarazione è Dinamica.


Vettori di tipo Struttura con numero di elementi definito

Possiamo dichiarare e creare variabili array di tipo Struttura con numero di elementi definito.

Uso della parola-chiave "Struct"

Se, per dichiarare un array di Struttura, viene usata la parola-chiave "Struct", come sappiamo, tale dichiarazione dovrà essere posta al di fuori delle routine.
La parola-chiave "Struct" può essere utilizzata solo con array annidato del tipo della "Struttura".

Public Struct strutturaModello
  prB As Byte
  prI As Integer
End Struct

' Dichiariamo la variabile della Struttura come array con numero di elementi definito.
Private strutturaVariabile[10] As Struct StrutturaModello


Public Sub Main()

 Dim a As Byte

' Assegnamo i valori agli elementi della variabile array di tipo Struttura:
 For a = 0 To 9
   With strutturaVariabile[a]
     .prB = a
     .prI = 1000 + a
   End With
 Next
 

' Andiamo a mostrare i risultati in console:
 For a = 0 To 9
   With strutturaVariabile[a]
     Print .prB
     Print .prI
   End With
 Next

End

Uso della parola-chiave "New"

Se, per dichiarare un array di Struttura, si usa la parola-chiave "New", la dichiarazione potrà essere posta a seconda delle esigenze sia all'interno (per una variabile array "locale") che all'esterno (per una variabile array "Globale") delle routine.

Public Struct strutturaModello
  prB As Byte
  prI As Integer
End Struct


Public Sub Main()
 
 Dim a As Byte
' Dichiariamo la variabile della Struttura come array con numero di elementi definito.
 Dim strutturaVariabile As New StrutturaModello[10]
  
' Assegnamo i valori agli elementi della variabile array di tipo Struttura:
 For a = 0 To 9
   With strutturaVariabile[a] = New StrutturaModello
     .prB = a
     .prI = 1000 + a
   End With
 Next
 
 
' Andiamo a mostrare i risultati in console:
 For a = 0 To 9
   With strutturaVariabile[a]
     Print .prB
     Print .prI
   End With
 Next
 
End


Vettori con numero di elementi indefinito

E' possibile creare una variabile array di tipo Struttura avente numero di elementi non predefinito. Si potranno quindi aggiungere gli elementi alla variabile vettore ogni qual volta le si attribuisce una semplice variabile di tipo Struttura.

Poiché, come si è avuto modo già di precisare, la dichiarazione di un vettore di tipo Struttura mediante la parola New conferisce dinamicità alla variabile vettoriale medesima, si farà uso di tale parola per consentire l'incremento degli elementi della variabile vettoriale di tipo Struttura.

Esempio:

Public Struct strutturaModello
  prB As Byte
  prI As Integer
End Struct


Public Sub Main()

' Dichiariamo la variabile della Struttura come array con numero di elementi indefinito.
' In questo caso sarà necessario inserire dopo "As" la parola "New", poiché creiamo un Oggetto array del tipo della Struttura:
 Dim prima As New StrutturaModello[]
 Dim a As Byte
' Dichiariamo un'altra variabile del tipo della Struttura modello:
 Dim seconda As StrutturaModello

' Assegnamo i valori agli elementi della variabile normale di tipo Struttura:
  For a = 0 To 9

' Va prevista ovviamente la creazione di ogni variabile di tipo Struttura:
    seconda = New StrutturaModello

    With seconda
     .prB = a
     .prI = 1000 + a
    End With

' La variabile Struttura array vuole una variabile Struttura (non array) del tipo "StrutturaModello":
    prima.Add(seconda)

  Next


' Andiamo a mostrare i risultati in console:
 For a = 0 To 9
   With prima[a]
     Print .prB
     Print .prI
   End With
  Next

End


Strutture che contengono variabili vettoriali di tipo Struttura

Le Strutture possono contenere membri rappresentati da variabili vettoriali (array ), o anche matrici, di tipo Struttura. Gli elementi di tali variabili vettoriali, o matrici, possono essere sia definiti che indefiniti, e dunque in quest'ultimo caso incrementabili nelle modalità viste nel paragrafo precedente.
In ogni caso la sintassi seguirà le forme viste in precedenza.


Variabile vettoriale di tipo Struttura con numero di elementi definito

Nel caso in cui la Struttura contenga uno o più membri rappresentati da variabili vettoriali di tipo Struttura con numero di elementi definito, si procederà nel seguente modo:

Public Struct Struttura_Secondaria
  a As Byte
  b As Integer
End Struct
 

' Quindi la "Struttura" sarà rappresentata all'interno della Struttura principale
' dalla sua relativa variabile vettoriale, denominata "str_sec", usando le parole "As Struct":
Public Struct Struttura_Principale
  primo_membro As Integer
  secondo_membro As Integer
' Dichiariamo mediante la parola "Struct" la variabile vettoriale di tipo della Struttura denominata "Struttura_Secondaria".
' La variabile vettoriale di tipo Struttura, membro di una Struttura principale e avente un numero definito di elementi deve essere "annidata".
  str_sec[n] As Struct Struttura_Secondaria
End Struct


Esempio pratico

Public Struct Struttura_Secondaria
  a As Byte
  b As Integer
End Struct


Public Struct Struttura_Principale
  primo_membro As Integer
  secondo_membro As Integer
  str_sec[3] As Struct Struttura_Secondaria
End Struct


Public Sub Main()

 Dim sp As New Struttura_Principale


  sp.str_sec[0].a = 9
  sp.str_sec[1].a = 10
   
  
  Print sp.str_sec[0].a
  Print sp.str_sec[1].a

End


Variabile vettoriale di tipo Struttura con numero di elementi indefinito

Nel caso in cui la Struttura contenga uno o più membri rappresentati da variabili vettoriali di tipo Struttura con numero di elementi non definito, si procederà nel seguente modo:

Public Struct Struttura_Secondaria
  a As Byte
  b As Integer
End Struct


' Quindi la "Struttura" sarà rappresentata all'interno della Struttura principale dalla sua relativa variabile vettoriale, denominata "str_sec":
Public Struct Struttura_Principale
  primo_membro As Integer
  secondo_membro As Integer
' Dichiariamo la variabile vettoriale di tipo della Struttura denominata "Struttura_Secondaria[]":
  str_sec As Struttura_Secondaria[]
End Struct


Esempio pratico

Public Struct Struttura_Secondaria
  a As Byte
  b As Integer
End Struct


Public Struct Struttura_Principale
  primo_membro As Integer
  secondo_membro As Integer
  str_sec As Struttura_Secondaria[]
End Struct


Public Sub Main()

 Dim sp As New Struttura_Principale
 Dim ss As Struttura_Secondaria
 Dim i As Integer
 
 sp.str_sec = New Struttura_Secondaria[]
 
 For i = 1 To 8
   With ss = New Struttura_Secondaria
     .a = i * 10
   End With
   sp.str_sec.Push(ss)
 Next
 
 For i = 0 To 7
   Print sp.str_sec[i].a,
 Next
 
End


Note

[1] Vedasi anche la seguente sezione della Wiki: Strutture

[2] In ordine all'uso delle Strutture in Gambas, Benoît Minisini afferma che le Strutture esistono per permettere a Gambas di dialogare con le librerie C.
Quando Gambas al suo interno crea un Oggetto di tipo Struttura, esso crea una Classe; pertanto, affinché Gambas non compia un doppio lavoro, al posto di una Struttura è meglio usare direttamente una Classe.

[3] E' appena il caso di ricordare che il passaggio di valori "per Indirizzo " a una sotto-procedura/funzione, non crea una copia dell'Oggetto, o comunque del tipo, passato, come avviene invece nel passaggio "per Valore ", ove si va ad occupare un'altra area di memoria (per generare la copia) di dimensioni pari a quella occupata dall'Oggetto (o dal tipo di valore) passato.
Va da sé che con il passaggio "per Valore ", avendo due copie uguali, avremo due indirizzi di memoria che si riferiscono ovviamente a due aree di memoria riservate automaticamente di uguale dimensione, ...e quindi un consumo doppio delle risorse (ossia della memoria necessaria per il passaggio dei dati).
Il passaggio "per Indirizzo " fa in modo che la modifica avvenga direttamente all'indirizzo di memoria dell'Oggetto (o del tipo di valore) passato evitando così la creazione di una copia e l'occupazione di altra memoria per il medesimo dato da passare.