A simple calculator
Level:
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.
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
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
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
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...
Post new comment