✅博乐助手：类_耗时

莫小乐

  

DLL命令名	返回值类型	公开	备 注
QueryPerformanceCounter	逻辑型		耗时类.取计数器_值
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
QueryPerformanceCounter
参数名	类 型	传址	数组	备 注
lpPerformanceCount	长整数型

DLL命令名	返回值类型	公开	备 注
QueryPerformanceFrequency	逻辑型		耗时类.取计数器_频率
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
QueryPerformanceFrequency
参数名	类 型	传址	数组	备 注
lpFrequency	长整数型

窗口程序集名	保 留	保 留	备 注
类_耗时
变量名	类 型	数组	备 注
毫秒修正数	长整数型
频率	长整数型
开始时间	长整数型

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

QueryPerformanceFrequency (频率)  ' 只在初始化时取一次频率
输出调试文本 (“当前电脑频率：” ＋ 到文本 (频率))

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

子程序名	返回值类型	公开	备 注
开始	长整数型		开始计时
参数名	类 型	参考	可空	数组	备 注
关闭输出	逻辑型				默认 假=输出     真=关闭输出

QueryPerformanceCounter (开始时间)
如果真 (关闭输出 ＝ 假)
输出调试文本 (“◇ 开始耗时”)
返回 (开始时间)

子程序名	返回值类型	公开	备 注
结束	双精度小数型		统一获取耗时  1=毫秒 2=微秒 3=秒
参数名	类 型	参考	可空	数组	备 注
标记整数	整数型
标记文本	文本型
时间单位	整数型				默认 0=毫秒  1=微秒  2=秒
关闭输出	逻辑型				默认 假=输出

变量名	类 型	静态	数组	备 注
局_当前时间	长整数型
结果	双精度小数型
单位文本	文本型

QueryPerformanceCounter (局_当前时间)
结果 ＝ 局_当前时间 － 开始时间
如果真 (标记文本 ＝ “”)
标记文本 ＝ “空”
判断 (时间单位 ＝ 0)
结果 ＝ 到整数 (结果 × 1000 ÷ 频率)
单位文本 ＝ “ 毫秒”
判断 (时间单位 ＝ 1)
结果 ＝ 到整数 (结果 × 1000000 ÷ 频率)
单位文本 ＝ “ 微秒”
判断 (时间单位 ＝ 2)
结果 ＝ 结果 ÷ 频率
结果 ＝ 四舍五入 (结果 － 毫秒修正数 ÷ 1000000, 3)
单位文本 ＝ “ 秒”
返回 (0)

如果真 (关闭输出 ＝ 假)
输出调试文本 (“◆ 耗时统计 | ” ＋ 到文本 (标记整数) ＋ “ | ” ＋ 标记文本 ＋ “ | ” ＋ “耗时：” ＋ 到文本 (结果) ＋ 单位文本)

返回 (结果)

.版本 2<br /> <br /> .DLL命令 QueryPerformanceCounter, 逻辑型, "kernel32.dll", "QueryPerformanceCounter", 公开, 耗时类.取计数器_值<br />     .参数 lpPerformanceCount, 长整数型, 传址<br /> <br /> .DLL命令 QueryPerformanceFrequency, 逻辑型, "kernel32.dll", "QueryPerformanceFrequency", 公开, 耗时类.取计数器_频率<br />     .参数 lpFrequency, 长整数型, 传址<br /> <br /> <br /> <br /> <br /> .版本 2<br /> <br /> .程序集 类_耗时<br /> .程序集变量 毫秒修正数, 长整数型<br /> .程序集变量 频率, 长整数型<br /> .程序集变量 开始时间, 长整数型<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> QueryPerformanceFrequency (频率)  ' 只在初始化时取一次频率<br /> 输出调试文本 (“当前电脑频率：” ＋ 到文本 (频率))<br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 开始, 长整数型, 公开, 开始计时<br /> .参数 关闭输出, 逻辑型, 可空, 默认 假=输出     真=关闭输出<br /> <br /> QueryPerformanceCounter (开始时间)<br /> .如果真 (关闭输出 ＝ 假)<br />     输出调试文本 (“◇ 开始耗时”)<br /> .如果真结束<br /> 返回 (开始时间)<br /> <br /> .子程序 结束, 双精度小数型, 公开, 统一获取耗时  1=毫秒 2=微秒 3=秒<br /> .参数 标记整数, 整数型, 可空<br /> .参数 标记文本, 文本型, 可空<br /> .参数 时间单位, 整数型, 可空, 默认 0=毫秒  1=微秒  2=秒<br /> .参数 关闭输出, 逻辑型, 可空, 默认 假=输出<br /> .局部变量 局_当前时间, 长整数型<br /> .局部变量 结果, 双精度小数型<br /> .局部变量 单位文本, 文本型<br /> <br /> QueryPerformanceCounter (局_当前时间)<br /> 结果 ＝ 局_当前时间 － 开始时间<br /> .如果真 (标记文本 ＝ “”)<br />     标记文本 ＝ “空”<br /> .如果真结束<br /> .判断开始 (时间单位 ＝ 0)<br />     结果 ＝ 到整数 (结果 × 1000 ÷ 频率)<br />     单位文本 ＝ “ 毫秒”<br /> .判断 (时间单位 ＝ 1)<br />     结果 ＝ 到整数 (结果 × 1000000 ÷ 频率)<br />     单位文本 ＝ “ 微秒”<br /> .判断 (时间单位 ＝ 2)<br />     结果 ＝ 结果 ÷ 频率<br />     结果 ＝ 四舍五入 (结果 － 毫秒修正数 ÷ 1000000, 3)<br />     单位文本 ＝ “ 秒”<br /> .默认<br />     返回 (0)<br /> .判断结束<br /> <br /> .如果真 (关闭输出 ＝ 假)<br />     输出调试文本 (“◆ 耗时统计 | ” ＋ 到文本 (标记整数) ＋ “ | ” ＋ 标记文本 ＋ “ | ” ＋ “耗时：” ＋ 到文本 (结果) ＋ 单位文本)<br /> .如果真结束<br /> <br /> 返回 (结果)

游客，如果您要查看本帖隐藏内容请回复

莫小乐

是永乐哟 发表于 2026-6-18 00:57
你为什么不直接弄一个 博乐助手 模块呢？

模块臃肿！有时候仅仅需要一个功能而已！

是永乐哟

你为什么不直接弄一个 博乐助手 模块呢？