Como hacer una calculadora cientifica en Visual basic 2008

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

41 comentarios - Como hacer una calculadora cientifica en Visual basic 2008

@jimbo_s
mejor pasa el codigo..ya hecho asi seria mejor
@th3h3ct0r
muchas gracias amigo, yo soy priogramador y necesitaba el codigo de resolucion de logaritmos de base deciaml, muchas gracias hay van mis 10
@Verzachi
hey que lindo post...pero soy nuevo en esto de visual y quisiera saber como pondrias a funcionar un punto (.) en una calculadora de visual basic...osea el codigo que te falto en el post..!!!
@Robbinson233
maravillozo..!!! me sirve muchisimo mas ahorita que estoy haciendo una calculadora
@juiced1
te cagaria a trompadas
@gervamanya
amigo me ayudas el "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) "
me tira error
ayudame please
@amilcarosorio
muchhhhiiiiiiiiiiiiiiiiiiisssssssssssiiiiiiiiiiiiiimmmmmmmmaaaaaaaaaaassssssss graxxxxxxxxxx vos te lo agradesco muxo yo soy novato asi q nose o no puedo dart puntos gracias lo necesitava urgentemente segui aciendo post asi muchas gracias a y una cosa mas porq siempre pones el """Val"""
@amilcarosorio
a y otra cosa q se me olvido ya se q es mucha la molestia para q o porq lleva a:= siempre tiene q llevar eso o para q sirve q hace para q funciona cuales son las q existen
@amilcarosorio
a y otra cosa q se me olvido ya se q es mucha la molestia para q o porq lleva a:= siempre tiene q llevar eso o para q sirve q hace para q funciona cuales son las q existen
@sas999
la verdad no le entendi
@diego61393
uuuhhiiii capoooo!!!! me re salvaste la vida!!! justo me mandaron hacer una en clase, gracias man
@jhoncitorap1
amigo necesito un fa no me puedes dar el codigo como es porque no me lo haceptan con math
@claretiano
Eh NO sALE el dE Porcnetaje peor sirvio Gracias Jajaja
@nicolas_amador
Muchas gracias te agradesco de corazon y que Dios Te Bendiga yo no c como dar puntos pero si se dar las gracias.
@tsukyomiX
muchas gracias , a mí tambien me sirvio
@Gelix64
muchas gracias loco
@Sharyx3
woo amigo muchas gracias ^-^ me sirvieron de mucho
@leprosoox
maestro, hasta ahora me sirven varios pero los del coseno seno y tangente no :S, cuando pongo el codigo por ej: Textbox3.text = Math.Cos(d:=Val(TextBox1.Text)), el "d:=" no me lo reconoce y si se lo saco si funciona pero me tira cualquier resultado lo comprobe con otras calculadoras y no me tira bien el resultado no sabes porque puede ser?, excelente post =)
@Pelotero92
perfecto , estoy estudiando analista de sistemas, no se mucho todavia, en cuanto al comentario de leprosoox a mi me pasa exactamente lo mismo no me acepta el "d:=", y en el de raiz cuadrada si le saco eso de "d:=" creo que en ese era asi si me funciona, estoy confundido XD, muchas gracias por este post
@joelinra151
man eres otro rollo hey no sean mal agradecidos es un muy buen aporte ME SIRVIO MUCHO!!! sigue adelante saludos desde HONDURAS
@the_walkman
me sirvió bastante, pero una pregunta, como lo hago si quiero por ejemplo la raiz ´´x´´ de ´´y´´... onda en ves de x elevado a y...

ojala me respondas pronto... estoy impaciente jejeje
@LaVey
excelente tu aporte, te felicito
@enriquebassman
Ojala me puedas ayudar tengo 3 textbox, 1 para el primer numero, 2 para el segundo numero y 3 resultado la suma del primero y segundo por ejemplo. y tengo un teclado numérico hecho de botones. Lo que necesito saber es como hago para que un botón escriba sobre un textbox cuando tiene el foco y ese mismo boton escriba sobre un txtbox diferente sin que escriba en el anterior!!!! te lo agradecería muchisimo que me puedieras ayudar!!!
@pedroxs
grasias men te agrego a favoritos y te doy mis tres puntos
@LuisAntonioMoraA
oye yo tengo una duda como saco la funciones trigonométricas inversas ya sabes TAN(-1) cos(-1)
@axeso2010
si pusieras imagenes estaria bueno no lo crees?
@Mega6
cual seria el codigo para los numeros
@javierssj4
Grax man
pero no entendi como hacer la tecla de retroceso??