A simple calculator

Level:
Level2

Written By TheVBProgramer.

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.

 

If you enjoyed this post, subscribe for updates (it's free)

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

Whats wrong with your codes?

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

yesyou forgot after if you

yesyou forgot after if you must do next is elseif

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!!!!!!!!!!!!!!!!!!!!!!!!!

SQRT

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

vb

what does call mean in vb??

hey

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

it is very nice code and it

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

comment

very nice

help! unsai codes para sa

help! unsai codes para sa simple calculator sa vb?

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

tank you pleas send me

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

i dont understand how to

i dont understand how to take 3 text boxes.

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

Private Sub

Private Sub CmdAdd_Click()
text3.text=val(text1.text)+ val(text2.text)
End Sub

Private Sub Cmdsubtraction_Click()
text3.text=val(text1.text) - val(text2.text)
End Sub

sample

text3.text= val(text1.text) + val(text2.text)

"add in the addition command button "

Visual Basic

I to be SEC

Nice

Excelent Calculator.

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...

bca

Basic coading of vb

simple calculator

plese give me coding

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....

scientific calculator code

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

thanx u

thanx u veeeeeeeeerrrrrrrrrrry much

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.

If I listened correctly

If I listened correctly today in programming it seems that the numbers are all "integers" what you need is "real" numbers.

Thanks!

The calculator program helped me a lot. Thanks a million! :)

pls. give me the coding of simple calculator..

pki send nga po ung coding ng simple calculator skin po...thank you very much!!!
:)

HI

please help me I need VB codes for creating a simple note book

hai!!

thanks for the VB calculator!! it's A great help!!! thanks!!

project in vb6 caculator

i am a beginner .where can I get the code of Visual Bbasic 6.0 calculator? can i have the source code? can you please send it to my email
This is my email: openminded.play835@gmail.com

Thank You

HEY!!

i am trying to make a code that says Kristofer Richard Littlemore in ottawa ontario manotick is a fag lmao

text1.text=("Kristofer

text1.text=("Kristofer Richard Littlemore in ottawa ontario manotick is a fag lmao")

code for calculator

plz send me coding for scientific calculator using c#.net .

how to make setup file

hai i created a project using c#.net .i want make it as a setup file.how to do it?

download the code

you can download the calculator vb code from the link below

http://www.vb6.us/files/VBPrograms/calculator/Calculator.zip

Marnelle

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<code>
 
 
just email me if you want to know how to make this one work :)

Help me

Pliz could you help me out am trying to learn how i can do about a calculator but i can find a way out.

hope it vl help me

hope it vl help me thaxxxxxxxxxxxxxxxxxxxxxxxxx

for knoledge

plz

advise me
how to creat a calculator
thanks

hiiiiiiiii

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

help me

thank you

calculator

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

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 ..

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....

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

hi

is there other code for the calculator

vb6 code

does it really works??

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

Simple calc

Pls i want to know hw it works

Thanks for recommendations!

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

visual basic

mujhe calculator ka program chaheye coding shahit

INSANE MATE THANKS MAKES ME

INSANE MATE THANKS MAKES ME VERY HAPPY THIS

VB

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

reply

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

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......................

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

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

Levelling Computation

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

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

vb pricing system

plz give me a sample on how it work..
plz email me:raven_wind2020@yahoo.com

Wala koy masulti anang imong

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

VB Doubt

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

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.

sir can you help me how to do

sir can you help me how to do it?

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......................

vb codes pay roll

Am doing a project in vb 6 for my school and am kind of new in the Vb world, somebody helps me with the codes that generates the total of products automatically? I will apreciate it alot..good time

calculator code without array

help...i need a calculator code without array

Calculator without Array

Option Explicit

Public i As Double
Public memVal As Integer
Public CalOperation As Integer
Public mFun As Boolean
Public A As Integer
Public copyans

Private Sub cmd0_Click()
If mFun = True Then
txtans.Text = "0" ' New entry
mFun = False
Else
txtans.Text = txtans & 0 ' Continuation
mFun = False
End If
End Sub

