Calculator Code — Visual Basic 10 Scientific

Private Sub btnCos_Click(sender As Object, e As EventArgs) Handles btnCos.Click Try Dim angle As Double = Convert.ToDouble(txtDisplay.Text) Dim result As Double = Math.Cos(angle * Math.PI / 180) txtDisplay.Text = result.ToString() Catch ex As Exception txtDisplay.Text = "Error" End Try End Sub

Private Sub btnEquals_Click(sender As Object, e As EventArgs) Handles btnEquals.Click Try Dim result As Double = EvaluateExpression(txtDisplay.Text) txtDisplay.Text = result.ToString() Catch ex As Exception txtDisplay.Text = "Error" End Try End Sub Visual Basic 10 Scientific Calculator Code

Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click txtDisplay.Text &= "1" End Sub Private Sub btnCos_Click(sender As Object, e As EventArgs)

Private Sub btnExp_Click(sender As Object, e As EventArgs) Handles btnExp.Click Try Dim result As Double = Math.Exp(Convert.ToDouble(txtDisplay.Text)) txtDisplay.Text = result.ToString() Catch ex As Exception txtDisplay.Text = "Error" End Try End Sub Private Sub btnCos_Click(sender As Object

Private Sub btn5_Click(sender As Object, e As EventArgs) Handles btn5.Click txtDisplay.Text &= "5" End Sub