A simple calculator

Level:
Level2

PROGRAMMING EXERCISE

Calculator

Write a VB program that simulates the basic functions and behavior of the Windows calculator program. To study its interface, you can run it by clicking the Start button on the taskbar, then go to Programs, then Accessories. You should at least support the basic functions of addition, subtraction, and multiplication, as well as changing the sign of the number (the +/- key). It's up to you if you want to support the sqrt, %, and 1/x functions. Don't bother with the "M" keys on the left (MC, MR, MS, M+) or the scientific features.

Download solution source code here.

Printer Friendly
165895 reads

Comments

Wed, 09/01/2010 - 23:58 — Anonymous (not verified)

i want the perfect coding

i want the perfect coding for making a SIMPLE CALCULATOR in vb

Sun, 08/15/2010 - 06:14 — erina (not verified)

Coding fOr calculator

plz send me coding for scientific calculator using VB.net .

Thu, 08/12/2010 - 01:31 — mimi23 (not verified)

INPUTBOX

how can i get the value of Val(InputBox("Enter a name:")) ?
so that the name the user inputs will be displayed in a control label..
msg me in fb..
mimih.chaw@yahoo.com

Thu, 07/29/2010 - 23:32 — paresh patel (not verified)

help me..

hoe to creating percentage coding. please help me. thank you so much.

Fri, 07/02/2010 - 05:31 — lovely (not verified)

hi to know the vb6.0 please

hi to know the vb6.0 please you can help me to do a simple calculator because i do not know to do please try to give me and simple calculator

Fri, 07/02/2010 - 05:26 — angel (not verified)

cadizjamerlyn@yahoo.com

why vb is very difficult? i dont understand please help me to understand this vb?because i glad to understand vb?

Thu, 08/05/2010 - 21:59 — Anonymous (not verified)

VB is not at all

VB is not at all difficult.......
Its most easy GUI which is present 2de....
If u want to knw of it then pusrchase Visual Basic 6.0 BLACK BOOK... it vil help u....

Thu, 07/01/2010 - 18:32 — Asjad Athick (not verified)

HELP PLEASE

Dear Sir,
Iam making a calculator in VB6, but i dont know the codings for some functions like: Percentage, SquareRoot, SIN, COS and TAN. I will be very great full to you if you can help me in this, Please contact me through my email ID.

ThankYou
Asjad

P.S - I really need the codings for my project. Please help me....

Mon, 06/21/2010 - 17:57 — Anonymous (not verified)

Help please :)

Hi ...I am making a calculator too but i am sorta having problems with mine ...soo if you can please take a look and see whats wrong ....WOULD BE A GREAT HELP....thanks again !

Private Sub Cmdmultiply_Click()
FirstNumber = Val(Text1.Text)
Text1.Text = "0"
ArithmeticProcess = "*"
End Sub
Private Sub CmdSubtract_Click()
FirstNumber = Val(Text1.Text)
Text1.Text = "0"
ArithmeticProcess = "-"
End Sub
Private Sub CmdDivide_Click()
FirstNumber = Val(Text1.Text)
Text1.Text = "0"
ArithmeticProcess = "/"
End Sub
Private Sub Cmd0_Click()
Text1.Text = Text1.Text & "0"
End Sub

Private Sub Cmd1_Click()
Text1.Text = Text1.Text & "1"
End Sub

Private Sub Cmd2_Click()
Text1.Text = Text1.Text & "2"
End Sub

Private Sub Cmd3_Click()
Text1.Text = Text1.Text & "3"
End Sub

Private Sub Cmd4_Click()
Text1.Text = Text1.Text & "4"
End Sub

Private Sub Cmd5_Click()
Text1.Text = Text1.Text & "5"
End Sub

Private Sub Cmd6_Click()
Text1.Text = Text1.Text & "6"
End Sub

Private Sub Cmd7_Click()
Text1.Text = Text1.Text & "7"
End Sub

Private Sub Cmd8_Click()
Text1.Text = Text1.Text & "8"
End Sub

Private Sub Cmd9_Click()
Text1.Text = Text1.Text & "9"
End Sub

Private Sub CmdClear_Click()
Text1.Text = "0"
End Sub

