Como hacer una Calculadora con Vsual Basic 2010.net

-



          Buenas hoy les traigo un código,  algunos me solicitaron Código de una calculadora realizado en Visual Basic 2010, aunque existen muchas versiones de la misma les dejo mi versión del referido código, que espero les sea de ayuda:

           Lo primero es diseñar la interfaz con la que los usuarios puedan realizar las operaciones, luego de darle el diseño pasamos al código para el cual debemos declarar variables para almacenar los valores que se ingresan por el teclado.realizar los procedimientos para las operaciones y presentar el resultado. veamos como se realizo:


'*** Declaracion de variables*****
        Dim num1 As Double
        Dim num2 As Double
        Dim total As Double
     Dim op As Integer

las variables num1 y num2 respectivamente es para almacenar el valor del textbox cuando se presione  un boton   

    num1  = Val(txtresul.Text)
    num2  = Val(txtresul.Text)
la variable op que se declaro  es para indicarle al sistema que operación matemática se selecciona
 OP=1   Suma
 OP=2   Resta
         Op=3   Multiplica
   OP= 4  Divide
                OP= 5  Raiz Cuadrada
          OP=6   Porcentaje
la variable total es para almacenar el resultado de las diferentes operaciones, y presentarlo al usuario
total = num2 + num1
total = num2 - num1
total = num2* num1
total = num2 / num1
total = num2 % num1

la raíz se calcula con la instrucción

 txtresul.Text = System.Math.Sqrt(num1)


asignar los valores que mostraran los botones de calculadora:

A los botones de comando se le cambio la propiedad text, para que mostrasen el numero o el signo adecuado




con la finalidad que aparezcan los números conforme se presiones los botones en el evento click de cada botón se añadió el siguiente código.
  txtresul.Text = txtresul.Text & "1"
  txtresul.Text = txtresul.Text & "2"
  txtresul.Text = txtresul.Text & "3"
  txtresul.Text = txtresul.Text & "4"
  txtresul.Text = txtresul.Text & "5"
  txtresul.Text = txtresul.Text & "6"
  txtresul.Text = txtresul.Text & "7"
  txtresul.Text = txtresul.Text & "8"
  txtresul.Text = txtresul.Text & "9"
  txtresul.Text = txtresul.Text & "0"



se utilizo la instrucción  SelectCase   End Select

 Select Case op
            Case 1
                num2 = Val(txtresul.Text)
                total = num2 + num1
                txtresul.Text = total
                btnpunto.Enabled = True
            Case 2
                num2 = Val(txtresul.Text)
                total = num2 - num1
                txtresul.Text = total
                btnpunto.Enabled = True
            Case 3
                num2 = Val(txtresul.Text)
                total = num2 * num1
                txtresul.Text = total
                btnpunto.Enabled = True
            Case 4
                num2 = Val(txtresul.Text)
                total = num2 / num1
                txtresul.Text = total
                btnpunto.Enabled = True
        End Select







