VB Calculator

Public Class Form1

    Dim num1 As Double = Nothing
    Dim num2 As Double = Nothing
    Dim dec As Double = 0
    Dim op As String = Nothing
    Dim done As Boolean = False

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
        If done = True Then
            num1 = 0
            num2 = 0
            dec = 0
            op = Nothing
            Label1.Text = num1
            done = False
        End If

        If dec <> 0 Then
            num1 = num1 + (1 / 10 ^ dec)
            dec = dec + 1
        Else
            num1 = num1 * 10 + 1
            Label1.Text = num1

        End If
        Label1.Text = num1
    End Sub

    Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
        If done = True Then
            num1 = 0
            num2 = 0
            dec = 0
            op = Nothing
            Label1.Text = num1
            done = False
        End If

        If dec <> 0 Then
            num1 = num1 + (2 / 10 ^ dec)
            dec = dec + 1
        Else
            num1 = num1 * 10 + 2
            Label1.Text = num1

        End If
        Label1.Text = num1
    End Sub

    Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
        If done = True Then
            num1 = 0
            num2 = 0
            dec = 0
            op = Nothing
            Label1.Text = num1
            done = False
        End If

        If dec <> 0 Then
            num1 = num1 + (3 / 10 ^ dec)
            dec = dec + 1
        Else
            num1 = num1 * 10 + 3
            Label1.Text = num1

        End If
        Label1.Text = num1
    End Sub

    Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
        If done = True Then
            num1 = 0
            num2 = 0
            dec = 0
            op = Nothing
            Label1.Text = num1
            done = False
        End If

        If dec <> 0 Then
            num1 = num1 + (4 / 10 ^ dec)
            dec = dec + 1
        Else
            num1 = num1 * 10 + 4
            Label1.Text = num1

        End If
        Label1.Text = num1
    End Sub

    Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
        If done = True Then
            num1 = 0
            num2 = 0
            dec = 0
            op = Nothing
            Label1.Text = num1
            done = False
        End If

        If dec <> 0 Then
            num1 = num1 + (5 / 10 ^ dec)
            dec = dec + 1
        Else
            num1 = num1 * 10 + 5
            Label1.Text = num1

        End If
        Label1.Text = num1
    End Sub

    Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
        If done = True Then
            num1 = 0
            num2 = 0
            dec = 0
            op = Nothing
            Label1.Text = num1
            done = False
        End If

        If dec <> 0 Then
            num1 = num1 + (6 / 10 ^ dec)
            dec = dec + 1
        Else
            num1 = num1 * 10 + 6
            Label1.Text = num1

        End If
        Label1.Text = num1
    End Sub

    Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
        If done = True Then
            num1 = 0
            num2 = 0
            dec = 0
            op = Nothing
            Label1.Text = num1
            done = False
        End If

        If dec <> 0 Then
            num1 = num1 + (7 / 10 ^ dec)
            dec = dec + 1
        Else
            num1 = num1 * 10 + 7
            Label1.Text = num1

        End If
        Label1.Text = num1
    End Sub

    Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
        If done = True Then
            num1 = 0
            num2 = 0
            dec = 0
            op = Nothing
            Label1.Text = num1
            done = False
        End If

        If dec <> 0 Then
            num1 = num1 + (8 / 10 ^ dec)
            dec = dec + 1
        Else
            num1 = num1 * 10 + 8
            Label1.Text = num1

        End If
        Label1.Text = num1
    End Sub

    Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
        If done = True Then
            num1 = 0
            num2 = 0
            dec = 0
            op = Nothing
            Label1.Text = num1
            done = False
        End If

        If dec <> 0 Then
            num1 = num1 + (9 / 10 ^ dec)
            dec = dec + 1
        Else
            num1 = num1 * 10 + 9
            Label1.Text = num1

        End If
        Label1.Text = num1
    End Sub

    Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click
        If done = True Then
            num1 = 0
            num2 = 0
            dec = 0
            op = Nothing
            Label1.Text = num1
            done = False
        End If

        If dec <> 0 Then
            num1 = num1 + (0 / 10 ^ dec)
            dec = dec + 1
        Else
            num1 = num1 * 10 + 0
            Label1.Text = num1

        End If
        Label1.Text = num1
    End Sub

    Private Sub btnDec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDec.Click
        If dec = 0 Then
            dec = 1
        End If

    End Sub

    Private Sub btnC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnC.Click
        num1 = 0
        num2 = 0
        dec = 0
        op = Nothing
        Label1.Text = num1
    End Sub

    Private Sub btnCE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCE.Click
        num1 = 0
        dec = 0
        Label1.Text = num1
    End Sub

    Private Sub btnPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlus.Click
        op = "Plus"
        num2 = num1
        num1 = 0
        dec = 0
        Label1.Text = num1
    End Sub

    Private Sub btnMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMinus.Click
        op = "Minus"
        num2 = num1
        num1 = 0
        dec = 0
        Label1.Text = num1
    End Sub

    Private Sub btnMultiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMultiply.Click
        op = "Multiply"
        num2 = num1
        num1 = 0
        dec = 0
        Label1.Text = num1
    End Sub

    Private Sub btnDivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDivide.Click
        op = "Divide"
        num2 = num1
        num1 = 0
        dec = 0
        Label1.Text = num1
    End Sub

    Private Sub btnPower_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPower.Click
        op = "Power"
        num2 = num1
        num1 = 0
        dec = 0
        Label1.Text = num1
    End Sub

    Private Sub btnRoot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRoot.Click
        op = "Root"
        num2 = num1
        num1 = 0
        dec = 0
        Label1.Text = num1
    End Sub

    Private Sub btnEquals_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEquals.Click
        Select Case op
            Case "Plus"
                num1 = num2 + num1
                Label1.Text = num1
            Case "Minus"
                num1 = num2 - num1
                Label1.Text = num1
            Case "Multiply"
                num1 = num2 * num1
                Label1.Text = num1
            Case "Divide"
                num1 = num2 / num1
                Label1.Text = num1
            Case "Power"
                num1 = num2 ^ num1
                Label1.Text = num1
            Case "Root"
                num1 = num2 ^ (1 / num1)
                Label1.Text = num1
        End Select
        done = True
    End Sub

    Private Sub btnAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbout.Click
        MessageBox.Show("Created by Eric Newsom. To use the root symbol, type the number to be inside the root, hit the root symbol, and then what root you want to take the number to. For example, for 3√64, hit 64, then √, then 3. For the square root of 4, hit 4, then √, then 2.", "About")
    End Sub
End Class