Gambas-it.org - Wikipedia - Contributi dell'utente [it]

Strutture: dichiarazione ed uso

2012-03-30T11:18:41Z

94.167.159.236:

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'''

Strutture: dichiarazione ed uso

2012-03-30T11:18:15Z

94.167.159.236:

Strutture: dichiarazione ed uso

2012-03-30T11:17:32Z

94.167.159.236:

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'''

Strutture: dichiarazione ed uso

2012-03-30T11:16:09Z

94.167.159.236:

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'''