EJERCICIO 56

REALIZAR LOS SIGUIENTES OPERACIONES CON EL EDITOR DE MENU,SUMA,RESTA, MULTIPLICACION,DIVISION.

FMAIN 

' Gambas class file

PUBLIC SUB _new()

Form1.Hide

FMain.Show

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Label1_MouseDown()

MENU.Popup

END

PUBLIC SUB SUMA_Click()

FMain.Hide

Form1.Show

END

PUBLIC SUB RESTA_Click()

FMain.Hide

Form2.Show

END

PUBLIC SUB MULTIPLICACION_Click()

FMain.Hide

Form3.Show

END

PUBLIC SUB DIVISION_Click()

FMain.Hide

Form4.Show

END

PUBLIC SUB SALIR_Click()

QUIT

END

FORMULARIO1

' Gambas class file

PUBLIC SUB Button1_Click()

TextBox3.Text = TextBox1.Text + TextBox2.Text

END

PUBLIC SUB Button2_Click()

Form1.Hide

FMain.Show

END

PUBLIC SUB Button3_Click()

TextBox3.Text = ""

TextBox2.Text = ""

TextBox1.Text = ""

END

PUBLIC SUB Label1_MouseDown()

END

FORMULARIO2

Gambas class file

PUBLIC SUB Button3_Click()

Form2.Hide

FMain.Show

END

PUBLIC SUB Button1_Click()

TextBox3.Text = TextBox1.Text - TextBox2.Text

END

PUBLIC SUB Button2_Click()

TextBox3.Text = ""

TextBox2.Text = ""

TextBox1.Text = ""

END

FORMULARIO3

' Gambas class file

PUBLIC SUB Button3_Click()

Form3.Hide

FMain.Show

END

PUBLIC SUB Button1_Click()

TextBox3.Text = TextBox1.Text * TextBox2.Text

END

PUBLIC SUB Button2_Click()

TextBox3.Text = ""

TextBox2.Text = ""

TextBox1.Text = ""

END

FORMULARIO4

' Gambas class file

PUBLIC SUB Button2_Click()

TextBox3.Text = ""

TextBox2.Text = ""

TextBox1.Text = ""

END

PUBLIC SUB Button3_Click()

Form4.Hide

FMain.Show

END

PUBLIC SUB Button1_Click()

TextBox3.Text = TextBox1.Text / TextBox2.Text

END

EJERCICIO 55

RAELIZAR 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

EJERCICIO 54

La distancia Tijuana - Ensenada es de 110 Kms, si un automóvil la

recorre a una velocidad constante de 30 millas por hora, cuanto tiempo tarda enllegar. ( 1 milla =1.609 Km.) (Dos maneras correctas de resolverlo)

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()

TextBox1.Text = (30) * (1.609) / 3600

TextBox2.Text = (0.013) / (110)

END

PUBLIC SUB Button2_Click()

QUIT

END

EJERCICIO 53

Utilizando 4 frame realizar un programa que contenga el calculo de la potencia de un numero area del circulo transformación de años a meses  transformacion de edad a dias .

Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()

TextBox3.text = Val(TextBox1.text) ^ Val(TextBox2.text)
TextBox5.text = 3.14 * Val(TextBox4.text) ^ 2
TextBox7.text = Val(TextBox6.text) * 12
TextBox9.text = Val(TextBox8.text) * 365
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 Button3_Click()

  QUIT

END

EJERCICIO 52

OPERACIONES UTILIZANDO 4 FRAME : SUMA ,RESTA,MULTIPLICACIÓN Y DIVISIÓN.

Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

 

PUBLIC SUB Button1_Click()

  TextBox3.TEXT = Val(TextBox1.TEXT) + Val(TextBox2.TEXT)
  TextBox6.TEXT = Val(TextBox4.TEXT) - Val(TextBox5.TEXT)
  TextBox9.TEXT = Val(TextBox7.TEXT) * Val(TextBox8.TEXT)
  TextBox12.TEXT = Val(TextBox10.TEXT) / Val(TextBox11.TEXT)
END

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

SALIR

PUBLIC SUB Button3_Click()

  QUIT

END

EJERCICIO 51

CUESTIONARIO DE PREGUNTAS UTILIZANDO RADIOBUTTON

 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 MIGUEL"
END IF

IF RadioButton6.Value = TRUE THEN
TextBox6.Text = "082314217"
END IF
END

EJERCICIO 50

PUEDE ESCRIBIR LA LETRA "A" "B" Y SE MOSTRARA UN MENSAJE

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()

SELECT CASE TextBox1.Text

CASE "a", "A"

Message("AGUILA")

CASE "b", "B"

Message("TIGRES")

CASE ELSE

Message("NO HAY")

END SELECT

END