Differenze tra le versioni di "Strutture: dichiarazione ed uso"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: '''PUBLIC''' Struct NomeStruttura ''<Font Color= #006400>' definisco i campi della Struttura "astratta" ' ''Questa Struttura si riserverà, occupandola, 9 byte di memoria in tut...) |
|||
| Riga 1: | Riga 1: | ||
| − | '''PUBLIC''' Struct NomeStruttura ''<Font Color= #006400>' definisco i campi della Struttura "astratta" | + | 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 strutture che saranno effettivamente utilizzare per contenere valori. |
| + | |||
| + | |||
| + | '''PUBLIC''' Struct ''<Font Color= #B22222>NomeStruttura</font> ''<Font Color= #006400>' ''definisco i campi della Struttura "astratta"''</font> | ||
| − | ' ''Questa Struttura si riserverà, occupandola, 9 byte di memoria in tutto:''</font> | + | ''<Font Color= #006400>' ''Questa Struttura si riserverà, occupandola, 9 byte di memoria in tutto:''</font> |
valore1 As Integer ''<Font Color= #006400>' dal byte n° 0 al n° 3''</font> | valore1 As Integer ''<Font Color= #006400>' dal byte n° 0 al n° 3''</font> | ||
valore2 As Integer ''<Font Color= #006400>' dal byte n° 4 al n° 7''</font> | valore2 As Integer ''<Font Color= #006400>' dal byte n° 4 al n° 7''</font> | ||
| Riga 8: | Riga 11: | ||
''<Font Color= #006400>' creo una struttura "reale" composta a perfetta immagine di quella astratta:''</font> | ''<Font Color= #006400>' creo una struttura "reale" composta a perfetta immagine di quella astratta:''</font> | ||
| − | nuovaStruttura As New NomeStruttura | + | nuovaStruttura As New <Font Color= #B22222>NomeStruttura</font> |
| + | |||
| Riga 15: | Riga 19: | ||
| − | ''' | + | '''Public''' Sub Form_Open() |
variabValor = inputbox("Immetto un valore per \"riempire\" il campo \"variabile\" di \"nuovaStruttura\": valore3 .") | variabValor = inputbox("Immetto un valore per \"riempire\" il campo \"variabile\" di \"nuovaStruttura\": valore3 .") | ||
| Riga 24: | Riga 28: | ||
nuovaStruttura.valore3 = variabValor | nuovaStruttura.valore3 = variabValor | ||
| − | ''' | + | '''End''' |
| − | ''' | + | '''Public''' Sub Button1_Click() |
<Font Color= #006400>' ''quindi opero con i valori contenuti da "nuovaStruttura"''</font> | <Font Color= #006400>' ''quindi opero con i valori contenuti da "nuovaStruttura"''</font> | ||
| Riga 36: | Riga 40: | ||
End With | End With | ||
| − | ''' | + | '''End''' |
Versione delle 04:16, 30 mar 2012
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 strutture che saranno effettivamente utilizzare per contenere valori.
PUBLIC Struct NomeStruttura ' definisco i campi della Struttura "astratta"
' Questa Struttura si riserverà, occupandola, 9 byte di memoria in tutto:
valore1 As Integer ' dal byte n° 0 al n° 3
valore2 As Integer ' dal byte n° 4 al n° 7
valore3 as Byte ' il byte n° 8
END Struct
' creo una struttura "reale" composta a perfetta immagine di quella astratta:
nuovaStruttura As New NomeStruttura
variabValor as Byte ' questa variabile mi serve poi per l'Inputbox
Public Sub Form_Open()
variabValor = inputbox("Immetto un valore per \"riempire\" il campo \"variabile\" di \"nuovaStruttura\": valore3 .")
' attribuisco il valore a ciascun campo variabile della struttura
' (qui i valori sono due "costanti" ed uno "variabile"):
nuovaStruttura.valore1 = 3
nuovaStruttura.valore2 = 6
nuovaStruttura.valore3 = variabValor
End
Public Sub Button1_Click()
' quindi opero con i valori contenuti da "nuovaStruttura"
With nuovaStruttura
Print .valore1
Print .valore2
Print .valore3
End With
End
