Ejercicio 10

“CALCULADORA BÁSICA”

' Gambas class file

PUBLIC SUB Button1_Click()

TextBox3.Text = TextBox1.Text + TextBox2.Text

Label1.Text = "+"

END

PUBLIC SUB Button2_Click()

TextBox3.Text = TextBox1.Text - TextBox2.Text

Label1.Text = "-"

END

PUBLIC SUB Button3_Click()

TextBox3.Text = TextBox1.Text * TextBox2.Text

Label1.Text = "*"

END

PUBLIC SUB Button4_Click()

TextBox3.Text = TextBox1.Text / TextBox2.Text

Label1.Text = "/"

END

PUBLIC SUB Button5_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

Label1.Text = ""

END

PUBLIC SUB Button6_Click()

FMain.Show

Form5.Hide

END

PUBLIC SUB Button7_Click()

END