martes, 17 de julio de 2012

OptionButton

Fecha: Agosto 1 de 2012
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