VB中位操作运算函数（Operation function in VB）.docVIP

VB中位操作运算函数（Operation function in VB） Operation function [shift instruction] in VB 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 shift The ROL cycle left the ROR loop to the right RCL carries the carry loop to the left and the RCR carry circulates to the right Bin converts the given data into a binary string method of operation SHL SHR SAL SAR ROL ROR is basically similar, with SHL as an example you can shift the variable type, Byte (Byte), Integer (Integer), Long Integer (Long) Return value True shift succeeds, False shift fails, and False is returned when the non-mentioned type is shifted Num refers to a variable that has to be shifted, and the program will rewrite the value of Num to be the result of the operation The iCL value variable, the number of times shifted, the default value is shifted one time Dim A As Integer A = H10 If SHL A is shifted, then A = H20 Like SHL A, 2 shifted and then A = H40 Like SHL A, 4 displaced RCR is similar to RCL, as an example of RCL there is a need to give a parameter, the carry value of the first shift, iCF Bin, for example, A = H1 If A is in bytes, Bin (A) returns A value ofIf A is an integer, Bin (A) returns the value as 0000000000000001 if it is A long integer, Bin (A) returns A value of 00000000000000000000000000000001 If the incoming parameter is not of the above type, the return value is For more information, please refer to the relevant assembly books Logic 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 And H3FFF) * 2 Or iM