暂停和恢复循环我是这么写的，还有简单的方法吗？

走路有点憨

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
是否暂停	逻辑型

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

变量名	类 型	静态	数组	备 注
和值
n

计次循环首 (1000000, n)
如果真 (是否暂停 ＝ 真)
计次循环首 (3600, )
如果真 (是否暂停 ＝ 假)
跳出循环 ()
延迟 (1000)
计次循环尾 ()
和值 ＝ 和值 ＋ n
编辑框1.加入文本 (到文本 (和值) ＋ #换行符 )
处理事件 ()
计次循环尾 ()

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

是否暂停 ＝ 真

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

是否暂停 ＝ 假

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 是否暂停, 逻辑型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 和值<br /> .局部变量 n<br /> <br /> .计次循环首 (1000000, n)<br />     .如果真 (是否暂停 ＝ 真)<br />         .计次循环首 (3600, )<br />             .如果真 (是否暂停 ＝ 假)<br />                 跳出循环 ()<br />             .如果真结束<br />             延迟 (1000)<br />         .计次循环尾 ()<br />     .如果真结束<br />     和值 ＝ 和值 ＋ n<br />     编辑框1.加入文本 (到文本 (和值) ＋ #换行符)<br />     处理事件 ()<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 是否暂停 ＝ 真<br /> <br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 是否暂停 ＝ 假

暂停和恢复循环.e (3.38 KB, 下载次数: 9)

2018-2-22 00:24 上传

点击文件名下载附件
总感觉自己写的有点奇怪


补充内容 (2018-2-22 00:26):
传重复了 2个附件一样的  名字是恢复和暂停循环

补充内容 (2018-2-22 00:28):
暂停了cpu还是很高，关了窗口调试也不显示结束，那个小方块还是黑色的不变成三角

|bingbing|

用线程控制 不是美滋滋嘛  你这个是伪暂停，只不过是不执行而已，但是循环还是在一直一直一直跳的呀，只不过不执行 如果真 里面的内容而已了

补充内容 (2018-2-22 00:45):
        .计次循环首 (3600, )
            .如果真 (是否暂停 ＝ 假)
                跳出循环 ()
            .如果真结束
            延迟 (1000)
        .计次循环尾 ()

补充内容 (2018-2-22 00:46):
应该是暂停的时候，这部分代码，一直在循环，其实也是在循环，一直跳一直跳，特别特别易语言自带的 延迟（）这个命令，特别占用CPU  如果换成精易模块的 程序_延迟（） 可能会好一点

补充内容 (2018-2-22 19:32):
源码在板凳，如果再次遇到同样问题的易友，可以去下载勒

|bingbing|

暂停和恢复循环.e (626.51 KB, 下载次数: 66)

2018-2-22 00:34 上传

点击文件名下载附件
吶，老哥，用线程控制，调用了精易模块

阿寸大大

我只用了一个按钮就可以实现循环开始和循环暂停，基本不卡

循环问题.e (2.42 KB, 下载次数: 36)

2018-2-22 00:38 上传

点击文件名下载附件

用户名205252

计次循环首里套一个死循环判断 然后死循环下面 写一个如果，真继续 否则 跳出，或者使用线程 暂停恢复

补充内容 (2018-2-22 00:53):
死循环 延时（） 加处理事件 就不卡了

深夜里的小哥

新建 易程序.e (3.74 KB, 下载次数: 9)

2018-2-22 02:09 上传

点击文件名下载附件
试试这样写


补充内容 (2018-2-22 02:15):
用延时都不要用延迟，延迟很占CPU的

xzwb2018

延迟，延时，学习了

Bszk

可以用判断循环首~

走路有点憨

1046461000 发表于 2018-2-22 00:31
用线程控制 不是美滋滋嘛  你这个是伪暂停，只不过是不执行而已，但是循环还是在一直一直一直跳的呀，只不 ...

看了你的例子，调试了一下才发现线程ID和线程句柄不一样。。。我以前用的启动线程第三个参数取的就是句柄，线程_启动看是线程id以为也一样。我还以为线程id和句柄一样呢。

|bingbing|

万里禅天 发表于 2018-2-22 18:36
看了你的例子，调试了一下才发现线程ID和线程句柄不一样。。。我以前用的启动线程第三个参数取 ...

老哥，这个是用精易模块的线程_启动，精易模块这些命令，是调用系统API的，应该来说，比易语言自带线程命令好的多。。。