Advanced Calculator Featuring Equation Solvers
Source Code Written By Me
For Form1.vb:
Code:
Imports System.Math
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim pi As Double = 3.14159
Dim r As Double = TextBox1.Text
Dim i As Double = TextBox3.Text
If RadioButton1.Checked = True Then
TextBox2.Text = pi * (r * r)
ElseIf RadioButton2.Checked = True Then
TextBox2.Text = 2 * (pi * r)
ElseIf RadioButton4.Checked = True Then
TextBox2.Text = Sqrt(r / pi)
ElseIf RadioButton5.Checked = True Then
TextBox2.Text = r / (pi * 2)
ElseIf RadioButton3.Checked = True Then
TextBox2.Text = r * r
ElseIf RadioButton6.Checked = True Then
TextBox2.Text = r + r + r + r
ElseIf RadioButton7.Checked = True Then
TextBox2.Text = r * i
ElseIf RadioButton8.Checked = True Then
TextBox2.Text = r + r + i + i
ElseIf RadioButton9.Checked = True Then
TextBox2.Text = Sqrt(r)
ElseIf RadioButton10.Checked = True Then
TextBox2.Text = r * r
ElseIf RadioButton11.Checked = True Then
TextBox2.Text = Log10(r)
End If
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
If RadioButton4.Checked = True Then
Label1.Text = "Area:"
Label3.Text = "Input2:"
End If
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
If RadioButton5.Checked = True Then
Label1.Text = "Circumference:"
Label3.Text = "Input2:"
End If
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then
Label1.Text = "Radius:"
Label3.Text = "Input2:"
End If
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then
Label1.Text = "Radius:"
Label3.Text = "Input2:"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Show()
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
If RadioButton3.Checked = True Then
Label1.Text = "Length:"
Label3.Text = "Input2:"
End If
End Sub
Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
If RadioButton6.Checked = True Then
Label1.Text = "Length:"
Label3.Text = "Input2:"
End If
End Sub
Private Sub CreditsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreditsToolStripMenuItem.Click
MsgBox("Coded by Justin")
End Sub
Private Sub FunctionsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FunctionsToolStripMenuItem.Click
MsgBox("Solves equations for circles, rectangles, and squares.")
End Sub
Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged
If RadioButton7.Checked = True Then
Label1.Text = "Length1:"
Label3.Text = "Length2:"
End If
End Sub
Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged
If RadioButton8.Checked = True Then
Label1.Text = "Length1:"
Label3.Text = "Length2:"
End If
End Sub
Private Sub InfoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InfoToolStripMenuItem.Click
MsgBox("Please leave the default value of Input2 as 0 to calculate values for squares and circles, else it won't work")
End Sub
Private Sub RadioButton9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton9.CheckedChanged
If RadioButton9.Checked = True Then
Label1.Text = "Value:"
End If
End Sub
Private Sub RadioButton10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton10.CheckedChanged
If RadioButton10.Checked = True Then
Label1.Text = "Value:"
End If
End Sub
Private Sub RadioButton11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton11.CheckedChanged
If RadioButton11.Checked = True Then
Label1.Text = "Value:"
End If
End Sub
End Class
Please note that I used Imports System.Math
It is important in this calculator
The next is form2.vb, where a 0-9 calculator is available:
Code:
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Number1 As Double = TextBox1.Text
Dim Number2 As Double = TextBox2.Text
If RadioButton1.Checked = True Then
TextBox3.Text = Number1 + Number2
End If
If RadioButton2.Checked = True Then
TextBox3.Text = Number1 - Number2
End If
If RadioButton3.Checked = True Then
TextBox3.Text = Number1 * Number2
End If
If RadioButton4.Checked = True Then
TextBox3.Text = Number1 / Number2
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
End Sub
End Class