[已解决]计时效果

大灰狼1976

总结出规律，步进精度越低，时间准确性越高。

爱疯

我又比较了下：
4#共循环250次，每次暂停6毫秒。如果其他内容不耗时的话，整个变化周期是1.5秒。
这样，就与指定时间无关了。

7#共循环360次，每次暂停n / 360 * 0.8秒。我不知道为什么要*0.8，
360 次 * ( n / 360 ) = n 秒
这样不乘才对啊？难道是为减小误差而估计的参数？在测试1秒，2秒等小数值时，误差很大。

大灰狼1976

0.8确实是估计值，我已经去掉了，你降低精度试一下

爱疯

大灰狼1976 发表于 2013-6-28 23:05
0.8确实是估计值，我已经去掉了，你降低精度试一下

我不知道“降低精度”是指改什么内容？

大灰狼1976

比如把360改成36，只是举个例子

爱疯

1. 
   
2. Sub a()
   
3.     Dim n As Double     '总耗时
   
4.     Dim x As Double     '刷新次数
   
5.     Dim y As Double     '每次耗时
   
6.     Dim t1 As Double, t2 As Double
   
7.     Dim i As Integer
   
8. 
   
9.     n = 2
   
10.     x = 10
    
11.     y = n / x
    
12.    
    
13.     '次数 * 每次耗时 = 总耗时
    
14.     t1 = Timer
    
15.     For i = 1 To x
    
16.         t2 = Timer
    
17.         Do While Timer - t2 < y
    
18.             DoEvents
    
19.             Debug.Print "循环", Timer - t2
    
20.         Loop
    
21.         Debug.Print "结束", Timer - t2
    
22.     Next i
    
23.     MsgBox Timer - t1
    
24.    
    
25. End Sub
    
26. 
    

复制代码

毛病：do语句结束之后，实际每次耗时总比设定值y（0.2）多了一点点。比如我这里测试每次都是0.203125。

不知有啥办法解决

xdd_sky

爱疯 发表于 2013-6-28 22:04
谢谢xdd_sky!

学习了！效果的感觉很不错

精确控制在3s内完成    你可以在你电脑上测试下、、、如果时间太短  就无法精确控制了。。。

爱疯

xdd_sky 发表于 2013-6-29 10:29
精确控制在3s内完成    你可以在你电脑上测试下、、、如果时间太短  就无法精确控制了。。。

我觉得，17#的方法又好了很多，学习了！
我理解，16#和17#都产生了 i 个误差。而最终结果里：
16#有 i * 1 个误差
17#只 1 个误差

250就像是静止画面的次数，250/n则相当于帧（画面次数/秒）。帧数越大越流畅，误差也越大。
删掉图例，将图表大小变小，应该是（内存或显存）开销变少了，误差也小了，更准了。