


IM = "ImportantMessage"

Function hamid(f)
hamid = 6 * f
End Function


Function Saeed(k, l, j, kj)
Saeed = CDbl(k) + CDbl(l) + CDbl(j) + CDbl(kj)
End Function


Function Safr(l, k, j, g, f, d, s, t)
Safr = CDbl(l) + CDbl(k) + CDbl(j) + CDbl(g) + CDbl(f) + (CDbl(d) * CDbl(s) * (CDbl(t)) ^ 2)
End Function


Function hx(l)
hx = Hex(l)
End Function

Function Cat(g)
Cat = 2 * g
End Function

Sub Cash()
i = 5
MsgBox "Hamid"
End Sub


Function Ana(a, b, c)
If b ^ 2 - 4 * a * c > 0 Then
x = (-b + (b ^ 2 - 4 * a * c) ^ 0.5) / (2 * a)
y = (-b - (b ^ 2 - 4 * a * c) ^ 0.5) / (2 * a)
MsgBox "X1=" & x
MsgBox "X2=" & y
Ana = x
Else
MsgBox "Not Defined"
End If
End Function



' Hyperbolic Tangent
Function HTan(x)
HTan = (Exp(x) - Exp(-x)) / (Exp(x) + Exp(-x))
End Function

' Hyperbolic Secant
Function HSec(x)
HSec = 2 / (Exp(x) + Exp(-x))
End Function

' Hyperbolic Cosecant
Function HCoSec(x)
HCoSec = 2 / (Exp(x) - Exp(-x))
End Function

' Hyperbolic Cotangent
Function HCotan(x)
HCotan = (Exp(x) + Exp(-x)) / (Exp(x) - Exp(-x))
End Function

' Inverse Hyperbolic Sine
Function HArcSin(x)
HArcSin = Log(x+Sqr(x*x+1))
End Function

' Inverse Hyperbolic Cosine
Function HArcCos(x)
HArcCos = Log(x + Sqr(x * x - 1))
End Function

Function HArcTan(x)
HArcTan = Log((1 + x) / (1 - x)) / 2
End Function

Function HArcSec(x)
HArcSec = Log((Sqr(-x * x + 1) + 1) / x)
End Function

' Inverse Hyperbolic Cosecant
Function HArcCoSec(x)
HArcCoSec = Log((Sgn(x) * Sqr(x * x + 1) + 1) / x)
End Function

' Inverse Hyperbolic Cotangent
Function HArcCoTan(x)
HArcCoTan = Log((x + 1) / (x - 1)) / 2
End Function

Function DecToBin(getNumber)
getValue = Hex(getNumber)     'Using Built in Function
getValue = HexToBin(getValue) ' Converting to ours one
Do While Left(getValue, 1) = "0"
getValue = Mid(getValue, 2)
Loop
DecToBin = getValue
End Function


Function HexToBin(getNumber)
For i=1 To Len(getNumber)
gh=Mid(getNumber,i,1)
Select Case gh
Case "0"  
getValue = "0000"
Case "1"
getValue = "0001"
Case "2"
getValue = "0010"
Case "3"
getValue = "0011"
Case "4"
getValue = "0100"
Case "5"
getValue = "0101"
Case "6"
getValue = "0110"
Case "7"
getValue = "0111"
Case "8"
getValue = "1000"
Case "9"
getValue = "1001"
Case "A"
getValue = "1010"
Case "B"
getValue = "1011"
Case "C"
getValue = "1100"
Case "D"
getValue = "1101"
Case "E"
getValue = "1110"
Case "F"
getValue = "1111"
'Case Else
End Select
getOutPut = getOutPut & getValue
Next
HexToBin = getOutPut
End Function


Function BinToHex(getNumber)
getLen=Len(getNumber)
getLen=Int(getLen/4+1)*4
getNumber=Right(String(getLen,"0") & getNumber, getLen)
For getNum=1 To getLen Step 4
gh=Mid(getNumber,getNum,4)
Select Case gh
Case "0000"
getValue = "0"
Case "0001"
getValue = "1"
Case "0010"
getValue = "2"
Case "0011"
getValue = "3"
Case "0100"
getValue = "4"
Case "0101"
getValue = "5"
Case "0110"
getValue = "6"
Case "0111"
getValue = "7"
Case "1000"
getValue = "8"
Case "1001"
getValue = "9"
Case "1010"
getValue = "A"
Case "1011"
getValue = "B"
Case "1100"
getValue = "C"
Case "1101"
getValue = "D"
Case "1110"
getValue = "E"
Case "1111"
getValue = "F"
Case Else
getValue = ""
End Select
getOutPut = getOutPut & getValue
Next
BinToHex = getOutPut
End Function



