VB.Net by API/System.Collections/Queue — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
(нет различий)

Текущая версия на 12:51, 26 мая 2010

Queue.Count

  
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


Queue.Dequeue

  
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


Queue.Peek

  
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


Queue.ToArray

  

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
Источник — «http://vbex.ru/index.php?title=VB.Net_by_API/System.Collections/Queue&oldid=2568»