Hola a todos, este es mi primer tutorial, bueno, ahora les enseñare a hacer una calculadora cientifica en VB 2008, bueno, los codigos los pondre sobre la marcha, bueno, para hacer la parte cientifica usaremos la libreria math que tiene muchas cosas de calculadoras cientificas: logaritmos, PI, raices cuadradas, y como no: funciones trigonometricas, bueno, ya esta bien de rollo, empecemos:




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







Bueno, y con esto ya saben crear una calculadora cinentifica con VB 2008,
Los codigos no son copiados de ningun sitio, solo los he copiado del visual DE MI ORDENADOR, y en mi calculadora los he escrito yo.
Bueno, ya podeis cambiarle el nombre, y os explicare porque, si lo haces en el codigo, no se cambias al text box, pero se lo cambias al textbox si se lo cambias al codigo, al menos en la version 2008.

Bueno, me despido, espero que os haya servido, Gracias, por favor, comenten y puntuen.

Adios