Visual Basic 6 (VB6)

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

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

is there other code for the calculator

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

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

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

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

you are a tool, do your own homework

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