Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim x As Currency, y As Currency, z As Currency, znak As Integer, Dim Operator_Entered As Boolean
- Private Sub Command1_Click()
- Text1.Text = Text1.Text + "1"
- End Sub
- Private Sub Command10_Click()
- Text1.Text = Text1.Text + "0"
- End Sub
- Private Sub Command11_Click()
- Text1.Text = Text1.Text + "/"
- End Sub
- Private Sub Command18_Click()
- x = o
- y = 0
- z = 0
- znak = o
- Text1.Text = ""
- End Sub
- Private Sub Command2_Click()
- Text1.Text = Text1.Text + "2"
- End Sub
- Private Sub Command3_Click()
- Text1.Text = Text1.Text + "3"
- End Sub
- Private Sub Command4_Click()
- Text1.Text = Text1.Text + "4"
- End Sub
- Private Sub Command5_Click()
- Text1.Text = Text1.Text + "5"
- End Sub
- Private Sub Command6_Click()
- Text1.Text = Text1.Text + "6"
- End Sub
- Private Sub Command7_Click()
- Text1.Text = Text1.Text + "7"
- End Sub
- Private Sub Command8_Click()
- Text1.Text = Text1.Text + "8"
- End Sub
- Private Sub Command9_Click()
- Text1.Text = Text1.Text + "9"
- End Sub
- Private Sub Command12_Click()
- z = Text1.Text
- z = z * (-1)
- Text1.Text = z
- End Sub
- Private Sub Command13_Click()
- x = Text1.Text
- Text1.Text = ""
- znak = 1
- if Operator_Entered Then Command17_Click()
- Operator_Entered = true
- End Sub
- Private Sub Command14_Click()
- x = Text1.Text
- Text1.Text = ""
- znak = 2
- if Operator_Entered Then Command17_Click()
- Operator_Entered = true
- End Sub
- Private Sub Command15_Click()
- x = Text1.Text
- Text1.Text = ""
- znak = 3
- if Operator_Entered Then Command17_Click()
- Operator_Entered = true
- End Sub
- Private Sub Command16_Click()
- x = Text1.Text
- Text1.Text = ""
- znak = 4
- if Operator_Entered Then Command17_Click()
- Operator_Entered = true
- End Sub
- Private Sub Command17_Click()
- y = Text1.Text
- If znak = 1 Then z = x + y
- If znak = 2 Then z = x - y
- If znak = 3 Then z = x * y
- If znak = 4 Then z = x / y
- Text1.Text = z
- End Sub
Add Comment
Please, Sign In to add comment