EJERCICIO 3

A continuación le mostraremos como programar un calculadora sencilla en gambas.


Gambas class file


PUBLIC SUB _new()
END




PUBLIC SUB Form_Open()
END




PUBLIC SUB Button1_Click()

Textbox3.text=(Textbox1.text) + (Textbox2.text)

END


PUBLIC SUB Button2_Click()

Textbox3.text=(Textbox1.text) – (Textbox2.text)

END


PUBLIC SUB Button3_Click()
Textbox3.text=(Textbox1.text) * (Textbox2.text)
END


PUBLIC SUB Button4_Click()

Textbox3.text=(Textbox1.text) / (Textbox2.text)

END




PUBLIC SUB Button5_Click()

Textbox3.text=(Textbox1.text) ^ (Textbox2.text)

END


PUBLIC SUB Button6_Click()

Textbox1.text = ""

Textbox2.text = ""

Textbox3.text = ""

END


PUBLIC SUB Button7_Click()
QUIT
END