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