EJERCICIO 36

Ejercicio con la sentencia if then

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

PRIMER FORMULARIO

SEGUNDO FORMULARIO

DATOS DEL EMPLEADO

CUARTO FORMULARIO

' 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