PractdeVBasicTemadeFactura

Proyecto de
Visual Basic. Net
Practica final 2015
SISTEMA DE FACTURACIÓN

5/20/15

Profesor: Francisco Baez

Frm_Entrada
Password del Sistema

5/20/15

Profesor: Francisco Baez

Frm_factura
Sistemade Facturación

5/20/15

Profesor: Francisco Baez

Frm_Autor
Acerca del Autor

5/20/15

Profesor: Francisco Baez

Programando el Frm_Entrada
Private Sub Form_Load()

TxtClave.Focus()

End Sub5/20/15

Profesor: Francisco Baez

Programando el Boton Aceptar
Private Sub BtnAceptar_Click()
Dim clave As String
clave = “Luisa“
If TxtClave.Text = clave Then
MsgBox ("Bienvenido al sistema")Frm_Factura.Show
Else
MsgBox ("Error, vuelva a ingresar clave")
TxtClave.Text = ""
TxtClave.Focus()
End If

End Sub
5/20/15

Profesor: Francisco Baez

Programando el Boton Salir
Private SubBtnCancelar_Click()
Me.Close()

End Sub

5/20/15

Profesor: Francisco Baez

Al hacer clic en calcular se deberá hallar.
Monto de hospedaje:
Días de hospedaje * Pago Día
El pago día será de S/. 50 (Turista) ó
S/. 70(Embassy)
Monto Servicios:
Será de S/. 20 por cada servicio
Monto total:
Monto de Hospedaje + Monto del Servicio
IGV:
18% del Monto Total
Total a Pagar:
Monto total + IGV

5/20/15

Profesor:Francisco Baez

Programando el Frm_Factura
Programando el Load del Formulario
Private Sub Frm_Factura_Load()
‘Para entradas solo presenten valores
TxtHospedaje. ReadOnly = True
TxtServicios. ReadOnly =True
TxtITBIS. ReadOnly = True
TxtSubTotal. ReadOnly = True
TxtTotalNeto. ReadOnly = True

End Sub

5/20/15

Profesor: Francisco Baez

Programando el Frm_Factura
Programando el Boton Calcular
PrivateSub BtnCalcular_Click()
Dim Dias, Telefono, Cable, Bar, Costo As Integer
Dim Hospedaje, Servicio As Integer
Dim SubTotal, Itbis, TotalNeto As Decimal
Dias = Val(TxtDias.Text)
'Calculando el costo deHospedaje
If RbrTurista.Checked = True Then
costo = 1000
ElseIf RbtEmmbasy.Checked = True Then
costo = 700
End If
Hospedaje = Costo * Dias
TxtHospedaje.Text = hospedaje

5/20/15

Profesor: Francisco...