Readygo技术搜索引擎 网络搜索 efish 2008-1-17 7:17:18

计算机运行速度

楼主egxsun（）2003-06-30 14:17:54 在 VB / 基础类 提问

我做的文字显示效果在不同的机子上运行速度不一样，有什么办法先得到计算机的运行速度？如果能得到速度，我就可以在显示效果时加上参数，进而得到显示一帧化费的时间。我不想用时间控件或延时的方法来控制时间，那样显示效果不是很好。我想在for循环里控制step的值。  
  问题点数：20、回复次数：3Top

1 楼rainstormmaster（暴风雨 v2.0）回复于 2003-06-30 14:26:27 得分 0

不好，建议使用timer控件Top

2 楼egxsun（）回复于 2003-06-30 14:55:55 得分 0

使用timer控件是可以控制时间，但是像文字左移时移动一步就会停顿一会儿，这样就会有一顿一顿的感觉，效果不是很好。我想控制step值。但是各个计算机运行速度不一样，能不能得到cpu速度？  
  Top

3 楼waterytimes（似水流年）回复于 2003-06-30 15:16:21 得分 20

Declare   Function   GetTickCount   Lib   "kernel32"   Alias   "GetTickCount"   ()   As   Long  
   
  GetTickCount用于获取自windows启动以来经历的时间长度（毫秒）  
   
          Dim   NextTick   As   Long  
          Do   Until   ExitApp  
                  Do   Until   GetTickCount   >   NextTick  
                          DoEvents  
                          """""""添代码  
                  Loop:   NextTick   =   GetTickCount   +   50  
                   
          LoopTop