怎么无限循环执行

Porry

标签1.标题  = 10：00

每秒递减 ，减到 0：00 再回滚到 10:00

无限循环

忽闻绛雪

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
计时

变量名	类 型	静态	数组	备 注
总时间	整数型

总时间 ＝ 600
判断循环首 (真)
标签1.标题 ＝ 到文本 (取整 (总时间 ÷ 60)) ＋ “：” ＋ 到文本 (取整 (总时间 ％ 60))
延时 (1000)
总时间 ＝ 总时间 － 1
如果真 (总时间 ＝ 0)
总时间 ＝ 600
如果真 (总时间 ＜ -1)
跳出循环 ()

判断循环尾 ()

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

线程_关闭句柄 (线程_启动 (&计时, , ))

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 计时<br /> .局部变量 总时间, 整数型<br /> <br /> 总时间 ＝ 600<br /> .判断循环首 (真)<br />     标签1.标题 ＝ 到文本 (取整 (总时间 ÷ 60)) ＋ “：” ＋ 到文本 (取整 (总时间 ％ 60))<br />     延时 (1000)<br />     总时间 ＝ 总时间 － 1<br />     .如果真 (总时间 ＝ 0)<br />         总时间 ＝ 600<br />     .如果真结束<br />     .如果真 (总时间 ＜ -1)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 线程_关闭句柄 (线程_启动 (&计时, , ))

加个不可能实现的跳出循环（）避免死循环，或者在易语言系统设置里，把编译栏的编译时检测死循环勾掉。
因为涉及到死循环，如果直接在主线程执行会造成UI卡死，所以用个线程来，这是个不太规范的使用方法，不过已经可以用来达到计时的目的了


补充内容 (2018-3-29 16:09):
要减到00：00的话把如果真（总时间=0）改成总时间=-1就行了

为你走遍天涯

  

变量名	类 型	静态	数组	备 注
i	整数型

循环判断首 ()
如果真 (i ＝ 0)
i ＝ 11
i ＝ i － 1
标签1.标题 ＝ 到文本 (i) ＋ “:00”
延时 (1000)
处理事件 ()
循环判断尾 (真)

.版本 2<br /> <br /> .局部变量 i, 整数型<br /> <br /> .循环判断首 ()<br />     .如果真 (i ＝ 0)<br />         i ＝ 11<br />     .如果真结束<br />     i ＝ i － 1<br />     标签1.标题 ＝ 到文本 (i) ＋ “:00”<br />     延时 (1000)<br />     处理事件 ()<br /> .循环判断尾 (真)

Porry

为你走遍天涯 发表于 2018-3-29 14:58
[e=2].版本 2

.局部变量 i, 整数型

发行死循环代码

Porry

为你走遍天涯 发表于 2018-3-29 14:58
[e=2].版本 2

.局部变量 i, 整数型

错误(10064): 发现死循环代码。

Porry

为你走遍天涯 发表于 2018-3-29 14:58
[e=2].版本 2

.局部变量 i, 整数型

而且 ：前面是分钟 后面是 秒数 这种 就算能执行也不是我要的啊

う网淅乄

  

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

变量名	类 型	静态	数组	备 注
a	整数型
b	整数型
c	整数型

a ＝ 1
判断循环首 (a ＝ 1)
c ＝ c ＋ 1
如果真 (c ＝ 60)
c ＝ 0
b ＝ b ＋ 1
调试输出 (到文本 (b) ＋ “:” ＋ 到文本 (c))
延时 (1000)
处理事件 ()
如果真 (b ＝ 10)
b ＝ 0

判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 c, 整数型<br /> <br /> a ＝ 1<br /> .判断循环首 (a ＝ 1)<br />     c ＝ c ＋ 1<br />     .如果真 (c ＝ 60)<br />         c ＝ 0<br />         b ＝ b ＋ 1<br /> <br />     .如果真结束<br />     调试输出 (到文本 (b) ＋ “:” ＋ 到文本 (c))<br />     延时 (1000)<br />     处理事件 ()<br />     .如果真 (b ＝ 10)<br />         b ＝ 0<br />     .如果真结束<br /> <br /> .判断循环尾 ()