Estructura If Else If
- 1. 2 Frame 3 Cajas 2 ComboBox de 4 Label Texto 3 Botones de comando (Command) Prof.: Ricardo Viqueira
- 2. 1º El programa nos tiene que permitir seleccionar una de las 3 categorías en las cuales se dividen los empleados 2º Nos tiene que dejar seleccionar el valor que cobra cada empleado según la categoría a la cual pertenece. Categoría 1 $ 50 Categoría 2 $ 100 Categoría 3 $ 200 Por otra parte todas las categorías tienen un plus de $ 100 Prof.: Ricardo Viqueira
- 3. Para modificar las propiedades del control ComboBox, seleccionar el mismo y en la propiedad Text agregar “Seleccionar”, es el comentario que mostrara el control al iniciar la aplicación Para agregar las distintas opciones del ComboBox, ir a la propiedad List Prof.: Ricardo Viqueira
- 4. Nombre del empleado Categoría seleccionada “1” Categoría 1 cobra 50 pesos por hora Cantidad de horas trabajadas Resultado Sueldo a cobrar $ 200 100 +( 50 * 2) La respuesta la podrá ver el usuario al hacer clic en el botón Sueldo, por lo cual la programación tiene que ser en el procedimiento Click del Botón Sueldo (Command1). Para ingresar al procedimiento hacer doble clic en el botón Sueldo. Prof.: Ricardo Viqueira
- 5. Private Sub Command1_Click() Dim s As Integer „Variable para guardar el sueldo If Combo1.Text = 1 Then „Pregunto si lo que se selecciona es cat 1 s = 100 + (Combo2.Text * Text3.Text) „ Sueldo Text4.Text = s „Muestro el sueldo en la caja de texto 4 ElseIf Combo1.Text = 2 Then „ Vuelvo a preguntar por lo seleccionado en el comboBox s = 100 + (Combo2.Text * Text3.Text) Text4.Text = s Else „Si no es categoría 1 ni 2, por defecto es categoría 3 s = 100 + (Combo2.Text * Text3.Text) Text4.Text = s End If End Sub En color verde los comentarios Prof.: Ricardo Viqueira
- 6. Código Botón Nuevo, para poder ingresar un nuevo empleado Private Sub Command2_Click() Text1.Text = "" Text3.Text = "" Limpiar las cajas de texto Text4.Text = "" Combo1.Text = "Seleccionar" Modificar el ComboBox para mostrar el Combo2.Text = "Seleccionar" texto de inicio. End Sub Código Botón Salir, para cerrar el programa Private Sub Command3_Click() MsgBox, función que nos permite mostrar mensajes tipo Windows MsgBox "Cerrando el programa Sueldos", , "Sueldos de los Empleados" End „Cerrar la aplicación End Sub Prof.: Ricardo Viqueira