Private Sub CmdDecimal_Click()
Text1.Text = Text1.Text & "."
End Sub

Private Sub CmdEqual_Click()
SecondNumber = Val(Text1.Text)
If ArithmeticProcess = "+" Then
AnswerNumber = FirstNumber + SecondNumber
End If
If ArithmeticProcess = "*" Then
AnswerNumber = FirstNumber * SecondNumber
End If
If ArithmeticProcess = "-" Then
AnswerNumber = FirstNumber - SecondNumber
End If
If ArithmeticProcess = "/" Then
AnswerNumber = FirstNumber / SecondNumber
End If
Text1.Text = AnswerNumber
End Sub

Wed, 07/07/2010 - 02:16 — JZN (not verified)

Whats wrong with your codes?

Whats wrong with your codes? is it running? i suggest you will use the else if statement...

Mon, 06/14/2010 - 04:43 — lareen (not verified)

Code to design a simple calculator in vb 6.0

hello sir, could you please send me the coding for designing a simple calculator for doing my project in visual basic.Please send me the codes for SQRT, %, 1/X, CE, MR, MC, MS, M+,+/-. these buttons i have chose from the sample calculator that is present by default in every PCs. please send as soon as possible. thank you!!!!!!!!!!!!!!!!!!!!!!!!!

Mon, 08/09/2010 - 06:14 — anonymous (not verified)

SQRT

please can you help me!!
what is the codes of SQRT

Sun, 06/06/2010 - 01:03 — Anonymous (not verified)

vb

what does call mean in vb??

Fri, 07/30/2010 - 01:24 — Anonymous (not verified)

hey

its a visual basic..
another kind of computer language..

Thu, 04/15/2010 - 05:54 — smit (not verified)

it is very nice code and it

it is very nice code and it will help me a lot

Wed, 05/12/2010 - 22:40 — Anonymous (not verified)

comment

very nice

Sun, 04/18/2010 - 08:45 — Anonymous (not verified)

help! unsai codes para sa

help! unsai codes para sa simple calculator sa vb?

Thu, 04/01/2010 - 15:43 — mahdi2

help me plz

thank you
I hope to help me in my project cause i can't complete it
............................................................................................
(general)
Dim op As String
Dim num3 As Integer
Dim num1 As Integer
Dim num2 As Integer

Private Sub Command1_Click()
Text1.Text = Text1.Text & "1"
End Sub

Private Sub Command10_Click()
Text1.Text = Text1.Text & 0
End Sub

Private Sub Command11_Click()
Text2.Text = Text2.Text & "1"
End Sub

Private Sub Command12_Click()
Text2.Text = Text2.Text & "2"
End Sub

Private Sub Command13_Click()
Text2.Text = Text2.Text & "3"
End Sub

Private Sub Command14_Click()
Text2.Text = Text2.Text & "4"
End Sub

Private Sub Command15_Click()
Text2.Text = Text2.Text & "5"
End Sub

Private Sub Command16_Click()
Text2.Text = Text2.Text & "6"
End Sub

Private Sub Command17_Click()
Text2.Text = Text2.Text & "7"
End Sub

Private Sub Command18_Click()
Text2.Text = Text2.Text & "8"
End Sub

Private Sub Command19_Click()
Text2.Text = Text2.Text & "9"
End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text & "2"
End Sub

Private Sub Command20_Click()
Text2.Text = 0
End Sub

Private Sub Command21_Click()
num1 = Val(Text1.Text)
num2 = Val(Text2.Text)
num3 = num1 * num2
Text3.Text = ""
Text3.Text = num3
op = "*"
End Sub

Private Sub Command22_Click()
num1 = Val(Text1.Text)
num2 = Val(Text2.Text)
num3 = num1 / num2
Text3.Text = ""
Text3.Text = num3
op = "/"
If IsNumeric(Text1.Text) / (Text2.Text) = fales Then
MsgBox "you are loser"
End If
End Sub

Private Sub Command23_Click()

End Sub

Private Sub Command25_Click()
If op = "*" Then
Text3.Text = num1 * num2

End If
End Sub

