Public Class Form4

    Dim OP As String

    Dim a, b, resultado, resp, pi As Double


    Private Sub Bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1.Click

        TxtCalc.Text = TxtCalc.Text + "1"

    End Sub

    Private Sub Bt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt2.Click

        TxtCalc.Text = TxtCalc.Text + "2"

    End Sub

    Private Sub Bt3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt3.Click

        TxtCalc.Text = TxtCalc.Text + "3"

    End Sub

    Private Sub Bt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt4.Click

        TxtCalc.Text = TxtCalc.Text + "4"

    End Sub

    Private Sub Bt5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt5.Click

        TxtCalc.Text = TxtCalc.Text + "5"

    End Sub

    Private Sub Bt6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt6.Click

        TxtCalc.Text = TxtCalc.Text + "6"

    End Sub

    Private Sub Bt7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt7.Click

        TxtCalc.Text = TxtCalc.Text + "7"

    End Sub

    Private Sub Bt8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt8.Click

        TxtCalc.Text = TxtCalc.Text + "8"

    End Sub

    Private Sub Bt9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt9.Click

        TxtCalc.Text = TxtCalc.Text + "9"

    End Sub

    Private Sub Bt0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt0.Click

        TxtCalc.Text = TxtCalc.Text + "0"

    End Sub

    Private Sub BtPonto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtPonto.Click

        TxtCalc.Text = TxtCalc.Text + ","

    End Sub

    Private Sub BtC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtC.Click

        TxtCalc.Text = ""

    End Sub

    Private Sub Btsoma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsoma.Click

        a = TxtCalc.Text
        TxtCalc.Text = " "
        OP = "Suma"

    End Sub

    Private Sub Btmenos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btmenos.Click
        a = TxtCalc.Text
        TxtCalc.Text = " "
        OP = "Menos"
    End Sub

    Private Sub Btdividir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btdividir.Click
        a = TxtCalc.Text
        TxtCalc.Text = " "
        OP = "Div"
    End Sub

    Private Sub Btmulti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btmulti.Click
        a = TxtCalc.Text
        TxtCalc.Text = " "
        OP = "Multi"
    End Sub

    Private Sub Btigual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btigual.Click

        b = Val(TxtCalc.Text)

        Select Case OP

            Case "Suma"
                resultado = a + b
                TxtCalc.Text = resultado

            Case "Menos"
                resultado = a - b
                TxtCalc.Text = resultado

            Case "Multi"
                resultado = a * b
                TxtCalc.Text = resultado

            Case "Div"
                resultado = a / b
                TxtCalc.Text = resultado

            Case "Elevado"
                resultado = Math.Pow(a, b)
                TxtCalc.Text = resultado

            Case "Porcento"
                resp = b / 100
                resultado = resp * a
                TxtCalc.Text = resultado

        End Select

    End Sub

    Private Sub LimparToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LimparToolStripMenuItem.Click

        TxtCalc.Text = ""

    End Sub

    Private Sub CorDeFundoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CorDeFundoToolStripMenuItem.Click

        Dim cores As New ColorDialog()

        If cores.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Me.BackColor = cores.Color
        End If

    End Sub

    Private Sub FecharToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FecharToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub Btraiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btraiz.Click

        a = TxtCalc.Text
        TxtCalc.Text = Math.Sqrt(a)

    End Sub

    Private Sub Btcos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btcos.Click

        a = TxtCalc.Text
        TxtCalc.Text = Math.Cos(a)

    End Sub

    Private Sub Btsen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsen.Click

        a = TxtCalc.Text
        TxtCalc.Text = Math.Sin(a)

    End Sub

    Private Sub Bttan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttan.Click

        a = TxtCalc.Text
        TxtCalc.Text = Math.Tan(a)

    End Sub

    Private Sub Btlog10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btlog10.Click
        a = TxtCalc.Text
        TxtCalc.Text = Math.Log10(d:=Val(a))
    End Sub

    Private Sub Btln_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btln.Click
        a = TxtCalc.Text
        TxtCalc.Text = Math.Log(d:=Val(a))
    End Sub

    Private Sub Btx2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btx2.Click

        a = TxtCalc.Text
        TxtCalc.Text = a * a

    End Sub

    Private Sub Btx3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btx3.Click

        a = TxtCalc.Text
        TxtCalc.Text = a * a * a

    End Sub

    Private Sub Btxy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btxy.Click

        a = TxtCalc.Text
        TxtCalc.Text = ""
        OP = "Elevado"

    End Sub

    Private Sub BtMM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtMM.Click
        TxtCalc.Text = -+TxtCalc.Text
    End Sub

    Private Sub Btpi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btpi.Click
        'valor de pi
        pi = "3,14159265358979323846264338327950288"
        a = pi

    End Sub

    Private Sub Btcento_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btcento.Click


        OP = "Porcento"

    End Sub
End Class