循环套循环，根本整不来

woyao2991314

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
行数	整数型
集_循环线程	整数型
路径	文本型

子程序名	返回值类型	公开	备 注
_梯增自动_被单击

启动线程 (&_一主要进行统计, , 集_循环线程)  ' 在次启动运行下面代码

子程序名	返回值类型	公开	备 注
_一主要进行统计

变量名	类 型	静态	数组	备 注
索引	整数型
内容	文本型
连	整数型
连	整数型
循环次数	整数型
当前次数	整数型
停止循环	逻辑型

循环次数 ＝ 到数值 (循环数.内容)
判断循环首 (真)
当前次数 ＝ 当前次数 ＋ 1
如果真 (当前次数 ＝ 循环次数)
跳出循环 ()  ' 此；子程序完成了所有执行代码'【在此跳出了循环】
' 如今需要运行N遍，； 循环套循环
' 不要在这子程序套循环，写点什么返回值的就好，另建子程序

L_批量执行 ()
计次循环首 (超级列表框1.取表项数 (), 索引)
内容 ＝ 超级列表框1.取标题 (索引, 到整数 (编辑框_随机停止判断列.内容))
如果真 (内容 ≠ “”)
判断 (内容 ＝ “〇”)
如果真 (连 ≥ 1)
跳出循环 ()
连 ＝ 连 ＋ 1
连 ＝ 0
如果真 (连 ≥ 1)
跳出循环 ()
连 ＝ 连 ＋ 1
连 ＝ 0

如果真 (连 － 0 ≥ 到整数 (连对数范围.内容))
停止循环 ＝ 真
跳出循环 ()
如果真 (连 － 0 ≥ 到整数 (连错范围.内容))
停止循环 ＝ 真
跳出循环 ()

计次循环尾 ()
连续赋值 (0, 连, 连)
如果真 (停止循环)
如果真 (当前次数 ＝ 循环次数)
跳出循环 ()
停止循环 ＝ 假

判断循环尾 ()
' =======下方乱整的========================

子程序名	返回值类型	公开	备 注
_按钮1_被单击
参数名	类 型	参考	可空	数组	备 注
循环次

循环次=编辑框N.内容
' 循环套循环怎整，
计次循环首 (, 循环次)
启动线程 (&_一主要进行统计, , 集_循环线程)
' 【这么写，直接运行同时三，好像等于多线程 三次同时运行，
' 需要一遍一遍的运行三遍
' 据说要在上面对子程序里弄返回值，不会搞，整不来
计次循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 行数, 整数型<br /> .程序集变量 集_循环线程, 整数型<br /> .程序集变量 路径, 文本型<br /> <br /> .子程序 _梯增自动_被单击<br /> <br /> 启动线程 (&_一主要进行统计, , 集_循环线程)  ' 在次启动运行下面代码<br /> <br /> .子程序 _一主要进行统计<br /> .局部变量 索引, 整数型<br /> .局部变量 内容, 文本型<br /> .局部变量 连, 整数型<br /> .局部变量 连, 整数型<br /> .局部变量 循环次数, 整数型<br /> .局部变量 当前次数, 整数型<br /> .局部变量 停止循环, 逻辑型<br /> <br /> 循环次数 ＝ 到数值 (循环数.内容)<br /> .判断循环首 (真)<br />     当前次数 ＝ 当前次数 ＋ 1<br />     .如果真 (当前次数 ＝ 循环次数)<br /> <br /> <br />         跳出循环 ()  ' 此；子程序完成了所有执行代码'【在此跳出了循环】<br />         ' 如今需要运行N遍，； 循环套循环<br />         ' 不要在这子程序套循环，写点什么返回值的就好，另建子程序<br /> <br />     .如果真结束<br /> <br />     L_批量执行 ()<br />     .计次循环首 (超级列表框1.取表项数 (), 索引)<br />         内容 ＝ 超级列表框1.取标题 (索引, 到整数 (编辑框_随机停止判断列.内容))<br />         .如果真 (内容 ≠ “”)<br />             .判断开始 (内容 ＝ “〇”)<br />                 .如果真 (连 ≥ 1)<br /> <br />                     跳出循环 ()<br />                 .如果真结束<br />                 连 ＝ 连 ＋ 1<br />                 连 ＝ 0<br />             .默认<br />                 .如果真 (连 ≥ 1)<br /> <br />                     跳出循环 ()<br />                 .如果真结束<br />                 连 ＝ 连 ＋ 1<br />                 连 ＝ 0<br />             .判断结束<br /> <br />         .如果真结束<br />         .如果真 (连 － 0 ≥ 到整数 (连对数范围.内容))<br /> <br />             停止循环 ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br />         .如果真 (连 － 0 ≥ 到整数 (连错范围.内容))<br /> <br />             停止循环 ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     连续赋值 (0, 连, 连)<br />     .如果真 (停止循环)<br />         .如果真 (当前次数 ＝ 循环次数)<br />             跳出循环 ()<br />         .如果真结束<br />         停止循环 ＝ 假<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> ' =======下方乱整的========================<br /> <br /> .子程序 _按钮1_被单击<br /> .参数 循环次<br /> <br /> <br /> 循环次=编辑框N.内容<br /> <br /> ' 循环套循环怎整，<br /> <br /> .计次循环首 (, 循环次)<br /> <br />     启动线程 (&_一主要进行统计, , 集_循环线程)<br />     ' 【这么写，直接运行同时三，好像等于多线程 三次同时运行，<br />     ' 需要一遍一遍的运行三遍<br />     ' 据说要在上面对子程序里弄返回值，不会搞，整不来<br /> <br /> .计次循环尾 ()