Private Sub Command26_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command3_Click()
Text1.Text = Text1.Text & "3"
End Sub

Private Sub Command4_Click()
Text1.Text = Text1.Text & "4"
End Sub

Private Sub Command5_Click()
Text1.Text = Text1.Text & "5"
End Sub

Private Sub Command6_Click()
Text1.Text = Text1.Text & "6"
End Sub

Private Sub Command7_Click()
Text1.Text = Text1.Text & "7"
End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text & "8"
End Sub

Private Sub Command9_Click()
Text1.Text = Text1.Text & "9"
End Sub

Private Sub Form_Load()
Form1.BackColor = vbWhite
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
Frame1.BackColor = vbGreen
End Sub

Private Sub Label1_Click()
Label1.BackColor = vbBlack
End Sub

Private Sub Text1_Change()
Text1.BackColor = vbBlack
End Sub

Private Sub Text2_Change()
Text2.BackColor = vbbalck
End Sub

Private Sub Text3_Change()
Text3.BackColor = vbBlack
End Sub

Sat, 03/20/2010 - 00:42 — afshar (not verified)

tank you pleas send me

tank you pleas send me windowse Calculator vb code
tank u mer30

Sun, 06/13/2010 - 03:24 — Vaibhav (not verified)

i dont understand how to

i dont understand how to take 3 text boxes.

Tue, 03/16/2010 - 05:55 — Brent (not verified)

Simple calculaotr

I am trying to code a simple calculator, please help. I need two textboxes, one on each side of three buttons. each button has an operation: button1 is to add, button2 is to subtract, button3 is to multiply. when clicking on the button(s) it will preform the funtion with textbox1 and textbox2. Example: textbox1 is 2 and textbox2 is 2, when the add button is pushed the output(textbox3) will read 2 + 2 = 4. If the subtraction button is pushed the output would be 2 - 2 = 0

Fri, 04/23/2010 - 01:22 — Anonymous (not verified)

Visual Basic

I to be SEC

Wed, 03/10/2010 - 23:16 — MS Access Tutorials (not verified)

Nice

Excelent Calculator.

Tue, 03/16/2010 - 12:49 — проститутка (not verified)

Re

Please help me to make a program.. we had a project to submit but i dont know where to start... we need to make a material directory system in one of an electronics company.. can you help me please...

Wed, 03/10/2010 - 01:37 — Rahul sharma (not verified)

bca

Basic coading of vb

Mon, 03/08/2010 - 05:14 — pavan kumar (not verified)

simple calculator

plese give me coding

Fri, 02/26/2010 - 04:46 — mixy (not verified)

can u pls help me with my

can u pls help me with my project??

8s ol abwt Page Memory Allocation Method...

i ned to develop a program that wil results to this kind of allocation method...

pls help me..

i really badly needed it A.S.A.P

thanks a lot in advance....

Wed, 02/17/2010 - 01:33 — shiela (not verified)

scientific calculator code

can u please help me ... i need a code of scientific calculator,,,,i need it..argentl

Sun, 02/14/2010 - 08:55 — Anonymous (not verified)

thanx u

thanx u veeeeeeeeerrrrrrrrrrry much

Mon, 02/08/2010 - 22:23 — swapnil24 (not verified)

Calculator problem

Thanks for the calculator program.but there is one problem in it.So will some one help me. here is problem:-when we entering "0.1" value from the keyboard it display only ".1" so i need the whole number as it is that i entered. it means if i type "0.1" then the label should have to display "0.1". as entered text... Please help me.

Wed, 02/17/2010 - 09:25 — Anonymous (not verified)

Wed, 01/06/2010 - 11:22 — Anonymous (not verified)

Marnelle

Fri, 12/11/2009 - 07:18 — juncas17 (not verified)

here another code for simple calculator

Dim sign As String Dim ans As String


Private Sub Clear_Click()

Text1.Text = ""

End Sub
Private Sub cmdOperator_Click(Index As Integer)

sign = cmdOperator(Index).Caption

ans = Text1.Text

Text1.Text = ""

End Sub
Private Sub Command3_Click(Index As Integer)

Text1.Text = Text1.Text + Command3(Index).Caption

