How to Create a Simple Calculator in VB.NET

In today's tutorial we are going to see the most basic program that is : Calculator,
So this tutorial is on creating a simple calculator in visual basic which performs the most basic arithmetic function like addition,subtraction,multiplication & division.
Lets start with creating a new project in visual basic choose windows form application and name your project whatever you want.



Designing the GUI of Calculator:
Add 17 buttons and a textbox.
Now change the text of buttons as specified below :

Button1 - 1
Button2 - 2
Button3 - 3
Button4 - 4
Button5 - 5
Button6 - 6
Button7 - 7
Button8 - 8
Button9 - 9
Button10 - 0
Button11 - .
Button12 - C
Button13 - +
Button14 - -
Button15 - X
Button16 - /
Button17 - =

Double click your form to switch to code view, clear all the code & paste the below code:

Public Class Form1<br /><br /> Dim value1 As Double 'Declare 2 variables to store values<br /> Dim value2 As Double<br /> Dim Add, Min, Mul, Div As Boolean 'declaring 4 boolean variables<br /> Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load<br /><br /> End Sub<br /> <br /> Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click<br /> TextBox1.Text = TextBox1.Text & 1<br /><br /> End Sub<br /><br /> Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click<br /> TextBox1.Text = TextBox1.Text & 2<br /> End Sub<br /><br /> Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click<br /> TextBox1.Text = TextBox1.Text & 3<br /> End Sub<br /><br /> Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click<br /> TextBox1.Text = TextBox1.Text & 4<br /> End Sub<br /><br /> Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click<br /> TextBox1.Text = TextBox1.Text & 5<br /> End Sub<br /><br /> Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click<br /> TextBox1.Text = TextBox1.Text & 6<br /> End Sub<br /><br /> Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click<br /> TextBox1.Text = TextBox1.Text & 7<br /> End Sub<br /><br /> Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click<br /> TextBox1.Text = TextBox1.Text & 8<br /> End Sub<br /><br /> Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click<br /> TextBox1.Text = TextBox1.Text & 9<br /> End Sub<br /><br /> Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click<br /> TextBox1.Text = TextBox1.Text & 0<br /> End Sub<br /><br /> Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click<br /> TextBox1.Text = TextBox1.Text & "."<br /> End Sub<br /><br /> Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click<br /> TextBox1.Clear()<br /> End Sub<br /><br /> Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click<br /> value1 = Double.Parse(TextBox1.Text) 'saving textbox1's value in value1 var <br /> 'Double.Parse(TextBox1.Text)-converting Textbox's values to Double<br /> Add = True 'To knw which arimetic function to perform<br /> TextBox1.Clear()<br /> End Sub<br /><br /> Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click<br /> value1 = Double.Parse(TextBox1.Text)<br /> Min = True<br /> TextBox1.Clear()<br /> End Sub<br /><br /> Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click<br /> value1 = Double.Parse(TextBox1.Text)<br /> Mul = True<br /> TextBox1.Clear()<br /> End Sub<br /><br /> Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click<br /> value1 = Double.Parse(TextBox1.Text)<br /> Div = True<br /> TextBox1.Clear()<br /> End Sub<br /><br /> Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click<br /> value2 = Double.Parse(TextBox1.Text)<br /> If Add = True Then<br /> TextBox1.Text = value1 + value2 & "" 'Val1 & val2 are doubles, as textbox supports string we need to convert val1+val2 to string so we have just added "" to convert it into a string<br /> Add = False<br /> End If<br /><br /> If Min = True Then<br /> TextBox1.Text = value1 - value2 & ""<br /> Min = False<br /> End If<br /><br /> If Mul = True Then<br /> TextBox1.Text = value1 * value2 & ""<br /> Mul = False<br /> End If<br /><br /> If Div = True Then<br /> TextBox1.Text = value1 / value2 & ""<br /> Div = False<br /> End If<br /> End Sub<br />End Class<br /><br /><br />

Now run your project and your most basic calculator is ready to perform basic calculations.
If you like the tutorial, Then do share :)

Share on Google Plus