"时间_取间隔_结束"改进

Mr.Yang

优化:受第一次执行时取频率的影响 而造成的微量时间误差.

现在能确保从开始到结束的区间内不会执行其他代码 而对结果造成影响.

时间_取间隔.e (8.14 KB, 下载次数: 14)

2020-4-7 02:39 上传

点击文件名下载附件

  

子程序名	返回值类型	公开	备 注
时间_取间隔_结束	文本型		取微秒级时间间隔.返回间隔时间.[Mr.Yang提供]
参数名	类 型	参考	可空	数组	备 注
标记	文本型				用于区分不同的时间.与"时间_取间隔_开始"对应.

变量名	类 型	静态	数组	备 注
Count	LARGE_INTEGER
Frequency	LARGE_INTEGER
a	整数型
i	整数型
间隔时间	双精度小数型
局_时	整数型
局_分	整数型
局_秒	整数型
局_毫秒	双精度小数型
返回文本	文本型

QueryPerformanceCounter (Count)
如果真 (Frequency.QuadPart ＝ 0)  ' 获取HPET频率
QueryPerformanceFrequency (Frequency)
标记 ＝ 选择 (标记 ＝ “”, “耗时”, 标记)
计次循环首 (取数组下标 (时间标记, 1), i)
如果真 (时间标记 [i] [1] ＝ 标记)  ' 标记已存在
a ＝ i
跳出循环 ()

计次循环尾 ()
如果真 (a ＝ 0)  ' 标记未创建
输出调试文本 ( #引号 ＋ “时间_取间隔” ＋ #引号 ＋ “ 标记不存在!”)
返回 (“”)
间隔时间 ＝ (Count.QuadPart － 到长整数 (时间标记 [a] [2])) ÷ Frequency.QuadPart × 1000  ' *1000 毫秒为整数 微秒为小数.
局_时 ＝ (间隔时间 ％ 86400000) ÷ 3600000
局_分 ＝ (间隔时间 ％ 86400000 ％ 3600000) ÷ 60000
局_秒 ＝ (间隔时间 ％ 86400000 ％ 3600000 ％ 60000) ÷ 1000
局_毫秒 ＝ 四舍五入 (间隔时间 ％ 86400000 ％ 3600000 ％ 60000 ％ 1000, 3)
如果真 (局_时 ≠ 0)
返回文本 ＝ 返回文本 ＋ 到文本 (局_时) ＋ “时”
如果真 (局_分 ≠ 0)
返回文本 ＝ 返回文本 ＋ 到文本 (局_分) ＋ “分”
如果真 (局_秒 ≠ 0)
返回文本 ＝ 返回文本 ＋ 到文本 (局_秒) ＋ “秒”
如果真 (局_毫秒 ≠ 0)
返回文本 ＝ 返回文本 ＋ 到文本 (局_毫秒) ＋ “毫秒”
返回文本 ＝ 标记 ＋ “:” ＋ 返回文本
输出调试文本 (返回文本)
返回 (返回文本)

.版本 2<br /> <br /> .子程序 时间_取间隔_结束, 文本型, 公开, 取微秒级时间间隔.返回间隔时间.[Mr.Yang提供]<br /> .参数 标记, 文本型, 可空, 用于区分不同的时间.与"时间_取间隔_开始"对应.<br /> .局部变量 Count, LARGE_INTEGER<br /> .局部变量 Frequency, LARGE_INTEGER, 静态<br /> .局部变量 a, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 间隔时间, 双精度小数型<br /> .局部变量 局_时, 整数型<br /> .局部变量 局_分, 整数型<br /> .局部变量 局_秒, 整数型<br /> .局部变量 局_毫秒, 双精度小数型<br /> .局部变量 返回文本, 文本型<br /> <br /> QueryPerformanceCounter (Count)<br /> .如果真 (Frequency.QuadPart ＝ 0)  ' 获取HPET频率<br />     QueryPerformanceFrequency (Frequency)<br /> .如果真结束<br /> 标记 ＝ 选择 (标记 ＝ “”, “耗时”, 标记)<br /> .计次循环首 (取数组下标 (时间标记, 1), i)<br />     .如果真 (时间标记 <i> [1] ＝ 标记)  ' 标记已存在<br />         a ＝ i<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (a ＝ 0)  ' 标记未创建<br />     输出调试文本 (#引号 ＋ “时间_取间隔” ＋ #引号 ＋ “ 标记不存在!”)<br />     返回 (“”)<br /> .如果真结束<br /> 间隔时间 ＝ (Count.QuadPart － 到长整数 (时间标记 [a] [2])) ÷ Frequency.QuadPart × 1000  ' *1000 毫秒为整数 微秒为小数.<br /> 局_时 ＝ (间隔时间 ％ 86400000) ÷ 3600000<br /> 局_分 ＝ (间隔时间 ％ 86400000 ％ 3600000) ÷ 60000<br /> 局_秒 ＝ (间隔时间 ％ 86400000 ％ 3600000 ％ 60000) ÷ 1000<br /> 局_毫秒 ＝ 四舍五入 (间隔时间 ％ 86400000 ％ 3600000 ％ 60000 ％ 1000, 3)<br /> .如果真 (局_时 ≠ 0)<br />     返回文本 ＝ 返回文本 ＋ 到文本 (局_时) ＋ “时”<br /> .如果真结束<br /> .如果真 (局_分 ≠ 0)<br />     返回文本 ＝ 返回文本 ＋ 到文本 (局_分) ＋ “分”<br /> .如果真结束<br /> .如果真 (局_秒 ≠ 0)<br />     返回文本 ＝ 返回文本 ＋ 到文本 (局_秒) ＋ “秒”<br /> .如果真结束<br /> .如果真 (局_毫秒 ≠ 0)<br />     返回文本 ＝ 返回文本 ＋ 到文本 (局_毫秒) ＋ “毫秒”<br /> .如果真结束<br /> 返回文本 ＝ 标记 ＋ “:” ＋ 返回文本<br /> 输出调试文本 (返回文本)<br /> 返回 (返回文本)

jr21066

已更新.调试软件时很方便

凌哥

这种设计的代码精易模块都收录吗？