Crear Una Calculadora Simple en Microsoft Visual Studio 2010

Crear una calculadora simple en Microsoft Visual Studio 2010 (El Diseño)

En esta ocación veremos como hacer una calculadora sencilla em Visual

Basic .Net , digo sencilla porque solo contara con las cuatro operaciones básicas.

Es similar a la calculadora que trae por defecto Windows. Espero sea de mucha

ayuda a quienes inician en el mundo de la programación. Ah por cierto, en la red

se pueden encontrar muchos ejemplos de este tipo, pero no todos los códigos son

faciles de entender si apenas comienzas en la progra, me dedicare un poco a

explicar mi código. Si hay algun error comentenlo o si hay sugerencias serán

bienvenidas. (La aplicación esta desarrollada en .Net 2008)

El formulario en cuestión es este

Los controles a utilizar son:

18 Button

1 Textbox

Propiedades a cambiar:

Es recomendable agregar una palabra clave para cada control, en este caso, para

los Button prefiero anteponerles “Btn” luego un nombre espeficico a su función, lo

mismo con el Textbox, le llamare “Txt”. Esto es para tener un mayor control o

dominio de los controles a la hora de programar. Los controles quedarian de la sig

forma:

La variable “Operador” nos servira para poder determinar el tipo de operación que realizaremos, “Valor 1″ y “Valor2″ Nos servira para almacenar las cantidades a operar, al analizar un poco el funcionamiento de una calculadora llegamos a la conclusión q ella solo maneja dos cantidades, es cierto que puedes realizar una infinidad de operaciones pero en cierto sentido siempre trabajaras con dos cantidad. Ejemplo: Si sumas 25 (Valor 1) + 10 (Valor 2) = 35 (el resultado ahora

pasa a ser Valor 1). Y si quieres puedes seguir trabajando y de esta forma se hace un ciclo interminable con solo dos cantidades… Pero este raro y sencillo principio creo que lo podrás entender en el código.

CódigoPublic Class Form1 'Aca es donde se declaran las variables Dim Operador As String Dim valor1, valor2 As Double Dim Memo As Integer

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click 'El numero 1 se imprimira en el textbox con nombre TxtResultado. 'y se utiliza "&" para concatenar los numeros txtResultado.Text &= "1" End Sub

Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click 'Imprime numero 2 txtResultado.Text &= "2" End Sub




Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click 'Imprime numero6 txtResultado.Text &= "6" End Sub




Private Sub btnPunto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPunto.Click 'Imprime punto para trabajar con decimales txtResultado.Text &= "." End Sub

Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click 'Imprime cero txtResultado.Text &= "0" End Sub

Private Sub btnC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnC.Click 'En este botón borramos todas las cantidades operadas en el programa 'dejando a cero todos sus valores txtResultado.Text = "" 'Borra todo lo que se este mostrando en el textbox valor1 = 0 valor2 = 0 Memo = 0 txtResultado.Focus() 'Mueve el puntero de escritura a el textbox End Sub

Private Sub BtnSuma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSuma.Click 'Todo lo que se encuentra en el txtResultado lo almacenamos en la variable Valor1 valor1 = Val(txtResultado.Text) 'Valor 1 tamb lo almacenamos en memo, esta variable nos servira si queremos 'retornar al primer valor Memo = valor1 Operador = "+" 'Hacemo Operador con el simbolo de suma txtResultado.Text = "" 'se limpia el txtRestultado txtResultado.Focus() 'Hacemos que aparezca en el txtResultado en cursor End Sub Private Sub BtnResta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnResta.Click valor1 = Val(txtResultado.Text) Memo = valor1 Operador = "-" txtResultado.Text = "" txtResultado.Focus() End Sub

Private Sub BtnMult_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMult.Click valor1 = Val(txtResultado.Text) Memo = valor1 Operador = "*" txtResultado.Text = "" txtResultado.Focus() End Sub Private Sub BtnDiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDiv.Click valor1 = Val(txtResultado.Text) Memo = valor1 Operador = "/" txtResultado.Text = "" txtResultado.Focus() End Sub

Private Sub btnResultado_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnResultado.Click 'en este boton es donde se hacen las operaciones 'Primero hacemos la sig cantidad ingresada en el txt como valor 2 valor2 = Val(txtResultado.Text) 'luego utilizando una Seleccion d casos hacemos las operaciones

Select Case Operador Case "+" 'Si la variable operador es suma se ejecuta una suma imprimiendo el restultado en el txt 'y asi sucesivamente con las demas operaciones txtResultado.Text = valor1 + valor2 Case "-" txtResultado.Text = valor1 - valor2 Case "*" txtResultado.Text = valor1 * valor2 Case "/" txtResultado.Text = valor1 / valor2 End Select End Sub

Private Sub BtnCE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCE.Click 'Aca solamente borramos el ultimo valor y regresamos al valor 1 por si acaso nos equivocamos en la ultima cantidad 'u operación txtResultado.Text = Memo valor2 = 0 End Sub 'Codigo por Carlos Vera '[email protected] 'enatorv.wordpress.com

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End SubEnd Class

Crear Una Calculadora Simple en Microsoft Visual Studio 2010

Documents

Transcript of Crear Una Calculadora Simple en Microsoft Visual Studio 2010