Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement