Differenze tra le versioni di "Gestione di una coda mediante array in modo circolare"
Da Gambas-it.org - Wikipedia.
Riga 2: | Riga 2: | ||
Facciamo l'esempio di un array di quattro elementi: | Facciamo l'esempio di un array di quattro elementi: | ||
− | + | Private bb As New Byte[] | |
− | + | Public Sub Form_Open() | |
− | Dim | + | Dim b As Byte |
<FONT color=#006400>' ''Impostiamo l'array di quattro elementi:''</font> | <FONT color=#006400>' ''Impostiamo l'array di quattro elementi:''</font> | ||
For j = 0 To 3 | For j = 0 To 3 | ||
− | + | bb.Push(10 * b) | |
− | Print | + | Print bb[b] |
Next | Next | ||
− | + | End | |
− | + | Public Sub Button1_Click() | |
− | Dim | + | Dim b As Byte |
− | + | <FONT color=gray>' ''E' sufficiente aggiungere all'indice 0, ossia in testa, il valore dell'ultimo elemento:''</font> | |
− | <FONT color= | + | <FONT color=#B22222>bb.Push(b[3], 0)</font> |
− | |||
+ | For b = 0 To 3 | ||
+ | Print bb[b] | ||
+ | Next | ||
− | + | End | |
− | |||
− | |||
− | |||
− |
Versione delle 17:08, 12 gen 2024
Avendo un array, si effettua su di esso un'operazione in modo circolare, cosicché l'ultimo elemento vada in testa spostando gli altri elementi di una posizione all'interno dell'array medesimo. Si otterrà, così, un effetto rotatorio degli elementi presenti nell'array.
Facciamo l'esempio di un array di quattro elementi:
Private bb As New Byte[] Public Sub Form_Open() Dim b As Byte ' Impostiamo l'array di quattro elementi: For j = 0 To 3 bb.Push(10 * b) Print bb[b] Next End Public Sub Button1_Click() Dim b As Byte ' E' sufficiente aggiungere all'indice 0, ossia in testa, il valore dell'ultimo elemento: bb.Push(b[3], 0) For b = 0 To 3 Print bb[b] Next End