More Faster , More VB User
——VB位操作
为什么VB中不加入位操作的语法元素,我想主要是比尔的电脑比大多数人的电脑要快上几百倍。他可能觉得已经够了。
—— Llib.Setag
这篇文章是用来解决VB中位操作方面的问题,我想。其实这篇文章我来写有点太显摆,因为其中很多代码不是我的原创,虽然其中很多技术虽然早已用过很多回,但是用到位操作上,特别是利用数组来进行高低位取字(字节)是我没有想到的,这是CSDN qiqi5521的功劳,感谢他的代码。
代码中主要用到了三种技术:
数组技术、指针技术、内嵌汇编技术
这三种技术实际上并不是我们所凭空想出来了,基本上是来源于《Hardcore VB》和《Advanced Visual Basic》两书所提出来的方法。虽然这三种技术在一般的VB教课书上是不会提起的,但是由于它具有一定的实用性,在很多地方,特别是要求速度的地方可以加快代码不少的运行速度。关于具体的技术,我不太想在这篇文章中谈,如果有兴趣可以参考我的Blog: http://blog.csdn.net/BlueDog,里面有一个《VB深度下潜》系列,虽然没有写完,但这些技术会陆续提到。
代码、代码、还是代码,对于程序员而言,代码是最好的教课书。代码是我们的生存之道。然而在代码之前,还有几句要说的,在本模块中包括了几个版本的代码,显得有些乱,分别是一般速度、较高速度和最高速版。另外在代码中有两个函数是一定要记得使用,分别是
BitOperatorInit和BitOperatorEnd,这两个函数是分别在位操作前后使用。本模块引用了 WinAPI ANSI Typlib。
来了,代码来了。
建立一个modBit的模块,将以下代码拷入。
Option Explicit
'''' 版本更新记录
''''
'''' 2004-12-23 增加利用内存共享开发新的函数HiByteFastest ......
'''' 本版本新增函数利用CSDN上 qiqi5521的代码进行了改进
''''
Private Type BIT_WORD
LoByte As Byte
HiByte As Byte
End Type
Private Type BIT_DWORD
LoWord As Integer
HiWord As Integer
End Type
Private Type BIT_DWORD_BYTE
LoByte As Byte
SeByte As Byte
ThByte As Byte
HiByte As Byte
End Type
Private BitPower(31) As Long ''''0-31
Private BitRight32Code(23) As Byte
Private SHR32Addr As Long ''''汇编函数地址
Private BitLeft32Code(23) As Byte
Private SHL32Addr As Long ''''汇编函数地址
Private Type SafeArray1d ''''1维数组的 SafeArray 定义
cDims As Integer ''''维数
fFeatures As Integer ''''标志
cbElements As Long ''''单个元素的字节数
clocks As Long ''''锁定计数
pvData As Long ''''指向数组元素的指针
cElements As Long ''''维定义,该维的元素个数
Lbound As Long ''''该维的下界
End Type
Const FADF_AUTO = &H1
Const FADF_FIXEDSIZE = &H10
Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (ptr() As Any) As Long
Private m_SA1DLong As SafeArray1d
Private m_SA1DInt As SafeArray1d
Private m_lSharedLong As Long ''''要被共享的长整形
Private m_aiIntsInLong() As Integer ''''要共享长整形地址空间的整形数组
Private m_lSharedInt As Integer
Private m_aiBytesInInt() As Byte
''''////////////////////////////////////////////////////////////////////////////////////////////////
''''位操作前初使化动作,主要是初使化,如果不进行初使化,将会出现不可预计错误
Public Sub BitOperatorInit()
Dim i As Long
Dim AsmCodeByte
For i = 0 To 30
BitPower(i) = 2 ^ i
Next
BitPower(31) = &H80000000
[1] [2] [3] 下一页 [VB.NET程序]GSM短信模块库函数,可以用VB,VC,调用简单实用 [办公软件]PowerPoint做交互课件之弃用VBA [办公软件]VBA获取U盘、主板、CPU序列号和网卡MAC地址 [办公软件]VBA设置文件属性及加密源代码示例 [办公软件]VBA中初始化ADO连接的几种方法 [网络安全]“VB破坏者变种N”病毒摘要 [Web开发]ASP.NET上传文件到数据库VB版 [办公软件]在Excel中利用VBA实现多表单元格数据的读取与赋值… [办公软件]使用Vba读取已关闭的Excel工作薄数据到当前工作表… [办公软件]Excel编程基础之VBA文件操作详解
|