Criando uma Calculadora Avançada VB.NET

Calculadora Avançada

Código

Public Class Form1

    Dim opera As String

    Dim resultado As Single

    

Private Sub btn_soma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_soma.Click

        opera = ""

        opera = "+"

    End Sub

Private Sub btn_sub_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_sub.Click

        opera = ""

        opera = "-"

    End Sub

    Private Sub btn_div_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_div.Click

        opera = ""

        opera = "/"

    End Sub

    Private Sub btn_mult_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_mult.Click

        opera = ""

        opera = "*"

    End Sub

    Private Sub btn_calc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_calc.Click

        n1=0
        n2=0

        Select Case opera

            Case "+"

                n1 = txtn1.Text

                n2 = txtn2.Text

                resultado = n1 + n2

                txtre.Text = resultado

            Case "-"

                n1 = txtn1.Text

                n2 = txtn2.Text

                resultado =n1 -n2

                txtre.Text = resultado

            Case "*"

                n1 = txtn1.Text

                n2 = txtn2.Text

                resultado =n1 * n2

                txtre.Text = resultado

            Case "/"

                n1 = txtn1.Text

                n2 = txtn2.Text

                resultado =n1 / n2

                txtre.Text = resultado

        End Select

    End Sub

End Class