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