Tema 10. Uso de formularios y controles

1. Tema 10. Uso de formularios y controles Clase 3 Informática Profa. María Alejandra Quintero

2. Contenido • Control: Casilla de verificación (CheckBox) • Control: Cuadro combinado (ComboBox) • Control: PictureBox

3. Control: Casillas de verificación (CheckBox) Permiten seleccionar una o más opciones entre un grupo de opciones. Casilla de verificación (CheckBox)

4. Las propiedades más importantes de las casillas de verificación son: Name: nombre del CheckBox. Se sugiere que empiece por la palabra Check o las letras chk. Ejemplos: CheckWord, ChkExcel. Text: almacena el texto que se muestra al lado de la casilla. Checked: propiedad booleana que es igual a TRUE si la casilla está seleccionada, y es FALSE si la casilla no está seleccionada.

5. Ejemplo 1: realizar un programa que dado el diámetro a la altura de pecho medido en cm de un árbol de teca (d), permita calcular la altura (h), el volumen sin corteza (VSC) y el volumen con corteza (VCC). El usuario debe poder elegir cuáles de estos valores desea calcular. Las fórmulas de cálculo son:

6. Interfaz gráfica TxtD BotonCalc ChkAltura ChkVSC BotonLimpiar ChkVCC BotonSalir LblAltura Control PictureBox LblVSC LblVCC

7. PrivateSubBotonCalc_Click …. Dimd, h, vsc, vccAsSingle d = txtD.Text h = 33.6 * Math.Exp(-8.7 / d) IfChkAltura.Checked = TrueThen lblaltura.Text= "Altura (m) = " & h EndIf IfChkVSC.Checked = TrueThen vsc = 0.26 * ((d / 100) ^ 2 * h) ^ 0.96 lblVsc.Text = "Volumen sin corteza (m3) = " & vsc EndIf IfChkVCC.Checked = TrueThen vcc = 0.34 * ((d / 100) ^ 2 * h) ^ 0.93 lblVCC.Text = "Volumen con corteza (m3) = " & vcc EndIf IfChkAltura.Checked = FalseAndChkVSC.Checked = FalseAndChkVCC.Checked = FalseThen MsgBox("Debe seleccionar las variables a calcular") EndIf EndSub Código del botón Calcular variables(BotonCalc)

8. PrivateSubBotonLimpiar_Click . . . TxtD.text = "" ChkAltura.Checked= False ChkVCC.Checked = False ChkVSC.Checked = False lblaltura.Text = "" lblVCC.Text = "" lblVsc.Text = "" EndSub Código del botón Limpiar (BotonLimpiar) Código del botón Salir (BotonSalir) PrivateSubBotonSalir_Click . . . Close() EndSub

9. Control: Cuadro combinado (ComboBox) Permite seleccionar una opción de una lista desplegable. Puede presentar también un cuadro de texto para escribir una opción que no esté predefinida. ComboBox

10. Las propiedades más importantes de los ComboBox son: Name: nombre del ComboBox. Se sugiere que empiece por la palabra Combo o por las letras cbo. Ejemplos: CboEstado, ComboEstado. Items: propiedad que almacena todas las opciones que aparecerán en la lista. SelectedItem: almacena el ítem que fue seleccionado. Por ejemplo, si se selecciona el estado Bolívar en el ComboBox del ejemplo anterior: ComboEstado.SelectedItem = “Bolívar”

11. SelectedIndex: almacena el índice del ítem que fue seleccionado. Cada elemento de la lista tiene un índice, ejemplo: 0 Amazonas 1 Anzoátegui 2 Apure 3 Aragua 4 Barinas . . Si se selecciona Apure: ComboEstado.SelectedIndex = 2

12. DropDownStyle: permite definir el tipo de combobox. Hay tres tipos: DropDownList: muestra las opciones al hacer clic sobre la flecha. No permite edición. DropDown: muestra las opciones al hacer clic sobre la flecha. Permite edición, es posible agregar una nueva opción.

13. Simple: el comboBox aparece abierto con algunas opciones visibles, por lo tanto ocupa más espacio en el formulario. Permite edición, es posible agregar una nueva opción. Nota: Usaremos el ComboBox tipo DropDownList

14. Ejemplo 2: realizar un programa para calcular el salario mensual de un trabajador de acuerdo a los siguientes criterios: • El salario base depende del tipo de empleado. • Obrero: 5000 Bs. • Personal Administrativo (no profesional): 6200 Bs. • Técnico: 7100 Bs. • Profesional: 10000 Bs. • Por cada hijo, el empleado obtiene un bono de 600 Bs. • Además, se da un bono por años de servicio:

15. Interfaz gráfica BotonCalc BotonSalir TxtNoHijos ComboTipoT ComboAServ LblSalarioB LblBonoH LblSalarioT LblBonoAS

16. PrivateSubBotonCalcSal_Click …. Dimnh, tipot, añosAsByte DimSb, bonoh, bonoAS, ST AsSingle nh= TxtNoHijos.Text tipot = ComboTipoT.SelectedIndex Años = ComboAServ.SelectedIndex Selecttipot Case 0 Sb = 5000 Case 1 Sb = 6200 Case 2 Sb = 7100 Case 3 Sb = 10000 EndSelect bonoh = 2000 * nh If años = 0 Then bonoAS = 0 Else If años = 1 Then bonoAS = 2000 Else bonoAS = 3200 EndIf EndIf ST = Sb + bonoh + bonoAS LblsalarioB.Text = "Salario Base = " & Sb LblBonoH.Text = "Bono por hijos = " & bonoh LblBonoAS.Text = "Bono por años de servicio = " & bonoAS LblSalarioT.Text = "Salario Total =" & ST EndSub Código del botón Calcular salario (BotonCalcSal)

17. Tarea: En un aserradero se necesita un programa para calcular el total a pagar por la compra de madera, teniendo como dato la cantidad de metros cúbicos a comprar. El aserradero vende principalmente cedro, samán y pardillo, cuyos precios por metro cúbico son 26000, 25000 y 22000 Bs. Si se compra otra especie diferente, el programa debe solicitar el precio por metro cúbico. Si el pago es de contado se aplican los siguientes descuentos: Si el pago es a crédito no hay descuento. Sugerencia: usar un ComboBox para la especie y otro ComboBox para tipo de pago (contado, crédito).