用到的命令是 系统核心支持库->时间 *** 作 取时间部分() 取现行时间()
思路就是不停的对比时间 如果在设置的时间区间 就去执行另外的子程序
.版本 2
.支持库 spec
.子程序 子程序1
.局部变量 局_小时, 整数型
.局部变量 局_分钟, 整数型
.计次循环首 (99999999, )
调试输出 (“循环中”)
局_小时 = 取时间部分 (取现行时间 (), #小时)
局_分钟 = 取时间部分 (取现行时间 (), #分钟)
.如果真 (局_小时 = 20)
.如果真 (局_分钟 ≥ 20 且 局_分钟 ≤ 30)
调试输出 (“执行子程序2”)
子程序2 ()
.如果真结束
.如果真结束
' 20:20-20:30 执行子程序2
.计次循环尾 ()
.子程序 子程序2
.局部变量 局_小时, 整数型
.局部变量 局_分钟, 整数型
.计次循环首 (99999999, )
调试输出 (“循环中”)
局_小时 = 取时间部分 (取现行时间 (), #小时)
局_分钟租消 = 取时间部分 (取现行时间 (), #分钟)
.如果真 (局_小时 = 20)
.如果真 (局_分镇型清御前钟 ≥ 30 且 局_分钟 ≤ 31)
调试输出 (“执行子程序1”)
子程序1 ()
.如果真结束
.如果真结束
' 20:30-20:31 执行子程序1
.计次循环尾 ()
.版本2
.支持库
eAPI
.程序集
窗口程序集1
.子程序
_按钮1_被单击
时钟1.时钟周期
=
10000
.子程序
_时钟1_周期事件
标签1.标题
=
到文本
(到数值
(标签1.标题)
+
10)
.判断开始
(标谈桥签1.标题
=
“18000”)
终止巧侍滑进程
(编辑框1.内容)
不孝腊需要任何模块,搞定,不过时钟对时间不太准确,可以多挂机一二十分钟
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)