Private Sub cmd1_Click()
If mFun = True Then
txtans.Text = "1" ' New entry
mFun = False
Else
txtans.Text = txtans & 1 ' Continuation
mFun = False
End If
End Sub

Private Sub cmd2_Click()
If mFun = True Then
txtans.Text = "2" ' New entry
mFun = False
Else
txtans.Text = txtans & 2 ' Continuation
mFun = False
End If
End Sub

Private Sub cmd3_Click()
If mFun = True Then
txtans.Text = "3" ' New entry
mFun = False
Else
txtans.Text = txtans & 3 ' Continuation
mFun = False
End If

End Sub

Private Sub cmd4_Click()
If mFun = True Then
txtans.Text = "4" ' New entry
mFun = False
Else
txtans.Text = txtans & 4 ' Continuation
mFun = False
End If
End Sub

Private Sub cmd5_Click()
If mFun = True Then
txtans.Text = "5" ' New entry
mFun = False
Else
txtans.Text = txtans & 5 ' Continuation
mFun = False
End If
End Sub

Private Sub cmd6_Click()
If mFun = True Then
txtans.Text = "6" ' New entry
mFun = False
Else
txtans.Text = txtans & 6 ' Continuation
mFun = False
End If
End Sub

Private Sub cmd7_Click()
If mFun = True Then
txtans.Text = "7" ' New entry
mFun = False
Else
txtans.Text = txtans & 7 ' Continuation
mFun = False
End If
End Sub

Private Sub cmd8_Click()
If mFun = True Then
txtans.Text = "8" ' New entry
mFun = False
Else
txtans.Text = txtans & 8 ' Continuation
mFun = False
End If
End Sub

Private Sub cmd9_Click()
If mFun = True Then
txtans.Text = "9" ' New entry
mFun = False
Else
txtans.Text = txtans & 9 ' Continuation
mFun = False
End If
End Sub

Private Sub cmdadd_Click() ' For Adding
mFun = True
txtop.Text = txtans.Text
CalOperation = 1
End Sub

Private Sub cmdbackspace_Click() ' Backspace
Dim x As String
Dim ylen As Integer

If txtans = vbNullString Then
Else

x = Val(txtans.Text)
ylen = Len(txtans.Text)
txtans.Text = Mid(x, 1, (ylen - 1))
End If
End Sub

Private Sub cmdcancel_Click() 'Cancel
txtans.Text = ""
End Sub

Private Sub cmdcube_Click() 'Cube
txtans = CDbl(txtans.Text) * CDbl(txtans.Text) * CDbl(txtans.Text)
End Sub

Private Sub cmdCE_Click() 'Clear Everything
txtans.Text = ""
End Sub

Private Sub cmddecimal_Click() 'Decimal button
If mFun = True Then
txtans.Text = "." ' New entry
mFun = False
Else
txtans.Text = txtans & "." ' Continuation
mFun = False
End If
End Sub

Private Sub cmddivide_Click() 'For Division
mFun = True

txtop.Text = txtans.Text
CalOperation = 4
End Sub

Private Sub cmdequalsto_Click()

Dim Answer As Double

Select Case CalOperation ' 1 : Add, 2 : Minus, 3: Multiply, 4: Division, 5: Sign, 6: Power, 7: Cube
' 8: Inverse, 9: Log,
Case 1 '(Addition)
Answer = CDbl(txtop.Text) + CDbl(txtans.Text)
txtans.Text = Answer
Case 2 '(Subtraction)
Answer = CDbl(txtop.Text) - CDbl(txtans.Text)
txtans.Text = Answer
Case 3 '(Multiplication)
Answer = CDbl(txtop.Text) * CDbl(txtans.Text)
txtans.Text = Answer
Case 4 '(Division)
If txtans.Text > 0 Then
Answer = CDbl(txtop.Text) / CDbl(txtans.Text)
txtans.Text = Answer
Else
txtans.Text = "Not defined"
End If
Case 5 '(Sign)
Answer = Val(txtans.Text) * -1
txtans.Text = Answer
Case 6 'Power
Answer = CDbl(txtop.Text) ^ CDbl(txtans.Text)
txtans.Text = Answer
'Case 11 'Pi
'Answer = CDbl(txtans.Text) + CDbl(txtop.Text)
'txtans.Text = Answer

