Colas & Pilas

La particularidad de una estructura de datos de cola es el hecho de que sólo podemos acceder al primer y al último elemento de la estructura. Así mismo, los elementos sólo se pueden eliminar por el principio y sólo se pueden añadir por el final de la cola.

Ejemplos de colas en la vida real serían: personas comprando en un supermercado, esperando en el cine para ver una película, etc. La idea esencial es que son todas líneas de espera.

Ahora se implementará un ejemplo en visual 2010 para comprender el funcionamiento de una Cola. 

Para la interfaz se inserta un form y en él se agrega un TextBox y cuatro botones, como se muestra a continuación:

Para realizar una cola en visual lo primero que hay que hacer es declarar  en la primera línea el siguiente código:

Luego declarar en el Public Class la Cola:

    Dim Cola As New Queue

Ahora se le pondrá los códigos a cada botón:

En el botón “Meter”: En esta parte se declara la variable a utilizar y la acción que realizará, de igual forma se limpiará la caja de texto y se colocara el foco.

        Dim Dato As String = txtDato.Text

        Cola.Enqueue(Dato)

        txtDato.Clear()

        txtDato.Focus()

  

En el botón “Sacar”: Se declara una variable el cual realizará la acción de sacar el dato insertado.

Dim Valor As String = ""

        Valor = Cola.Dequeue

        MsgBox(Valor)

En el botón “Cantidad”: en esta parte mostrará mediante un mensaje la cantidad de elementos que se tiene.

MsgBox(Cola.Count)

En el botón “Imprimir”: Se declara la variable que mostrará los elementos que están insertados.

Dim Elementos As String = ""

        For Each Dato In Cola

            Elementos = Elementos & "" & Dato

        Next

        MsgBox(Elementos)

Una pila (stack en inglés) es una lista ordenada o estructura de datos en la que el modo de acceso a sus elementos es de tipo LIFO (del inglés Last In First Out, último en entrar, primero en salir) que permite almacenar y recuperar datos. Esta estructura se aplica en multitud de ocasiones en el área de informática debido a su simplicidad y ordenación implícita de la propia estructura.

Para el manejo de los datos se cuenta con dos operaciones básicas: apilar (push), que coloca un objeto en la pila, y su operación inversa, retirar (o desapilar, pop), que retira el último elemento apilado.

Ahora se implementará un ejemplo en visual 2010 para comprender el funcionamiento de una Pila.                                     

Para la interfaz se inserta un form y en él se agrega un TextBox y cuatro botones, como se muestra a continuación:

Para realizar una Pila en visual lo primero que hay que hacer es declarar  en la primera línea el siguiente código:

Luego declarar en el Public Class la Pila:

  Dim Pila As New Stack

Ahora se le pondrá los códigos a cada botón:

En el botón “Meter”: En esta parte se declara la variable a utilizar y la acción que realizará, de igual forma se limpiará la caja de texto y se colocara el foco.

 Dim Dato As String = txtDato.Text

        Pila.Push(Dato)

        txtDato.Clear()

        txtDato.Focus()

En el botón “Sacar”: Se declara una variable el cual realizará la acción de

 Dim Valor As String = ""

        Valor = Pila.Pop

        MsgBox(Valor)

En el botón “Cantidad”: en esta parte mostrará mediante un mensaje la cantidad de elementos que se tiene. 

MsgBox(Pila.Count)

En el botón “Imprimir”: Se declara la variable que mostrará los elementos que están insertados.

Dim Elementos As String = ""

        For Each Dato In Pila

            Elementos = Elementos & "" & Dato

        Next

        MsgBox(Elementos)

Link de descarga:

Click en la imágen.