Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'Button Nums
- Textbox1.AppendText("0")
- =====================
- 'Add/Sub/Div/Mul Buttons
- Label1.Text = "+"
- My.Settings.First = TextBox1.Text
- TextBox1.Text = ""
- My.Settings.Save()
- =======================
- 'Equals Button
- If Label1.Text = "+" Then
- TextBox1.Text = Val(My.Settings.First) + Val(TextBox1.Text)
- Else
- If Label1.Text = "-" Then
- TextBox1.Text = Val(My.Settings.First) - Val(TextBox1.Text)
- Else
- If Label1.Text = "*" Then
- TextBox1.Text = Val(My.Settings.First) * Val(TextBox1.Text)
- Else
- If Label1.Text = "/" Then
- TextBox1.Text = Val(My.Settings.First) / Val(TextBox1.Text)
- End If
- End If
- End If
- End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement