Strutture: dichiarazione ed uso: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
(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...) |
Nessun oggetto della modifica |
||
| 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 05: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