Calculator Code: Visual Basic 10 Scientific

The btnEquals_Click event handler evaluates the expression in the text box using the EvaluateExpression function, which uses a DataTable to compute the result.

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

Private Sub btn5_Click(sender As Object, e As EventArgs) Handles btn5.Click txtDisplay.Text &= "5" End Sub Visual Basic 10 Scientific Calculator Code

Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click txtDisplay.Text &= "2" End Sub

The scientific function buttons ( btnSin , btnCos , btnTan , btnExp , btnLog ) evaluate the corresponding mathematical function using the Math class. Visual Basic 10 Scientific Calculator Code

Private Sub btn4_Click(sender As Object, e As EventArgs) Handles btn4.Click txtDisplay.Text &= "4" End Sub

Private Sub btn6_Click(sender As Object, e As EventArgs) Handles btn6.Click txtDisplay.Text &= "6" End Sub Visual Basic 10 Scientific Calculator Code

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

Below is the complete code for the scientific calculator:

Private Sub btnMultiply_Click(sender As Object, e As EventArgs) Handles btnMultiply.Click txtDisplay.Text &= "*" End Sub

Private Sub btn9_Click(sender As Object, e As EventArgs) Handles btn9.Click txtDisplay.Text &= "9" End Sub