Hola denuevo a todos pues en esta vez traigo otro tutorial para los nuevos en VB -- para este proyecto necesitaremos 3 Label 3 TextBox y 3 CommandButton.
Muchos hemos visto a los que recien comienzan en VB hacen una calculadora demasiada basica y ya muy vista . A diferencia de esta calculadora que les enseñare a hacer es que solo pones el primer numero y el segundo en los casilleros que indica y das click en un boton (OPERAR) y lanzara resultados automaticamente da suma, resta, división, multiplicacion, división entera, residuo y OR, muy eficiente =)! facilita las cosas.OR : Los operadores lógicos truncarán la parte decimal de un numero antes de realizar una operación bit a bit (parte de una calculadora avanzada)NOTA : No agregue potencia ya que hay algunos errores cuando los numeros son largos jeje.
1 ) Bueno seguimos xD... diseñamos el form
(http://lzuploader.webcindario.com/uploads/dibujo1.bmp)
2 ) Ya diseñado el formulario como la imagen anterior, vamos a cambiar los nombres de los controles de los TextBox.
Text1 = txt_primero
Text2 = txt_segundo
Text3 = txt_respuesta
Command1 = cmd_operar
Command2 = cmd_nuevo
Command3 = cmd_salir(http://lzuploader.webcindario.com/uploads/dibujo2.bmp)
3 ) También debemos cambiar la propiedad MultiLine a True en el control txt_respuesta..(http://lzuploader.webcindario.com/uploads/dibujo3.bmp)
4) Programamos en General....(http://lzuploader.webcindario.com/uploads/dibujo4general.bmp)
Escribimos el siguiente codigo :
Dim primero As Double
Dim segundo As Double5 ) Programamos el boton "Operar"
primero = txt_primero
segundo = txt_segundo
txt_respuesta = _
"suma : " + Str(primero + segundo) + vbCrLf & _
"resta : " + Str(primero - segundo) + vbCrLf & _
"multiplicación : " + Str(primero * segundo) + vbCrLf & _
"división : " + Str(primero / segundo) + vbCrLf & _
"división entera : " + Str(primero \ segundo) + vbCrLf & _
"residuo : " + Str(primero Mod segundo) + vbCrLf & _
"OR: " + Str(primero Or segundo)(http://lzuploader.webcindario.com/uploads/dibujo5operar.bmp)
La breve descripcion del codigo xD sino no lo entenderan :P!txt_respuesta = _ Como vemos alli si no utilizamos el gion bajo , entonces seguire programando todo a la derercha.El guión bajo permite continuar con el código pero en otra línea.vbCrLf & _ se utiliza para bajar a otra línea en el cuadro de texto donde dara la respuesta."división entera : " + Str(primero \ segundo) + vbCrLf & _ Pues creo que esto ya esta demas explicar :xD la "\" significa que va a ser una division entera.* (multiplicacion) , Mod (residuo) ....6 ) Ahora programamos el boton "Nuevo" que es para borrar todo y comenzar denuevo, ponemos el siguiente codigo.txt_primero = ""
txt_segundo = ""
txt_respuesta = ""
txt_primero.SetFocus7 ) Ya para finalizar programamos "Salir", solo pondremos :EndTodo debe quedarnos asi:(http://lzuploader.webcindario.com/uploads/dibujo6final.bmp)
[bar]
(http://lzuploader.webcindario.com/uploads/codigodetodo.bmp)
Cualquier duda o problema diganlo en este post ;)!Este mismo tutorial lo postee el año pasado en la web de mi hermano y pues tambien quise compartirlo con ustedes .. para el que talvez ya lo haya visto les dejo el enlace para que no piensen que soy un CAP
Enlace (http://www.latinozlife.com/index.php?topic=9661.0)
Creditos : 100% Mios ::)
Buen inicio. Te recomendaria que pongas las imagenes en un host masivo (o en http://i.elhacker.net/ (http://i.elhacker.net/) que es el host del foro)
Te has preguntado que pasaria si pongo 2 y 0 en los textbox? :P
Hmm pues cuando dividimos entre 0 siempre nos lanzara un error :xD no me percate de eso.. :o