Venta de Llantas

1. Diseñar un formulario que permita liquidar el total a pagar (Llantas), teniendo en cuenta que si lleva mayor o igual a 5, el precio de estas serían de $7000 de lo contrario el precio sería de $8000, usando los siguientes controles:

 

Cinco (5) textbox

Un (1) Label para título

Un (1) Combobox para seleccionar el porcentaje de IVA, para ello deberá seleccionar la propiedad Items del Combobox

Tres (3) Button

 

Public Class Llantera
Pivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Me.TextBox1.Text >= 5 Then

Me.TextBox2.Text = 7000
Else

Me.TextBox2.Text = 8000

End If

Me.TextBox3.Text = Val(Me.TextBox1.Text) * Val(Me.TextBox2.Text)

Me.TextBox5.Text = Val(Me.TextBox3.Text) * Val((Me.ComboBox1.Text) / 100)
Me.TextBox6.Text = Val(Me.TextBox3.Text) + Val(Me.TextBox5.Text)

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

End End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
Me.ComboBox1.Text = ""
Me.TextBox5.Text = ""
Me.TextBox6.Text = ""
With Me.TextBox1.Focus()
End With

End Sub

End Class