bit.bas

自己编写的

Attribute VB_Name = "BitModule"
Option Explicit

'这是关于位操作的　bit.dll　的函数声明，该dll 在　PureBasic　中写成。
'曾劲松　2005/6/8

'按位与或非
Public Declare Function BitAnd Lib "bit" (ByVal a As Long, ByVal b As Long) As Long
Public Declare Function BitOr Lib "bit" (ByVal a As Long, ByVal b As Long) As Long
Public Declare Function BitXOR Lib "bit" (ByVal a As Long, ByVal b As Long) As Long

'移位操作
Public Declare Function shl Lib "bit" (ByVal NumberToBeShifted As Long, ByVal BitCount As Long) As Long
Public Declare Function shr Lib "bit" (ByVal NumberToBeShifted As Long, ByVal BitCount As Long) As Long

'取高低
'取高字节，对于一个３２位的整数，则是取低字的高字节
Public Declare Function HiByte Lib "bit" (ByVal a As Long) As Long
'取低字节，对于一个３２位的整数，则是取低字的低字节
Public Declare Function LoByte Lib "bit" (ByVal a As Long) As Long
Public Declare Function HiWord Lib "bit" (ByVal a As Long) As Long
Public Declare Function LoWord Lib "bit" (ByVal a As Long) As Long