OptionButton. - Taller

V.J.E

Asignatura: Tecnología e Informática.

Formación en Valor: Prudencia.

Núcleo Integrador: OptionButton.

Indicador de desempeño: Desarrolla programas básicos utilizando botones de opciones.

Exploración de conocimientos previos
¿Cuándo debes utilizar los Botones de Opciones?
 
Taller:
Diseñe el siguiente Formulario:

El siguiente programa debe calcular el Subsidio de Transporte y el Neto a Pagar de un empleado, se debe tener en cuenta:
Si el empleado es nuevo, el subsidio de Transporte es de 70000
Si el empleado es antiguo el subsidio de Transporte es de 100000
 Neto a pagar: es la suma del Salario más Subsidio de Transporte.

Copie el código en la ventana de código y ejecute el programa con F5.

Private Sub CommandButton1_Click()
  If OptionButton1.Value = True Then
    TextBox3 = 70000
  ElseIf OptionButton2.Value = True Then
    TextBox3 = 100000
  Else
    TextBox3 = 0
    MsgBox "Debe seleccionar el tipo de empleado", vbExclamation, "Error"
  End If
  TextBox4 = Val(TextBox2) + Val(TextBox3)
End Sub