VB.Netのお勉強



Queue(キュー)＠VB.Net

Queueは、先入れ先出し(FIFO)です。
日常で良くある行列ですね。
並んだ順番に店に入ります。

アイテムを追加することをEnqueueといいます。
末尾にアイテムを追加します。

アイテムを取り出すことをDequeueといいます。
先頭のアイテムを取り出します。

以下では、フォームにListBoxとボタンを2つ配置します。
ボタンが押されたら、EnqueueとDequeueの処理を行います。

Queueに対して、Enqueue、のを行い。
ListBoxにStackを設定します。

フォームを起動して、動かします。
Queueの様子が見れます。


Public Class Form1

    Private queue As Queue
    Private count As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'キュー生成
        queue = New Queue(10)
        count = 0
    End Sub

    'Enqueueボタン処理
    Private Sub EnququeBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnququeBtn.Click
        'Enqueue
        queue.Enqueue("Item" + count.ToString())

        'ListBoxにQueueを配置
        Me.ListBox1.DataSource = queue.ToArray()
        count += 1
    End Sub

    'Dequeueボタン処理
    Private Sub DequeueBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DequeueBtn.Click
        'Dequeue
        queue.Dequeue()

        'ListBoxにQueueを配置
        Me.ListBox1.DataSource = queue.ToArray()
    End Sub

End Class




Copyright (C) 2008-2011 VB.Netのお勉強. All Rights Reserved.