续上一帖，计算超级列表框，内容持续数，来判断执行下...

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 /> ' 例如：判断连续数达到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 />     连续赋值 (0, trueCount, falseCount)<br />     .如果真 (stop)<br />         跳出循环 ()<br />     .如果真结束<br /> .判断循环尾 ()<br /> 信息框 (“随机统计完毕！！！”, #信息图标, , )

续上一个帖的问题，补充图片说明，现在的效果是，到不到理想效果，
上一个帖下面链接，
https://bbs.125.la/forum.php?mod=viewthread&tid=14831920

LEOONL

  

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

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

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

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

变量名	类 型	静态	数组	备 注
n	整数型
标题	文本型
列索引	整数型
白次数	整数型
黑次数	整数型
对比次数	整数型

列索引=编辑框_随机停止判断列.内容
判断循环首 (真)
启动线程 (&L_批量执行, , m_thread)
白次数 ＝ 0
黑次数 ＝ 0
计次循环首 (超级列表框1.取表项数 () － 1, n)
标题 ＝ 超级列表框1.取标题 (n, 到数值 (列索引))
如果 (标题 ＝ “〇” 且 n ＝ 1)
如果 (标题 ＝ “〇”)
白次数 ＝ 白次数 ＋ 1
黑次数 ＝ 0
黑次数 ＝ 黑次数 ＋ 1
如果真 (黑次数 ≥ 白次数)
跳出循环 ()


如果 (前标题 ＝ “〇”)
白次数 ＝ 白次数 ＋ 1
如果真 (黑次数 ≥ 白次数)
跳出循环 ()

黑次数 ＝ 黑次数 ＋ 1
白次数 ＝ 0


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

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _超级列表框1_表头被单击<br /> .参数 被单击列索引, 整数型, , 取判断对应列<br /> <br /> 编辑框_随机停止判断列.内容 ＝ 到文本 (被单击列索引)<br /> <br /> .子程序 _以算法一为主要随机进行统计<br /> .局部变量 n, 整数型<br /> .局部变量 标题, 文本型<br /> .局部变量 列索引, 整数型<br /> .局部变量 白次数, 整数型<br /> .局部变量 黑次数, 整数型<br /> .局部变量 对比次数, 整数型<br /> <br /> 列索引=编辑框_随机停止判断列.内容<br /> .判断循环首 (真)<br />     启动线程 (&L_批量执行, , m_thread)<br />     白次数 ＝ 0<br />     黑次数 ＝ 0<br />     .计次循环首 (超级列表框1.取表项数 () － 1, n)<br />         标题 ＝ 超级列表框1.取标题 (n, 到数值 (列索引))<br />         .如果 (标题 ＝ “〇” 且 n ＝ 1)<br />             .如果 (标题 ＝ “〇”)<br />                 白次数 ＝ 白次数 ＋ 1<br />                 黑次数 ＝ 0<br />             .否则<br />                 黑次数 ＝ 黑次数 ＋ 1<br />                 .如果真 (黑次数 ≥ 白次数)<br />                     跳出循环 ()<br />                 .如果真结束<br /> <br />             .如果结束<br /> <br />         .否则<br />             .如果 (前标题 ＝ “〇”)<br />                 白次数 ＝ 白次数 ＋ 1<br />                 .如果真 (黑次数 ≥ 白次数)<br />                     跳出循环 ()<br />                 .如果真结束<br /> <br />             .否则<br />                 黑次数 ＝ 黑次数 ＋ 1<br />                 白次数 ＝ 0<br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> .判断循环尾 ()<br /> 信息框 (“随机统计完毕！！！”, #信息图标, , )

笨来无一悟

问题应该是小得不能再小的问题 关键是 你提问感觉说不出重点你这是统计长龙???最上面是最新的一期???

woyao2991314

笨来无一悟 发表于 2024-8-18 16:18
问题应该是小得不能再小的问题 关键是 你提问感觉说不出重点你这是统计长龙???最上面是最新的一期 ...

就是没达到持续数，程序会继续变动列表数据，循环，算持续次，达到了跳出循环，图片说明还不够明确！

笨来无一悟

woyao2991314 发表于 2024-8-18 16:28
就是没达到持续数，程序会继续变动列表数据，循环，算持续次，达到了跳出循环，图片说明还不够明确！ ...

当前达到了 连续的多少次怎么办 没有达到怎么办 这才是正确的流程分支吧

woyao2991314

笨来无一悟 发表于 2024-8-18 16:33
当前达到了 连续的多少次怎么办 没有达到怎么办 这才是正确的流程分支吧 ...

达到了跳出循环 ，未达到 回到启动线程那个位置 未达到定义持续数   循环到天荒地老

woyao2991314

笨来无一悟 发表于 2024-8-18 16:18
问题应该是小得不能再小的问题 关键是 你提问感觉说不出重点你这是统计长龙???最上面是最新的一期 ...

我只懂一点点皮毛，他人代写的，这问题处理了多次未解决

笨来无一悟

woyao2991314 发表于 2024-8-18 16:38
达到了跳出循环 ，未达到 回到启动线程那个位置 未达到定义持续数   循环到天荒地老 ...

方圆 代表的是中挂 寻找当前最大连中或者最大连挂? 自定义一个数据结构 成员一 连中 成员二 连挂 中了 连中=连中+1 连挂=0 挂了连挂=连挂+1 连中=0 又简单又高效 你这种设计 根本跑不起大数据 保证很卡

woyao2991314

woyao2991314 发表于 2024-8-18 16:28
就是没达到持续数，程序会继续变动列表数据，循环，算持续次，达到了跳出循环，图片说明还不够明确！ ...

正解，现在的写法只能，算了整列，只要有达到持续数的就调出了循环，

woyao2991314

笨来无一悟 发表于 2024-8-18 16:42
方圆 代表的是中挂 寻找当前最大连中或者最大连挂? 自定义一个数据结构 成员一 连中 成员二 连挂 中了 连 ...

数据量不大，计算 当前的=最新 5次，持续：00000,其中有个1等于断了，列表数据刷新持续计算，直到得到5次持续