armando2398

hola que tal amigos taringueros... aqui les dejo un pequeño post, sobre programacion en Visual Basic 2010, en Windows Form. este pequeño ejemplo es de colas, aqui aplicamos la regla de el primer dato en entrar es el primer dato en salir, acontinuacion mi linea de codigo: Public Class Form1 Private Sub Button_Evaluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Evaluar.Click 'declaramos variables Dim dato As Queue(Of String) = New Queue(Of String)() Dim primero As String Dim segundo As String Dim tercero As String Dim cuarto As String 'asignando los textos que el usuario ingresara a las variables declaradas primero = Texto_primero.Text segundo = Texto_segundo.Text tercero = Texto_tercero.Text cuarto = Texto_cuarto.Text 'usando la palabra reservada Enqueue para poder ingresar a la cola de uno en uno dato.Enqueue(primero) dato.Enqueue(segundo) dato.Enqueue(tercero) dato.Enqueue(cuarto) For Each extraer As String In dato MsgBox("El valor obtenido de la cola es: " & extraer) Next 'para que cuando se acaben las impresiones del MsgBox se limpien los textos ingresados, por si se kiere 'ingresar datos de nuevo(opcional) Texto_primero.Text = "" Texto_segundo.Text = "" Texto_tercero.Text = "" Texto_cuarto.Text = "" End Sub Private Sub Button_terminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_terminar.Click 'boton de salida, de igual manera en ves de usar end podemos usar close() End End Sub End Class si tienen alguna duda, se las contestare a la brevedad o les ayudare en lo que pueda, espero les ayude en algo, ya andare por aqui, espero poder compartir informacion con ustedes... gracias por su atencion saludos Comentar NO cuesta nada!!!