Simple Caculator

Submitted by: 
Visitors have accessed this post 987 times.

This is a very simple calculator that allows you to calculate addition, subtraction, multiplication, and division.

  1. Public Class Form1
  2.  
  3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4.  
  5. If (TextBox1.Text = " ") Then
  6. MessageBox.Show("enter value in num1")
  7. End If
  8. If (TextBox2.Text = " ") Then
  9. MessageBox.Show("enter value in num2")
  10. Else
  11. TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
  12. End If
  13.  
  14. End Sub
  15.  
  16. Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
  17.  
  18. End Sub
  19.  
  20. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  21.  
  22. If (TextBox1.Text = " ") Then
  23. MessageBox.Show("enter value in num1")
  24. End If
  25. If (TextBox2.Text = " ") Then
  26. MessageBox.Show("enter value in num2")
  27. Else
  28. TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
  29. End If
  30. End Sub
  31.  
  32. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  33. TextBox1.Text = " "
  34. TextBox2.Text = " " 'clear button to clear all numbers.
  35. TextBox3.Text = " "
  36.  
  37.  
  38.  
  39. End Sub
  40.  
  41. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  42. Form2.Show() 'show exit form.
  43. End Sub
  44.  
  45.  
  46. Private Sub abstract_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles abstract.Click
  47. If (TextBox1.Text = " ") Then
  48. MessageBox.Show("enter value in num1")
  49. End If
  50. If (TextBox2.Text = " ") Then
  51. MessageBox.Show("enter value in num2")
  52. Else
  53. TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
  54. End If
  55.  
  56. End Sub
  57.  
  58. Private Sub division_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles division.Click
  59. If (TextBox1.Text = " ") Then
  60. MessageBox.Show("enter value in num1")
  61. End If
  62. If (TextBox2.Text = " ") Then
  63. MessageBox.Show("enter value in num2")
  64. Else
  65. TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
  66. End If
  67. End Sub
  68.  
  69. Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
  70.  
  71. End Sub
  72. End Class
  73.  
  74. Public Class Form2
  75.  
  76. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  77. Me.Close() ' if no button close form2 &keep app on.
  78.  
  79.  
  80.  
  81. End Sub
  82.  
  83. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  84.  
  85. Form1.Close() 'close form1.
  86.  
  87. Me.Close() 'close form2 .
  88.  
  89.  
  90.  
  91. End Sub
  92.  
  93. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  94.  
  95. End Sub
  96. End Class

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.

Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.

FOR YOUR OWN SAFETY, PLEASE:

1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.

Add new comment

Filtered HTML

  • Web page addresses and e-mail addresses turn into links automatically.
  • You may insert videos with [video:URL]
  • Allowed HTML tags: <a> <em> <strong> <cite> <blockquote> <code> <ul> <ol> <li> <dl> <dt> <dd> <table> <tr> <td> <th> <img> <h1> <h2> <h3> <iframe> [video]
  • You can enable syntax highlighting of source code with the following tags: <code>, <blockcode>, <asp>, <c>, <cpp>, <csharp>, <css>, <html4strict>, <java>, <javascript>, <mysql>, <php>, <python>, <sql>, <vb>, <vbnet>. The supported tag styles are: <foo>, [foo].
  • Lines and paragraphs break automatically.

Plain text

  • No HTML tags allowed.
  • Lines and paragraphs break automatically.
CAPTCHA
This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.