|
|
| (6 versioni intermedie di uno stesso utente non sono mostrate) |
| Riga 1: |
Riga 1: |
| − | Descriveremo la creazione e l'assegnazione di valori ad un array monodimensionale, o [http://it.wikipedia.org/wiki/Array vettore], dinamico (con quantità di elementi non definita a priori), nonché i casi in cui la definizione della quantità degli elementi viene definita successivamente in modo esplicito o in modo dinamico.
| + | #REDIRECT [[Array:_creazione,_modifica_e_riempimento]] |
| − | | |
| − | Un vettore è dinamico se, non avendo definita a priori la quantità dei suoi elementi interni, è suscettibile di incrementare detta quantità di volta in volta, ogni qualvolta lo si renda necessario.
| |
| − | | |
| − | Esso va dichiarato ponendo:
| |
| − | * il nome indentificatore della variabile vettoriale
| |
| − | * la parola chiave ''New'' (che determina la <SPAN Style="text-decoration:underline">creazione</span> di un nuovo oggetto);
| |
| − | * il tipo di valore aunto dal vettore;
| |
| − | * due parentesi quadre prive al loro interno di qualsiasi carattere.
| |
| − | Esempio con un vettore di tipo ''Byte'':
| |
| − | Dim vettore As New Byte[]
| |
| − | | |
| − | | |
| − | ==Creazione di un array monodimensionale, definizione ''dinamica'' dei suoi elementi e loro riempimento==
| |
| − | Oltre alla dichiarazione dell'array (vettore), per ottenere l'incremento del numero di elementi interni, e dunque l'assegnazione di un determinato valore a ciascun nuovo elemento, bisognerà creare l'array utilizzando la parola ''New''. Un nuovo elemento verrà generato (incrementando così il numero di elementi dell'array in quel momento) aggiungendo un nuovo valore all'array mediante il metodo ''.Add()''.
| |
| − | '''Public''' Sub Button1_Click()
| |
| − |
| |
| − | Dim bb As <FONT color=#B22222>New</font> Byte<FONT color=#B22222>[]</font> <FONT color=gray>' ''All'interno delle parentesi quadre non è indicato alcun valore''</font>
| |
| − | Dim j As Byte
| |
| − |
| |
| − |
| |
| − | For j = 0 To 9
| |
| − |
| |
| − | <FONT color=gray>' ''Ad ogni ciclo viene assegnato un valore all'array,
| |
| − | ' ''e quindi viene creato un nuovo elemento di indice successivo all'ultimo che era stato generato:''</font>
| |
| − | bb.<FONT color=#B22222>Add</font>(j)
| |
| − |
| |
| − | Next
| |
| − |
| |
| − | '''End'''
| |
| − | | |
| − | | |
| − | | |
| − | ==Modifica successiva del numero di elementi di un Vettore==
| |
| − | La definizione della quantità di elementi di un Vettore può essere modificata successivamente in codice con varie modalità.
| |
| − | | |
| − | | |
| − | ===Modifica della quantità degli elementi di un vettore con numero di elementi non definito===
| |
| − | '''Public''' Sub Main()
| |
| − |
| |
| − | Dim bb As New Byte[]
| |
| − |
| |
| − | <FONT color=gray>' ''Verifica dello stato iniziale del numero degli elementi del vettore:''</font>
| |
| − | Print bb.Count
| |
| − |
| |
| − | <FONT color=gray>' ''Variazione del numero degli elementi mediante "'''dichiarazione esplicita'''":''</font>
| |
| − | bb = [0, 1, 2]
| |
| − | Print bb.Count
| |
| − |
| |
| − | <FONT color=gray>' ''Variazione del numero degli elementi mediante il metodo "'''.Push()'''" (si può usare anhe il metodo ''.Add()'' ):''</font>
| |
| − | bb.Push(99)
| |
| − | Print bb.Count
| |
| − |
| |
| − | <FONT color=gray>' ''Variazione del numero degli elementi mediante il metodo "'''.Resize()'''":''</font>
| |
| − | bb.Resize(5)
| |
| − | Print a.Count
| |
| − |
| |
| − | '''End'''
| |
| − | | |
| − | | |
| − | ===Modifica della quantità degli elementi di un vettore con numero di elementi già definito===
| |
| − | '''Public''' Sub Main()
| |
| − |
| |
| − | Dim bb As New Byte[3]
| |
| − |
| |
| − | <FONT color=gray>' ''Verifica dello stato iniziale del numero degli elementi del vettore:''</font>
| |
| − | Print bb.Count
| |
| − |
| |
| − | <FONT color=gray>' ''Variazione del numero degli elementi mediante "'''dichiarazione esplicita'''":''</font>
| |
| − | bb = [0, 1, 2, 3]
| |
| − | Print bb.Count
| |
| − |
| |
| − | <FONT color=gray>' ''Variazione del numero degli elementi mediante il metodo "'''.Push()'''" (si può usare anhe il metodo '''.Add()''' ):''</font>
| |
| − | bb.Push(99)
| |
| − | Print bb.Count
| |
| − |
| |
| − | <FONT color=gray>' ''Variazione del numero degli elementi mediante il metodo "'''.Resize()'''":''</font>
| |
| − | bb.Resize(3)
| |
| − | Print b.Count
| |
| − |
| |
| − | '''End'''
| |
| − | | |
| − | | |
| − | | |
| − | ==Definizione esplicita ''successiva'' della quantità degli elementi==
| |
| − | In questo caso la quantità di elementi di un array non è definita con la dichiarazione, ma lo diviene successivamente. Si provvede, insomma, a stabilire il numero definito degli elementi dell'array semplicemente in una fase successiva e non preliminarmente.
| |
| − | | |
| − | Nella dichiarazione della variabile di tipo vettoriale ovviamente non sarà fatta alcuna determinazione del numero di elementi del vettore medesimo. Tale definizione avverra successivamente in routine: si provvederà alla creazione della variabile vettoriale e, quindi, alla definizione del numero dei suoi elementi.
| |
| − | '''Public''' Sub Main()
| |
| − |
| |
| − | Dim ii As Integer[] <FONT color=gray>' ''dichiara l'array, ma senza definirne la quantità degli elementi''</font>
| |
| − | Dim i As Integer
| |
| − |
| |
| − | <FONT color=gray>' ''Il vettore assume la quantità di elementi definiti manualmente con l'"InputBox":''</font>
| |
| − | <FONT color=B22222>ii = New Integer[<B>8</b>]</font>
| |
| − |
| |
| − | For i = 0 To ii.Max
| |
| − | <FONT color=gray>' ''Riempie ogni elemento dell'array, però, ovviamente fino al suo numero massimo definito:''</font>
| |
| − | ii[i] = i
| |
| − | Print ii[i]
| |
| − | Next
| |
| − |
| |
| − | '''End'''
| |
| − | e similmente in un array multidimensionale.
| |
| − | | |
| − | | |
| − | ====Definizione del numero degli elementi sulla base della dimensione di un file====
| |
| − | Se il numero di elementi del vettore dovrà assumere il valore uguale al numero di byte che compongono un file, si potrà utilizzare la proprietà ''.Size'' della Classe ''Stat()'':
| |
| − | '''Public''' Sub Main()
| |
| − |
| |
| − | Dim bb As Byte[]
| |
| − | Dim fl As File
| |
| − |
| |
| − |
| |
| − | fl = Open "<FONT color=gray>''/percorso/del/file''</font>" For Read
| |
| − |
| |
| − | bb = New Byte[<FONT color=B22222>Lof(fl)</font>]
| |
| − |
| |
| − | bb.Read(fl)
| |
| − |
| |
| − | fl.Close
| |
| − |
| |
| − | '''End'''
| |
