VB中位操作运算函数.docxVIP

VB中位操作运算函数 VB function (shift instruction) the Module: BitPlus? Bas Code By Hermit @smth, Jun. 1st, 2000 Email: mailtocw@sohu. com 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 srithmetic 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 cdn 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 ，zNum 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 二 hlO 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 in put value of the first shift, iCF Bin, for example, A 二 III If A is byte, Bin (A) returns the value as If A is an integer, Bin (A) returns the value as ,,ooooooooooooooor, If A is A long integer, then Bin (A) returns the value as ,,ooooooooooooooooooooooooooooooooooor, 〃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 ByVai iCL As Byte 二 1) As Boolean Dim I As Byte Dim bMask As Byte, iMask As Integer, IMask 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