Advertisement
Guest User

Untitled

a guest
Feb 19th, 2019
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.35 KB | None | 0 0
  1. Public Class Calculator
  2.  
  3. Dim [operator]
  4. Dim operand1
  5. Dim operand2
  6. Dim result
  7.  
  8. Private Sub btnONE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnONE.Click
  9. If lblSCREEN.Text = "0" Then
  10. lblSCREEN.Text = sender.Text
  11. Else
  12. lblSCREEN.Text = lblSCREEN.Text + sender.Text
  13. End If
  14.  
  15. End Sub
  16. Private Sub btnTWO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTWO.Click
  17. If lblSCREEN.Text = "0" Then
  18. lblSCREEN.Text = sender.Text
  19. Else
  20. lblSCREEN.Text = lblSCREEN.Text + sender.Text
  21. End If
  22. End Sub
  23.  
  24. Private Sub btnTHREE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTHREE.Click
  25. If lblSCREEN.Text = "0" Then
  26. lblSCREEN.Text = sender.Text
  27. Else
  28. lblSCREEN.Text = lblSCREEN.Text + sender.Text
  29. End If
  30. End Sub
  31.  
  32. Private Sub btnFOUR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFOUR.Click
  33. If lblSCREEN.Text = "0" Then
  34. lblSCREEN.Text = sender.Text
  35. Else
  36. lblSCREEN.Text = lblSCREEN.Text + sender.Text
  37. End If
  38. End Sub
  39.  
  40. Private Sub btnFIVE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFIVE.Click
  41. If lblSCREEN.Text = "0" Then
  42. lblSCREEN.Text = sender.Text
  43. Else
  44. lblSCREEN.Text = lblSCREEN.Text + sender.Text
  45. End If
  46. End Sub
  47.  
  48. Private Sub btnSIX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSIX.Click
  49. If lblSCREEN.Text = "0" Then
  50. lblSCREEN.Text = sender.Text
  51. Else
  52. lblSCREEN.Text = lblSCREEN.Text + sender.Text
  53. End If
  54. End Sub
  55.  
  56. Private Sub btnSEVEN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSEVEN.Click
  57. If lblSCREEN.Text = "0" Then
  58. lblSCREEN.Text = sender.Text
  59. Else
  60. lblSCREEN.Text = lblSCREEN.Text + sender.Text
  61. End If
  62. End Sub
  63.  
  64. Private Sub btnEIGHT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEIGHT.Click
  65. If lblSCREEN.Text = "0" Then
  66. lblSCREEN.Text = sender.Text
  67. Else
  68. lblSCREEN.Text = lblSCREEN.Text + sender.Text
  69. End If
  70. End Sub
  71.  
  72. Private Sub btnNINE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNINE.Click
  73. If lblSCREEN.Text = "0" Then
  74. lblSCREEN.Text = sender.Text
  75. Else
  76. lblSCREEN.Text = lblSCREEN.Text + sender.Text
  77. End If
  78. End Sub
  79.  
  80. Private Sub btnZERO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZERO.Click
  81. If lblSCREEN.Text = "0" Then
  82. lblSCREEN.Text = sender.Text
  83. Else
  84. lblSCREEN.Text = lblSCREEN.Text + sender.Text
  85. End If
  86. End Sub
  87.  
  88. Private Sub btnCLEAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCLEAR.Click
  89. lblSCREEN.Text = Val(0)
  90. End Sub
  91.  
  92.  
  93. Private Sub btnADD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnADD.Click
  94. [operator] = sender.text
  95. operand1 = lblSCREEN.Text
  96. lblSCREEN.Text = ""
  97.  
  98. End Sub
  99.  
  100. Private Sub btnSUBTRACT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSUBTRACT.Click
  101. [operator] = sender.text
  102. operand1 = lblSCREEN.Text
  103. lblSCREEN.Text = ""
  104. End Sub
  105.  
  106. Private Sub btnMULTIPLY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMULTIPLY.Click
  107. [operator] = sender.text
  108. operand1 = lblSCREEN.Text
  109. lblSCREEN.Text = ""
  110. End Sub
  111.  
  112. Private Sub btnDIVIDE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDIVIDE.Click
  113. [operator] = sender.text
  114. operand1 = lblSCREEN.Text
  115. lblSCREEN.Text = ""
  116. End Sub
  117.  
  118. Private Sub btnEQUAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEQUAL.Click
  119. operand2 = lblSCREEN.Text
  120. Select Case [operator]
  121. Case btnADD.Text
  122. result = Val(operand1) + Val(operand2)
  123. Case btnSUBTRACT.Text
  124. result = operand1 - operand2
  125. Case btnMULTIPLY.Text
  126. result = operand1 * operand2
  127. Case btnDIVIDE.Text
  128. result = operand1 / operand2
  129.  
  130. End Select
  131.  
  132. lblSCREEN.Text = result
  133. End Sub
  134.  
  135. Dim [memory]
  136.  
  137. Private Sub btnMEMORYPLUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMEMORYPLUS.Click
  138.  
  139. lblSCREEN.Text = Val(lblSCREEN.Text) + Val([memory])
  140. End Sub
  141.  
  142. Private Sub btnMEMORY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMEMORY.Click
  143. [memory] = lblSCREEN.Text
  144. End Sub
  145.  
  146. Private Sub btnMEMORYMINUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMEMORYMINUS.Click
  147. lblSCREEN.Text = Val(lblSCREEN.Text) - Val([memory])
  148. End Sub
  149.  
  150. Private Sub btnPERIOD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPERIOD.Click
  151.  
  152. End Sub
  153. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement