CALCULADORA

creación de la calculadora

A continuación realizaremos un diseñador de una calculadora, en el cual te explicará los pasos de como programar cada botón y las herramientas que utilizaremos. Como te darás cuenta esto es la continuidad de la creación del menú.

Las herramientas que utilizaremos serán:

• Texbox
• button

Ejemplo:

En el siguiente paso te explicaré como programar en cada uno de los botones (button).

paso no.1.

primero nombraremos algunas variables.

Por ejemplo:

 Dim dato1 As Double

    Dim dato2 As Double

    Dim res As Double

    Dim bts As Double

    Dim ope As Double

paso no.2.

En el botón "C" colocarás    TextBox1.Clear()

paso no.3.

En cada uno de los botones le darás clic para  colocar el siguiente código 

TextBox1.Text = TextBox1.Text & "7"

lo que ves entre comillas, va a variar según el número o símbolo que colocaste en cada botón

paso no.4.
En el botón menos colocarás
 TextBox1.Text = TextBox1.Text & "-"
        ope = 2
        dato1 = Val(TextBox1.Text)

paso.5.
En el botón "*" colocarás
TextBox1.Text = TextBox1.Text & "*"
        ope = 4
        dato1 = Val(TextBox1.Text)

paso.6.

En el botón del  botón "+" colocarás este código 

 TextBox1.Text = TextBox1.Text & "+"

        ope = 3

        dato1 = Val(TextBox1.Text)

paso.5
En el botón del "/" colocarás este código
 TextBox1.Text = TextBox1.Text & "/"
        dato1 = Val(TextBox1.Text)
        ope = 5
        dato1 = Val(TextBox1.Text)

paso. no.6.

En el botón del "=" colocarás este código 

dato2 = Val(TextBox1.Text)
        If ope = 2 Then
            res = dato1 - dato2
            TextBox1.Text = res

        Else
            If ope = 3 Then
                res = dato1 + dato2
                TextBox1.Text = res

            Else
                If ope = 4 Then
                    res = dato1 * dato2
                    TextBox1.Text = res
           
                Else
                    If ope = 5 Then
                        res = dato1 / dato2
                        TextBox1.Text = res

                    End If
                End If

            End If
        End If

Para finalizar en el botón que dice " REGRESAR AL MENÚ" colocarás este código:
Form1.Show()
        Me.Hide()
 Este es único código que se coloca en los botones.