Todos
'DECLARAMOS LAS VARIABLES GLOBALES QUE VAMOS A USAR
Public BOLETOS_VENDIDOS(3) As Integer
Public BOLETOS_PRE_VENDIDOS(3) As Integer
Public CAP_BOLETOS(3) AsInteger
Public PRECIO_BOLETOS(3) As Integer
Public TIPO_CENSURA(3) As Integer
Public DISPONIBILIDAD_BOLETOS(3) As Integer
Dim INDICE_SALA As Integer
Dim TOTAL_VENTA As IntegerDim SUB_TOTAL_VENTA As Integer
Dim R_S1 As Integer 'RECAUDADO EN SALA 1
Dim R_S2 As Integer 'RECAUDADO EN SALA 2
Dim R_S3 As Integer 'RECAUDADO EN SALA 3
Function TOTALES()'FUNCION PARA CALCULAR EL SUB-TOTAL DEL PRECIO DE LOS BOLETOS
Dim VALOR1 As Integer
If (Combo_Cantidad.SelectedItem "") Then
VALOR1 = Combo_Cantidad.SelectedItemElse
VALOR1 = 0
End If
SUB_TOTAL_VENTA = (VALOR1) * (VALOR_BOLETOS.Text) 'NUMERO DE BOLETOS POR EL PRECIO DE LOS BOLETOS
SUB_TOTAL.Text = SUB_TOTAL_VENTAEnd Function
Function ASIENTOS_DISPONIBLES() 'FUNCION PARA CALCULAR LOS ASIENTOS DISPONIBLES POR SALA
DISPONIBILIDAD_BOLETOS(INDICE_SALA) = CAP_BOLETOS(INDICE_SALA) -BOLETOS_VENDIDOS(INDICE_SALA) - BOLETOS_PRE_VENDIDOS(INDICE_SALA)
DISPONIBILIDAD.Text = DISPONIBILIDAD_BOLETOS(INDICE_SALA)
End Function
Function LIMPIAR_FORM() 'FUNCION PARA LIMPIAR LOSELEMENTOS DEL FORMULARIO
Dim i As Integer
Combo_Cantidad.SelectedIndex = 0
Combo_Sala.SelectedIndex = 0
Nombre_Cliente.Enabled = True
Edad_Cliente.Enabled =True
Edad_Cliente.Text = ""
Nombre_Cliente.Text = ""
Carrito_Compras.Items.Clear()
TOTAL.Text = ""
TOTAL_VENTA = 0
For i = 0 To 3BOLETOS_PRE_VENDIDOS(i) = 0
Next
End Function
Function PESTANA_1() 'FUNCION PARA MOSTRAR EL NUMERO DE BOLETOS VENDIDOS EN LA PESTAÑA DE BOLETOS VENDIDOS
R_S1 =...
Regístrate para leer el documento completo.