Codigos Html
Dim zapatilla As Integer = 50
Dim mucasine As Integer = 60
Dim botas As Integer = 70
Dim polera As Integer = 30
Dim pantalon As Integer = 40
Dimcamisa As Integer = 50
Dim falda As Integer = 30
Dim sosten As Integer = 50
Dim abrigo As Integer = 70
Dim relog As Integer = 150
Dim aros As Integer = 250
Dim pulsera AsInteger = 130
Private Sub BtnCal1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCal1.Click
Me.TxtSubTotal.Text = Val(PtAccesorios.Text) + Val(PtRopaM.Text) +Val(PtZapatos.Text) + Val(PtRopaH.Text)
Me.TxtIva.Text = Val(TxtSubTotal.Text) * 0.13
Me.TxtTotalIva.Text = Val(TxtSubTotal.Text) + Val(TxtIva.Text)
Me.TxtSubTotal.Text =Val(TxtSubTotal.Text) + Val(RadioButton1.Text)
End Sub
Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesNumericUpDown1.ValueChanged
If CbcZapatos.SelectedIndex <> -1 Then
PtZapatos.Text = zapatilla * NumericUpDown1.Value
Me.TxtZapatos.Text = zapatilla
IfCbcZapatos.SelectedIndex <> 0 Then
Me.TxtZapatos.Text = ""
Me.PtZapatos.Text = ""
Me.TxtZapatos.Text = "60"
Me.PtZapatos.Text =NumericUpDown1.Value * mucasine
Me.TxtZapatos.Text = mucasine
If CbcZapatos.SelectedIndex <> 1 Then
Me.TxtZapatos.Text = ""Me.PtZapatos.Text = ""
Me.TxtZapatos.Text = "70"
Me.PtZapatos.Text = NumericUpDown1.Value * botas
Me.TxtZapatos.Text = botasEnd If
End If
End If
End Sub
Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged...
Regístrate para leer el documento completo.