Realizar una aplicación con el editor de menú que me permita calcular la raíz cuadrada, potencia y logaritmo.
PRIMER FORMULARIO
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button1_Click()
FMain.Hide
Form1.SHOW
END
PUBLIC SUB Button2_Click()
QUIT
END
SEGUNDO FORMULARIO
' Gambas class file
PUBLIC SUB Button2_Click()TextBox2.Text = (TextBox1.Text) ^ (1 / 2)
TextBox3.Text = (TextBox1.Text) ^ (4)
TextBox4.Text = Log(TextBox1.Text) END
PUBLIC SUB Button1_Click()Form1.Hide
FMain.Show
END
PUBLIC SUB Button2_Click()TextBox2.Text = (TextBox1.Text) ^ (1 / 2)
TextBox3.Text = (TextBox1.Text) ^ (4)
TextBox4.Text = Log(TextBox1.Text) END
PUBLIC SUB Button1_Click()Form1.Hide
FMain.Show
END
No hay comentarios:
Publicar un comentario