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

Da Gambas-it.org - Wikipedia.
Riga 15: Riga 15:
 
   
 
   
 
   
 
   
    variabValor as Byte  ''<Font Color= #006400>' questa variabile mi serve poi per l'Inputbox''</font>
+
variabValor as Byte  ''<Font Color= #006400>' questa variabile mi serve poi per l'Inputbox''</font>
 
 
   
 
   
 
   
 
   

Versione delle 04:18, 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