[Source Code] Advanced Calculator

[scimmyboy]

Advanced Calculator Featuring Equation Solvers

Source Code Written By Me

For Form1.vb:

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:

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

[mnpeepno2]

looks like you leeched it a lil...

[NextGen1]

It was, A little, But thanks for sharing

[scimmyboy]

how did i leech it? i learn how to use Dim, then u use those values and apply the mathematical formula. I did not leech it, but its some very basic code. :S