首页 > 学院 > 开发设计 > 正文

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

2019-11-18 17:54:53
字体:
来源:转载
供稿:网友
火眼识破隐藏的Variant变量

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

->Dimname'thisisavariant->

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

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

->Dimx,yAsInteger->

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

->DimxAsInteger,yAsInteger->

GoSub在编译程序中速度变慢

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

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

->If(loopNdxMod10)=0ThenDoEvents->

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

->DeclareFunctionGetInputStateLib"user32"Alias"GetInputState"()AsLong

'...

IfGetInputState()ThenDoEvents->

为常量定义合适的类型

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

->value#=value# 1#.->

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

->ConstONEAsDouble=1->

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

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

->IfintValueAnd&H8000Then

'mostsignificantbitisset

EndIf

IflngValueAnd&H80000000Then

'mostsignificantbitisset

EndIf->

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

->IfanyValue<0Then

'mostsignificantbitisset

EndIf->

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

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

->If(x<0Andy<0)Or(x>=0Andy>=0)Then...

'theoptimizedapPRoach

If(xXory)>=0Then->

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

->Ifx>=0Andy>=0Andz>=0Then...

'theoptimizedapproach

If(xOryOrz)>=0Then...->

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

->Ifx<0Andy<0Andz<0Then...

'theoptimizedapproach

If(xAndyAndz)<0Then...->

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

->Ifx=0Andy=0Andz=0Then...

'theoptimizedapproach

If(xOryOrz)=0Then...->

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

->Ifx=0Andy=0Andz=0Then...

'theoptimizedapproach

If(xOryOrz)=0Then...->

  要使用这些来简单化一个复杂的表达式,必须要完全理解boolean型的操作原理。比如,你可能会认为下面的2行代码在功能上是一致的:

->Ifx<>0Andy<>0Then

If(xAndy)Then...->

  然而我们可以轻易地证明他们是不同的,比如X=3(二进制=0011),Y=4(二进制=0100)。不过没有关系,遇到这种情况时,我们可以对上面的代码进行局部优化,就能实现目的。代码如下:

->If(x<>0)AndyThen...->
->


发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表