Colas en Visual Basic 2010

Las colas son un grupo ordenado de elementos homogéneos, en donde los elementos se agregan por el extremo y se sacan por el otro extremo, por ello es conocido como una estructura FIFO (First Input First Output).

Para utilizar una cola es necesario importar  una clase, que haga referencia a esta, en Visual Basic 2010. Net

Para la realización de este ejemplo es necesario realizar una interfaz como esta:

El cual consta de:

·         5 botones.

·         1 Textbox

Se importa la clase:

Imports System.Collections.Queue

Y necesario declarar una variable tipo cola.

  Dim cola As New Queue

Las operaciones básicas de las colas son:

La inserción de datos, para la realización de este proceso se utiliza  la palabra ENQUEUE y se declara de la siguiente forma.

Se le da doble clic al botón “ingresar un dato” y se ingresa el siguiente código.

Dim dato As String = TextBox1.Text ' se declara una variable

        cola.Enqueue(dato) 'Comando que indica la inserciòn de un dato

        TextBox1.Clear() 'Se utiliza para limpiar el textbox despues de insertar un dato

        TextBox1.Focus() ' Se utiliza para colocar el puntero en en textbox

Y para sacar un elemento de una cola se utiliza la palabra DEQUEUE y se declara de la siguiente forma.

Se le da doble clic al botón “sacar un dato” y se ingresa el siguiente código.

Dim valor As String = "" ' Se declara una variable

        valor = cola.Dequeue 'Comando que indica sacar un elemento de la cola

        MsgBox(valor) ' Muestra el dato en un mensaje

 Decargar proyecto:colas