Breadcrumbs

[hungryhounduk]

Hi All Here is a very Easy Peasy Tutorial for making your Own Calculator



On the Form you will need

1 Textbox
17 Buttons

All the code for this tutorial is below

This goes above "Public Class Form1"

Code: Select all

Option Explicit On

This Goes below "Public Form1"

Code: Select all

Dim FirstNumber As Single
Dim SecondNumber As Single
Dim AnswerNumber As Single
Dim ArithmeticProcess As String

Button (1)

Code: Select all

txtDisplay.Text = txtDisplay.Text & 1

Button (2)

Code: Select all

txtDisplay.Text = txtDisplay.Text & 2

Button (3)

Code: Select all

txtDisplay.Text = txtDisplay.Text & 3

Button (4)

Code: Select all

txtDisplay.Text = txtDisplay.Text & 4

Button (5)

Code: Select all

txtDisplay.Text = txtDisplay.Text & 5

Button (6)

Code: Select all

txtDisplay.Text = txtDisplay.Text & 6

Button (7)

Code: Select all

txtDisplay.Text = txtDisplay.Text & 7

Button (8)

Code: Select all

txtDisplay.Text = txtDisplay.Text & 8

Button (9)

Code: Select all

txtDisplay.Text = txtDisplay.Text & 9

Decimal Point Button

Code: Select all

txtDisplay.Text = txtDisplay.Text & "."

Clear Button

Code: Select all

txtDisplay.Text = "0"

Add Button

Code: Select all

FirstNumber = Val(txtDisplay.Text)
txtDisplay.Text = "0"
ArithmeticProcess = "+"

Equals Button

Code: Select all

SecondNumber = Val(txtDisplay.Text)
If ArithmeticProcess = "+" Then
AnswerNumber = FirstNumber + SecondNumber
End If
If ArithmeticProcess = "-" Then
AnswerNumber = FirstNumber - SecondNumber
End If
If ArithmeticProcess = "X" Then
AnswerNumber = FirstNumber * SecondNumber
End If
If ArithmeticProcess = "/" Then
AnswerNumber = FirstNumber / SecondNumber
End If
txtDisplay.Text = AnswerNumber

Minus Button

Code: Select all

FirstNumber = Val(txtDisplay.Text)
txtDisplay.Text = "0"
ArithmeticProcess = "-"

Multiply Button

Code: Select all

FirstNumber = Val(txtDisplay.Text)
txtDisplay.Text = "0"
ArithmeticProcess = "X"

Divide Button

Code: Select all

FirstNumber = Val(txtDisplay.Text)
txtDisplay.Text = "0"
ArithmeticProcess = "/"

Chris

[CodenStuff]

Hello hungryhounduk,

I realy love the 3d look of this calculator, your still surprising me day after day ;) .

Excellent work keep it up cooll;

Ive never tried to do a calculator in VB before so this is something new for me to play with

[hungryhounduk]

Hi
Its Just a little ditty i knocked up to do the tutorial with

Calculators are quite fun

Chris

[CodemaN]

coollll thanksssssssss wahooo; wahooo;

[Usman55]

Hello Hungryhounduk!

I have also made a calculator (without a skin) (with more features) which I will be posting soon!

Thanks for the skin!!!!!

[Lewis]

I like th skin aswell

[35000vr]

I Love The Skiiiiiiin