VB.Net/Data Structure/Queue

Queue Demo: enqueue, dequeue and peek

<source lang="vbnet"> Imports System Imports System.Collections Public Class MainClass

   Shared Sub Main()
            Dim intQueue As New Queue(  )
            Dim i As Integer
            For i = 0 To 4
                intQueue.Enqueue((i * 5))
            Next i
            Console.WriteLine("intQueue values:")
            DisplayValues(intQueue)
            Console.WriteLine("(Dequeue) {0}", intQueue.Dequeue(  ))
            Console.WriteLine("intQueue values:")
            DisplayValues(intQueue)
            Console.WriteLine("(Dequeue) {0}", intQueue.Dequeue(  ))
            Console.WriteLine("intQueue values:")
            DisplayValues(intQueue)
            Console.WriteLine("(Peek)   {0}", intQueue.Peek(  ))
            Console.WriteLine("intQueue values:")
            DisplayValues(intQueue)
  End Sub
  Public Shared Sub DisplayValues(ByVal myCollection As IEnumerable)
      Dim myEnumerator As IEnumerator = myCollection.GetEnumerator(  )
      While myEnumerator.MoveNext(  )
          Console.WriteLine("{0} ", myEnumerator.Current)
      End While
      Console.WriteLine(  )
  End Sub

End Class

      </source>

Queue Item Count

<source lang="vbnet"> Imports System Imports System.Collections Imports System.Collections.Specialized

Public Class MainClass

   Shared Sub Main(ByVal args As String())
       Dim m_Queue As New Queue
       m_Queue.Enqueue("Text")
       m_Queue.Enqueue("Text")
       m_Queue.Enqueue("Text")
       Dim txt As String = DirectCast(m_Queue.Dequeue(), String)
       Console.WriteLine(txt)
       For Each str As String In m_Queue.ToArray()
           Console.WriteLine(str)
       Next str
       Console.WriteLine(m_Queue.Count )
       
   End Sub

End Class

      </source>

Simple Demo for Queue: Enqueue, Dequeue and Peek

<source lang="vbnet"> Imports System Imports System.Collections

Public Class MainClass

   Shared Sub Main(ByVal args As String())
            Dim intQueue As New Queue( )
            " populate the array
            Dim i As Integer
            For i = 0 To 4
                intQueue.Enqueue((i * 5))
            Next i
            " Display the Queue.
            Console.WriteLine("intQueue values:")
            DisplayValues(intQueue)
            " Remove an element from the queue.
            Console.WriteLine("(Dequeue) {0}", intQueue.Dequeue( ))
            " Display the Queue.
            Console.WriteLine("intQueue values:")
            DisplayValues(intQueue)
            " Remove another element from the queue.
            Console.WriteLine("(Dequeue) {0}", intQueue.Dequeue( ))
            " Display the Queue.
            Console.WriteLine("intQueue values:")
            DisplayValues(intQueue)
            " View the first element in the
            " Queue but do not remove.
            Console.WriteLine("(Peek)   {0}", intQueue.Peek( ))
            " Display the Queue.
            Console.WriteLine("intQueue values:")
            DisplayValues(intQueue)
   End Sub
   Public Shared Sub DisplayValues(ByVal myCollection As IEnumerable)
       Dim myEnumerator As IEnumerator = myCollection.GetEnumerator( )
       While myEnumerator.MoveNext( )
            Console.WriteLine("{0} ", myEnumerator.Current)
       End While
       Console.WriteLine( )
   End Sub "DisplayValues

End Class

      </source>