Strutture: dichiarazione ed uso
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.
In Gambas3 la Struttura, analogamente ad un oggetto, può essere considerata una Classe senza metodi, che, come nel C, definisce e si riserva una porzione di memoria.
Dichiariamo una Struttura con dei campi, 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.
Nell'esempio che segue, la Struttura modello avrà il nome: NomeStruttura, mentre la variabile del tipo di quella Struttura la chiameremo: variabileStruttura:
Public Struct NomeStruttura ' definiamo i campi della Struttura "modello"
' Questa Struttura si riserverà, occupandola, 9 byte di memoria in tutto:
valore1 As String ' dal byte n° 0 al n° 3
valore2 As Byte ' il byte n° 4
valore3 as Integer ' dal byte n° 5 al byte n° 8
End Struct
' Dichiariamo una variabile di tipo Struttura (composta a perfetta immagine della Struttura modello):
Private variabileStruttura As New NomeStruttura
' E' possibile anche usare la parola "Struct" invece di New:
Private variabileStruttura As Struct NomeStruttura
Public Sub Form_Open()
Dim variabValor as Byte
var$ = Inputbox("Immettiamo un numero per \"riempire\" il campo \"valore3\" di \"variabileStruttura\": valore3 .")
' Attribuiamo un valore a ciascun campo variabile della variabile di tipo Struttura
' (in questo esempio i valori sono due già definiti (3 e 6) ed il terzo che abbiamo immesso con "InputBox"):
variabileStruttura.valore1 = "Esempio sulle Strutture"
variabileStruttura.valore2 = 6
variabileStruttura.valore3 = Val(var$)
End
Public Sub Button1_Click()
' quindi operiamo con i valori contenuti dalla variabile "variabStruttura",
' per esempio li facciamo mostrare in console:
With variabileStruttura
Print .valore1
Print .valore2
Print .valore3
End With
End
Indice
Strutture contenenti Vettori e Matrici
Le Strutture possono essere costituite da campi di variabili vettoriali (Array) e Matrici.
Esempio:
Public Struct StrutturaModello
arB[10] As Byte ' array monodimensionale definito
arI As Integer[] ' array monodimensionale non definito
mt$[10, 4] As String ' matrice
End Struct
Private variabileStruttura As New StrutturaModello
Public Sub Form_Open()
Dim a, m As Byte
variabileStruttura.arI = New Integer[]
For a = 0 To 9
With variabileStruttura
.arB[a] = a
.arI.Add(a + a)
For m = 0 To 3
.mt$[a, m] = Chr(variabileStruttura.arI[a] + 70)
Next
End With
Next
End
Public Sub Button1_Click()
Dim a, m As Byte
For a = 0 To 9
With variabileStruttura
Print .arB[a]
Print .arI[a]
For m = 0 To 3
Print .mt$[a, m]
Next
End With
Next
End
Strutture che contengono altre Strutture
Le Strutture possono contenere, come proprio elemento, altre Strutture. Da tenere presente che è necessario dichiarare e definire la Struttura, che sarà contenuta nella Struttura principale, prima della dichiarazione della Struttura principale contenente.
Esempio:
' va dichiarata e definita innanzitutto la Struttura ' che sarà contenuta nella Struttura principale: Public Struct strutturaInterna sb As Byte sI As Integer s$ As String End Struct Private internaStru As New strutturaInterna ' ...quindi la Struttura principale, ossia quella che conterrà la Struttura interna: Public Struct StrutturaPrincipale prB As Byte prI As Integer internaStru As Struct strutturaInterna End Struct Private struttVariab As New StrutturaPrincipale Public Sub Form_Open() Dim a As Byte a = 1 ' Assegnamo i valori alle variabili contenute nei campi della variabile Struttura principale: With struttVariab .prB = 10 .prI = 1000 .internaStru.sb = a .internaStru.sI = struttVariab.prI + a .internaStru.s$ = "prova " & Str(a) End With End ' Andiamo a mostrare i risultati in console: Public Sub Button1_Click() Dim a As Byte a = 1 With struttVariab Print .prB Print .prI Print .internaStru.sb Print .internaStru.sI Print .internaStru.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".
Vettori con numero di elementi definito
Possiamo dichiarare e creare variabili array di tipo Struttura con numero di elementi definito.
1° esempio
Public Struct strutturaModello
prB As Byte
prI As Integer
End Struct
' Dichiariamo la variabile della Struttura come array con numero di elementi definito.
' In questo tipo di esempio sarà necessario inserire dopo "As" la parola "Struct":
Private strutturaVariabile[10] As Struct StrutturaModello
Public Sub Form_Open()
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
End
' Andiamo a mostrare i risultati in console:
Public Sub Button1_Click()
Dim a As Byte
For a = 0 To 9
With strutturaVariabile[a]
Print .prB
Print .prI
End With
Next
End
2° esempio
Public Struct strutturaModello
prB As Byte
prI As Integer
End Struct
' Dichiariamo la variabile della Struttura come array con numero di elementi definito.
' In questo caso sarà necessario inserire dopo "As" la parola "New":
Private strutturaVariabile As New StrutturaModello[10]
Public Sub Form_Open()
Dim a As Byte
' 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
End
' Andiamo a mostrare i risultati in console:
Public Sub Button1_Click()
Dim a As Byte
For a = 0 To 9
With strutturaVariabile[a]
Print .prB
Print .prI
End With
Next
End
Variazione successiva del numero degli elementi
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
' 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:
Private eV As New Esempio[3]
Public Sub Form_Open()
Dim j, k As Byte
' Il ciclo imposta volta per volta, incrementandolo, il valore del numero degli elementi
' della variabile vettoriale di tipo "Struttura":
For k = 4 To 6
eV = New Esempio[k]
Next
For j = 0 To eV.Max
' Viene creata, quindi, la nuova variabile,
' e vengono assegnati dei valori ai suoi campi:
With eV[j] = New Esempio
.b = j
.i = j + 1
End With
Next
' Si verifica il numero complessivo finale
' degli elementi della variabile vettoriale:
Print "eV.Count = "; eV.Count
End
Public Sub Button1_Click()
Dim j As Byte
' Si verifica quindi il valori contenuti dai campi
' di ciascuna variabile creata:
For j = 0 To eV.Max
With eV[j]
Print "b = "; .b
Print "i = "; .i
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.
Esempio:
Public Struct strutturaModello
prB As Byte
prI As Integer
End Struct
' Dichiariamo la variabile della Struttura come array con numero di elementi indefinito.
' In questo caso sarà necessario inserire dopo "As" la parola "New":
Private prima As New StrutturaModello[]
Public Sub Form_Open()
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
End
' Andiamo a mostrare i risultati in console:
Public Sub Button1_Click()
Dim a As Byte
For a = 0 To 9
With prima[a]
Print .prB
Print .prI
End With
Next
End
Impostazione successiva del numero di elementi
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
' 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:
Private eV As Esempio[]
Public Sub Form_Open()
Dim j, k As Byte
' Il ciclo imposta volta per volta, incrementadolo sino al valore stabilito,
il numero degli elementi della variabile vettoriale di tipo "Struttura":
For k = 1 To 6
' Viene variato il numero degli elementi della variabile vettoriale
' del tipo della Struttura denominata "esempio":
eV = New Esempio[k]
Next
For j = 0 To eV.Max
' Viene creata, quindi, la nuova variabile,
' e vengono assegnati dei valori ai suoi campi:
With eV[j] = New Esempio
.b = j
.i = j + 1
End With
Next
' Si verifica il numero complessivo finale
' degli elementi della variabile vettoriale:
Print "eV.Count = "; eV.Count
End
Public Sub Button1_Click()
Dim j As Byte
' Si verifica quindi il valori contenuti dai campi
' di ciascuna variabile creata:
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
Le Strutture possono contenere campi 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ù campi 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 ' Dichiariamo mediante la parola "New" la variabile vettoriale di tipo della Struttura denominata "Struttura_Secondaria", ' attribuendole un determinato numero di elementi (che qui indicheremo genericamente con n): Private str_sec As New Struttura_Secondaria[n] ' 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_campo As Integer secondo_campo As Integer str_sec[n] As Struct Struttura_Secondaria End Struct
Variabile vettoriale di tipo Struttura con numero di elementi indefinito
Nel caso in cui la Struttura contenga uno o più campi 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 ' Dichiariamo mediante la parola "New" la variabile vettoriale di tipo della Struttura denominata "Struttura_Secondaria": Private str_sec As New Struttura_Secondaria[] ' Quindi la "Struttura" sarà rappresentata all'interno della Struttura principale dalla sua relativa variabile vettoriale, denominata "str_sec": Public Struct Struttura_Principale primo_campo As Integer secondo_campo As Integer str_sec As Struttura_Secondaria[] End Struct