End Select

End Sub
Private Sub cmdfactorial_Click() 'Factorial function
Dim k As Integer
Dim factorialans As Double

Dim maxfac As Integer
Dim maxfacloop
maxfacloop = (Val(txtans.Text) - 1) ' 4
maxfac = Val(txtans.Text)
factorialans = maxfac ' 4

For k = 1 To maxfacloop ' 4
factorialans = factorialans * (maxfac - 1) ' 0 = 4 x 3 = 12
maxfac = maxfac - 1 ' 4 - 1 = 3
Next k
txtans.Text = factorialans

End Sub

Private Sub cmdinverse_Click() ' For Inverse
txtans = 1 / CDbl(txtans.Text)
End Sub

Private Sub cmdlog_Click() ' For squareroot
txtans = Sqr(CDbl(txtans.Text))
End Sub

Private Sub cmdM_Click() ' For Memory add function
mFun = True
txtop.Text = txtans.Text
memVal = memVal + Val(txtop.Text)

If memVal > 0 Then
txtM = "M"
Else
txtM = ""
End If
End Sub

Private Sub cmdMC_Click() ' For Memory clear
txtans.Text = " "
memVal = 0
txtM = vbNullString
End Sub

Private Sub cmdMR_Click() ' For Memory recall
txtans.Text = memVal
End Sub

Private Sub cmdMS_Click() 'Memory Store
mFun = True
txtop.Text = txtans.Text
memVal = txtop.Text
If Val(memVal) > 0 Then
txtM = "M"
Else
txtM = ""
End If
End Sub

Private Sub cmdmultiply_Click() ' For Multiplication
mFun = True
txtop.Text = txtans.Text
CalOperation = 3
End Sub

Private Sub cmdpi_Click() 'For Pi=3.14
txtans.Text = "3.14"
End Sub

Private Sub cmdpower_Click() ' For Power
mFun = True
txtop.Text = txtans.Text
CalOperation = 6
txtans = vbNullString

End Sub

Private Sub cmdpercentage_Click() 'Percentage
txtans = (txtop.Text * txtans.Text) / 100
End Sub

Private Sub cmdsign_Click()
CalOperation = 5 ' For sign
End Sub

Private Sub cmdsq_Click() ' For Square
txtans = CDbl(txtans.Text) * CDbl(txtans.Text)

End Sub

Private Sub cmdsqrt_Click()
txtans = Sqr(CDbl(txtans.Text)) ' For squareroot
End Sub

Private Sub cmdsubtract_Click() ' For Substraction
mFun = True
txtop.Text = txtans.Text
CalOperation = 2
End Sub

Private Sub Form_Load() 'On Form load
mFun = False
txtans.Text = ""
End Sub

Private Sub mnucopy_Click() 'Copy

copyans = txtans.Text
End Sub

Private Sub mnupaste_Click() 'Paste
txtans.Text = copyans
End Sub

HELP urgent

the numbers are working properly but the operations are not TT^TT
I really need this to work. HELP ME PLEASE

THANK YOU! >o< I have a

THANK YOU! >o< I have a project concerning this and it's due tomorrow! You helped me A LOT :*

help

hai

please read

how many command buttons were used in this project?thanks:)

hmn,how about the interface?

its interface in vb 6.0..is it the same as the one above?
i am always fascinated upon making a simple calculator,but i am a newbie in vb environment,..i have a lot of questions in my mind regarding the coding.
please help.

hi

can you help me, our instructor want a simple calculator with backspace then the codes are in the module(VB 6)... can you sent a sample. you can send to my yahoomail.
cmaryla@yahoo.com..
we are going to pass today..

