EJERCICIO 36

Sentencia if

Mostrar los datos de un empleado si gana mas de 500 mostrar CHEQUE semanal caso contrario un bono del 25%

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button3_Click()

QUIT

END

PUBLIC SUB Button2_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

TextBox7.Text = ""

END

PUBLIC SUB Button1_Click()

DIM A AS Integer

A = TextBox1.Text

IF (A) > 500 THEN

Message("CHEQUE SEMANAL")

ELSE

IF (A) < 500 THEN

Message("BONO DEL 25%")

TextBox2.Text = TextBox1.Text * (0.25)

ENDIF

ENDIF

END