Calculadora en Visual Basic

En este espacio desarrollaremos una calculadora básica aplicando lo aprendido en el curso informática y programación.  

-Lo primero es abrir el programa y elegir el tipo de proyecto a desarrollar.

-Estando en el espacio de trabajo en la barra lateral izquierda llamado cuadro de herramientas seleccionas los elementos que va a llevar tu proyecto, por ejemplo, Button, NumericUpDown, Textbox, entre otros, una vez elegidos le damos el diseño que nosotros queramos. 

-Una vez que acomodemos los elementos de la calculadora, le damos nombre y cambiamos las propiedades de los mismos, en la parte inferior derecha en el segmento llamado propiedades, ahi podemos cambiar nombre, contenido del elemento, en el caso de los NumericUpDown, podemos cambiar los parámetros numéricos, tamaño de fuente.  

-Ya teniendo el diseño terminado, a un costado de la pestaña de diseño esta la pestaña de código, le damos doble-clic al botón de más, y nos lleva al código, de acuerdo al nombre de los elementos, vamos a escribir lo siguiente: 

Dim Op1, Op2, res As Integer

        Op1 = NUM1.Value

        Op2 = NUM2.Value

        res = Op1 + Op2

        Txtresu.Text = res  

-Por último escribimos lo equivalente pero sustituyendo por la operaciones correspondientes, por ejemplo. 

RESTA

Private Sub Btnresta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnresta.Click

        Dim Op1, Op2, res As Integer

        Op1 = NUM1.Value

        Op2 = NUM2.Value

        res = Op1 - Op2

        Txtresu.Text = res

    End Sub

MULTIPLICACIÓN

Private Sub Btnmul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnmul.Click
        Dim Op1, Op2, res As Integer
        Op1 = NUM1.Value
        Op2 = NUM2.Value
        res = Op1 * Op2

        Txtresu.Text = res

DIVISIÓN

Private Sub Btnmul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnmul.Click
        Dim Op1, Op2, res As Integer
        Op1 = NUM1.Value
        Op2 = NUM2.Value
        res = Op1 * Op2
        Txtresu.Text = res

PORCENTAJE(MOD)

Private Sub Btnpor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnpor.Click
        Dim Op1, Op2, res As Integer
        Op1 = NUM1.Value
        Op2 = NUM2.Value
        res = Op1 Mod Op2
        Txtresu.Text = res

DIVISIÓN ENTERA

Private Sub Divenin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Divenin.Click

        Dim Op1, Op2, res As Integer

        Op1 = NUM1.Value

        Op2 = NUM2.Value

        res = Op1 \ Op2

        Txtresu.Text = res

EXPONENTES 

Private Sub BtnExpo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExpo.Click

        Dim Op1, Op2, res As Integer

        Op1 = NUM1.Value

        Op2 = NUM2.Value

        res = Op1 ^ Op2

        Txtresu.Text = res

-Una vez terminado nuestro código revisamos en la barra de abajo si hay errores o advertencias en caso de que las tengamos revisamos el error señalado, y guardamos el proyecto, posteriormente presionamos f5 para iniciar la depuración o bien en la parte de arriba de la interfaz se encuentra una flecha verde damos clic, y saldrá el proyecto. 

-Vemos que el proyecto funciona y es ejecutable.

-Muchas gracias espero estos pasos sean de mucha ayuda para que puedan hacer proyectos mas adelante, ya que creo que es de mucha ayuda, puedes hacer lo que se te venga a la mente y desarrollar herramientas de muchos tipos.