#include <Array.au3>
$oQueue = ObjCreate("System.Collections.Queue")
$oQueue.Enqueue("Item_1")
ConsoleWrite(StringFormat("Добавляем элемент %s в конец коллекции.\n", "Item_1"))
$aQueueArray = $oQueue.ToArray
_ArrayDisplay($aQueueArray, StringFormat("Элементов №: %s\n", $oQueue.Count))
$oQueue.Enqueue("Item_2")
ConsoleWrite(StringFormat("Добавляем элемент %s в конец коллекции.%s\n", "Item_2"))
$aQueueArray = $oQueue.ToArray
_ArrayDisplay($aQueueArray, StringFormat("Элементов №: %s\n", $oQueue.Count))
$oQueue.Enqueue("Item_3")
ConsoleWrite(StringFormat("Добавляем элемент %s в конец коллекции.%s\n", "Item_3"))
$aQueueArray = $oQueue.ToArray
_ArrayDisplay($aQueueArray, StringFormat("Элементов №: %s\n", $oQueue.Count))
$oQueue.Enqueue("Item_4")
ConsoleWrite(StringFormat("Добавляем элемент %s в конец коллекции.\n", "Item_4"))
$aQueueArray = $oQueue.ToArray
_ArrayDisplay($aQueueArray, StringFormat("Элементов №: %s\n", $oQueue.Count))
MsgBox(64, StringFormat("Существует ли элемент %s в коллекции? %s\n", '"Item_2"'), $oQueue.Contains("Item_2") ? "Да!" : "Нет!")
MsgBox(64, StringFormat("Существует ли элемент %s в коллекции? %s\n", '"Item_5"'), $oQueue.Contains("Item_5") ? "Да!" : "Нет!")
ConsoleWrite(StringFormat("Возвращяем (и удаляем) первый элемент коллекции %s.\n", $oQueue.Dequeue))
$aQueueArray = $oQueue.ToArray
_ArrayDisplay($aQueueArray, StringFormat("Элементов №: %s\n", $oQueue.Count))
ConsoleWrite(StringFormat("Возвращяем (не удаляем) первый элемент коллекции %s.\n", $oQueue.Peek))
$aQueueArray = $oQueue.ToArray
_ArrayDisplay($aQueueArray, StringFormat("Элементов №: %s\n", $oQueue.Count))
ConsoleWrite(StringFormat("Возвращяем (и удаляем) первый элемент коллекции %s.\n", $oQueue.Dequeue))
$aQueueArray = $oQueue.ToArray
_ArrayDisplay($aQueueArray, StringFormat("Элементов №: %s\n", $oQueue.Count))
ConsoleWrite(StringFormat("Возвращяем (и удаляем) первый элемент коллекции %s.\n", $oQueue.Dequeue))
$aQueueArray = $oQueue.ToArray
_ArrayDisplay($aQueueArray, StringFormat("Элементов №: %s\n", $oQueue.Count))
$oQueue.Enqueue("Item_5")
ConsoleWrite(StringFormat("Добавляем элемент %s в конец коллекции.\n", "Item_5"))
$aQueueArray = $oQueue.ToArray
_ArrayDisplay($aQueueArray, StringFormat("Элементов №: %s\n", $oQueue.Count))
$oQueue.Clear
ConsoleWrite(StringFormat("Удаляет все элементы коллекции.\n"))
$aQueueArray = $oQueue.ToArray
_ArrayDisplay($aQueueArray, StringFormat("Элементов №: %s\n", $oQueue.Count))