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
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
3 ) También debemos cambiar la propiedad MultiLine a True en el control txt_respuesta..4) Programamos en General....Escribimos el siguiente codigo :
Dim primero As Double
Dim segundo As Double
5 ) 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)
La breve descripcion del codigo xD sino no lo entenderan !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 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.SetFocus
7 ) Ya para finalizar programamos "Salir", solo pondremos :Todo debe quedarnos asi:[bar]
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
Creditos : 100% Mios