Gestione di una coda mediante array in modo circolare

Da Gambas-it.org - Wikipedia.

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