Asignatura: Tecnología e Informática.
Formación en Valor: Libertad.
Núcleo Integrador: OptionButton
Objetivo: Manejo de opciones con botones.
OptionButton
Nos permite trabajar con una serie de opciones donde se puede seleccionar una sola opción.
Como por ejemplo:
Genero(Masculino, Femenino).
Empleado(Nuevo, Antiguo).
Tipo Articulo(Grande, Mediano, Pequeño).
etc.
En las anteriores opciones solo se puede seleccionar una opción.
OptionButton
Este objeto se le cambia la propiedad Caption.
La propiedad Value, puede tener dos valores que son:
TRUE activado.
FALSE desactivado.
Desarrolle el siguiente formulario:
TEXTBOX (TEXT): borre la propiedad Text.
LABEL: Cambie la propiedad Caption por el texto mostrado.
OPTIONBUTTON (OPTION): Cambie la propiedad Caption por el texto mostrado.
COMMANDBUTTON (COMMAND): Cambie la propiedad Caption.
El programa siguiente debe calcular:
Transporte:
Empleados Nuevos 50.000
Empleados Antiguos 70.000
Total a Pagar: Suma de Salario + Transporte
Para calcular la anterio doble CLIC sobre el botón CALCULAR.
Copie el siguiente código:
Private Sub Command1_Click()
If Option1.Value = True Then
Text3 = 50000
ElseIf Option2.Value = True Then
Text3 = 70000
Else
MsgBox "Debe Seleccionar el tipo de Empleado"
Text3=0
Text4=0
Exit sub
End If
Text4 = Val(Text2) + Val(Text3)
End Sub.
PRUEBA EL FUNCIONAMIENTO DEL PROGRAMA ASÍ:
Presione F5 e introduzca el NOMBRE y el SALARIO, seleccione el TIPO EMPLEADO y presione el botón CALCULAR.
Taller:
Desarrolle un programa que capture:
Nombre Empleado
Valor Venta
Total Venta
Mostrar tres botones de opciones que tenga(PEQUEÑO, MEDIANO, GRANDE)
Se debe calcular el DESCUENTO en el botón CALCULAR, ASÍ:
PEQUEÑO: 10% VALOR VENTA
MEDIANO: 15 % VALOR VENTA
GRANDE: 20% VALOR VENTA.
NOTA1: para calcular el valor del descuento es así:
TEXT3= VAL(TEXT2) * 10 / 100 si es PEQUEÑO
TEXT3= VAL(TEXT2) * 15 / 100 si es MEDIANO
TEXT3= VAL(TEXT2) * 20 / 100 si es GRANDE
NOTA2: para calcular el valor del Total Venta es así:
TEXT4= VAL(TEXT2) - VAL(TEXT3)
No hay comentarios:
Publicar un comentario