Tema 10. Uso de formularios y controles

Clase 3

InformáticaProfa. María Alejandra Quintero

2

ContenidoControl: Casilla de verificación (CheckBox)

Control: Cuadro combinado (ComboBox)

Control: PictureBox

3

Permiten seleccionar una o más opciones entre un grupo de opciones.

Control: Casillas de verificación (CheckBox)

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:

h=33,6×𝑒− 8,7

𝑑

𝑉𝑆𝐶=0,26×((𝑑/100)2h)0,96

𝑉𝐶𝐶=0,34×((𝑑 /100)2h)0,93

6

Interfaz gráfica

ChkAlturaChkVSC

ChkVCC

BotonCalc

BotonSalir

LblAltura

TxtD

LblVSC

LblVCC

ControlPictureBox

BotonLimpiar

7

Código del botón Calcular variables(BotonCalc)Private Sub BotonCalc_Click ….

Dim d, h, vsc, vcc As Single

d = txtD.Text h = 33.6 * Math.Exp(-8.7 / d) If ChkAltura.Checked = True Then lblaltura.Text = "Altura (m) = " & h End If

If ChkVSC.Checked = True Then vsc = 0.26 * ((d / 100) ^ 2 * h) ^ 0.96 lblVsc.Text = "Volumen sin corteza (m3) = " & vsc End If If ChkVCC.Checked = True Then vcc = 0.34 * ((d / 100) ^ 2 * h) ^ 0.93 lblVCC.Text = "Volumen con corteza (m3) = " & vcc End If

If ChkAltura.Checked = False And ChkVSC.Checked = False And ChkVCC.Checked = False Then MsgBox("Debe seleccionar las variables a calcular") End If

End Sub

8

Código del botón Limpiar (BotonLimpiar)Private Sub BotonLimpiar_Click . . . TxtD.text = "" ChkAltura.Checked = False ChkVCC.Checked = False ChkVSC.Checked = False lblaltura.Text = "" lblVCC.Text = "" lblVsc.Text = ""

End Sub

Private Sub BotonSalir_Click . . . Close()

End Sub

Código del botón Salir (BotonSalir)

9

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.

Control: Cuadro combinado (ComboBox)

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

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

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:Años de servicio BonoMenos de 5 0

Entre 5 y 10 2000

Más de 10 3200

15

Interfaz gráfica

ComboTipoT

TxtNoHijos

BotonCalc BotonSalir

LblSalarioBLblBonoH

LblBonoAS LblSalarioT

ComboAServ

16

Código del botón Calcular salario (BotonCalcSal)Private Sub BotonCalcSal_Click ….

Dim nh, tipot, años As ByteDim Sb, bonoh, bonoAS, ST As Single nh = TxtNoHijos.Text tipot = ComboTipoT.SelectedIndex Años = ComboAServ.SelectedIndex Select tipot Case 0 Sb = 5000 Case 1 Sb = 6200 Case 2 Sb = 7100 Case 3 Sb = 10000 End Select bonoh = 2000 * nh If años = 0 Then bonoAS = 0 Else If años = 1 Then bonoAS = 2000 Else bonoAS = 3200 End If End If

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 =" & STEnd Sub

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).

Especie DescuentoPardillo 10 %

Cedro 8%

Samán 6%

Otro 2%