类似这个图片一样的 多线程同时倒计时

122133271

类似这样的
一早上没研究出所以然，大佬能不能帮我写个或者举个栗子

石榴熟了

  

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

如果真 (到整数 (编辑框1.内容) ≤ 0)  ' 判断倒计时时间 是否大于0
信息框 (“时间填写不正确”, 0, )
返回 ()
如果真 (编辑框2.内容 ＝ “”)  ' 判断内容是否为空
信息框 (“事件填写不正确”, 0, )
返回 ()
启动线程 (&提醒任务, 到整数 (编辑框1.内容), )

子程序名	返回值类型	公开	备 注
提醒任务
参数名	类 型	参考	可空	数组	备 注
时间	整数型

变量名	类 型	静态	数组	备 注
索引	整数型
i	整数型
提醒文本	文本型
提醒时间	文本型

提醒文本 ＝ 编辑框2.内容
提醒时间 ＝ 编辑框1.内容
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 提醒文本)
超级列表框1.置标题 (索引, 1, 提醒时间)
计次循环首 (时间, i)
延迟 (1000)
超级列表框1.置标题 (索引, 1, 到文本 (时间 － i))
计次循环尾 ()
超级列表框1.置标题 (索引, 1, 到文本 (“任务到点完成”))

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果真 (到整数 (编辑框1.内容) ≤ 0)  ' 判断倒计时时间 是否大于0<br />     信息框 (“时间填写不正确”, 0, )<br />     返回 ()<br /> .如果真结束<br /> .如果真 (编辑框2.内容 ＝ “”)  ' 判断内容是否为空<br />     信息框 (“事件填写不正确”, 0, )<br />     返回 ()<br /> .如果真结束<br /> 启动线程 (&提醒任务, 到整数 (编辑框1.内容), )<br /> <br /> .子程序 提醒任务<br /> .参数 时间, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 提醒文本, 文本型<br /> .局部变量 提醒时间, 文本型<br /> <br /> 提醒文本 ＝ 编辑框2.内容<br /> 提醒时间 ＝ 编辑框1.内容<br /> 索引 ＝ 超级列表框1.插入表项 (, , , , , )<br /> 超级列表框1.置标题 (索引, 0, 提醒文本)<br /> 超级列表框1.置标题 (索引, 1, 提醒时间)<br /> .计次循环首 (时间, i)<br />     延迟 (1000)<br />     超级列表框1.置标题 (索引, 1, 到文本 (时间 － i))<br /> .计次循环尾 ()<br /> 超级列表框1.置标题 (索引, 1, 到文本 (“任务到点完成”))

任务提醒.e (4.24 KB, 下载次数: 80)

2017-11-24 13:02 上传

点击文件名下载附件


补充内容 (2017-11-24 13:04):
源码没有调用模块，如果使用精易模块，建议把 延迟 (1000) 换成 程序_延迟（1000）

石榴熟了

正在写例子

122133271

qmhmsn 发表于 2017-11-24 12:51
正在写例子

多谢大佬

顺间镁

仅供参考  .....

顺间镁

' 编辑框2.内容 ＝ “”     这句注释掉

122133271

qmhmsn 发表于 2017-11-24 13:02
[e=0].版本 2
.支持库 EThread
.支持库 iext

大哥能不能做到 到0 直接删除这一行呢   麻烦提供一下思路 或者帮我改下要不然又得重新开贴

122133271

qmhmsn 发表于 2017-11-24 13:02
[e=0].版本 2
.支持库 EThread
.支持库 iext

不用麻烦了  我自己搞定了  多谢