none
sistema de reservacion RRS feed

  • Pregunta

  • hola, necesito ayuda con un programa, el cual consta de un sistema para reservar lugares en un teatro, el form muestra los lugares disponibles, asi como los lugares ocupados, al dar click sobre uno de estos, debe mostrar la informacion de quien lo reservo en caso de que este ocupado, en caso de que no este ocupado, se llenaran los datos corresponidentes y se almacenaran en una base de datos de SQL server, mi problema es que no se como hacer para asignar valores a los asientos, y asi mismo que el status del mismo cambie en pantalla(si esta ocupado se mostrara de color el espacio, si no se mostrara en color blanco), ¿hay alguna forma de agregar los asientos y asignares un valor numerico? no puedo asignarles elvalor uno por uno ya que son al rededor de 200 lugares :s
    miércoles, 18 de noviembre de 2015 1:06

Respuestas

  • no s epor que no vas a poder, te creas un metodo para inciacializar los asientos numericamente, por ejemplo,

    llenarAsientos(numeroMaximoAsientosTeatro){

    //bucle

     desde 0 (o 1) hasta valor maximo -1 (o valor maximo si empieza en 1) contador++

    asiento1.indice = contador;

    }

    creas una estructura con los valores que quieres asignar a cada asiento mas una variable booleana que indica si ocupado o libre

    en el formulario, lanzas evento on click al clikar sonre un asiento

    //comprobamos que el asiento este libre

    indiceAsiento = //el asiento clickado

    si asientolibre(indice)

    lanzamos form para rellenar los nuevos dato y lo marcamos como ocupado

    miércoles, 18 de noviembre de 2015 8:29
  • Hola:
    Como no das informacion de la(s) estructura(s) de la(s) tabla(s) implicadas en el proceso, te expongo un ejemplo que te pueda servir de guia.

    En un Form, copia y pega el siguente codigo

    Public Class Form1

        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.Size = New Size(830, 450)
            '
            Dim btn As Button
            Dim x As Integer = 10
            Dim y As Integer
            Dim liOrden As Integer = 0
            For liCicloX As Integer = 1 To 20
                y = 10
                For liCicloY As Integer = 1 To 10
                    liOrden += 1
                    btn = New Button
                    btn.Name = "btn_" & CStr(liOrden).PadLeft(3, CChar("0"))
                    btn.Text = CStr(liOrden).PadLeft(3, CChar("0"))
                    btn.BackColor = Color.White
                    btn.Size = New Size(35, 35)
                    btn.Location = New Point(x, y)
                    AddHandler btn.Click, AddressOf lP_BotonPulsado
                    Me.Controls.Add(btn)
                    y += 40
                Next
                x += 40
            Next
            '
            Me.StartPosition = FormStartPosition.CenterScreen
        End Sub

        Private Sub lP_BotonPulsado(sender As Object, e As EventArgs)
            Dim BotonPulsado As Button = CType(sender, Button)
            BotonPulsado.BackColor = Color.Aquamarine
            MessageBox.Show("Has pulsado el boton: " & BotonPulsado.Name)
        End Sub
    End Class

    Un saludo desde Bilbo
    Carlos

    miércoles, 18 de noviembre de 2015 8:36

Todas las respuestas

  • no s epor que no vas a poder, te creas un metodo para inciacializar los asientos numericamente, por ejemplo,

    llenarAsientos(numeroMaximoAsientosTeatro){

    //bucle

     desde 0 (o 1) hasta valor maximo -1 (o valor maximo si empieza en 1) contador++

    asiento1.indice = contador;

    }

    creas una estructura con los valores que quieres asignar a cada asiento mas una variable booleana que indica si ocupado o libre

    en el formulario, lanzas evento on click al clikar sonre un asiento

    //comprobamos que el asiento este libre

    indiceAsiento = //el asiento clickado

    si asientolibre(indice)

    lanzamos form para rellenar los nuevos dato y lo marcamos como ocupado

    miércoles, 18 de noviembre de 2015 8:29
  • Hola:
    Como no das informacion de la(s) estructura(s) de la(s) tabla(s) implicadas en el proceso, te expongo un ejemplo que te pueda servir de guia.

    En un Form, copia y pega el siguente codigo

    Public Class Form1

        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.Size = New Size(830, 450)
            '
            Dim btn As Button
            Dim x As Integer = 10
            Dim y As Integer
            Dim liOrden As Integer = 0
            For liCicloX As Integer = 1 To 20
                y = 10
                For liCicloY As Integer = 1 To 10
                    liOrden += 1
                    btn = New Button
                    btn.Name = "btn_" & CStr(liOrden).PadLeft(3, CChar("0"))
                    btn.Text = CStr(liOrden).PadLeft(3, CChar("0"))
                    btn.BackColor = Color.White
                    btn.Size = New Size(35, 35)
                    btn.Location = New Point(x, y)
                    AddHandler btn.Click, AddressOf lP_BotonPulsado
                    Me.Controls.Add(btn)
                    y += 40
                Next
                x += 40
            Next
            '
            Me.StartPosition = FormStartPosition.CenterScreen
        End Sub

        Private Sub lP_BotonPulsado(sender As Object, e As EventArgs)
            Dim BotonPulsado As Button = CType(sender, Button)
            BotonPulsado.BackColor = Color.Aquamarine
            MessageBox.Show("Has pulsado el boton: " & BotonPulsado.Name)
        End Sub
    End Class

    Un saludo desde Bilbo
    Carlos

    miércoles, 18 de noviembre de 2015 8:36