Autor
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.
Código:
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 :
Código:
Dim primero As Double
Dim segundo As Double
5 ) Programamos el boton "Operar"
Código:
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.
Código:
txt_primero = ""
txt_segundo = ""
txt_respuesta = ""
txt_primero.SetFocus
7 ) Ya para finalizar programamos "Salir", solo pondremos :
Código:
End
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
En línea
