Programacion

La curacao
La curacao

Public Class Form1
Dim LAV, REF, LAP, TEL, CLAV, CREF, CLAP, CTEL, CANTLAV, CANTREF, CANTTEL, CANTLAP, TOTAL, SUBTOTAL, DESCUENTO, AUMENTO As Single

Private Sub RBTJURIDICA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBTJURIDICA.CheckedChanged
If RBTJURIDICA.Checked = True Then
AUMENTO = 1.2GBJURIDICA.Enabled = True
GBNATURAL.Enabled = False
ElseIf RBTJURIDICA.Checked = False Then
AUMENTO = 1
End If
End Sub
Private Sub RBTNATURAL_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBTNATURAL.CheckedChanged
If RBTNATURAL.Checked = True Then
AUMENTO = 1.1GBNATURAL.Enabled = True
GBJURIDICA.Enabled = False
ElseIf RBTNATURAL.Checked = False Then
AUMENTO = 1
End If
End Sub

Private Sub CHKLAV_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CHKLAV.CheckedChanged
If CHKLAV.Checked = True Then
LAV = 2000
TXTLAV.Enabled = TrueElseIf CHKLAV.Checked = False Then
LAV = 0
TXTLAV.Enabled = False
End If
End Sub

Private Sub CHKREF_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CHKREF.CheckedChanged
If CHKREF.Checked = True Then
REF = 550
TXTREF.Enabled = True
ElseIf CHKREF.Checked = False ThenTXTREF.Enabled = False
REF = 0
End If
End Sub

Private Sub CHKLAP_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CHKLAP.CheckedChanged
If CHKLAP.Checked = True Then
LAP = 2300
TXTLAP.Enabled = True
ElseIf CHKLAP.Checked = False Then
LAP = 0
TXTLAP.Enabled= False
End If
End Sub

Private Sub CHKTEL_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CHKTEL.CheckedChanged
If CHKTEL.Checked = True Then
TEL = 1100
TXTTEL.Enabled = True
ElseIf CHKTEL.Checked = False Then
TEL = 0
TXTTEL.Enabled = False
End If
End SubPrivate Sub BTNCALCULAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNCALCULAR.Click
If TXTLAV.Enabled = False Then
CANTLAV = 1
ElseIf TXTLAV.Enabled = True Then
CANTLAV = TXTLAV.Text
End If
If TXTLAP.Enabled = False Then
CANTLAP = 1
ElseIf TXTLAP.Enabled = True ThenCANTLAP = TXTLAP.Text
End If
If TXTTEL.Enabled = False Then
CANTTEL = 1
ElseIf TXTTEL.Enabled = True Then
CANTTEL = TXTTEL.Text
End If
If TXTREF.Enabled = False Then
CANTREF = 1
ElseIf TXTREF.Enabled = True Then
CANTREF = TXTREF.Text
End If
CLAP = LAP * CANTLAP
CLAV =LAV * CANTLAV
CTEL = TEL * CANTTEL
CREF = REF * CANTREF
SUBTOTAL = CLAV + CLAP + CREF + CTEL
TOTAL = SUBTOTAL * AUMENTO * DESCUENTO
TXTSOLES.Text = TOTAL
TXTDOLARES.Text = TOTAL / 3
TXTEUROS.Text = TOTAL / 4
End Sub

Private Sub RBTVEA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesRBTVEA.CheckedChanged
If RBTVEA.Checked = True Then
DESCUENTO = 0.97
ElseIf RBTVEA.Checked = False Then
DESCUENTO = 0
End If
End Sub

Private Sub RBTUNICA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBTUNICA.CheckedChanged
If RBTUNICA.Checked = True Then
DESCUENTO = 0.95...