✅类_延时 带中断延时

莫小乐

  

DLL命令名	返回值类型	公开	备 注
类_延时_Sleep
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
Sleep
参数名	类 型	传址	数组	备 注
dwMilliseconds	整数型

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

DLL命令名	返回值类型	公开	备 注
类_延时_QPF
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
QueryPerformanceFrequency
参数名	类 型	传址	数组	备 注
lpFrequency	长整数型

窗口程序集名	保 留	保 留	备 注
类_延时
变量名	类 型	数组	备 注
中断标志	逻辑型
频率	长整数型

子程序名	返回值类型	公开	备 注
_初始化

中断标志 ＝ 假
类_延时_QPF (频率)

子程序名	返回值类型	公开	备 注
延时	逻辑型		返回真=正常结束，假=被中断
参数名	类 型	参考	可空	数组	备 注
时间	双精度小数型
单位	整数型				0=毫秒 1=秒 2=微秒

变量名	类 型	静态	数组	备 注
开始计数	长整数型
当前计数	长整数型
间隔微秒	长整数型
目标微秒	长整数型

如果真 (是否为空 (单位))
单位 ＝ 0
目标微秒 ＝ 时间 × 选择 (单位 ＝ 1, 1000000, 选择 (单位 ＝ 2, 1, 1000))
类_延时_QPC (开始计数)
判断循环首 (真)
类_延时_QPC (当前计数)
间隔微秒 ＝ (当前计数 － 开始计数) × 1000000 ÷ 频率
如果真 (间隔微秒 ≥ 目标微秒)
返回 (真)
如果真 (中断标志)
中断标志 ＝ 假
返回 (假)
如果真 (目标微秒 － 间隔微秒 ＞ 1000)
类_延时_Sleep (1)
处理事件 ()
判断循环尾 ()
返回 (假)

子程序名	返回值类型	公开	备 注
中断

中断标志 ＝ 真

.版本 2<br /> <br /> .DLL命令 类_延时_Sleep, , "kernel32.dll", "Sleep"<br />     .参数 dwMilliseconds, 整数型<br /> <br /> .DLL命令 类_延时_QPC, , "kernel32.dll", "QueryPerformanceCounter"<br />     .参数 lpPerformanceCount, 长整数型, 传址<br /> <br /> .DLL命令 类_延时_QPF, , "kernel32.dll", "QueryPerformanceFrequency"<br />     .参数 lpFrequency, 长整数型, 传址<br /> <br /> <br /> .版本 2<br /> <br /> .程序集 类_延时<br /> .程序集变量 中断标志, 逻辑型<br /> .程序集变量 频率, 长整数型<br /> <br /> .子程序 _初始化<br /> <br /> 中断标志 ＝ 假<br /> 类_延时_QPF (频率)<br /> <br /> .子程序 延时, 逻辑型, 公开, 返回真=正常结束，假=被中断<br /> .参数 时间, 双精度小数型<br /> .参数 单位, 整数型, 可空, 0=毫秒 1=秒 2=微秒<br /> .局部变量 开始计数, 长整数型<br /> .局部变量 当前计数, 长整数型<br /> .局部变量 间隔微秒, 长整数型<br /> .局部变量 目标微秒, 长整数型<br /> <br /> .如果真 (是否为空 (单位))<br />     单位 ＝ 0<br /> .如果真结束<br /> 目标微秒 ＝ 时间 × 选择 (单位 ＝ 1, 1000000, 选择 (单位 ＝ 2, 1, 1000))<br /> 类_延时_QPC (开始计数)<br /> .判断循环首 (真)<br />     类_延时_QPC (当前计数)<br />     间隔微秒 ＝ (当前计数 － 开始计数) × 1000000 ÷ 频率<br />     .如果真 (间隔微秒 ≥ 目标微秒)<br />         返回 (真)<br />     .如果真结束<br />     .如果真 (中断标志)<br />         中断标志 ＝ 假<br />         返回 (假)<br />     .如果真结束<br />     .如果真 (目标微秒 － 间隔微秒 ＞ 1000)<br />         类_延时_Sleep (1)<br />     .如果真结束<br />     处理事件 ()<br /> .判断循环尾 ()<br /> 返回 (假)<br /> <br /> .子程序 中断, , 公开<br /> <br /> 中断标志 ＝ 真

调用方法

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
类_延时	类_延时

子程序名	返回值类型	公开	备 注
_按钮1_被单击

类_延时.延时 (5000, )
信息框 (“1”, 0, , )

子程序名	返回值类型	公开	备 注
_按钮2_被单击

类_延时.中断 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 类_延时, 类_延时<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 类_延时.延时 (5000, )<br /> 信息框 (“1”, 0, , )<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 类_延时.中断 ()

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

谷驰先生

不错 不占用CPU                             

温良寄她

会不会占用CPU这是关键

陈治勤

6666666666666666666666666

1184798949

感谢分享

wool6

感谢分享，很给力！~

myface

支持一下

pinglin

666666666666666666

aosheng

6666666666666666666666666666666666666666

pipicool

学习一下