martes, 8 de febrero de 2011

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

No hay comentarios:

Publicar un comentario