Editor de menú realizar las siguientes operaciones

Utilizando

Editor de menú realizar las siguientes operaciones

Conversiones:

Edad a Dias

Kilometros a Metros

Terabytes a byte

OPERACIONES

SUMA; RESTA; MULTIPLICACION; DIVISION

PRIMER FORMULARIO


' Gambas class file


PUBLIC SUB _new()


END


PUBLIC SUB Form_Open()
END


PUBLIC SUB SALIR_Click()
QUIT
END


PUBLIC SUB EDAD_Click()
FMain.Hide
Form1.Show
END


PUBLIC SUB KILOMETROSAMETROS_Click()
FMain.Hide
Form2.Show
END


PUBLIC SUB TERABYTE_Click()
FMain.Hide
Form3.Show
END


PUBLIC SUB OPERACIONESCASE_Click()
FMain.Hide
Form4.Show
END


PUBLIC SUB Label11_MouseDown()
MENU.Popup
END






SEGUNDO FORMULARIO


' Gambas class file




PUBLIC SUB Button3_Click()
Form1.Hide
FMain.Show
END


PUBLIC SUB Button1_Click()
TextBOX2.Text = (TextBOX1.Text) * 365
END


PUBLIC SUB Button2_Click()
TextBOX1.Text = ""
TextBOX2.Text = ""
END






TERCER FORMULARIO


' Gambas class file




PUBLIC SUB Button3_Click()
Form2.Hide
FMain.Show
END


PUBLIC SUB Button1_Click()
TextBox2.Text = (TextBox1.Text) * 1000
END


PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END




CUARTO FORMULARIO


' Gambas class file




PUBLIC SUB Button1_Click()
TextBox2.Text = (TextBox1.Text) * 1024
END


PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END


PUBLIC SUB Button3_Click()
Form3.Hide
FMain.Show
END




QUINTO FORMULARIO


' Gambas class file




PUBLIC SUB Button2_Click()
Form4.Hide
FMain.Show
END


PUBLIC SUB Button1_Click()
SELECT CASE ComboBox1.Text
CASE ("+")
Form4.Hide
Form5.Show
CASE ("-")
Form4.Hide
Form6.Show
CASE ("*")
Form4.Hide
Form7.Show
CASE ("/")
Form4.Hide
Form8.Show
END SELECT
END




SEXTO FORMULARIO


' Gambas class file




PUBLIC SUB Button1_Click()
Form5.Hide
Form4.Show
END


PUBLIC SUB Button2_Click()
TextBox3.Text = (TextBox1.Text) + (TextBox2.Text)
END


PUBLIC SUB Button3_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
END




SEPTIMO FORMULARIO


' Gambas class file




PUBLIC SUB Button1_Click()
TextBox3.Text = (TextBox1.Text) - (TextBox2.Text)
END


PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
END


PUBLIC SUB Button3_Click()
Form6.Hide
Form4.Show
END




OCTAVO FORMULARIO


' Gambas class file




PUBLIC SUB Button1_Click()
TextBox3.Text = (TextBox1.Text) * (TextBox2.Text)
END


PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
END


PUBLIC SUB Button3_Click()
Form7.Hide
Form4.Show
END




NOVENO FORMULARIO


' Gambas class file




PUBLIC SUB Button3_Click()
Form8.Hide
Form4.Show
END


PUBLIC SUB Button1_Click()
TextBox3.Text = (TextBox1.Text) / (TextBox2.Text)
END


PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
END