Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Calculator
- Dim [operator]
- Dim operand1
- Dim operand2
- Dim result
- Private Sub btnONE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnONE.Click
- If lblSCREEN.Text = "0" Then
- lblSCREEN.Text = sender.Text
- Else
- lblSCREEN.Text = lblSCREEN.Text + sender.Text
- End If
- End Sub
- Private Sub btnTWO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTWO.Click
- If lblSCREEN.Text = "0" Then
- lblSCREEN.Text = sender.Text
- Else
- lblSCREEN.Text = lblSCREEN.Text + sender.Text
- End If
- End Sub
- Private Sub btnTHREE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTHREE.Click
- If lblSCREEN.Text = "0" Then
- lblSCREEN.Text = sender.Text
- Else
- lblSCREEN.Text = lblSCREEN.Text + sender.Text
- End If
- End Sub
- Private Sub btnFOUR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFOUR.Click
- If lblSCREEN.Text = "0" Then
- lblSCREEN.Text = sender.Text
- Else
- lblSCREEN.Text = lblSCREEN.Text + sender.Text
- End If
- End Sub
- Private Sub btnFIVE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFIVE.Click
- If lblSCREEN.Text = "0" Then
- lblSCREEN.Text = sender.Text
- Else
- lblSCREEN.Text = lblSCREEN.Text + sender.Text
- End If
- End Sub
- Private Sub btnSIX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSIX.Click
- If lblSCREEN.Text = "0" Then
- lblSCREEN.Text = sender.Text
- Else
- lblSCREEN.Text = lblSCREEN.Text + sender.Text
- End If
- End Sub
- Private Sub btnSEVEN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSEVEN.Click
- If lblSCREEN.Text = "0" Then
- lblSCREEN.Text = sender.Text
- Else
- lblSCREEN.Text = lblSCREEN.Text + sender.Text
- End If
- End Sub
- Private Sub btnEIGHT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEIGHT.Click
- If lblSCREEN.Text = "0" Then
- lblSCREEN.Text = sender.Text
- Else
- lblSCREEN.Text = lblSCREEN.Text + sender.Text
- End If
- End Sub
- Private Sub btnNINE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNINE.Click
- If lblSCREEN.Text = "0" Then
- lblSCREEN.Text = sender.Text
- Else
- lblSCREEN.Text = lblSCREEN.Text + sender.Text
- End If
- End Sub
- Private Sub btnZERO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZERO.Click
- If lblSCREEN.Text = "0" Then
- lblSCREEN.Text = sender.Text
- Else
- lblSCREEN.Text = lblSCREEN.Text + sender.Text
- End If
- End Sub
- Private Sub btnCLEAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCLEAR.Click
- lblSCREEN.Text = Val(0)
- End Sub
- Private Sub btnADD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnADD.Click
- [operator] = sender.text
- operand1 = lblSCREEN.Text
- lblSCREEN.Text = ""
- End Sub
- Private Sub btnSUBTRACT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSUBTRACT.Click
- [operator] = sender.text
- operand1 = lblSCREEN.Text
- lblSCREEN.Text = ""
- End Sub
- Private Sub btnMULTIPLY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMULTIPLY.Click
- [operator] = sender.text
- operand1 = lblSCREEN.Text
- lblSCREEN.Text = ""
- End Sub
- Private Sub btnDIVIDE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDIVIDE.Click
- [operator] = sender.text
- operand1 = lblSCREEN.Text
- lblSCREEN.Text = ""
- End Sub
- Private Sub btnEQUAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEQUAL.Click
- operand2 = lblSCREEN.Text
- Select Case [operator]
- Case btnADD.Text
- result = Val(operand1) + Val(operand2)
- Case btnSUBTRACT.Text
- result = operand1 - operand2
- Case btnMULTIPLY.Text
- result = operand1 * operand2
- Case btnDIVIDE.Text
- result = operand1 / operand2
- End Select
- lblSCREEN.Text = result
- End Sub
- Dim [memory]
- Private Sub btnMEMORYPLUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMEMORYPLUS.Click
- lblSCREEN.Text = Val(lblSCREEN.Text) + Val([memory])
- End Sub
- Private Sub btnMEMORY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMEMORY.Click
- [memory] = lblSCREEN.Text
- End Sub
- Private Sub btnMEMORYMINUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMEMORYMINUS.Click
- lblSCREEN.Text = Val(lblSCREEN.Text) - Val([memory])
- End Sub
- Private Sub btnPERIOD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPERIOD.Click
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement