閺€鎯版 (0) +1 鐠э拷 (0) +1 闊拷 (0) +1

正在阅读：巧用Win32 API函数增强VB位操作功能巧用Win32 API函数增强VB位操作功能

2005-09-15 10:14 出处：作者：刘琦责任编辑：moningfeng

2．移位运算的设计实现

　　在很多VB的资料和代码中都用乘以2的方法实现左移，除以2的方法实现右移。这是可行的，也是有理论依据的。下图是一个BYTE类型的权值表：

位序号	7	6	5	4	3	2	1	0
权值	2⁷	2⁶	2⁵	2⁴	2³	2²	2¹	2⁰

　　可以看出每一位的权值都是比它低一位的那一位的权值的2倍，对一个BYTE变量左移一位相当于每一个二进制位都向高位移动，则每一位的权值变为原来的两倍（最高位除外），由于BYTE变量的十进制值等于它的每个二进制位的值和该位权值的乘积的总和，所以把一个BYTE变量左移和把它的十进制值乘以2是等效的，唯一的区别就是如果BYTE变量的最高位为 1，乘以2会溢出，我们要使用一个小技巧防止溢出：先把最高位屏蔽为0，再乘以2就不会溢出了。据此我们可以写出把BYTE类型变量左移1位的函数：

Private Function ShLB_By1Bit(ByVal Byt As Byte) As Byte

‘把BYTE类型变量左移1位的函数，参数Byt是待移位的字节，函数返回移位结果

‘(Byt And &H7F)的作用是屏蔽最高位。 *2：左移一位

ShLB_By1Bit = (Byt And &H7F) * 2

End Function

　　类似的把BYTE类型变量右移1位时采用除以2的方法，这时要注意舍去小数位，以免VB按照四舍五入的方法处理小数位而引起结果不正确。据此我们可以写出把BYTE类型变量右移1位的函数：

Private Function ShRB_By1Bit(ByVal Byt As Byte) As Byte

‘把BYTE类型变量右移1位的函数，参数Byt是待移位的字节，函数返回移位结果

‘/2：右移一位

ShRB_By1Bit = Fix(Byt / 2)

End Function

　　有了移一位的函数，那么移任意位数的函数就不难写出了：只要反复的调用ShLB_By1Bit()或ShRB_By1Bit()就可以了，参见代码中的函数ShLB() 和 ShRB()。