EJERCICIO 48

Utilizando los frame reailzar los siguientes calculos:

Area del circulo,triangulo,rectangulo y cuadrado.

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()

TextBox2.Text = 3.14 * (TextBox1.Text) ^ 2

TextBox5.Text = (TextBox3.Text * TextBox4.Text) / 2

TextBox8.Text = (TextBox6.Text) ^ 2 + (TextBox7.Text) ^ 2

TextBox10.Text = (TextBox9.Text) ^ 2

END

PUBLIC SUB Button2_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

TextBox7.Text = ""

TextBox8.Text = ""

TextBox9.Text = ""

TextBox10.Text = ""

END

PUBLIC SUB Button3_Click()

QUIT

END