4 Label

3 Cajas de

Texto

2 ComboBox

2 Frame

3 Botones de comando (Command)

Prof.: Ricardo Viqueira

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

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

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

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 1s = 100 + (Combo2.Text * Text3.Text) ‘ SueldoText4.Text = s ‘Muestro el sueldo en la caja de texto 4

ElseIf Combo1.Text = 2 Then ‘ Vuelvo a preguntar por lo seleccionado en el comboBoxs = 100 + (Combo2.Text * Text3.Text)Text4.Text = sElse‘Si no es categoría 1 ni 2, por defecto es categoría 3s = 100 + (Combo2.Text * Text3.Text)Text4.Text = sEnd If

End SubEn color verde los comentarios

Prof.: Ricardo Viqueira

Private Sub Command2_Click()Text1.Text = ""Text3.Text = ""Text4.Text = ""Combo1.Text = "Seleccionar"Combo2.Text = "Seleccionar"End Sub

Limpiar las cajas de texto

Modificar el ComboBox para mostrar el texto de inicio.

Código Botón Nuevo, para poder ingresar un nuevo empleado

Private Sub Command3_Click()MsgBox, función que nos permite mostrar mensajes tipo WindowsMsgBox "Cerrando el programa Sueldos", , "Sueldos de los Empleados"

End ‘Cerrar la aplicación

End Sub

Código Botón Salir, para cerrar el programa

Prof.: Ricardo Viqueira