PILAS

Las pilas es un grupo ordenado de elementos homogéneos, solo se permite agregar o eliminar elementos a través de la cabeza de la pila por eso es conocido como estructura lifo.

Sus operaciones básicas son:

Push: para meter elementos en la pila.

Pop: para sacar elemento de la pila.

Count: para saber la cantidad de elementos que hay.

 Interfaz gráfica

En las pilas se utiliza el siguiente código:

Imports System.Collections.Stack  'se declara una libreria para poderutilizar las pilas

Public Class Form1

Dim pila As New Stack 'se declara la pila

  

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

       

Dim dato As String = TextBox1.Text   'variable que guarda el valor a incluir

pila.Push(dato)                         'agrega el dato a la pila

MsgBox("se ha ingresado el  numero: " & dato)

TextBox1.Clear()

        TextBox1.Focus()

    End Sub

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

        Dim valor As String = ""

        valor = pila.Pop              'saca el dato que se encuentre en la ultima posicion

        MsgBox(valor)

    End Sub

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

        MsgBox(pila.Count)              'cuenta los datos que existen

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim elementos As String = ""                 'imprime los datos que se encuentran en el momento

        For Each dato In pila

            elementos = elementos & " " & dato

        Next

        MsgBox(elementos)

    End Sub

En este link podrá encontrar el proyecto ya funcional.

https://drive.google.com/file/d/0B4efdeDUNI9XYnViLTNwSWVYd3M/edit?usp=sharing