精易模块程序延时

小明无敌

延时单位为小时的话 好像没效果 还是毫秒单位

延时单位改为长整数好像就OK了 源码里面

  

子程序名	返回值类型	公开	备 注
程序_延时	逻辑型		不占用cpu，窗口不卡死，不影响其它代码执行
参数名	类 型	参考	可空	数组	备 注
延时间隔	整数型				1000毫秒 = 1秒  留空为无限等待
延时单位	长整数型				默认为毫秒  0=毫秒  1=秒  2=分钟  3=小时

变量名	类 型	静态	数组	备 注
局_时间句柄	长整数型
局_时间	程序延时

判断 (延时单位 ＝ 0 且 是否为空 (延时间隔))
延时间隔 ＝ 5000 × 60 × 60
延时单位 ＝ 5000 × 60 × 60
判断 (延时单位 ＝ 0)
延时单位 ＝ 1
判断 (延时单位 ＝ 1)
延时单位 ＝ 1000
判断 (延时单位 ＝ 2)
延时单位 ＝ 1000 × 60
判断 (延时单位 ＝ 3)
延时单位 ＝ 1000 × 60 × 60


局_时间.成员_时间 ＝ -10 × 延时间隔 × 1000 × 延时单位
局_时间句柄 ＝ CreateWaitableTimerA (0, 假, 0)
SetWaitableTimer (局_时间句柄, 局_时间, 0, 0, 0, 假)
判断循环首 (MsgWaitForMultipleObjects (1, 局_时间句柄, 假, -1, 255) ≠ 0)
处理事件 ()
判断循环尾 ()
CloseHandle (局_时间句柄)
返回 (真)

.版本 2<br /> <br /> .子程序 程序_延时, 逻辑型, 公开, 不占用cpu，窗口不卡死，不影响其它代码执行<br /> .参数 延时间隔, 整数型, 可空, 1000毫秒 = 1秒  留空为无限等待<br /> .参数 延时单位, 长整数型, 可空, 默认为毫秒  0=毫秒  1=秒  2=分钟  3=小时<br /> .局部变量 局_时间句柄, 长整数型<br /> .局部变量 局_时间, 程序延时<br /> <br /> .判断开始 (延时单位 ＝ 0 且 是否为空 (延时间隔))<br />     延时间隔 ＝ 5000 × 60 × 60<br />     延时单位 ＝ 5000 × 60 × 60<br /> .判断 (延时单位 ＝ 0)<br />     延时单位 ＝ 1<br /> .判断 (延时单位 ＝ 1)<br />     延时单位 ＝ 1000<br /> .判断 (延时单位 ＝ 2)<br />     延时单位 ＝ 1000 × 60<br /> .判断 (延时单位 ＝ 3)<br />     延时单位 ＝ 1000 × 60 × 60<br /> .默认<br /> <br /> .判断结束<br /> 局_时间.成员_时间 ＝ -10 × 延时间隔 × 1000 × 延时单位<br /> 局_时间句柄 ＝ CreateWaitableTimerA (0, 假, 0)<br /> SetWaitableTimer (局_时间句柄, 局_时间, 0, 0, 0, 假)<br /> .判断循环首 (MsgWaitForMultipleObjects (1, 局_时间句柄, 假, -1, 255) ≠ 0)<br />     处理事件 ()<br /> .判断循环尾 ()<br /> CloseHandle (局_时间句柄)<br /> 返回 (真)

瓶中仙子

学习了，感谢分享

q371401207

377249447

学习中 学习一下 有大佬互相交流的留下联系方式

项目部002

收到，感谢反馈

小明无敌

wxb130260 发表于 2019-3-20 07:15
小时  就不应该存在

.................

wxb130260

小时  就不应该存在

小明无敌

Y罢不能 发表于 2019-3-20 01:07
牛逼了，还真没用过 程序_延时（,3）

今天想搞个 定时的东西 3个小时运行一次 就直接写个程序延时和死循环了  

Y罢不能

牛逼了，还真没用过 程序_延时（,3）