OptionButton y ChecBox

 

El siguiente programa captura el Nombre del Vendedor y el Valor Venta.

El programa debe calcular:

El descuento, el cual es opcional y depende si la casilla de verificación esta activa o no.

Neto a Pagar: es la resta de Valor Venta menos Descuento.

Comisión: se asigna dependiendo si es Nuevo 10% del Valor Venta, Antiguo 20% del Valor Venta. 

 Todo esto ocurre al dar click en el botón Aceptar.

Private Sub CommandButton1_Click()

  Dim VALORVENTA As Currency, NETOP As Currency, DESCUENTO As Currency, COMI As Currency

 

  If IsNumeric(TextBox2) Then

    VALORVENTA = Val(TextBox2)

  Else

    MsgBox "El valor venta debe ser numerico!!", vbCritical, "Error"

    Exit Sub

  End If

  If CheckBox1.Value = True Then

    DESCUENTO = VALORVENTA * 10 / 100

  Else

    DESCUENTO = 0

  End If

  NETOP = VALORVENTA - DESCUENTO

  TextBox3 = DESCUENTO

  TextBox4 = NETOP

  If OptionButton1.Value = True Then

    COMI = VALORVENTA * 10 / 100

  ElseIf OptionButton2.Value = True Then

    COMI = VALORVENTA * 20 / 100

  Else

    MsgBox "Debe seleccionar el tipo de empleado!!", vbInformation, "Error"

    Exit Sub

  End If

  TextBox5 = COMI

End Sub