martes, 8 de febrero de 2011

EJERCICIO 43

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


No hay comentarios:

Publicar un comentario