Help!!!

hi....i need the source code for calculator program in VC++ to do my project......

Installment Calculator - VB code

Hi,

Can you help me out with the code for an installment calculator, as i require this for my major projet. I am a beginner and i don't know where and how to start. Require the code by 20/08/2009

Much Appreciated

calculator problem

pls give me your calculator codes in Vb.net.,.,
i am a beginner and i don't know where and how to start.. i really need it right now.,.
can u pls send it to me right at this very moment?!!pls
here is my account: slabutap@yahoo.com
tnx!!!Godbless

where?

please give the codes!!!!

e-mail me :)))) PLEEEEEEEEEEEEEEEEEEEEAAAAAAASEEEEEEEEEEEEEEEE.

CALCULATOR help!

i am a 2nd year college IT student. we have a case study to be submitted on tuesday. how can i make a simple calculator using 1 text box only and using an array for the command buttons(for numbers).
please help me. thanks. i really need it...

SCIENTIFIC CALCULATOR

HEY PLS CAN U SEND ME THE THE PROGRAM R CODING FOR THE SCIENTIFIC CALCULATOR.......NEED IT URGENTLY....PLS SEND IT AS SOON AS POSSSIBLE....................
ID:smooth.abi@gmail.com

VB6

send me a code of a simple calculator..NOW !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
THANK YOU.. i need now.. do you understand?? i said now..

you are a tool, do your own

you are a tool, do your own homework

Help Me plz...

Can u send me a code on a simple calculator that can add, subtract, minus and devide..

vb6

hi.....................can you give the code of calculator.because our project!!!!!!!!!!!!

help..

hi there.i am just an it student and im a begginer and it will be great if you can help me and send to me the codes of this calculator for my assignment scientific calculator that will submit 5days from now..thanks a lot it would be a big help for me.:] xxchuke13xx@yahoo.com

Can U SEND ME CODES OF THIS

Can U SEND ME CODES OF THIS VISUAL BASIC PROGRAMS........
MY EMAIL IS swastikaconan@yahoo.com

calculator in vasiual basic 6.0

plz send me a code in calculator that is easy to understand.....

Help Me Plz

I had made program In VB6 using MS-Excel

Column A Column B Column C Column D
EG 0.1 Auto 2.3397648
JAH270CN 0.15 Mannual 3.5096472
JSC-2070 EN 0.2 4.6795296
JSC270CC 0.25 5.849412
JSH270CN-P 0.3 7.0192944
MFZn5-G 0.35 8.1891768
MISC 0.4 9.3590592

Problem is:

Column A is ComboBox 1

Column B is ComboBox 2

Column C is ComboBox 3

I just want that when I select Auto in ComboBox 3, the text Box Answers As in "Column D"

Example If I Select ComboBox 1 As " JSC270CC "

&

Select ComboBox 2 As " 0.25 "

then I select Auto in ComboBox 3

the Answer Must be " 5.849412 " As in Colunm " D "

Hi der!

hi...I am a 4th yr high we are already in visual basic but still i am confuse with the codes.Sometimes the codes are interchange. so I need a little background in doing such thing. I am begging you to please really help me. please...

Ready to help in VB6 Programming

Hi,
Just now, I saw your request,

I am a vb6 programmer and applications designer and algorythms implementer,

If you need support , send me your problems and I will send you my solutions,

Regards
Engineer Maher

hi

a have a problem about programming its how to make a code using combo box . i dont know how so can u help me any kind of program u can send

thanks sorry to disturb

Calculator

there are lots of ways to make a calculator but feel free to use mine

PS. i use visual basic 6.0 for that code

Calculator

use this very simple code for a calculator

Dim e1, e2 As Integer
Private Sub Command2_Click()
e1 = Text1.Text
e2 = Text2.Text
Text3.Text = e1 + e2
End Sub
 
