EJERCICIO 19

Editor de menú realizar las siguientes operaciones

Conversiones:

Edad a Dias

Kilometros a Metros

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 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