VB“超频”秘籍之隐藏的Variant变量

时间:2010-01-27 11:10:37  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:明Option Explicit语句时,任何变量都是Variants类型。    许多开发者,特别是那些先前是C程序员的人,都会深信下面的语句将声明2个Interger类型变量: Dim x, y As Integer    而实际上,x被声明为了variant类型。由于variant类型变量要比Integer类型慢很多,所以要特别注意这种情况。正确的一行声明...
  正文:

火眼识破隐藏的Variant变量

   如果没有用As语句声明变量,默认类型就是Variants,比如:

Dim name ' this is a variant

   或者,当前模块下没有声明Option Explicit语句时,任何变量都是Variants类型。

   许多开发者,特别是那些先前是C程序员的人,都会深信下面的语句将声明2个Interger类型变量:

Dim x, y As Integer

   而实际上,x被声明为了variant类型。由于variant类型变量要比Integer类型慢很多,所以要特别注意这种情况。正确的一行声明方法是:

Dim x As Integer, y As Integer

GoSub在编译程序中速度变慢

   编译为本地代码vb应用程序中,如果使用 GoSubs 命令,就会比通常的 Subs 或者 Function 调用慢5-6倍;相反,如果是p-code模式,就会相当快。 减少DoEvents语句的数量

   不要在代码中放置不必要的DoEvents语句,尤其是在时间要求高的循环中。遵循这个原则,至少能在循环中的每N次反复时才执行DoEvents语句,从而增强效率。比如使用下面的语句:

If (loopNdx Mod 10) = 0 Then DoEvents

   如果只是使用DoEvents来屏蔽鼠标以及键盘操作,那么就可以在事件队列中存在待处理项目时调用它。通过API函数GetInputState来检查这个条件的发生:

Declare Function GetInputState Lib "user32" Alias "GetInputState" () As Long

' ...

If GetInputState() Then DoEvents

为常量定义合适的类型

   VB在内部使用最简单、最可能的数据类型保存符号数值,这意味着最通常的数字类型-比如0或者1-都按照Integer类型存储。如果在浮点表达式中使用这些常量,可以通过常量的合适类型来加速程序运行,就象下面的代码:

value# = value# + 1#.

   这个语句强迫编译器按照Double格式存储常量,这样就省却了运行时的隐含转换工作。还有另外的一种处理方法就是:在常量声明时就进行相应类型的定义,代码如下:

Const ONE As Double = 1

And、Or和Xor:让我们来优化表达式

   要检测一个整数值的最高有效位是否有数值,通常要使用如下的代码(有二种情况:第一组If判断表明对Integer类型,第二组对Long类型):

If intValue And &H8000 Then

' most significant bit is set

End If

If lngValue And &H80000000 Then

' most significant bit is set

End If

   但由于所有的VB变量都是有符号的,因此,最高有效位也是符号位,不管处理什么类型的数值,通过下面的代码就可以实现检测目的:

If anyValue < 0 Then

' most significant bit is set

End If

   另外,要检测2个或者更多个数值的符号,只需要通过一个Bit位与符号位的简单表达式就可以完成。下面是应用这个技术的几段具体代码:

   1、判断X和Y是否为同符号数值:

If (x < 0 And y < 0) Or (x >= 0 And y >=0) Then ...

' the optimized approach

If (x Xor y) >= 0 Then

   2、判断X、Y和Z是否都为正数

If x >= 0 And y >= 0 And z >= 0 Then ...

' the optimized approach

If (x Or y Or z) >= 0 Then ...

   3、判断X、Y和Z是否都为负数

If x < 0 And y < 0 And z < 0 Then ...

' the optimized approach

If (x And y And z) < 0 Then ...

   4、判断X、Y和Z是否都为0

If x = 0 And y = 0 And z = 0 Then ...

' the optimized approach

If (x Or y Or z) = 0 Then ...

   5、判断X、Y和Z是否都不为0

VB“超频”秘籍之隐藏的Variant变量》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/VB/12487.html


关键字:

关于《VB“超频”秘籍之隐藏的Variant变量》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td