Private Sub Command3_Click()
e1 = Text1.Text
e2 = Text2.Text
Text3.Text = e1 - e2
End Sub
 
Private Sub Command4_Click()
e1 = Text1.Text
e2 = Text2.Text
Text3.Text = e1 / e2
End Sub
 
Private Sub Command5_Click()
e1 = Text1.Text
e2 = Text2.Text
Text3.Text = e1 * e2
End Sub

other things needed
3 text boxes and 4 command buttons it goes up to command 5 but i didn't do the first command button

you do not need to do e1 or e2 you just need two integers
so you can rename e1 or e2 by going to the top and changing the e1 or e2 in
dim e1, e2 as integer

need help

hello!! im 3rd year college IT HERE in samar i read a lot about visual basic and i am interested to learn more about the soure code of different system.. i have a 2 system to create but i dont know how i start.. i dont have an idea to create.. can you help me plzzzz................ just a simple example in a sales monitoring system

CALCULATOR

hi, im raffy, an IT student can you send me the code of the calculator using VB.NET..???
its our project..
PLssssssssssssssssssss .....
here is my e-mail, raffyx44@yahoo.com

thanks a lot..GOD BLESS! MORE POWER!
:D

need elp!!!!

please share ur code to create simple calculator in VB 6 coz this is my project in my preliminary exam....
Please send me in d12_mark08@yahoo.com.ph....

Thank you your kindness and Consideration ^_^

:-)

hi I'm jayson and I'm a IT student. can i copy your codes of calculator in visual basic 6.0 coz i have also a case study.. can you send it to my email: jaysonarquero@yahoo.com

code for backspace

ano b code ng backspace sa VB!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!11

pls give me some example of the code of calculator in Vb6

pls give me some example of the code of calculator in Vb6.,.,
pls.,.because i am a beginer and i dont know how to create tnx a lot.,.
Godbless

UrgEnt....pLzzz........

this calculator is a good example,but the calculator i need to do is not same with you,it has only 0-9 button,(+,-,*,/)for calculation,(%) point (.) and button for the equal.and it has a limit for 10 digits only,and especially if you enter a letter it will not be accepted .. is anyone can help how to do it?im just a bigginner, and i need to finish it for our final exam,plzz....email me at melodynaks@yahoo.com...plzzz..........VB6.0

A Simple Calculator

Pls...could somebody help me with vb codes that will be used for a form use to enter two numbers. There is a button for calculate and options including the four arithmetic operations.

need help

pls, i need the code for a simple calculator, scientific calculator and code for most mathematical questions for student in primary. need this for my project at school. will so much appreciate if the codes could me email to me at tunmi2008@yahoo.com. thanks and God bless you. (any one u r able to answer).

requesting

Dim s As String, k As Integer

Private Sub Command1_Click(Index As Integer)
If ((Index) <= 9 And (Index) >= 0) Then
Text1 = Text1 + Command1(Index).Caption
End If
If ((Index) >= 10 And (Index) <= 0) Then
s = Command1(Index).Caption
k = Val(Text1)
Text1 = " "
End If
If (Index = 14) Then
Select Case s
Case "+"
Text1 = k + Text1
Case "-"
Text1 = k - Text1
Case "*"
Text1 = k * Text1
Case "/"
Text1 = k / Text1
End Select
End If
If (Index = 15) Then
Text1 = " "
End If
If (Index = 17) Then
For i = 0 To 15
Command1(i).Enabled = False
Next i
Command1(17).Enabled = False
Text1.Enabled = False
End If
If (Index = 16) Then
For i = 0 To 17
Command1(i).Enabled = True
Next i
Text1.Enabled = True
Text1.SetFocus
End If
End Sub

Private Sub Form_Load()
s = " "
Form1.WindowState = 2
End Sub

WHAT ERROR IN THIS PROGRAM.. PLS REPLY FOR ME....

Hello

your calculator just same like mine, but without (+/-) and (1/x)....
hahahaha
maybe we can share anything else sometimes...
i'm from indonesia
this is my email: tombol_manroe@yahoo.com
need some reply

