Ejercicio 43

“Capture los datos de un empleado, desplegar en una ventana su cheque semanal si gana mas de $500.00 si esta en el departamento de producción, caso contrario desplegarle en otra ventana un bono de despensa del 25% de su sueldo semanal ”

' Gambas class file

PUBLIC SUB Button1_Click()

DIM X, Y AS Integer

DIM Z, A AS String

Z = TextBox1.Text

Y = TextBox2.Text

A = ComboBox1.Text

X = Y * 1 / 4

IF Y > 500 THEN

IF A = "PRODUCCION" THEN

Cheque. Show

Sueldo. Hide

Cheque.TextLabel1.Text = Z

Cheque.TextLabel2.Text = Y

ELSE

Message("USTED TIENE UN BONO DE DESPENSA DE")

Bono. Show

Sueldo. Hide

Bono.Label2.Text = X

ENDIF

ELSE

Message("USTED TIENE UN BONO DE DESPENSA DE")

Bono. Show

Sueldo. Hide

Bono.Label2.Text = X

ENDIF

END

PUBLIC SUB Button2_Click()

TextBox1.Text = ""

TextBox2.Text = ""

ComboBox1.Text = ""

END

PUBLIC SUB Button3_Click()

MenuS.Show

Sueldo. Hide

END

“ CHEQUE”

' Gambas class file

PUBLIC SUB Button1_Click()

Sueldo. Show

Cheque. Hide

END

“ BONO DE DESPENSA”

' Gambas class file

PUBLIC SUB Button1_Click()

Sueldo. Show

Bono. Hide

END