Visual Basic 10 Scientific Calculator Code – Premium Quality

Private Sub btn8_Click(sender As Object, e As EventArgs) Handles btn8.Click txtDisplay.Text &= "8" End Sub

Private Sub btn6_Click(sender As Object, e As EventArgs) Handles btn6.Click txtDisplay.Text &= "6" End Sub

Private Sub btnSin_Click(sender As Object, e As EventArgs) Handles btnSin.Click Try Dim angle As Double = Convert.ToDouble(txtDisplay.Text) Dim result As Double = Math.Sin(angle * Math.PI / 180) txtDisplay.Text = result.ToString() Catch ex As Exception txtDisplay.Text = "Error" End Try End Sub Visual Basic 10 Scientific Calculator Code

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

Public Class ScientificCalculator Private Sub btn0_Click(sender As Object, e As EventArgs) Handles btn0.Click txtDisplay.Text &= "0" End Sub Private Sub btn8_Click(sender As Object, e As EventArgs)

The code above creates a scientific calculator with buttons for digits 0-9, four arithmetic operations, and various scientific functions. When a button is clicked, the corresponding digit or operator is appended to the text box.

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

Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click txtDisplay.Text &= "+" End Sub

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

The scientific function buttons ( btnSin , btnCos , btnTan , btnExp , btnLog ) evaluate the corresponding mathematical function using the Math class.

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