Queue

Queue:

 यह भी एक प्रकार का डाटा structure है जो की Queue की तरह work करता है। इसमे First in First out (FIFO) के अनुसार काम करता है। इसमे सबसे पहले insert किया गया item सबसे पहले बाहर जाएगा और सबसे last मे input किया गया item last मे बाहर जाएगा।

Syntax: Dim <Queue Name> As New Queue 

Ex- Dim q as new queue 

• Enqueue: इस method का use item को queue मे add करने के लिए किया जाता है। 

Syntax: Queue.Enqueue (object) 

Ex- q.Enqueue (“A”) 

• Dequeue: इस method का use item को queue से delete करने के लिए किया जाता है। 

Syntax: Queue.Dequeue() 

Ex- q.Dequeue () 

• Contains: इसका प्रयोग item को चेक करने के लिए किया जाता है। 

Syntax: Queue.Contains (object) 

Ex- q.Contains (“A”) 

Program: Queue:

Public Class Form1

    Dim q As New Queue

    Private Sub Refreshlabel()

        Dim i As Integer

        Dim ar() As Object

        ReDim ar(q.Count)

        ar = q.ToArray

        Label1.Text = ""

        For i = 0 To q.Count - 1

            Label1.Text = Label1.Text & ar(i) & Chr(13)

        Next

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        q.Enqueue(TextBox1.Text)

        TextBox1.Clear()

        TextBox1.Focus()

        Refreshlabel()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        q.Dequeue()

        Refreshlabel()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim s As String

        s = InputBox("Enter value to check")

        If q.Contains(s) = True Then

            MsgBox("Found")

        Else

            MsgBox("not Found")

        End If

    End Sub

End Class