云外归鸟工作室网站

标题: 精准计时 [打印本页]

作者: 云外归鸟 时间: 2010-10-7 19:57
标题: 精准计时
原作者:esir
核心代码：

'取出CPU周期时间作为计时依据。
'其中的输出格式： 1,秒;2,毫秒;3,微秒;4,纳秒;5,皮秒;为空则为毫秒
函数精准计时(传值输出格式为整数型) 为双精度小数型
变量 Counter 为 LARGE_INTEGER
变量 Frequency 为 LARGE_INTEGER
变量 Result1  为  双精度小数型
QueryPerformanceCounter (@Counter)    '查询系统以得到QueryPerformanceCounter()返回的嘀哒声的频率
QueryPerformanceFrequency (@Frequency)  'QueryPerformanceFrequency()提供了这个频率值,返回每秒嘀哒声的个数
Result1=Counter.QuadPart/Frequency.QuadPart
判断分支输出格式
  分支 1
返回 Result1*1
  分支 2 或 0
返回 Result1*1000
  分支 3
返回 Result1*1000000
  分支 4
返回 Result1*1000000000
  分支 5
返回 Result1*1000000000000
结束

[attach]68[/attach]

欢迎光临云外归鸟工作室网站 (http://www.ywgn.net/)