End Sub
Private Sub Equals_Click()

Select Case sign

Case Is = "+"

Text1.Text = Str$(Val(ans) + Val(Text1.Text))

Case Is = "-"

Text1.Text = Str$(Val(ans) - Val(Text1.Text))

Case Is = "*"

Text1.Text = Str$(Val(ans) * Val(Text1.Text))

Case Is = "/"

Text1.Text = Str$(Val(ans) / Val(Text1.Text))

End Select

End Sub

just email me if you want to know how to make this one work :)



      reply





  
      Fri, 07/23/2010 - 04:31 — vikramdsvv (not verified)
  
  
  
    for knoledge

    
      plz 
advise me

how to creat a calculator

thanks
    

  

      reply

  



  
      Sun, 04/18/2010 - 06:13 — pragya mishra (not verified)
  
  
  
    hiiiiiiiii

    
      hi plz specify the working of cmdoperator & command3 & how the whole code will run plz reply soon
    

  

      reply

  



  
      Tue, 02/16/2010 - 08:10 — Anonymous (not verified)
  
  
  
    help me

    
      thank you
    

  

      reply

  



  
      Sun, 02/07/2010 - 00:37 — Anonymous (not verified)
  
  
  
    calculator

    
      eii..wud u mine to help me in d coding of simple calculator? thnks...
    

  

      reply

  



  
      Wed, 01/27/2010 - 09:08 — dheerendra singh yadav (not verified)
  
  
  
    vb program

    
      hey guy .. how are you ???  it is really a very simple program , really nice it learns me a lot. thanking you . a very good night ..
    

  

      reply

  



  
      Wed, 01/27/2010 - 09:01 — shyam jee gupta (not verified)
  
  
  
    hiiiiiiiiiiiiiiiiiiiiiiiii

    
      it is really a fantabulous program . it helps me alot to create or learn visual basic as much easier as simple... thanxxxx a lottt....good night....
    

  

      reply

  



  
      Tue, 01/19/2010 - 01:29 — melchor (not verified)
  
  
  
    simple calculator

    
      hello sir can you help to make my calculator? my problem is that how can you make the text having two digits or three digits at the text please help me
    

  

      reply

  



  
      Wed, 01/13/2010 - 04:48 — james210015
  
  
  
    hi

    
      is there other code for the calculator
    

  

      reply

  



  
      Tue, 01/12/2010 - 21:21 — teddy pogi (not verified)
  
  
  
    vb6 code

    
      does it really works??
    

  

      reply

  



  
      Mon, 01/11/2010 - 17:47 — john henri (not verified)
  
  
  
    Hi

    
      elow!good day,i want to know some things needed i making a keyboard narrator?please teach me how to implement the software i want to develop.is it need to have a database?or folder only to put the mp3.files.thank you
    

  

      reply

  



  
      Mon, 12/21/2009 - 05:43 — Habib saleh (not verified)
  
  
  
    Simple calc

    
      Pls i want to know hw it works
    

  

      reply

  



  
      Tue, 12/08/2009 - 04:58 — Anonymous (not verified)
  
  
  
    download file

    
       download file 
    

  

      reply

  



  
      Tue, 12/08/2009 - 04:56 — Anonymous (not verified)
  
  
  
    Thanks for recommendations!

    
      Thanks for recommendations! http://www.picktorrent.com
    

  

      reply

  



  
      Sat, 12/05/2009 - 02:18 — atulsingh (not verified)
  
  
  
    visual basic

    
      mujhe calculator ka program chaheye coding shahit
    

  

      reply

  



  
      Mon, 11/30/2009 - 08:05 — JAMES BUTLER (not verified)
  
  
  
    INSANE MATE THANKS MAKES ME

    
      INSANE MATE THANKS MAKES ME VERY HAPPY THIS
    

  

      reply

  



  
      Fri, 11/27/2009 - 03:10 — saranya (not verified)
  
  
  
    VB

    
      can you help me from my project a standard calculator using vb6.0,please asap....
    

  

      reply

  



  
      Thu, 11/26/2009 - 00:07 — Anonymous (not verified)
  
  
  
    reply

    
      can you help me from my project a standard calculator using vb6.0,please asap....
    

  

      reply

  



  
      Fri, 11/20/2009 - 19:07 — jhay (not verified)
  
  
  
    library

    
      hello...? I need a simplest coading of library system using VB 6 . plz help me n send me the simplest coding of library system using VB 6......................
    

  

      reply

  



  
      Sat, 11/14/2009 - 04:28 — ifrah.7 (not verified)
  
  
  
    how to write a code for simple calculator in visual basic 6.0

    
      it is good but plz send me a code for simple calculator in visual basic 6.0
    

  

      reply

  



  
      Wed, 10/14/2009 - 07:16 — Anonymous (not verified)
  
  
  
    how to start

    
      please help me to make a program.. we had a project to submit but i dont know where to start... we need to make a material directory system in one of an electronics company.. can you help me please... i  need your help badly...

