.版本 2
.支持库 EThread
.支持库 spec
.程序集 窗口程序集_窗口1
.程序集变量 集_许可证, 整数型
.程序集变量 集_许可证_x, 整数型
.程序集变量 集_编号_x, 整数型
.程序集变量 集_信号, 整数型, , , 0 = 继续工作; 1 = 退出
.程序集变量 集_定时值, 整数型, , , 秒
.子程序 _窗口1_创建完毕
集_许可证 = 创建进入许可证 ()
集_许可证_x = 创建进入许可证 ()
.子程序 _窗口1_可否被关闭, 逻辑型
删除进入许可证 (集_许可证)
删除进入许可证 (集_许可证_x)
.子程序 任务线程
.局部变量 局_编号, 整数型
进入许可区 (集_许可证_x)
集_编号_x = 集_编号_x + 1
局_编号 = 集_编号_x
退出许可区 (集_许可证_x)
.循环判断首 ()
调试输出 (“任务线程”, 局_编号, “正在执行任务...”)
进入许可区 (集_许可证)
.如果真 (集_信号 = 1) ' //接收到定时关闭信号,退出任务线程
退出许可区 (集_许可证)
调试输出 (“任务线程”, 局_编号, “接收到结束信号,退出任务!”)
跳出循环 ()
.如果真结束
退出许可区 (集_许可证)
延时 (3000)
.循环判断尾 (真)
返回 ()
.子程序 监控时间
.局部变量 局_当前时间, 日期时间型
.局部变量 局_计时, 整数型
局_当前时间 = 取现行时间 ()
.循环判断首 ()
局_计时 = 取时间间隔 (取现行时间 (), 局_当前时间, #秒)
标签2.标题 = 到文本 (局_计时)
.如果真 (局_计时 ≥ 集_定时值)
' //时间 到,发信号关闭任务
进入许可区 (集_许可证)
集_信号 = 1
退出许可区 (集_许可证)
跳出循环 ()
.如果真结束
延时 (1000)
.循环判断尾 (真)
返回 ()
.子程序 _按钮_开始_被单击
.局部变量 局_线程数量, 整数型
.局部变量 局_句柄, 整数型
集_定时值 = 到整数 (编辑框_定时值.内容)
进入许可区 (集_许可证)
集_信号 = 0
退出许可区 (集_许可证)
进入许可区 (集_许可证_x)
集_编号_x = 0
退出许可区 (集_许可证_x)
局_线程数量 = 10
.计次循环首 (局_线程数量, )
启动线程 (&任务线程, , 局_句柄)
.如果 (0 = 局_句柄)
信息框 (“创建任务线程出错”, 0, , )
返回 ()
.否则
CloseHandle (局_句柄)
局_句柄 = 0
.如果结束
.计次循环尾 ()
启动线程 (&监控时间, , 局_句柄)
.如果 (0 = 局_句柄)
信息框 (“创建监控时间线程出错”, 0, , )
返回 ()
.否则
CloseHandle (局_句柄)
局_句柄 = 0
.如果结束
返回 ()
本文暂时没有评论,来添加一个吧(●'◡'●)