Colegio Agustiniano Nuestra Señora
del Buen Consejo
Tecnología - Secundaria
Laboratorio No2
Objetivo: Utilizar diferentes controles en un formulario (Form)
Indicaciones Generales:
1. Crear una carpeta llamada 11B Apellido, Nombre - LabNo2.
2. Crear un proyecto nuevo con una aplicación Windows Form.
3. Coloque el nombre del proyecto: lab2, y la ubicación debe ser la carpeta antes creada.
4. Una vez terminado el Laboratorio, enviar la carpeta creada COMPLETA por Drive.
Siga los siguientes pasos:
1. Diseñe el siguiente WindowsForm:
2. Siga las siguientes indicaciones:
Cuando presionamos por ejemplo el primer botón (Filete, Arroz Blanco, Ensalada), en los cuadros de texto respectivos aparecerá un 1 en cada una de las tres casillas y en las demás 0, sucesivamente con los demás botones solo se aparecerá 1 en los productos seleccionados y los restantes en 0. Pero todos estos cuadros de texto estarán inhabilitados, es decir, bloqueados (Propiedad Enabled) para que el usuario no pueda cambiar las cantidades.
El último RadioButton (Otras Opciones), será el único en donde el usuario podrá insertar las cantidades a comprar de cada producto, es decir, que todas las cajas de texto deben estar habilitadas o desbloqueadas.
Al utilizar el botón de Pagar, en el cuadro de texto de Subtotal aparecerá la suma de los precios, de los productos seleccionados. Automáticamente calculará el IVA del 16% en la casilla respectiva sobre el Subtotal, apareciendo la suma del Subtotal más el IVA en la Casilla de Total a Pagar.
Nota: No se trabajara en las 2 cajas de texto de Pago y Cambio (Si desean las pueden eliminar).
Ejemplos de los códigos:
- Para colocar las cajas de texto inhabilitadas: Deben dar doble clic sobre el Formulario y colocar el siguiente código:
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
TextBox6.Enabled = False
TextBox7.Enabled = False
TextBox8.Enabled = False
TextBox9.Enabled = False
TextBox10.Enabled = False
TextBox11.Enabled = False
- Lo siguiente se trabaja en el Botón "PAGAR"
- Para colocar 1 a las celdas correspondientes:
If RadioButton1.checked = true then
TextBox1.text = 1
TextBox2.text = 1
TextBox3.text = 1
TextBox4.text = 0
TextBox5.text = 0
TextBox6.text = 0
TextBox7.text = 0
TextBox8.text = 0
IfElse RadioButton2.checked = True then
(Así seguirán sucesivamente van cambiando los 0 y 1 hasta completar todos los radiobuttons)
EndIf
- En la opción del RadioButton de habilitar todas las cajas de texto, tendría que copiar el código empleado para inhabilitar solo que cambiando su valor a TRUE, sobre las primeros 8 cajas de texto.
- Luego de terminar de trabajar con TODOS los RadioButtons, se procede a trabajar los cálculos solicitados, de la siguiente manera:
SubTotal.Text = Val(Textbox1.text)*0.90 + Val(Textbox2.text)*0.30 + (Así sucesivamente hasta terminar con TODOS los textbox correspondientes)
Nota: En el código antes descrito lo que se busca es encontrar el total de los productos comprados, evidentemente cuando el textbox tenga 0 (cero) al multiplicar su valor sera 0 y no afectará a los demás.
Iva.Text (Ya lo saben calcular)
Total.text (Ya lo saben calcular)