判断超级列表框，列的连续数，来判断执行跳出循环

woyao2991314

  

子程序名	返回值类型	公开	备 注
_超级列表框1_表头被单击
参数名	类 型	参考	可空	数组	备 注
被单击列索引	整数型				取判断对应列

编辑框_随机停止判断列.内容 ＝ 到文本 (被单击列索引)

子程序名	返回值类型	公开	备 注
_以算法一为主要随机进行统计

变量名	类 型	静态	数组	备 注
sub	整数型
value	文本型
trueCount	整数型
falseCount	整数型
stop	逻辑型

' 下面代码需实现的功能
' 判断超级列表框：某列的连续相同字，达到指定连续数目标后，跳出循环
' 列中，【一行只有一个字】只有两个字【黑或白】第一行不参与统计计算，第二行开始统计，而且首次统计，连续数断了，返回启动线程
' 例如：判断连续数达到6次跳出循环，某列： 列的数据 = 【黑白白白白白白】黑第一行，不参与统计计算
' =======================================第一行不参与1 2 3 4  5 6  需要的效果这样的才达到跳出循环
' 例如：判断连续数达到6次跳出循环，某列： 列的数据 = 【黑白白黑白白白】黑第一行，不参与统计计算【列表框列，上往下的数据】
' =======================================第一行不参与1 2   连续数断了，直接返回启动线程
' 现在效果：统计计算判断了整列 ，整列中有达到连续数就跳出了循环，没有达到理想的效果，有请帮直接修改好，达到理想效果，谢谢！
判断循环首 (真)
启动线程 (&L_批量执行, , m_thread)
变量循环首 (超级列表框1.取表项数 () － 2, 0, -1, sub)
value ＝ 超级列表框1.取标题 (sub, 到整数 (编辑框_随机停止判断列.内容))
判断 (value ＝ “〇”)
trueCount ＝ trueCount ＋ 1  ' 【黑】
如果真 (falseCount ≥ 2)
跳出循环 ()
falseCount ＝ 0
falseCount ＝ falseCount ＋ 1  ' 【白】
如果真 (trueCount ≥ 2)
跳出循环 ()
trueCount ＝ 0
如果真 (trueCount ≥ 到整数 (编辑框_随机停止连续次数.内容) 或 falseCount ≥ 到整数 (编辑框_随机停止连续次数.内容))
stop ＝ 真
跳出循环 ()

变量循环尾 ()
连续赋值 (0, trueCount, falseCount)
如果真 (stop)
跳出循环 ()

判断循环尾 ()
信息框 (“随机统计完毕！！！”, #信息图标, , )

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

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> <br /> .子程序 _超级列表框1_表头被单击<br /> .参数 被单击列索引, 整数型, , 取判断对应列<br /> <br /> 编辑框_随机停止判断列.内容 ＝ 到文本 (被单击列索引)<br /> <br /> .子程序 _以算法一为主要随机进行统计<br /> .局部变量 sub, 整数型<br /> .局部变量 value, 文本型<br /> .局部变量 trueCount, 整数型<br /> .局部变量 falseCount, 整数型<br /> .局部变量 stop, 逻辑型<br /> <br /> <br /> ' 下面代码需实现的功能<br /> ' 判断超级列表框：某列的连续相同字，达到指定连续数目标后，跳出循环<br /> ' 列中，【一行只有一个字】只有两个字【黑或白】第一行不参与统计计算，第二行开始统计，而且首次统计，连续数断了，返回启动线程<br /> ' 例如：判断连续数达到6次跳出循环，某列： 列的数据 = 【黑白白白白白白】黑第一行，不参与统计计算<br /> ' =======================================第一行不参与1 2 3 4  5 6  需要的效果这样的才达到跳出循环<br /> ' 例如：判断连续数达到6次跳出循环，某列： 列的数据 = 【黑白白黑白白白】黑第一行，不参与统计计算【列表框列，上往下的数据】<br /> ' =======================================第一行不参与1 2   连续数断了，直接返回启动线程<br /> ' 现在效果：统计计算判断了整列 ，整列中有达到连续数就跳出了循环，没有达到理想的效果，有请帮直接修改好，达到理想效果，谢谢！<br /> .判断循环首 (真)<br />     启动线程 (&L_批量执行, , m_thread)<br />     .变量循环首 (超级列表框1.取表项数 () － 2, 0, -1, sub)<br />         value ＝ 超级列表框1.取标题 (sub, 到整数 (编辑框_随机停止判断列.内容))<br />         .判断开始 (value ＝ “〇”)<br />             trueCount ＝ trueCount ＋ 1  ' 【黑】<br />             .如果真 (falseCount ≥ 2)<br />                 跳出循环 ()<br />             .如果真结束<br />             falseCount ＝ 0<br />         .默认<br />             falseCount ＝ falseCount ＋ 1  ' 【白】<br />             .如果真 (trueCount ≥ 2)<br />                 跳出循环 ()<br />             .如果真结束<br />             trueCount ＝ 0<br />         .判断结束<br />         .如果真 (trueCount ≥ 到整数 (编辑框_随机停止连续次数.内容) 或 falseCount ≥ 到整数 (编辑框_随机停止连续次数.内容))<br />             stop ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br />     连续赋值 (0, trueCount, falseCount)<br />     .如果真 (stop)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 信息框 (“随机统计完毕！！！”, #信息图标, , )

LEOONL

  

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

变量名	类 型	静态	数组	备 注
n	整数型
前标题	文本型
重复次数	整数型

计次循环首 (超级列表框1.取表项数 () － 1, n)
如果 (超级列表框1.取标题 (n, 0) ＝ 前标题)
重复次数 ＝ 重复次数 ＋ 1
前标题 ＝ 超级列表框1.取标题 (n, 0)
重复次数 ＝ 0
前标题 ＝ 超级列表框1.取标题 (n, 0)
如果真 (重复次数 ≥ 5)
调试输出 (“跳出”)
跳出循环 ()

计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 n, 整数型<br /> .局部变量 前标题, 文本型<br /> .局部变量 重复次数, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 () － 1, n)<br />     .如果 (超级列表框1.取标题 (n, 0) ＝ 前标题)<br />         重复次数 ＝ 重复次数 ＋ 1<br />         前标题 ＝ 超级列表框1.取标题 (n, 0)<br />     .否则<br />         重复次数 ＝ 0<br />     .如果结束<br />     前标题 ＝ 超级列表框1.取标题 (n, 0)<br />     .如果真 (重复次数 ≥ 5)<br />         调试输出 (“跳出”)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()

lzht88

你说 明明都是中文了，为啥要中英杂交呢？

woyao2991314

lzht88 发表于 2024-8-18 14:38
你说 明明都是中文了，为啥要中英杂交呢？

本人小白，皮毛都算不上那种，请人写的，这问题一直处理不好

woyao2991314

lzht88 发表于 2024-8-18 14:38
你说 明明都是中文了，为啥要中英杂交呢？

实在没办法有请大佬出手了

lzht88

trueCount ＝ trueCount ＋ 1  ' 【黑】
如果真 (trueCount≥ 2)
跳出循环 ()
falseCount ＝ 0
falseCount ＝ falseCount ＋ 1  ' 【白】
如果真 (falseCount ≥ 2)
跳出循环 ()
trueCount ＝ 0