simple calculator in VB

HI, good morning this is kristine can i have my favor about simple calculator in visual basic because that's my project thanks so much plse send me in my yahoo. email kris28_lady@yahoo.com.......thanks GOD bless you....so much.

please help me!!!! i really need a help

my email add pretty_emochic@yahoo.com.. please help me or just wanna know the code.. the result is" input three numbers arrange it from lowest to highest-the first one command. the second command is display only the odd number/s else is invisile..
please.. i really hope your reply guys.. send me to my email add written above.. tnx, im waiting
pretty

source code of a simple program

hi to everyone.. i just wanna ask or just wanna know the code , the result is" input three numbers arrange it to lowest to highest -the first one command .. and the second commmand is to display only the odd number else is invisible.. plzz.. help me poh..i really need a help

tnx, hope you appreciated . pretty

hi. PLEASE HELP!! I'M BEGGiNG!

is it related to a program like
the automated voting counter??

kindly pleas help me.
cause it's our requirement in our school.
the automated voting counter project.

i don't know how to start it.
PLEASE HELP ME!

database ion vb6

guys... can somebody assist me on how database is done in vb6... i only new in vb6 is the basics of it

scientific calculator

can somebody send me the vb6 codes for scientifi calculator
please

How to write codes for a search button.

need ur assistance on how to programme a textbox and command button such that the user will type in an existing name in a database and when the cmdbutton is clicked, the name and record will be displayed.

HI GUYS

