Pilas y colas en VB.NET (Aplicacion de consola)

24/05/2005 - 10:18 por Gilbert | Informe spam
Hola, me gustaria saber si alguien conoce alguna web o tiene algun ejemplo
con pilas y colas en visual basic .net para Aplicacion de consola.

Muchas gracias.
 

Leer las respuestas

#1 J. Carlos Herrrero
24/05/2005 - 20:49 | Informe spam
Hola:
Prueba esto:

COLAS
Sub Main()
Dim laqListaMensa As New Queue()
Dim lsMensaje As String
Dim liContador As Integer
Console.WriteLine("Introducir mensajes")
'bucle de recepcion de mensajes
Do
liContador += 1
Console.WriteLine("Mensaje Nº {0} Pulse [INTRO] para finalizar
captura", liContador)
lsMensaje = Console.ReadLine()
If lsMensaje.Length > 0 Then
'añadimos mensaje a la cola
laqListaMensa.Enqueue(lsMensaje)
Else
Exit Do
End If
Loop
'la propiedad count nos indica la cantidad de elementos de la lista
Console.WriteLine("Hay {0} mensajes para procesar",
laqListaMensa.Count)
Console.WriteLine()
'procesar los mensajes de la lista
liContador = 0
Console.WriteLine("Procesar lista de mensajes")
While laqListaMensa.Count > 0
liContador += 1
Console.WriteLine("Mensaje Nº {0} - texto {1}", liContador,
laqListaMensa.Dequeue())
Console.WriteLine("Quedan {0} mensajes por procesar",
laqListaMensa.Count)
Console.WriteLine()
End While
Console.ReadLine()
End Sub

PILAS
Sub Main()
Dim loPila As Stack
loPila = New Stack()
'para añadir valores usamos el metodo Push()
loPila.Push("A") 'este sera el ultimo en salir
loPila.Push("B")
loPila.Push("C")
loPila.Push("D")
loPila.Push("E") 'este sera el primero en salir
'para extraer de la pila usamos el metodo pop()
'dicho valor se eliminara de la pila
While loPila.Count > 0
Console.WriteLine("El valor obtenido de la lista es: {0}",
loPila.Pop)
End While
Console.ReadLine()
End Sub

Espero que te sirva
Un saludo desde Bilbo:
Carlos

"Gilbert" escribió en el mensaje
news:
Hola, me gustaria saber si alguien conoce alguna web o tiene algun ejemplo
con pilas y colas en visual basic .net para Aplicacion de consola.

Muchas gracias.

Preguntas similares