Calculadora en Visual Basic

Calculadora  Visual basic 2010 (2012 lo reproduce también ) por eso pongo la aclaración

AQUI ESTA EL ARCHIVO DE LA CALCULADORA   (clic para descargar)

Public Class Form1

    Dim num1 As Double

    Dim num2 As Double

    Dim op As String

    Dim op1 As Double 'este es para el punto

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        txtResultado.Text = txtResultado.Text & 5

    End Sub

    Private Sub btnUno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUno.Click

        txtResultado.Text = txtResultado.Text & 1

    End Sub

    Private Sub btnDos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDos.Click

        txtResultado.Text = txtResultado.Text & 2

    End Sub

    Private Sub btnTres_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTres.Click

        txtResultado.Text = txtResultado.Text & 3

    End Sub

    Private Sub btnCuatro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCuatro.Click

        txtResultado.Text = txtResultado.Text & 4

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        txtResultado.Text = txtResultado.Text & 6

    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        txtResultado.Text = txtResultado.Text & 7

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        txtResultado.Text = txtResultado.Text & 8

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        txtResultado.Text = txtResultado.Text & 9

    End Sub

    Private Sub btnCero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCero.Click

        txtResultado.Text = txtResultado.Text & 0

    End Sub

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

        txtResultado.Clear()

        btnPunto.Enabled = True

    End Sub

    Private Sub btnmas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmas.Click

        num1 = Val(txtResultado.Text)

        txtResultado.Text = ""

        op = "+"

        txtResultado.Clear()

        btnPunto.Enabled = True

    End Sub

    Private Sub btnMenos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMenos.Click

        num1 = Val(txtResultado.Text)

        txtResultado.Text = ""

        op = "-"

        txtResultado.Clear()

        btnPunto.Enabled = True

    End Sub

    Private Sub btnPor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPor.Click

        num1 = Val(txtResultado.Text)

        txtResultado.Text = ""

        op = "*"

        txtResultado.Clear()

        btnPunto.Enabled = True

    End Sub

    Private Sub btnDivision_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDivision.Click

        num1 = Val(txtResultado.Text)

        txtResultado.Text = ""

        op = "/"

        txtResultado.Clear()

        btnPunto.Enabled = True

    End Sub

    Private Sub btnfraccion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfraccion.Click

        num1 = Val(txtResultado.Text)

        txtResultado.Text = ""

        op = "1/x"

        txtResultado.Clear()

        btnPunto.Enabled = True    'AQUI ES PARA ABILITAR

    End Sub

    Private Sub btnIgual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIgual.Click

        num2 = Val(txtResultado.Text)

        If (num1 = 0) Then

            MsgBox("no se realizo ni una operacion")

        Else

            If (op = "+") Then

                txtResultado.Text = num1 + num2

            End If

            If (op = "-") Then

                txtResultado.Text = num1 - num2

            End If

            If (op = "*") Then

                txtResultado.Text = num1 * num2

            End If

            If (op = "/") Then

                txtResultado.Text = num1 / num2

            End If

            If (op = "1/x") Then

                txtResultado.Text = 1 / num1

            End If

            If (op = "RAIZ") Then

                txtResultado.Text = Math.Sqrt(d:=Val(num1))

            End If

            If (op = "P") Then

                txtResultado.Text = num1 ^ num2

            End If

            If (op = "Log10") Then

                txtResultado.Text = Math.Log10(d:=Val(num1))

            End If

            If (op = "Seno") Then

                txtResultado.Text = Math.Sin(a:=Val(num1))

            End If

            If (op = "Coseno") Then

                txtResultado.Text = Math.Cos(d:=Val(num1))

            End If

            If (op = "Tang") Then

                txtResultado.Text = Math.Tan(a:=Val(num1))

            End If

            If (op = "ln") Then

                txtResultado.Text = Math.Log(d:=Val(num1))

            End If

           

            btnPunto.Enabled = True

        End If

    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPunto.Click

        txtResultado.Text = txtResultado.Text & "."

        op1 = 1

        If op1 = 1 Then

            btnPunto.Enabled = False  'aqui es para el punto

        End If

    End Sub

    Private Sub btnRaiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRaiz.Click

        num1 = Val(txtResultado.Text)

        txtResultado.Text = ""

        op = "RAIZ"

        txtResultado.Clear()

        btnPunto.Enabled = True

    End Sub

    Private Sub btnMmenos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMmenos.Click

        num1 = Val(txtResultado.Text)

        txtResultado.Text = ""

        op = "P"

        txtResultado.Clear()

        btnPunto.Enabled = True

    End Sub

    Private Sub btnMmas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMmas.Click

        num1 = Val(txtResultado.Text)

        txtResultado.Text = ""

        op = "Log10"

        txtResultado.Clear()

        btnPunto.Enabled = True

    End Sub

    Private Sub btnMs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMs.Click

        num1 = Val(txtResultado.Text)

        txtResultado.Text = ""

        op = "Seno"

        txtResultado.Clear()

        btnPunto.Enabled = True

    End Sub

    Private Sub btnMr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMr.Click

        num1 = Val(txtResultado.Text)

        txtResultado.Text = ""

        op = "Coseno"

        txtResultado.Clear()

        btnPunto.Enabled = True

    End Sub

    Private Sub btnCe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCe.Click

        num1 = Val(txtResultado.Text)

        txtResultado.Text = ""

        op = "Tang"

        txtResultado.Clear()

        btnPunto.Enabled = True

    End Sub

    Private Sub btnFlecha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFlecha.Click

        num1 = Val(txtResultado.Text)

        txtResultado.Text = ""

        op = "ln"

        txtResultado.Clear()

        btnPunto.Enabled = True

    End Sub

    Private Sub btnMc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        End

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class