CATALOGO DEL HOTEL DECAMERON
Option Explicit On
Public Class Form1
' declaracion de
variables
Dim
CanPaqVen As Integer
Dim
TotRecVen As Double
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'cargar los elementos al combo box'
cbxpaquete.Text
= "OPCIONES DE TURISMO"
cbxpaquete.Items.Add("PAQUETE 1
BASICO")
cbxpaquete.Items.Add("PAQUETE 2
STANDAR")
cbxpaquete.Items.Add("PAQUETE 3
ESPECIAL")
txtN.Enabled
= False
txtC.Enabled = False
cbxpaquete.Enabled = False
txtCantidad.Enabled = False
txtDias.Enabled = False
txtCosto.Enabled = False
txtSubtotal.Enabled = False
txtIva.Enabled = False
txtInteres.Enabled = False
txtTotalpagar.Enabled = False
txtCanPaqVen.Enabled = False
txtTotRecVen.Enabled = False
cmbGrabar.Enabled = False
cmbLimpiar.Enabled = False
cmbOtrares.Enabled = False
cmbMostrar.Enabled = False
panel1.Enabled = False
txtCanPaqVen.Visible = False
txtTotRecVen.Visible = False
fondoacu1.Visible = False
fondioacu2.Visible = False
fondoacu3.Visible = False
fondoacu4.Visible = False
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub cmbEnd_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs)
Me.Close()
End Sub
Private Sub cmbNuevo_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles cmbNuevo.Click
txtN.Enabled = True
txtC.Enabled = True
cbxpaquete.Enabled = True
txtCantidad.Enabled = True
txtDias.Enabled = True
txtCosto.Enabled = False
txtSubtotal.Enabled = False
txtIva.Enabled = False
txtInteres.Enabled = False
txtTotalpagar.Enabled = False
txtCanPaqVen.Enabled = False
txtTotRecVen.Enabled = False
cmbGrabar.Enabled = False
cmbLimpiar.Enabled = True
cmbOtrares.Enabled = False
cmbMostrar.Enabled = False
panel1.Enabled = False
cmbNuevo.Enabled = False
txtN.Focus()
End Sub
Private Sub cbxpaquete_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
cbxpaquete.SelectedValueChanged
If
cbxpaquete.SelectedItem = "PAQUETE 1
BASICO" Then
txtCosto.Text = 500
txtCantidad.Focus()
ElseIf
cbxpaquete.SelectedItem = "PAQUETE 2
STANDAR" Then
txtCosto.Text = 1000
txtCantidad.Focus()
Else
txtCosto.Text = 1500
txtCantidad.Focus()
End If
End Sub
Private Sub rbcontado_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles rbcontado.Click
txtSubtotal.Text =
(Val(txtCantidad.Text) * Val(txtDias.Text) * Val(txtCosto.Text))
txtInteres.Text = 0
txtIva.Text = Val(txtSubtotal.Text) *
0.12
txtTotalpagar.Text =
Val(txtSubtotal.Text) + Val(txtIva.Text)
cmbOtrares.Enabled = True
cmbGrabar.Enabled = True
End Sub
Private Sub rbMaster_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles rbMaster.Click
txtSubtotal.Text =
(Val(txtCantidad.Text) * Val(txtDias.Text) * Val(txtCosto.Text))
txtInteres.Text = Val(txtSubtotal.Text)
* 0.03
txtIva.Text = Val(txtSubtotal.Text) *
0.12
txtTotalpagar.Text =
Val(txtSubtotal.Text) + Val(txtIva.Text)
cmbOtrares.Enabled = True
cmbGrabar.Enabled = True
End Sub
Private Sub rbVisa_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles rbVisa.Click
txtSubtotal.Text =
(Val(txtCantidad.Text) * Val(txtDias.Text) * Val(txtCosto.Text))
txtInteres.Text = Val(txtSubtotal.Text)
* 0.02
txtIva.Text = Val(txtSubtotal.Text) *
0.12
txtTotalpagar.Text =
Val(txtSubtotal.Text) + Val(txtIva.Text)
cmbOtrares.Enabled = True
cmbGrabar.Enabled = True
End Sub
Private Sub Validacion_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Validacion.Click
MsgBox("SELECIONE SU FORMA
DE PAGO", MsgBoxStyle.Information)
panel1.Enabled
= True
panel1.Focus()
End Sub
Private Sub cmbOtrares_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles cmbOtrares.Click
txtN.Text = txtN.Text
txtC.Text = txtC.Text
txtCosto.Clear()
txtCantidad.Clear()
txtDias.Clear()
txtSubtotal.Clear()
txtIva.Clear()
txtInteres.Clear()
txtTotalpagar.Clear()
cbxpaquete.ResetText()
panel1.Enabled = False
End Sub
Private Sub cmbLimpiar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles cmbLimpiar.Click
txtN.Enabled = False
txtN.Clear()
txtC.Enabled = False
txtC.Clear()
cbxpaquete.Enabled = False
cbxpaquete.Text = ""
txtCantidad.Enabled = False
txtCantidad.Clear()
txtDias.Enabled = False
txtDias.Clear()
txtCosto.Enabled = False
txtCosto.Clear()
txtSubtotal.Enabled = False
txtSubtotal.Clear()
txtIva.Enabled = False
txtIva.Clear()
txtInteres.Enabled = False
txtInteres.Clear()
txtTotalpagar.Enabled = False
txtTotalpagar.Clear()
txtCanPaqVen.Enabled = False
txtTotRecVen.Enabled = False
cmbGrabar.Enabled = False
cmbLimpiar.Enabled = False
cmbOtrares.Enabled = False
cmbMostrar.Enabled = False
cmbNuevo.Enabled = True
panel1.Enabled = False
txtCanPaqVen.Visible = False
txtTotRecVen.Visible = False
fondoacu1.Visible = False
fondioacu2.Visible = False
fondoacu3.Visible = False
fondoacu4.Visible
= False
End Sub
Private Sub cmbGrabar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles cmbGrabar.Click
Me.lsxReserCliente.Items.Add(cbxpaquete.Text)
Me.lsxReserCliente.Items.Add(txtN.Text)
Me.lsxReserCliente.Items.Add(txtC.Text)
Me.lsxReserCliente.Items.Add(txtCosto.Text)
Me.lsxReserCliente.Items.Add(txtCantidad.Text)
Me.lsxReserCliente.Items.Add(txtDias.Text)
Me.lsxReserCliente.Items.Add(txtSubtotal.Text)
Me.lsxReserCliente.Items.Add(txtIva.Text)
Me.lsxReserCliente.Items.Add(txtInteres.Text)
Me.lsxReserCliente.Items.Add(txtTotalpagar.Text)
End Sub
Private Sub cmbMostrar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles cmbMostrar.Click
'CONTADOR Y ACUMULADOR'
txtCanPaqVen.Text = (Val(txtCanPaqVen) + 1)
txtTotRecVen.Text = (Val(txtTotRecVen) + Val(txtTotalpagar))
panel1.Enabled
= True
txtCanPaqVen.Visible = True
txtTotRecVen.Visible = True
fondoacu1.Visible = True
fondioacu2.Visible = True
fondoacu3.Visible = True
fondoacu4.Visible = True
End Sub
Private Sub Button5_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button5.Click
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = True
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
PictureBox1.Visible = True
End Sub
Private Sub Button3_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
PictureBox1.Visible = False
PictureBox2.Visible = True
End Sub
Private Sub Button4_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = True
End Sub
Private Sub Button6_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button6.Click
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
PictureBox5.Visible = True
End Sub
Private Sub Button8_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button8.Click
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
PictureBox5.Visible = False
PictureBox6.Visible = True
End Sub
Private Sub Button7_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button7.Click
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
PictureBox5.Visible = False
PictureBox6.Visible = False
PictureBox7.Visible = True
End Sub
Private Sub Button9_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button9.Click
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
PictureBox5.Visible = False
PictureBox6.Visible = False
PictureBox7.Visible = False
PictureBox8.Visible = True
End Sub
Private Sub Button10_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button10.Click
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
PictureBox5.Visible = False
PictureBox6.Visible = False
PictureBox7.Visible = False
PictureBox8.Visible = False
PictureBox9.Visible = True
End Sub
Private Sub PictureBox9_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles PictureBox9.Click
End Sub
End Class
No hay comentarios:
Publicar un comentario