Como hacer una calculadora cientifica con VB.

Topic created · 1 Posts · 12390 Views
  • Hola a todos/as, aqui os traigo una guía de taringa para hacer una calculadora cientifica:

    1- Creamos un nuevo proyecto, (aplicacion de windows forms)
    2-Le damos un nombre cualquiera y el cuadrado lo agrandais (mucho, muchisimo, en serio)y le en text (apliciones) le ponemos Calculadora, o, calculadora cientifica, como querais
    3-Metemos 4 botones, y le poneis a uno, +, a otro -, * y /
    4-Creamos 3 textbox y dos de ellos los poneis en frente y el otro abajo en mitad, les dejais el nombre, y cuando hayais terminado de hacer la calculadora, mejor, cuando yo diga que ya podeis cambiarle el nombre a las textbox se lo cambiais, no es por nada importante, solo para que lo hagais mas rapido, pero sera exactamente igual la calculadora
    5-En el botonde suma ponemos:
    Textbox3.Text = Val(TextBox1.Text) + Val(Textbox2.Text)
    En el de resta:
    Textbox3.Text = Val(TextBox1.Text) - Val(Textbox2.Text)
    El de multiplicacion:
    Textbox3.Text = Val(TextBox1.Text) * Val(Textbox2.Text)
    Y en el de Division:
    Textbox3.Text = Val(TextBox1.Text) / Val(Texttbox2.Text)
    6- ahora ya tenemos las funciones basicas, ahora a por otras mas avanzadas:
    Para el tanto por ciento:
    Resultado.Text = Val(TextBox1.Text) * (Val(v2.Text) / 100)
    7-Genial,a por las potencias, creais 4 botones, los escalais, y les poneis:
    Para x^2:
    El boton le ponemos en text x^2
    Codigo:
    TextBox3.Text = Val(TextBox1.Text) ^ 2
    Para x^3:
    El boton le ponemos en text x^3
    Codigo:
    TextBox3.Text = Val(TextBox1.Text) ^ 3
    Para X^y:
    El boton le ponemos en text x^2
    Codigo:
    Textbox3 = Val(TextBox1.Text) ^ Val(v2.Text)
    Para x^-1:
    Al boton en text le poneis x^-1
    Codigo:
    Textbox3.Text = (1) / Val(TextBox1.Text)
    Perfecto, ahora a por lo cientifico de verdad, pero tengo que deciros una cosa, para esto, necesitarareis la libreria Math, no os asusteis, no es nada extra, viene con el vb,la libreria Math contiene operaciones matematicas como raices, logaritmos, senos,etc...
    Creamos 14 botones, los escalais, los colocais y ya esta
    Empecemos:

    1-Empecemos por el seno: REPITO, (la libreria math viene con el visual basic )
    Le ponemos en text al boton Sen
    Codigo:
    TextBox3.Text = Math.Sin(a:=Val(TextBox1.Text))
    2-voy a explicaros lo del a:=, casi todas las partes de la libreria Math tiene, digamosle, su := , algunos por no dicir casi todos se repiten, bueno, sigamos con el coseno:
    Le ponemos en text al boton Cos
    Textbox3.text = Math.Cos(d:=Val(TextBox1.Text))
    El de la Tangente:
    Le poneis en text Tan
    Codigo:
    Textbox3.Text = Math.Tan(a:=Val(TextBox1.Text))
    3-Ahora a por las inversas:
    Cosencante:
    Le poneis al boton en text Cosec
    Codigo:
    Textbox3.Text = Math.Sinh(value:=Val(TextBox1.Text))
    Secante:
    Al boton en text le poneis Sec
    Codigo:
    Textbox3.Text = Math.Cosh(value:=Val(TextBox1.Text))
    Cotangente:
    Le poneis en text al boton cotan
    codigo
    Textbox3.Text = Math.Tanh(value:=Val(TextBox1.Text))
    4-Genial, ahora a por los arco...
    Sigamos:
    Arcoseno:
    Le poneis en text al boton Arcosen
    Codigo:
    Textbox3.Text = Math.Asin(d:=Val(TextBox1.Text))
    Arcocoseno:
    Le poneis en text al boton Arccosen
    Codigo:
    Textbox3.Text = Math.Acos(d:=Val(TextBox1.Text))
    Arcotangente:
    Le poneis al boton en text arcotan
    Codigo:
    Textbox3.Text = Math.Atan(d:=Val(TextBox1.Text))
    Genial, ya estan todas las funciones trigonometricas, ahora a por los logaritmos, raices,PI, y una sorpresita mas, je je
    1-Logaritmos:
    Logaritmo base 10:
    Poneis en text en boton Log10
    Codigo:
    Textbox3.Text = Math.Log10(d:=Val(TextBox1.Text))
    Lobaritmo Neperiano:
    En text en boton poneis ln
    Codigo:
    TextBox1.Text = Math.Log(d:=Val(TextBox1.Text))
    GOOD! Ahora a por las raices cuadradas:
    1-Raiz cuadrda:
    En text en el boton poneis Raiz2
    Codigo:
    Textbox3.Text = Math.Sqrt(d:=Val(TextBox1.Text))
    Muy bien, ya casi esta, ahora a por PI, y estareis im pacientes (si no lo habeis mirado) de la sorpresita
    1-PI:
    Ponemos PI (Val1) en text en el boton, (para tambien poder ponerlo en la segunda textbox) ponemos:
    TextBox1.Text = Math.PI
    y en el siguiente boton Ponemos en text en boton PI (val2)
    Codigo:
    TextBox2.Text = Math.PI
    Muy bien, ahora la sorpresita, ¿que sera?, bueno esto es para los que prefieren los grados a los radianes y viceversa, se que ya lo sabeis, es que la calculadora convierta los grados en radianes y viceversa, por en lo de las funciones trigometricas te lo da en radianes, pues bueno, alla va:
    1-Creais dos botones, los escalais y los colocais
    2-Va:
    Poneis en text en el boton Radi. a Grados:
    Codigo:
    Resultado.Text = (Val(Resultado.Text * 180)) / Math.PI
    3-Convertir Grados en radianes:
    Poneis en text en el boton Grados a Radi.:
    Codigo:
    Resultado.Text = (Val(Resultado.Text / 180)) * Math.PI
    Bueno, ya lo ultimo, el boton de limpiar y cerrar:
    1-Creais dos botones y a uno en tex le poneis limpiar y al otro cerrar
    2-Codigos:
    Limpiar:
    TextBox1.Clear()
    Textbox2.Clear()
    TextBox3.Clear()
    Cerrar:
    Me.Close()

    Fuente:
    [http://www.taringa.net/posts/hazlo-tu-mismo/6711502/Como-hacer-una-calculadora-cientifica-en-Visual-basic-2008.html][0]">[http://www.taringa.net/posts/hazlo-tu-m][1] ... -2008.htmlEspero que les sirva de algo

    [0]: <a href=
    [1]: http://www.taringa.net/posts/hazlo-tu-m

Log in to reply