cmaks

一遍一遍的运行三次，那不就是单线程了嘛

加一个线程等待

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
循环标记	整数型

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

变量名	类 型	静态	数组	备 注
线程句柄	整数型

循环标记 ＝ 1
判断循环首 (循环标记 ＜ 4)
启动线程 (&_一主要进行统计, , 线程句柄)
判断循环首 (等待线程 (线程句柄, ))
跳出循环 ()
判断循环尾 ()
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_一主要进行统计

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

计次循环首 (5, i)
调试输出 (“线程 ” ＋ 到文本 (循环标记), i)
计次循环尾 ()
循环标记 ＝ 循环标记 ＋ 1

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 循环标记, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 线程句柄, 整数型<br /> <br /> <br /> 循环标记 ＝ 1<br /> <br /> .判断循环首 (循环标记 ＜ 4)<br /> <br />     启动线程 (&_一主要进行统计, , 线程句柄)<br /> <br />     .判断循环首 (等待线程 (线程句柄, ))<br />         跳出循环 ()<br />     .判断循环尾 ()<br /> <br /> .判断循环尾 ()<br /> <br /> <br /> .子程序 _一主要进行统计<br /> .局部变量 i, 整数型<br /> <br /> <br /> .计次循环首 (5, i)<br /> <br />     调试输出 (“线程 ” ＋ 到文本 (循环标记), i)<br /> <br /> .计次循环尾 ()<br /> <br /> 循环标记 ＝ 循环标记 ＋ 1

woyao2991314

循环第1次2次3次，N次时需要加一些不一样的代码

liuqiqi87

不知道你想实现的是什么？ 最好把你的demo 或者问题描述清楚，让人取看你源码 再猜你的需求，别人基本看一眼就走了

没事瞎琢磨

给子程序里加一个集变量 子程序运行完成 改变集变量   给主线程几次循环里 启动线程命令之后 赋值集变量  后加死循环 判断集变量  集变量改变就跳出死循环 继续执行第二次循环  以此类推

没事瞎琢磨

没事瞎琢磨 发表于 2024-9-4 09:30
给子程序里加一个集变量 子程序运行完成 改变集变量   给主线程几次循环里 启动线程命令之后 赋值集变量   ...

启动线程命令之前赋值集变量

唐山小哥

你这写的什么乱七八糟的，变量都重复了，这咋给你看

cmaks

  

子程序名返回值类型公开备 注
_按钮1_被单击  
参数名类 型参考可空数组备 注
循环次
循环次=编辑框N.内容
' 循环套循环怎整，
计次循环首 (, 循环次)
启动线程 (&_一主要进行统计, , 集_循环线程)
判断循环首 (等待线程 (集_循环线程, ))
跳出循环 ()
判断循环尾 ()
' 【这么写，直接运行同时三，好像等于多线程 三次同时运行，
' 需要一遍一遍的运行三遍
' 据说要在上面对子程序里弄返回值，不会搞，整不来
计次循环尾 ()

子程序名        返回值类型        公开        备 注<br /> _按钮1_被单击                          <br /> 参数名        类 型        参考        可空        数组        备 注<br /> 循环次                                         <br /> 循环次=编辑框N.内容<br /> ' 循环套循环怎整，<br /> 计次循环首 (, 循环次)<br /> 启动线程 (&_一主要进行统计, , 集_循环线程)<br /> <br /> 判断循环首 (等待线程 (集_循环线程, ))<br /> 跳出循环 ()<br /> 判断循环尾 ()<br /> <br /> ' 【这么写，直接运行同时三，好像等于多线程 三次同时运行，<br /> ' 需要一遍一遍的运行三遍<br /> ' 据说要在上面对子程序里弄返回值，不会搞，整不来<br /> 计次循环尾 ()

Suky

按钮的事件子程序不要自己加参数
不然事件子程序会无限等待参数，跑不起来

7ian

【汇编】十几个字节实现goto方法
https://bbs.125.la/forum.php?mod=viewthread&tid=14830469
(出处: 精易论坛)