VBcoders Guest



Don't have an account yet? Register
 


Forgot Password?



A calculator code snippet, which has so many scientific functions. (Like Sin, Sec, ArcSin, Tan, Csc

by Jamal 331 (5 Submissions)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 31st May 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)

A calculator code snippet, which has so many scientific functions. (Like Sin, Sec, ArcSin, Tan, Csc.) It is considered a scientific

API Declarations


Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5
Dim number1 As Double
Dim number2 As Double
Dim numrecall As Double
Dim numrecallb As Double
Dim operation As String
Private Declare Function FlashWindow Lib "user32" (ByVal hWnd As Long, ByVal bInvert As Long) As Long

Rate A calculator code snippet, which has so many scientific functions. (Like Sin, Sec, ArcSin, Tan, Csc



txtnumber.Text = Atn(-txtnumber.Text / Sqr(-txtnumber.Text * txtnumber.Text + 1)) + 2 * Atn(1)
End Sub

Private Sub cmdAcosh_Click()
txtnumber.Text = Log(txtnumber.Text + Sqr(txtnumber.Text * txtnumber.Text + 1))
End Sub

Private Sub CmdAcot_Click()
txtnumber.Text = 1 / (Atn(txtnumber.Text))
End Sub

Private Sub cmdAcoth_Click()
txtnumber.Text = 1 / (Log((1 + txtnumber.Text) / (1 - txtnumber.Text)) / 2)
End Sub

Private Sub cmdacsc_Click()
txtnumber.Text = 1 / (Atn(txtnumber.Text / Sqr(-txtnumber.Text * txtnumber.Text + 1)))
End Sub


Private Sub cmdacsch_Click()
txtnumber.Text = 1 / (Log(txtnumber.Text + Sqr(txtnumber.Text * txtnumber.Text + 1)))
End Sub

Private Sub cmdasec_Click()
txtnumber.Text = 1 / (Atn(-txtnumber.Text / Sqr(-txtnumber.Text * txtnumber.Text + 1)) + 2 * Atn(1))
End Sub

Private Sub cmdAsech_Click()
txtnumber.Text = 1 / (Log(txtnumber.Text + Sqr(txtnumber.Text * txtnumber.Text + 1)))
End Sub

Private Sub cmdAsin_Click()
txtnumber.Text = Atn(txtnumber.Text / Sqr(-txtnumber.Text * txtnumber.Text + 1))
End Sub

Private Sub cmdAsinh_Click()
txtnumber.Text = Log(txtnumber.Text + Sqr(txtnumber.Text * txtnumber.Text + 1))
End Sub

Private Sub cmdatan_Click()
txtnumber.Text = Atn(txtnumber.Text)
End Sub

Private Sub cmdatanh_Click()
txtnumber.Text = Log((1 + txtnumber.Text) / (1 - txtnumber.Text)) / 2
End Sub

Private Sub cmdBackspace_Click()
txtnumber.Text = _
                    Mid(txtnumber, 1, Len(txtnumber.Text) - 1)
If txtnumber.Text = "" Then
    txtnumber = "0."
End If
End Sub

Private Sub cmdC_Click()
    number2 = txtnumber
'    number2 = ""
    txtnumber = "0."
End Sub



Private Sub cmdCos_Click()
txtnumber.Text = Cos(txtnumber.Text)
End Sub

Private Sub cmdCosh_Click()
txtnumber.Text = (Exp(txtnumber.Text) + Exp(-txtnumber.Text)) / 2
End Sub

Private Sub cmdCot_Click()
txtnumber.Text = 1 / Tan(txtnumber.Text)
End Sub

Private Sub cmdCoth_Click()
txtnumber.Text = 1 / ((Exp(txtnumber.Text) - Exp(-txtnumber.Text)) / (Exp(txtnumber.Text) + Exp(-txtnumber.Text)))
End Sub

Private Sub cmdCsc_Click()
txtnumber.Text = 1 / Sin(txtnumber.Text)
End Sub

Private Sub cmdcsch_Click()
txtnumber.Text = 1 / ((Exp(txtnumber.Text) - Exp(-txtnumber.Text)) / 2)
End Sub

Private Sub cmdDiv_Click()
    number1 = Val(txtnumber)
    operation = "/"
    txtnumber = "0."
End Sub

Private Sub cmde_Click()
txtnumber.Text = Exp(1)
End Sub

Private Sub cmdEight_Click()
If txtnumber = 0 Then
    txtnumber = 8
Else
    txtnumber = txtnumber & 8
End If
End Sub

Private Sub cmdEqual_Click()
number2 = txtnumber
txtnumber = "0"
    Select Case operation
    Case "+"
        txtnumber = number1 + number2
    Case "-"
        txtnumber = number1 - number2
    Case "*"
        txtnumber = number1 * number2
    Case "/"
        txtnumber = number1 / number2
    Case "^"
     txtnumber = number1 ^ number2
    End Select
End Sub

Private Sub cmdetox_Click()
txtnumber.Text = Exp(txtnumber.Text)
End Sub

Private Sub cmdFive_Click()
If txtnumber = 0 Then
    txtnumber = 5
Else
    txtnumber = txtnumber & 5
End If
End Sub

Private Sub cmdFour_Click()
If txtnumber = 0 Then
    txtnumber = 4
Else
    txtnumber = txtnumber & 4
End If
End Sub
Private Sub cmdinverse_Click()
txtnumber.Text = txtnumber.Text ^ -1
End Sub

Private Sub cmdln_Click()
txtnumber.Text = Log(txtnumber.Text)
End Sub

Private Sub cmdMul_Click()
    number1 = Val(txtnumber)
    operation = "*"
    txtnumber = "0."
End Sub

Private Sub cmdNine_Click()
If txtnumber = 0 Then
    txtnumber = 9
Else
    txtnumber = txtnumber & 9
End If
End Sub

Private Sub cmdOne_Click()
If txtnumber = 0 Then
    txtnumber = 1
Else
    txtnumber = txtnumber & 1
End If
End Sub



Private Sub cmdpi_Click()
txtnumber.Text = 3.14159265358979
End Sub

Private Sub cmdPlus_Click()
    number1 = Val(txtnumber)
    operation = "+"
    txtnumber = "0."
End Sub

Private Sub cmdplusminus_Click()
txtnumber = "-" & txtnumber
End Sub

Private Sub cmdpoint_Click()
    txtnumber = txtnumber & "."
End Sub


Private Sub CmdSec_Click()
txtnumber.Text = 1 / Cos(txtnumber.Text)
End Sub

Private Sub cmdSech_Click()
txtnumber.Text = 1 / ((Exp(txtnumber.Text) + Exp(-txtnumber.Text)) / 2)
End Sub

Private Sub cmdSeven_Click()
If txtnumber = 0 Then
    txtnumber = 7
Else
    txtnumber = txtnumber & 7
End If
End Sub

Private Sub cmdSin_Click()
txtnumber.Text = Sin(txtnumber.Text)
End Sub

Private Sub cmdSinh_Click()
txtnumber.Text = (Exp(txtnumber.Text) - Exp(-txtnumber.Text)) / 2
End Sub

Private Sub cmdSix_Click()
If txtnumber = 0 Then
    txtnumber = 6
Else
    txtnumber = txtnumber & 6
End If
End Sub

Private Sub cmdSqrt_Click()
    number1 = Val(txtnumber.Text)
    txtnumber = Math.Sqr(number1)
End Sub

Private Sub cmdsquared_Click()
txtnumber.Text = txtnumber.Text ^ 2
End Sub

Private Sub cmdSub_Click()
    number1 = Val(txtnumber)
    operation = "-"
    txtnumber = "0."
End Sub

Private Sub cmdTan_Click()
txtnumber.Text = Tan(txtnumber.Text)
End Sub

Private Sub cmdTanh_Click()
txtnumber.Text = (Exp(txtnumber.Text) - Exp(-txtnumber.Text)) / (Exp(txtnumber.Text) + Exp(-txtnumber.Text))
End Sub

Private Sub cmdtentox_Click()
txtnumber.Text = 10 ^ txtnumber.Text
End Sub

Private Sub cmdThree_Click()
If txtnumber = 0 Or txtnumber = "" Then
    txtnumber = 3
Else
    txtnumber = txtnumber & 3
End If
End Sub

Private Sub cmdTwo_Click()
If txtnumber = 0 Then
    txtnumber = 2
Else
    txtnumber = txtnumber & 2
End If
End Sub

Private Sub cmdxy_Click()
 number1 = Val(txtnumber)
    operation = "^"
    txtnumber = "0."
End Sub

Private Sub cmdZero_Click()
If txtnumber = 0 Then
    txtnumber = 0
End If
End Sub

End Sub

Download this snippet    Add to My Saved Code

A calculator code snippet, which has so many scientific functions. (Like Sin, Sec, ArcSin, Tan, Csc Comments

No comments have been posted about A calculator code snippet, which has so many scientific functions. (Like Sin, Sec, ArcSin, Tan, Csc. Why not be the first to post a comment about A calculator code snippet, which has so many scientific functions. (Like Sin, Sec, ArcSin, Tan, Csc.

Post your comment

Subject:
Message:
0/1000 characters