just email me @ albonena@yahoo.com.

i will wait for your immediate response.

tnx
    

  

      reply

  



  
      Sun, 10/11/2009 - 03:14 — Anonymous (not verified)
  
  
  
    Levelling Computation

    
      Please can you help me write programme in VB for levelling computation using the method of "Height of Collimation"?
    

  

      reply

  



  
      Wed, 10/07/2009 - 08:44 — Anonymous (not verified)
  
  
  
    Calculator

    
      Please help me out I need the coding for the hexadecimal, binary,octal and decimal using the option buttons. My E-mail add is reve_q@yahoo.com
    

  

      reply

  



  
      Thu, 10/01/2009 - 20:37 — Anonymous (not verified)
  
  
  
    vb pricing system

    
      plz give me a sample on how it work..

plz email me:raven_wind2020@yahoo.com
    

  

      reply

  



  
      Thu, 01/28/2010 - 20:33 — Toto (not verified)
  
  
  
    Wala koy masulti anang imong

    
      Wala koy masulti anang imong ge request kay wala pud ko kabalo ana,kasabot ka?
    

  

      reply

  



  
      Tue, 09/22/2009 - 06:26 — vbzu (not verified)
  
  
  
    VB Doubt

    
      i need the coding for decimal point(.) and sqrt function in calculator in vb6.0

pls help...
    

  

      reply

  



  
      Sat, 10/31/2009 - 02:15 — rini (not verified)
  
  
  
    decimal n squareroot buttons function code

    
      *************Decimal**************

Public mFun As Boolean

 If mFun = True Then

        txtans.Text = "."   ' New entry

        mFun = False

    Else

        txtans.Text = txtans & "."     ' Continuation

        mFun = False

    End If

***********Squareroot***************
Private Sub cmdsqrt_Click()

   txtans = Sqr(CDbl(txtans.Text))     ' For squareroot

End Sub

******************************************************************

"txtans" is your textbox where answer is to be desplayed.
    

  

      reply

  



  
      Mon, 09/07/2009 - 10:30 — Anonymous (not verified)
  
  
  
    Calculator

    
      I need a simplest coading of caculator using VB 6 . plz help me n send me the simplest caoding of calculator using VB 6......................
    

  

      reply

  
123next ›last »


  Post new comment

  

 Your name: 
 


 E-mail: 
 
 The content of this field is kept private and will not be shown publicly.


 Homepage: 
 


 Subject: 
 


 Comment: *
 

Allowed HTML tags: <a> <em> <strong> <cite> <code> <ul> <ol> <li> <dl> <dt> <dd>
Lines and paragraphs break automatically.
You may post block code using <blockcode [type="language"]>...</blockcode> tags. You may also post inline code using <code [type="language"]>...</code> tags.
More information about formatting options



  You might also find these useful:

  A full game - Concentration
Full hangman game in VB6
A Cryptogram game - simple encryption in VB6 source
Create PDF in VB Source Code
Remove an element from an array
VB6 Number System Functions (Hex, Oct, Etc)
Learn VB6's Trig, Math, Financial, Boolean, and Random functions
Formatting Numbers, Currency, and Percents in VB
Creating a graphic tic tac toe game in VB6
Using standard controls to write a Fractional Math Game

Navigate To

Guides

User login

A simple calculator

Comments

Post new comment

You might also find these useful: