Private Sub btn7_Click(sender As Object, e As EventArgs) Handles btn7.Click txtDisplay.Text &= "7" End Sub
Private Sub btn5_Click(sender As Object, e As EventArgs) Handles btn5.Click txtDisplay.Text &= "5" End Sub
In this article, we provided a comprehensive guide on creating a scientific calculator using Visual Basic 10. The calculator has a user-friendly interface and can perform basic arithmetic operations and various scientific functions. The code provided can be modified and extended to create more complex calculators. Visual Basic 10 Scientific Calculator Code
Private Sub btnDivide_Click(sender As Object, e As EventArgs) Handles btnDivide.Click txtDisplay.Text &= "/" End Sub
Private Sub btnLog_Click(sender As Object, e As EventArgs) Handles btnLog.Click Try Dim result As Double = Math.Log(Convert.ToDouble(txtDisplay.Text)) txtDisplay.Text = result.ToString() Catch ex As Exception txtDisplay.Text = "Error" End Try End Sub Private Sub btn7_Click(sender As Object, e As EventArgs)
Public Class ScientificCalculator Private Sub btn0_Click(sender As Object, e As EventArgs) Handles btn0.Click txtDisplay.Text &= "0" End Sub
Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click txtDisplay.Text &= "2" End Sub Private Sub btnDivide_Click(sender As Object
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
Private Sub btn8_Click(sender As Object, e As EventArgs) Handles btn8.Click txtDisplay.Text &= "8" End Sub
Below is the complete code for the scientific calculator:
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
