Atlanta Custom Software Development 

   Search        Code/Page
 

User Login
Email

Password

 

Forgot the Password?
Services
» Web Development
» Maintenance
» Data Integration/BI
» Information Management
Programming
VB VB (1647)
VB.net VB.net (736)
C# C# (15)
ASP.net ASP.net (779)
ASP ASP (41)
VC++ VC++ (25)
PHP PHP (0)
JAVA JAVA (4)
JScript JScript (5)
  Database
» SQL Server (708)
» ORACLE (5)
» MySQL (0)
» DB2 (0)
Automation
» C/C++/ASM (11)
» Microcontroller (1)
» Circuit Design (0)
OS/Networking
» Networking (5)
» Unix/Linux (1)
» WinNT/2k/2003 (8)
Graphics
» Flash (0)
» Maya (0)
» 3D max (0)
» Photoshop (0)
Links
» ASP.net (2)
» PC Interfacing (1)
» Networking (4)
» SQL Server (4)
» VB (23)
» VB.net (4)
» VC (3)
» HTML/CSS/JavaScript (10)
Tools
» Regular Expr Tester
» Free Tools

(Page 1 of 2) 55 Result(s) found 

HiWord, LoWord, HiByte, LoByte, MakeInt and MakeLong
Total Hit (2027)
Rating
RotateLeftI - Rotate an Integer to the left
Total Hit (428) «Code LangId=1»' Rotate an Integer to the left the specified number of times ' ' NOTE: requires Power2() Function RotateLeftI(ByVal value As Integer, ByVal times As Long) As Integer Dim i As Long, signBits As Integer ' no need to rotate more times than required times = time ....Read More
Rating
RotateRight - Rotate a Long to the right
Total Hit (333) «Code LangId=1»' Rotate a Long to the right the specified number of times ' ' NOTE: requires Power2() Function RotateRight(ByVal value As Long, ByVal times As Long) As Long Dim i As Long, signBits As Long ' no need to rotate more times than required times = times Mod 32 ....Read More
Rating
RotateRightI - Rotate an Integer to the right
Total Hit (350) «Code LangId=1»' Rotate an Integer to the right the specified number of times ' ' NOTE: requires Power2() Function RotateRightI(ByVal value As Integer, ByVal times As Long) As Integer Dim i As Long, signBits As Integer ' no need to rotate more times than required times = ti ....Read More
Rating
ShiftLeft - Shift a Long to the left
Total Hit (312) «Code LangId=1»' Shift to the left of the specified number of times ' ' NOTE: requires Power2() Function ShiftLeft(ByVal value As Long, ByVal times As Long) As Long ' we need to create a mask of 1's corresponding to the ' times in VALUE that will be retained in the result Dim mas ....Read More
Rating
ShiftRight - Shift a Long to the right
Total Hit (356) «Code LangId=1»' Shift to the right of the specified number of times ' ' NOTE: requires Power2() Function ShiftRight(ByVal value As Long, ByVal times As Long) As Long ' we need to create a mask of 1's corresponding to the ' digits in VALUE that will be retained in the result Dim ....Read More
Rating
SinH, CosH, TanH, CotH, SecH, CscH - Hyperbolic trig functions
Total Hit (462) «Code LangId=1» ' hyperbolic sine Function SinH(value As Double) As Double Dim temp As Double temp = Exp(value) SinH = (temp - 1 / temp) / 2 End Function ' hyperbolic cosine Function CosH(value As Double) As Double Dim temp As Double temp = Exp(value) CosH = ....Read More
Rating
TriangleArea - Evaluate the area of any triangle given its sides
Total Hit (368) «Code LangId=1»' evaluate the area of a triangle ' given its three sides Function TriangleArea(side1 As Double, side2 As Double, _ side3 As Double) As Double ' this function uses the Heron formula Dim halfP As Double ' evaluate half of the perimeter halfP = (side1 + side ....Read More
Rating
ASin, ACos, ACot, ASec, ACsc - Missing inverse trig functions
Total Hit (730) «Code LangId=1»' arc sine ' error if value is outside the range [-1,1] Function ASin(value As Double) As Double If Abs(value) <> 1 Then ASin = Atn(value / Sqr(1 - value * value)) Else ASin = 1.5707963267949 * Sgn(value) End If End Function ' arc cosine ' er ....Read More
Rating
ASinH, ACosH, ATanH, ACotH, ASecH, ACscH - Hyperbolic inverse trig functions
Total Hit (978) «Code LangId=1» ' hyperbolic arc sine Function ASinH(value As Double) As Double ASinH = Log(value + Sqr(value * value + 1)) End Function ' hyperbolic arc cosine ' error if NUMBER is inside the range [-1,1] Function ACosH(value As Double) As Double ACosH = Log(value + Sqr(value ....Read More
Rating
Atn2 - Arc tangent of Y/X
Total Hit (816) «Code LangId=1»' arc tangent of Y/X - returns values in all four quadrants Function Atn2(x As Double, y As Double) As Double If x = 0 Then Atn2 = Sgn(y) * 1.5707963267949 ElseIf x > 0 Then Atn2 = Atn(y / x) Else Atn2 = Atn(y / x) + 3.14159265358979 * Sgn ....Read More
Rating
Base Conversion module - A module to convert numbers between any bases
Total Hit (960) «Code LangId=1»'----------------------------------------------------------------- ' Module: mBases ' (C) 2000 Trinet Ltd, http://www.trinet.co.uk ' Author: R. Deeming (richard@trinet.co.uk) ' ' Purpose: To provide simple conversion between different ' number ba ....Read More
Rating
Bin - Convert from decimal to binary
Total Hit (638) «Code LangId=1»' convert from decimal to binary ' if you pass the Digits argument, the result is truncated ' to that number of digits ' Function Bin(ByVal value As Long, Optional digits As Long = -1) As String Dim result As String, exponent As Integer ' this is faster than creating t ....Read More
Rating
BinToDec - Convert from binary to decimal
Total Hit (1428) «Code LangId=1»' convert from binary to decimal ' Function BinToDec(value As String) As Long Dim result As Long, i As Integer, exponent As Integer For i = Len(value) To 1 Step -1 Select Case Asc(Mid$(value, i, 1)) Case 48 ' "0", do nothing Case 4 ....Read More
Rating
BitClear - Clear a bit in a value
Total Hit (583) «Code LangId=1»Function BitClear(ByVal value As Long, ByVal bit As Long) As Long ' simply AND with the negation of the bit mask ' Range checking is performed in Power2() BitClear = (value And Not Power2(bit)) End Function ' Raise 2 to a power ' the exponent must be in the range [ ....Read More
Rating
BitCount - The number of "1" bits in a number
Total Hit (534) «Code LangId=1» ' The number of 1's in a binary number ' ' This routine is based on the following property ' of binary numbers: n And (n-1) always clears the ' least significant "1" bit in the number Function BitCount (ByVal number As Long) As Integer Do While number number = ....Read More
Rating
BitSet - Set a bit in a number
Total Hit (562) «Code LangId=1»' Set a bit in a value ' ' NOTE: requires Power2() Function BitSet(ByVal value As Long, ByVal bit As Long) As Long ' simply OR with the bit mask ' Range checking is performed in Power2() BitSet = (value Or Power2(bit)) End Function ' Raise 2 to a power ' the e ....Read More
Rating
BitTest - Test the value of a bit
Total Hit (612) «Code LangId=1»' Test the value of a bit ' ' NOTE: requires Power2() Function BitTest(ByVal value As Long, ByVal bit As Long) As Boolean ' simply AND with the bit mask ' Range checking is performed in Power2() BitTest = (value And Power2(bit)) End Function ' Raise 2 to a po ....Read More
Rating
BitToggle - Invert a bit in a value
Total Hit (592) «Code LangId=1»' Toggle a bit in a value ' ' NOTE: requires Power2() Function BitToggle(ByVal value As Long, ByVal bit As Long) As Long ' simply XOR with the negation of the bit mask ' Range checking is performed in Power2() BitToggle = (value Xor Power2(bit)) End Function ....Read More
Rating
CComplexNumber - A class for dealing with complex numbers
Total Hit (602) «Code LangId=1»Option Explicit '------------------------------------------ ' A class for dealing with complex numbers '------------------------------------------ ' The main properties Public Real As Double Public Imaginary As Double ' Initialize this complex number ' (returns Me) Fu ....Read More
Rating
Ceiling - The integer equal or higher than a given value
Total Hit (540) «Code LangId=1»' Returns the integer equal or higher than its argument Function Ceiling(Number As Double) As Long Ceiling = -Int(-Number) End Function «/Code»
Rating
CelsiusToFahrenheit, FahrenheitToCelsius - Convert temperature values
Total Hit (560) «Code LangId=1»' Returns the integer equal or higher than its argument Function Ceiling(Number As Double) As Long Ceiling = -Int(-Number) End Function «/Code»
Rating
Combinations - The number of combinations of N objects in groups of N
Total Hit (517) «Code LangId=1»' number of Combinations of N objects in groups of M ' ' Note: requires the FACTORIAL routine Function Combinations(ByVal Objects As Long, ByVal GroupSize As Long) As Double Combinations = (Factorial(Objects) / Factorial(Objects - GroupSize)) / _ Factorial(GroupSize ....Read More
Rating
Cot, Sec, Csc - Missing trig functions
Total Hit (648) «Code LangId=1»' Cotangent of an angle Function Cot(radians As Double) As Double Cot = 1 / Tan(radians) End Function ' Secant of an angle Function Sec(radians As Double) As Double Sec = 1 / Cos(radians) End Function ' cosecant of an angle Function Csc(radians As Double) As ....Read More
Rating
Crc16 - Evaluate the 16-bit CRC of an array of bytes
Total Hit (714) «Code LangId=1»Option Explicit ' Evalutate the 16-bit CRC (Cyclic Redundancy Checksum) of an array of bytes ' ' If you omit the second argument, the entire array is considered Function Crc16(cp() As Byte, Optional ByVal Size As Long = -1) As Long Dim i As Long Dim fcs As Long Static ....Read More
Rating
Dec2Any - Convert a decimal number to any other base
Total Hit (604) «Code LangId=1»' convert a number to any base ' BASE can be in the range 2-36 Function Dec2Any(ByVal number As Long, ByVal base As Integer) As String Dim index As Long Dim digits As String Dim digitValue As Long ' check base If base < 2 Or base > 36 Then Err.Raise ....Read More
Rating
DecToFrac - Converts a decimal number into a fraction
Total Hit (403) «Code LangId=1»' Converts a decimal value into fractional parts as integers ' (based on the concept of Continued Fractions) ' Examples of usage: ' Call DeclToFrac(0.125, a, b) ' 1 and 8 are returned in a & b ' Call DecToFrac(5/40, a, b) ' 1 and 8 are also returned ' Call DecToFrac(2/3 ....Read More
Rating
DegreesToRadians, RadiansToDegrees - Convert from radians to degrees and back
Total Hit (401) «Code LangId=1»' convert from degrees to radians Function DegreesToRadians(ByVal degrees As Single) As Single DegreesToRadians = degrees / 57.29578 End Function ' convert from radians to degrees Function RadiansToDegrees(ByVal radians As Single) As Single RadiansToDegrees = radia ....Read More
Rating
Factorial - The factorial of a number
Total Hit (423) «Code LangId=1»' The factorial of a number ' ' if NUMBER is negative or >170 it raises an ' "subscript out of range" error Function Factorial(ByVal number As Long) As Double Static result(170) As Double ' this routine is very fast because it ' caches all the possible resul ....Read More
Rating
Fract - The fractional portion of a number
Total Hit (329) «Code LangId=1»' The fractional part of a floating-point number ' note that negative numbers return negative values Function Fract(number As Variant) As Variant Fract = number - Fix(number) End Function «/Code»
Rating


(Page 1 of 2) 55 Result(s) found  1 2

Recommanded Links

 

Home   |  Comment   |  Contact Us   |  Privacy Policy   |  Terms & Conditions   |  Blogs

© 2008 BinaryWorld LLC. All rights reserved.