Tutorial de como hacer una Pila(Visual Studio 2008 Grafico)

Que Hay!! Bueno aquí les va como hacer un pequeño programa en VisualStudio 2008 de Pilas Esta es la explicación de que es una pila mejor conocido como LIFO: Es una lista ordinal 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. EMPECEMOS Antes que nada colocamos un Listbox, y ponemos un MenuStrip(Tambien se pueden agregar botones) en una nueva forma En el menú agregaremos las siguientes opciones: (o puedes usar 5 botones como gustes) *Agregar Elemento *Sacar Elemento *Limpiar Pila *Numero de Elementos *Elemento a Sacar Quedaria algo asi: Ahora vamos a codigo para agregar las funciones que realizaran todos los movimientos en pila.(para esto hacemos doble click en en la forma para ir a codigo) y dentro de LoadForm... ReDim Array(0) 'El ARRAY es el arreglo donde se va ir guardando todos los elementos de la pila se inicia en cero. Fuera del codigo de LoadForm... es decir abajo de Public Class Form... Dim ARRAY() As Integer 'Este es para crear el arreglo de Pilas. Ahora antes de End Class en lo ultimo del código, se pondrá las funciones para realizar todo lo que necesita la Pila. Esta Funcion Sirve para Limpiar el arreglo de Pila e iniciarla en 0. Function PilaClear(ByRef array() As Integer) As Integer() ReDim array(0) 'Establece el arreglo a ceros. Return array 'Esto es para que regrese la funcion el arreglo en ceros. End Function Esta Funcion sirve para Agregar un elemento a la Pila Function PilaPush(ByVal array() As Integer, ByVal elemento As Integer) As Integer() ReDim Preserve array(UBound(array) + 1) 'Aqui lo que hace es obtener el espacio para el siguiente elemento del arreglo array(UBound(array)) = elemento 'Remplaza el elemento en el espacio obtenido anteriormente Return array 'Regresa el arreglo con el nuevo elemento End Function Esta Funcion sirve para sacar un elemento de la Pila. Function PilaPop(ByRef array() As Integer) As Integer Dim i As Integer i = array(UBound(array)) 'Se declara un variable "i" donde se va almacenar el elemento a sacar ReDim Preserve array(UBound(array) - 1) 'Aqui borra del arreglo el ultimo elemento. Return i 'Regresa el elemento sacado. End Function Esta Funcion es para saber cuantos elementos hay en la Pila. Function pilacount(ByVal array() As Integer) As Integer Return UBound(array) 'Obtiene el numero de elementos en el arreglo de Pila. End Function Esta Funcion es para saber cual es el siguiente elemento a sacar de la Pila. Function pilapeek(ByVal array() As Integer) As Integer Return array(UBound(array)) 'Obtiene el ultimo elemento de Pila. End Function Ahora agregamos una funcion donde se va ir actualizando el Listbox que se puso, de cada movimiento que se haga. Function ActualizaListbox() Dim p As Integer ListBox1.Items.Clear() 'Se Limpia el Listbox For p = 1 To UBound(Array) 'Ciclo para leer todos los elementos del Arreglo de Pilas ListBox1.Items.Add(Array(p)) 'Se le va agregando cada elemento Next Return True End Function Bueno ahora usaremos el Menu(o Botones) para usuar estas Funciones y por fin poner en marcha esta Pila jeje!! para esto regresamos al diseño de la Forma. -Le hacemos doble click en AGREGAR ELEMENTO y ponemos el siguiente codigo: Dim n As Integer n = InputBox("Escribe el Numero a Agregar (Solo Numeros)","Agregar a Pila" ) 'Ventana para ingresar numero para el arreglo Array = PilaPush(Array, n) ' Se manda a llamar la funcio para agregar, se manda el arreglo y numero para el elemento. ActualizaListbox() 'Se llama la funcion para actualizar Listbox -Le hacemos doble click en SACAR ELEMENTO y ponemos el siguiente codigo: MsgBox("Elemento que se ha sacado de Pila: " & PilaPop(Array)) 'Mensaje donde se conocera el elemento sacado de la Pila. ActualizaListbox() 'Se llama la funcion para actualizar Listbox -Le hacemos doble click en LIMPIAR PILA y ponemos el siguiente codigo: PilaClear(Array) 'Se llama la funcion limpiar Arreglo ActualizaListbox() 'Se llama la funcion para actualizar Listbox -Le hacemos doble click en NUMERO DE ELEMENTOS y ponemos el siguiente codigo: MsgBox("Elementos en la Pila: " & pilacount(Array)) 'Mensaje donde se conocera el numero de elementos en Pila. ActualizaListbox() 'Se llama la funcion para actualizar Listbox -Le hacemos doble click en ELEMENTO EN SACAR y ponemos el siguiente codigo: MsgBox("Proximo Elemento a sacar de la Pila: " & pilapeek(Array)) 'Mensaje donde se conocera el elementos a sacar en Pila. ActualizaListbox() 'Se llama la funcion para actualizar Listbox Bueno esto ya seria todo el codigo ya nomas seria correrlo y walaa!! espero les sea util, abajo les dejo el Link del programa de Pilas por si tienen algun error o para los flojos que quieren el programa rapido , bueno eso es todo por hoy dejen sus comentarios. Gracias por visistar. nos vemos en el siguiente TUTORIAL . Cuidense, Les deseo lo mejor EXITO! VISTAS Aqui les dejo los ejemplos de agregar,sacar,elemento a salir y numero de elementos en PILA. -AGREGAR: -SACAR: -ELEMENTO A SALIR: -NUMERO DE ELEMENTOS: