Ejercicio 44

“ CHECKBOX”

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()

IF CheckBox1.Value <> 0 THEN

Message("ES HOMBRE")

ENDIF

IF CheckBox2.Value <> 0 THEN

Message("ES MUJER")

ENDIF

IF CheckBox3.Value <> 0 THEN

Message("ES ALTERNATIVO")

ENDIF

IF CheckBox1.Value = 0

IF CheckBox2.Value = 0

IF CheckBox3.Value = 0

IF CheckBox1.Value = 0 THEN

Message("NO INGRESADO")

ENDIF

ENDIF

ENDIF

ENDIF

END

PUBLIC SUB Button2_Click()

CheckBox1.Value = 0

CheckBox2.Value = 0

CheckBox3.Value = 0

END

PUBLIC SUB Button3_Click()

QUIT

END

PUBLIC SUB MenuCirculo_Click()

FMain.Hide

Form1.Show

END

PUBLIC SUB Button4_Click()

IF CheckBox4.Value <> 0 THEN

Message("EL SUELDO DEL HOMBRE ES DE $1500")

ENDIF

IF CheckBox5.Value <> 0 THEN

Message("EL SUELDO DE LA MUJER ES DE $1000")

ENDIF

IF CheckBox6.Value <> 0 THEN

Message("TIENEN BONO ADICIONAL DE $300 CADA UNO")

ENDIF

IF CheckBox4.Value = 0 THEN

IF CheckBox5.Value = 0 THEN

IF CheckBox6.Value = 0 THEN

Message("NO TRABAJARON VAGOS Y NO RECIBIRÁN SUELDO NO BONO EXTRA?")

ENDIF

ENDIF

ENDIF

END

PUBLIC SUB Button5_Click()

CheckBox4.Value = 0

CheckBox5.Value = 0

CheckBox6.Value = 0

END

PUBLIC SUB Button6_Click()

QUIT

END

PUBLIC SUB MenuSalir_Click()

FMain.Close

END