Ejercicio 34

“SALARIO”

' Gambas class file

PUBLIC SUB Button1_Click()

TextBox6.Text = (TextBox1.Text * TextBox2.Text) + (TextBox3.Text * TextBox4.Text) - TextBox5.Text

END

PUBLIC SUB Button2_Click()

IF CInt(TextBox6.Text) > 500 THEN

Message("TIENE UNOS CHEQUES")

ELSE

Message("USTED TIENE UN BONO DE DESPENSA")

ENDIF

END

PUBLIC SUB Button3_Click()

IF CInt(TextBox6.Text) > 500 THEN

Cheques.Show

Cheques.Text = TextBox6.Text

Salario.Hide

ELSE

Despensa.Show

Salario.Hide

ENDIF

END

PUBLIC SUB Button4_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

END

PUBLIC SUB Button5_Click()

FMain.Show

SALARIO. Hide

END

“DESPENSA”

' Gambas class file

PUBLIC SUB Button1_Click()

Salario. Show

Despensa. Hide

END

“CHEQUES”

' Gambas class file

PUBLIC SUB Button1_Click()

TextBox1.Text = Cheques.Text

END

PUBLIC SUB Button2_Click()

Salario. Show

Cheques. Hide

END