SIMULACIÓN DE UN BANCO

En este proyecto nos enfocamos a la forma en que se trabaja en un banco, las personas al momento de llegar a un banco recogen  una ficha en el cual se tiene el número que les toca, cada encargado de ventanilla al momento de finalizar con un cliente presiona el botón siguiente, eso quiere decir que otro cliente ya puede pasar a la ventilla siempre y cuando sea el indicado, es decir se lleva un orden que los numero vayan consecutivamente.

Este es el diseño del proyecto realizado.

Este es el código del primer formulario es en donde el cliente llega al banco y toma su ficha…………………………………………..

Imports System.Collections.Queue

Public Class Form1

    Public cola As New Queue

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

        Dim dato As String = TextBox1.Text

        cola.Enqueue(dato)

        MsgBox("Se ha ingresado nuevo cliente: " & dato)

        TextBox1.Clear()

        TextBox1.Focus()

    End Sub

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

        Me.Hide()

        Form2.Show()

    End Sub

Este es el código para el segundo formulario, es donde es simulada cuando los clientes pasan a ventanilla por el orden como fueron llegando al banco.

Public Class Form2

    Dim cola As New Queue

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

        Me.cola = Form1.cola

        If Form1.cola.Count <> 0 Then

            Dim valor As String = ""

            valor = cola.Dequeue

            TextBox1.Text = valor

        Else

            MsgBox("No hay mas clientes")

            TextBox1.Text = ""

        End If

    End Sub

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

        Me.cola = Form1.cola

        If Form1.cola.Count <> 0 Then

            Dim valor As String = ""

            valor = cola.Dequeue

            TextBox2.Text = valor

        Else

            MsgBox("No hay mas clientes")

            TextBox2.Text = ""

        End If

    End Sub

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

        Me.cola = Form1.cola

        If Form1.cola.Count <> 0 Then

            Dim valor As String = ""

            valor = cola.Dequeue

            TextBox3.Text = valor

        Else

            MsgBox("No hay mas clientes")

            TextBox3.Text = ""

        End If

    End Sub

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

        Me.Close()

    End Sub

En este link podrá encontrar el proyecto ya funcional.

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