VB中位操作运算函数(国外英语资料).doc

VB中位操作运算函数(国外英语资料) VB function (shift instruction) the Module: BitPlus. Bas Code By Hermit @smth, Jun. 1st, 2000 Email: mailtocw@ May these functions will help you, and Please keep this header if you use my code, thanks! provides a function of bit-operation in VB the SHL logic moves the SHR logic to the right SAL arithmetic left SAR arithmetic right the ROL loop left the ROR loop to the right RCL carries the carry loop to the left and the RCR carry circulates to the right Bin translates the given data into a 2-point string usage SHR SHR SAL SAR ROL ROR is basically the same, as an example of SHL you can shift the variable type, Byte (Byte), Integer (Integer), Long Integer (Long) return value True is shifted successfully, False shift fails, and False is returned when the non-afore-mentioned type is shifted Num passes reference variable, which is shifted, and the program overwrites the value of Num to the result of the operation The iCL value variable, the number of times shifted, the default value is shifted one time Example Dim A As Integer A = h10 if SHL A is shifted, A = H20 like SHL A, 2 shifted like SHL A, 4 shifted RCR is similar to RCL, as an example of RCL there is a need for a given parameter, the input value of the first shift, iCF Bin, for example, A = H1 If A is byte, Bin (A) returns the value asIf A is an integer, Bin (A) returns the value as 0000000000000001 If A is A long integer, then Bin (A) returns the value as 000000000000000000000000000000000001 If the incoming parameter is not of the above type, the return value is For more information, please refer to the relevant assembly books logical left The Public Function SHL (ByRef Num As Variant, Optional ByVal iCL As Byte = 1) As Boolean Dim I As Byte Dim bMask As Byte, iMask As Integer, lMask As Long The Select Case VarType (Num) Case 2 16 bits For I = 1 To iCL IMask = 0 If (Num And H4000) , Then iMask = h8000 Num = (Num) Next Case 3 32 bits For I = 1 To iCL LMask = 0 If (Num And/H400000