Que Hay!!
Bueno aquí les va como hacer un pequeño programa en VisualStudio 2008 de Colas
Esta es la explicación de que es una Cola mejor conocido como FIFO:
También se le llama estructura FIFO (del inglés First In First Out), debido a que el primer elemento en entrar será también el primero en salir. Una cola (también llamada fila) es una estructura de datos, caracterizada por ser una secuencia de elementos en la que la operación de inserción push se realiza por un extremo y la operación de extracción pop por el otro.
Las colas se utilizan en sistemas informáticos, transportes y operaciones de investigación (entre otros), dónde los objetos, personas o eventos son tomados como datos que se almacenan y se guardan mediante colas para su posterior procesamiento. Este tipo de estructura de datos abstracta se implementa en lenguajes orientados a objetos mediante clases, en forma de listas enlazadas.
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 Cola
*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 cola 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 Cola.
Ahora antes de End Class en lo ultimo del código, se pondrá las funciones para realizar todo lo que necesita la Cola.
Esta Funcion Sirve para Limpiar el arreglo de Cola e iniciarla en 0.
Function ColaClear(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 Obtener el total de elementos en Cola
Function ColaConteo(ByVal a() As Integer) As Integer
Dim i, j As Integer
j = 0
For i = 1 To UBound(a) ' Ciclo FOR para hacer la sumatoria del total de elementos en Cola
j += 1
Next
Return j
End Function
Esta Funcion sirve para Agregar un elemento a la Cola
Function ColaPush(ByVal array() As Integer, ByVal elemento As Integer) As Integer()
Dim i As Integer
i = ColaConteo(array) 'Se llama la funcion para obtener el total de elementos en Cola
ReDim Preserve array(i + 1) 'Aqui lo que hace es obtener el espacio para el siguiente elemento del arreglo
array(i + 1) = 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 Cola.
Function ColaPop(ByRef array() As Integer) As Integer
Dim n, i As Integer
Dim b() As Integer
n = ColaConteo(array) 'Obtenemos el total de elementos en Cola
ReDim b(UBound(array) - 1) 'Se obtiene el elemento a Sacar
For i = 2 To UBound(array) ' Ciclo para reacomodar la Cola
b(i - 1) = array(i)
Next
n = array(1) 'Se asigna a la variable el elemento sacado
ReDim array(UBound(b))
array = b
Return n
End Function
Esta Funcion es para saber cual es el siguiente elemento a sacar de la Cola.
Function Colapeek(ByVal array() As Integer) As Integer
Dim n As Integer
n = UBound(array)
If n >= 1 Then
Return array(1)
Else
Return array(0)
End If
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 Colas
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 Cola 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 Cola" ) 'Ventana para ingresar numero para el arreglo
Array = ColaPush(Array, n) ' Se manda a llamar la funcion 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 Cola: " & ColaPop(Array)) 'Mensaje donde se conocera el elemento sacado de la Cola.
ActualizaListbox() 'Se llama la funcion para actualizar Listbox
-Le hacemos doble click en LIMPIAR COLA y ponemos el siguiente codigo:
ColaClear(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 Cola: " & ColaConteo(Array)) 'Mensaje donde se conocera el numero de elementos en Cola.
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 Cola: " & pilapeek(Array)) 'Mensaje donde se conocera el elementos a sacar en Cola.
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, bueno eso es todo por hoy dejen sus comentarios. Gracias por visistar. nos vemos en el siguiente TUTORIAL . Cuidense, Les deseo lo mejor EXITO!
