Tipi di dati personalizzati 2

Per usare un tipo di dati personalizzato è necessariodichiarare le variabili di tale tipo tramitel’enunciato Dim:

Dim nomevariabile As nomeTipo

Dopo aver dichiarato un tipo di dati personalizzato, sipotrà accedere agli elementi dati servendosidell’operatore . (punto)

Es. Dichiariamo innanzitutto il tipo di dati:

Type PuntoXloc As IntegerYloc As IntegerEnd Type

Per dichiarare ora la variabile di tipo Punto, dovremoscrivere:

Dim miaPosizione As Punto

Nel corso del listato, per accedere agli elementi dati dellavariabile miaPosizione, si dovrà scrivere:

MiaPosizione.Xloc = 12MiaPosizione.Yloc = 22

Si ha anche la possibilità di utilizzare comeargomento un tipo di dati personalizzato (come un puntatoredi puntatore). La sintassi generale per questa operazioneè:

NomeArgomento As nomeTipo

Ecco un esempio pratico:

Sub CopiaPunto(PuntoOrigine As Punto, PuntoDest As Punto)PuntoDest.Xloc = PuntoOrigine.XlocPuntoDest.Yloc = PuntoOrigine.YlocEnd Sub