I`M NEW 2 D COMPUTER SCIENCE WORLD;I NEED comprehensive WEBSITEs and books on vb6

About calculator

The program is not good... it is having some mistakes... It is not a perfect calculator....
becoz, if u click d add or any operations button, 1st time it is not doing d operation...

calculator code

i think calculator code is very good, but i don't understand all. can you help me explain it?

please help me in finding answer for the program

Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
Dim objRegistry As New Registry
If objRegistry.GetKeyValue(HKEY_CURRENT_USER, "Users\Licenses", "Owner Name", m_gsOwnerName) = False Then m_gsOwnerName = ""
If objRegistry.GetKeyValue(HKEY_CURRENT_USER, "Users\Licenses", "Company Name", m_gsCompanyName) = False Then m_gsCompanyName = ""
If objRegistry.GetKeyValue(HKEY_CURRENT_USER, "Users\Licenses", "Serial Number", m_gsSerialNumber) = False Then m_gsSerialNumber = ""
Set objRegistry = Nothing
m_glRegisterNumber = 0
Dim m_lVolume As Long
m_lVolume = GetVolumeInformation("C:\", "", 0, m_glRegisterNumber, 0, 0, "", 0)
m_lVolume = GetVolumeInformation("D:\", "", 0, m_glRegisterNumber, 0, 0, "", 0)
Dim i As Integer
Dim m_CountVal As Long: m_CountVal = 0
Dim m_SerialNo As String: m_SerialNo = ""
For i = 1 To Len(m_gsOwnerName & "")
m_CountVal = m_CountVal + Asc(Mid(m_gsOwnerName & "", i, 1))
Next i
m_SerialNo = m_SerialNo & Hex(m_CountVal + 123456789) & "-OEM-"
m_SerialNo = m_SerialNo & Hex(Abs(m_glRegisterNumber - 999999999)) & "-"
m_CountVal = 0
For i = 1 To Len(m_gsCompanyName & "")
m_CountVal = m_CountVal + Asc(Mid(m_gsCompanyName & "", i, 1))
Next i
m_SerialNo = m_SerialNo & Hex(m_CountVal + 987654321)
If m_gsSerialNumber = m_SerialNo Then
lblVersion.Caption = "Full Version"
m_gbRegistered = True
Else
lblVersion.Caption = "Demo Version"
m_gsSerialNumber = "Not Registered"
m_gbRegistered = False
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Me
End Sub

Private Sub Tmr_Timer()
Tmr.Enabled = False
Unload Me
End Sub

i need a ready pascal...

i need a ready pascal... because i need it to do my project and i do not know nothing...
if someone can get me one.. just send it on my email please... it would be super great...
please... i desperite for a free pascal program... any

vb caculator M+ code

i need only the M+ MR MC MS codes and also the sqrt and the %

u can also check this vb calculator source code

if this also can help u just check it

http://www.caspercomsci.com/pages/vbsource.htm#8

hi

.....where's the code? can i have the source code? can you please send it to my email add...? thanks!

It is listed above - where

It is listed above - where it says download solution here: If you can't find it here it is again: Download Source Code

crap

what's the use of seeing the output when u don't see the code?!
everyone should automatically see the code for this site to be efficient! thanks! crap

You can download the

You can download the code.....

hello vb6'th i am begginer ict student

hi,i am a bignner ict student by ict field in ethiopia,i hope that you are ready to help me ,in this time i want to preview(see)the calculator code so how can i get the code and when you are comfort to send the code please send by my e-mail b/c i have project.thanks.
bye bye solomon from ethiopia

project in vb6 caculator

hi! i'm just a beginner in vb 6 and we have this project in making a calculator.. is it possible if you could teach me how you got it? tnkz..
by the way this is my account mishz_shzu@yahoo.com<<

feel free to email me in this account asap coz i really really need it!! thnkz and hoping for your immediate response!!

vb6 calculator tutorial project!!

hi! i'm just a beginner in vb 6 and we have this project in making a calculator.. is it possible if you could teach me how you got it? tnkz..
by the way this is my account mishz_shzu@yahoo.com<<

feel free to email me in this account asap coz i really really need it!! thnkz and hoping for your immediate response!!

please answer me faster

how we will get the code?
please answer me faster.........................................................

WHERE IS THE CODE

hgfIts Awesome, but WHERES THE CODE
I I think its more useful if WE can view the codes. Tnx

i neeed coding of a calculator in VB6

is my first time to learn Vb6,so we are given an assigntment on creating a calculator,together with its coding and its difficult for me to do the coding.so i need ur help on coding the calculator

The example source code is

The example source code is at the top of the page....

ERROR

hi! your calculator sample was nice yet i encountered an error with it..
when i press 1+2+3 the supposed answer is 6 but when i clicked
= sign the result it generated was 5, another is 9-3/3 its answer is
1 which supposedly 2 so i guess the sample program should be modified.

that's all.
thanks.

can i get this??

can i ask how can i get the code for this calculator??

dis is my account:
czsah.xxvi@yahoo.com

Good Effort

GJ on hu eva creatd ths caturarlco is would be 1 of th best 1s iv seen in ages

SWEET

So this calucuator player will play all the newest songs at the present date?

No its a calculator not an

No its a calculator not an MP3 player.

is it at all possible to

is it at all possible to give the program user the ability to only type numbers, and to reject text?

where's the program?!

where's the program?! all i thought we can get an example f the program

comment

wwell it is a job well done but comments would have been included
to make it more explanatory since it was meant for beginners and not experts. the comments will stand in place of the teacher and will make the program more interactive.

No User Documentation

nice program but poor explanation of what the code does.
Not good example of structured programming without proper documentation and is to confusing because of it for someone new to programming VB

Rading the code

Hi,i wanted to see the code but my machine has no vb installed.
Is it possible? Congrats for workwelldone. Please help

You could try opening the

You could try opening the code using notepad, should allow you to see it.

No documentation

The calculator program is good, but it only works when you use the mouse, not when you type in the commands. Since this is a site that seems to be good for beginning programmers like me, it would be great if there were documentation for the variables declared, functions, etc. I have coded in Turbo Pascal 7.0, Java, and C++, but I still cannot understand Visual Basic 6.

Your not really a begginer

Your not really a begginer programer if you have coded in many other languages like the ones you have listed and i doubt that you could understand C++ but not understand VB6 that is rather strange to me...