Public Class Form1
    '*** Declaracion de variables*****
    Dim num1 As Double
    Dim num2 As Double
    Dim total As Double
    Dim op As Integer

    Private Sub btn7_Click(sender As System.Object, e As System.EventArgs) Handles btn7.Click
        txtresul.Text = txtresul.Text & "7"

    End Sub

    Private Sub btn4_Click(sender As System.Object, e As System.EventArgs) Handles btn4.Click
        txtresul.Text = txtresul.Text & "4"
    End Sub

    Private Sub btn1_Click(sender As System.Object, e As System.EventArgs) Handles btn1.Click
        txtresul.Text = txtresul.Text & "1"
    End Sub

    Private Sub btn0_Click(sender As System.Object, e As System.EventArgs) Handles btn0.Click
        txtresul.Text = txtresul.Text & "0"
    End Sub

    Private Sub btn8_Click(sender As System.Object, e As System.EventArgs) Handles btn8.Click
        txtresul.Text = txtresul.Text & "8"
    End Sub

    Private Sub btn5_Click(sender As System.Object, e As System.EventArgs) Handles btn5.Click
        txtresul.Text = txtresul.Text & "5"
    End Sub

    Private Sub btn2_Click(sender As System.Object, e As System.EventArgs) Handles btn2.Click
        txtresul.Text = txtresul.Text & "2"
    End Sub

    Private Sub btnpunto_Click(sender As System.Object, e As System.EventArgs) Handles btnpunto.Click
        txtresul.Text = txtresul.Text & "."
        btnpunto.Enabled = False
    End Sub

    Private Sub btn6_Click(sender As System.Object, e As System.EventArgs) Handles btn6.Click
        txtresul.Text = txtresul.Text & "6"
    End Sub

    Private Sub btn3_Click(sender As System.Object, e As System.EventArgs) Handles btn3.Click
        txtresul.Text = txtresul.Text & "3"
    End Sub


    Private Sub btn9_Click(sender As System.Object, e As System.EventArgs) Handles btn9.Click
        txtresul.Text = txtresul.Text & "9"
    End Sub

    Private Sub btnsum_Click(sender As System.Object, e As System.EventArgs) Handles btnsum.Click
        op = 1
        num1 = Val(txtresul.Text)
        txtresul.Clear()
        btnpunto.Enabled = True
    End Sub

    Private Sub btnres_Click(sender As System.Object, e As System.EventArgs) Handles btnres.Click
        op = 2

        num1 = Val(txtresul.Text)
        txtresul.Clear()
        btnpunto.Enabled = True

    End Sub

    Private Sub btnmul_Click(sender As System.Object, e As System.EventArgs) Handles btnmul.Click
        If op = 3 Then
            num1 = Val(txtresul.Text)
            txtresul.Clear()
            btnpunto.Enabled = True
        ElseIf op = 6 Then
            num1 = Val(txtresul.Text)
            txtresul.Clear()
            btnpunto.Enabled = True

        End If

    End Sub

    Private Sub btndiv_Click(sender As System.Object, e As System.EventArgs) Handles btndiv.Click
        op = 4
        num1 = Val(txtresul.Text)
        txtresul.Clear()
        btnpunto.Enabled = True
    End Sub

    Private Sub btnigual_Click(sender As System.Object, e As System.EventArgs) Handles btnigual.Click
        Select Case op
            Case 1
                num2 = Val(txtresul.Text)
                total = num2 + num1
                txtresul.Text = total
                btnpunto.Enabled = True
            Case 2
                num2 = Val(txtresul.Text)
                total = num2 - num1
                txtresul.Text = total
                btnpunto.Enabled = True
            Case 3
                num2 = Val(txtresul.Text)
                total = num2 * num1
                txtresul.Text = total
                btnpunto.Enabled = True
            Case 4
                num2 = Val(txtresul.Text)
                total = num2 / num1
                txtresul.Text = total
                btnpunto.Enabled = True



        End Select

    End Sub

    Private Sub btnpoten_Click(sender As System.Object, e As System.EventArgs) Handles btnpoten.Click
        op = 5
        num1 = Val(txtresul.Text)
        txtresul.Text = System.Math.Sqrt(num1)
        btnpunto.Enabled = True
    End Sub

    Private Sub btnC_Click(sender As System.Object, e As System.EventArgs) Handles btnC.Click
        txtresul.Clear()

    End Sub

    Private Sub btnRetro_Click(sender As System.Object, e As System.EventArgs) Handles btnRetro.Click
        Try
            txtresul.Text = txtresul.Text.Remove(txtresul.Text.Length - 1, 1)
        Catch ex As Exception

        End Try

    End Sub

    Private Sub btnporce_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnporce.Click
        op = 6
        num2 = Val(txtresul.Text)
        total = (num1 * num2) / 100
        txtresul.Text = total
        btnpunto.Enabled = True
    End Sub
End Class


Comentarios

Publicar un comentario

Entradas populares de este blog

codigo para calcular area de un triangulo

-
Imagen
Este código  sumamente sencillo pero para los que comienzan,en la programación es importante realizar códigos fáciles e ir incrementando el nivel de dificultad. el código de la aplicación para calcular el área de un triángulo:  Lo primero es el diseño de la interfaz de usuario que consta de los siguientes controles   3 etiquetas (label), 2 cuadros de texto (textbox), dos botone de comando (button).   Luego declara las variables necesarias: Base,Altura,Resultado Luego procedemos a cambiar las propiedades de los controles, para este ejercicio solo cambiaremos la propiedad name(nombre de cada control como se muestra en la imagen); la imagen central se coloca un control PictureBox1 y se agrega la imagen. La fórmula a aplicar es A = base * altura/2   . El símbolo & se utiliza para concatenar la parte numérica con los caracteres. Public Class Form1   Dim base as double   Dim Altura as double   Dim   resultado as d...
Leer más

Qué son las extensiones de archivos

-
Qué son las extensiones de archivos Qué son las extensiones Cuando hablamos de archivos, hablamos de una gran variedad de ellos. Tenemos fotos, videos, sonido, aplicaciones… Lo que nos permite distinguir entre los diferentes tipos de archivo son las extensiones. Las carpetas solo tienen nombres, pero los archivos tienen nombre y extensión. La extensión es lo que encontramos después del punto. Por ejemplo: Archivo.pdf, Foto.jpeg o Audio.mp3 Las extensiones son claves para que el sistema operativo sepa de qué tipo de archivo estamos hablando y sepa con qué aplicación abrirla. En la práctica Hay miles y miles de extensiones, pero en el día a día, manejamos solo unas cuantas. Veamos algunos ejemplos. Archivos de imagen .png Archivo de imagen sin compresión, admite transparencia. .jpeg o .jpg  Archivo de imagen con compresión (menos tamaño pero menos calidad). .tiff  Archivo de imagen de máxima calidad, admite capas. .gif  Archivo de imagen ideal...
Leer más