EJERCICIOS EN GAMBAS

EJERCICIO EN GAMBAS

Utilizando los frames realizar lo siguiente:

Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()

IF CheckBox1.Value = 1 THEN

Message("MASCULINO")

ELSE

IF CheckBox1.Value = 0 THEN

Message("DATO FEMENINO")

END IF

IF CheckBox2.Value = 1 THEN

Message("ES FEMENINO")

ELSE

IF CheckBox2.Value = 0 THEN

Message(" DATOS MASCULINO")

END IF

END IF

END IF

END

PUBLIC SUB Button4_Click()

QUIT

END

PUBLIC SUB Button2_Click()

IF CheckBox3.Value = 0 THEN

Message("SU SUELDO ES DE 100 A 200")

ELSE

IF CheckBox3.Value = 1 THEN

Message("")

END IF

IF CheckBox4.Value = 0 THEN

Message("SU SUELDO ES DE 201 A 300")

ELSE

IF CheckBox4.Value = 1 THEN

Message("")

END IF

IF CheckBox5.Value = 1 THEN

Message("SU SUELDO ES DE 301 A 400")

ELSE

IF CheckBox5.Value = 0 THEN

Message("")

END IF

END IF

END IF

END IF

END

PUBLIC SUB CheckBox5_Click()

END

PUBLIC SUB Button3_Click()

IF CheckBox6.Value = 0 THEN

Message("CHECADO")

ELSE

IF CheckBox6.Value = 1 THEN

Message("NO CHECADO")

END IF

IF CheckBox7.Value = 0 THEN

Message("CHECADO")

ELSE

IF CheckBox7.Value = 1 THEN

Message("NO CHECADO")

END IF

IF CheckBox8.Value = 0 THEN

Message("CHECADO")

ELSE

IF CheckBox8.Value = 1 THEN

Message("NO CHECADO")

END IF

END IF

END IF

END IF

END

MPRIMIR LA PALABRA PATO 10 VECES EN UN LISTBOX1 Y EN UN LABEL1

QUIT 

END

PUBLIC SUB Button2_Click()

Label2.Caption = ""

END

PUBLIC SUB Button1_Click()DIM x AS Integer

FOR x = 1 TO 5

Label2.Caption = ("pato")

NEXT 

END

PUBLIC SUB Button5_Click()

ListBox1.Clear

END

PUBLIC SUB Button4_Click()DIM A AS Integer

FOR A = 1 TO 10

ListBox1.Add("pato")

NEXT END

REALIZAR LAS SIGUIENTES CALCULOS:

POTENCIA, AREA DEL CIRCULO Y LAS SIGUIENTES CONVERSIONES DE AÑOS A MESES Y DE AÑOS A DIAS.

' 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 = ""

TextBox8.Text = ""

TextBox9.Text = ""

END

PUBLIC SUB Button1_Click()

TextBox3.Text = TextBox1.Text ^ TextBox2.Text

TextBox5.Text = 3.14 * (TextBox4.Text) ^ 2

TextBox7.Text = TextBox6.Text * (12)

TextBox9.Text = TextBox8.Text * (365)

END

PUBLIC SUB TextBox5_KeyPress()

END

Capturar un número cualesquiera e informar si es o no es mayor de 100

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button3_Click()

QUIT

END

PUBLIC SUB Button2_Click()

TextBox1.Text = ""

END

PUBLIC SUB Button1_Click()

DIM A AS Integer

A = TextBox1.Text

IF A > 100 THEN

Message("EL NUMERO ES MAYOR")

ELSE

Message(" EL NUMERO ES MENOR")

END IF

END

UTILIZANDO CUATRO FRAME REALIZAR LAS CUATRO OPERACIONES BASICAS

Gambas class file

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()

CODIFICACIÓN DE LA SUMA

TextBox3.TEXT = Val(TextBox1.TEXT) + Val(TextBox2.TEXT)

CODIFICACIÓN DE LA RESTA

TextBox6.TEXT = Val(TextBox4.TEXT) - Val(TextBox5.TEXT)

CODIFICACIÓN DE LA MULTIPLICACIÓN

TextBox9.TEXT = Val(TextBox7.TEXT) * Val(TextBox8.TEXT)

CODIFICACIÓN DE LA DIVISIÓN

TextBox12.TEXT = Val(TextBox10.TEXT) / Val(TextBox11.TEXT)

END

CODIFICACIÓN PARA BORRAR

PUBLIC SUB Button2_Click()

TextBox1.TEXT = " "

TextBox2.TEXT = " "

TextBox3.TEXT = " "

TextBox4.TEXT = " "

TextBox5.TEXT = " "

TextBox6.TEXT = " "

TextBox7.TEXT = " "

TextBox8.TEXT = " "

TextBox9.TEXT = " "

TextBox10.TEXT = " "

TextBox11.TEXT = " "

TextBox12.TEXT = " "

END

Realice un cuestionario de preguntas a un estudiante 

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button2_Click()

QUIT 

END

PUBLIC SUB Button1_Click()

IF RadioButton1.Value = TRUE THEN

TextBox1.Text = ("SI ")

END IF

IF RadioButton2.Value = TRUE THEN

TextBox2.Text = ("ESCUCHAR MUSICA ")

END IF

IF RadioButton3.Value = TRUE THEN

TextBox3.Text = "BAILAR "

END IF

IF RadioButton4.Value = TRUE THEN

TextBox4.Text = "ESTUDIAR"

END IF

IF RadioButton5.Value = TRUE THEN

TextBox5.Text = "SAN PABLO DE ATENAS "

END IF

IF RadioButton6.Value = TRUE THEN

TextBox6.Text = "080132511 "

END IF

END

Capturar los cinco datos mas importantes de un Empleado, incluyendo el 

sueldo diario y los días trabajados esto en un panel, desplegarle su cheque

semanal en un segundo panel solo si ganó mas de $500.00 en la semana,

caso contrario desplegarle un bono de despensa semanal de $150.00en un tercer panel.

' 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 = ""

END

PUBLIC SUB Button1_Click()

DIM A AS Integer

A = TextBox6.Text

IF A > 500 THEN

Message("CHEQUE SEMANAL")

ELSE

Message("BONO DE DESPENSA DE 150")

END IF

END