Foro de elhacker.NET

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.

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 :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.

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

Enlace

Creditos : 100% Mios