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.
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 btn5_Click(sender As Object, e As EventArgs) Handles btn5.Click txtDisplay.Text &= "5" End Sub
Private Sub btn3_Click(sender As Object, e As EventArgs) Handles btn3.Click txtDisplay.Text &= "3" End Sub Private Sub btn2_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 btnDivide_Click(sender As Object, e As EventArgs) Handles btnDivide.Click txtDisplay.Text &= "/" End Sub Private Sub btn2_Click(sender As Object
Private Sub btn4_Click(sender As Object, e As EventArgs) Handles btn4.Click txtDisplay.Text &= "4" End Sub
Private Sub btn9_Click(sender As Object, e As EventArgs) Handles btn9.Click txtDisplay.Text &= "9" End Sub