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''' a As New Byte[]
+
  Private bb As New Byte[]
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Form_Open()
+
  Public Sub Form_Open()
 
   
 
   
−
   Dim j As Byte
+
   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
−
     a.Add(10 * j)
+
     bb.Push(10 * b)
−
     Print a[j]
+
     Print bb[b]
 
   Next
 
   Next
 
   
 
   
−
  '''End'''
+
  End
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Button1_Click()
+
  Public Sub Button1_Click()
 
   
 
   
−
   Dim j As Byte
+
   Dim b As Byte
 
   
 
   
−
+
  <FONT color=gray>' ''E' sufficiente aggiungere all'indice 0, ossia in testa, il valore dell'ultimo elemento:''</font>
−
  <FONT color=#006400>' ''E' sufficiente aggiungere all'indice 0, ossia in testa, il valore dell'ultimo elemento:''</font>
+
  <FONT color=#B22222>bb.Push(b[3], 0)</font>
−
    <FONT color=#B22222>a.Add(a[3], 0)</font>
 
 
    
 
    
 +
  For b = 0 To 3
 +
    Print bb[b]
 +
  Next
 
   
 
   
−
  For j = 0 To 3
+
  End
−
    Print a[j]
 
−
  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
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Gestione_di_una_coda_mediante_array_in_modo_circolare&oldid=36120"