接上一个帖子。随机选择（选择框）

神奇的哆啦A梦

  

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

置随机数种子 ()
如果 (取随机数 (1, 2) ＝ 1)
主窗口1.选择框1.选中 ＝ 真
_选择框1_被单击 ()
主窗口1.选择框2.选中 ＝ 假
_选择框2_被单击 ()
主窗口1.选择框1.选中 ＝ 假
_选择框1_被单击 ()
主窗口1.选择框2.选中 ＝ 真
_选择框2_被单击 ()

.版本 2<br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 置随机数种子 ()<br /> .如果 (取随机数 (1, 2) ＝ 1)<br />     主窗口1.选择框1.选中 ＝ 真<br />     _选择框1_被单击 ()<br />     主窗口1.选择框2.选中 ＝ 假<br />     _选择框2_被单击 ()<br /> .否则<br />     主窗口1.选择框1.选中 ＝ 假<br />     _选择框1_被单击 ()<br />     主窗口1.选择框2.选中 ＝ 真<br />     _选择框2_被单击 ()

比如我创建10个选择框    每次按钮  选中其中一个  其他不选    哥哥们 应该咋写呀   

2选1会  这10选1   不会了   

要加上那个 选择框 被点击  要不选择上了  也不好使呀

只有鼠标点击 选中 那好使  那个随机选中的 不好使  

laihobglei

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
选择框数组	选择框	10

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

选择框数组 [1] ＝ 选择框1
选择框数组 [2] ＝ 选择框2
选择框数组 [3] ＝ 选择框3
选择框数组 [4] ＝ 选择框4
选择框数组 [5] ＝ 选择框5
选择框数组 [6] ＝ 选择框6
选择框数组 [7] ＝ 选择框7
选择框数组 [8] ＝ 选择框8
选择框数组 [9] ＝ 选择框9
选择框数组 [10] ＝ 选择框10

子程序名	返回值类型	公开	备 注
取消所有选择

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

计次循环首 (10, i)
选择框数组 [i].选中 ＝ 假
计次循环尾 ()

子程序名	返回值类型	公开	备 注
__按钮_随机选择_被单击

变量名	类 型	静态	数组	备 注
随机索引	整数型

取消所有选择 ()
置随机数种子 ()
随机索引 ＝ 取随机数 (1, 10)
选择框数组 [随机索引].选中 ＝ 真
执行选择框点击事件 (随机索引)

子程序名	返回值类型	公开	备 注
执行选择框点击事件
参数名	类 型	参考	可空	数组	备 注
索引	整数型

判断 (索引 ＝ 1)
_选择框1_被单击 ()
判断 (索引 ＝ 2)
_选择框2_被单击 ()
判断 (索引 ＝ 3)
_选择框3_被单击 ()


' 根据索引执行对应的选择框点击事件

子程序名	返回值类型	公开	备 注
_选择框1_被单击

信息框 (“选择框1被选中”, 0, , )

子程序名	返回值类型	公开	备 注
_选择框2_被单击

信息框 (“选择框2被选中”, 0, , )

子程序名	返回值类型	公开	备 注
_选择框3_被单击

信息框 (“选择框3被选中”, 0, , )
' ... 其他选择框的点击事件处理子程序

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 选择框数组, 选择框, , "10"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 选择框数组 [1] ＝ 选择框1<br /> 选择框数组 [2] ＝ 选择框2<br /> 选择框数组 [3] ＝ 选择框3<br /> 选择框数组 [4] ＝ 选择框4<br /> 选择框数组 [5] ＝ 选择框5<br /> 选择框数组 [6] ＝ 选择框6<br /> 选择框数组 [7] ＝ 选择框7<br /> 选择框数组 [8] ＝ 选择框8<br /> 选择框数组 [9] ＝ 选择框9<br /> 选择框数组 [10] ＝ 选择框10<br /> <br /> .子程序 取消所有选择<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (10, i)<br />     选择框数组 <i>.选中 ＝ 假<br /> .计次循环尾 ()<br /> <br /> .子程序 __按钮_随机选择_被单击<br /> .局部变量 随机索引, 整数型<br /> <br /> 取消所有选择 ()<br /> 置随机数种子 ()<br /> 随机索引 ＝ 取随机数 (1, 10)<br /> 选择框数组 [随机索引].选中 ＝ 真<br /> 执行选择框点击事件 (随机索引)<br /> <br /> .子程序 执行选择框点击事件<br /> .参数 索引, 整数型<br /> <br /> .判断开始 (索引 ＝ 1)<br />     _选择框1_被单击 ()<br /> .判断 (索引 ＝ 2)<br />     _选择框2_被单击 ()<br /> .判断 (索引 ＝ 3)<br />     _选择框3_被单击 ()<br /> .默认<br /> <br /> .判断结束<br /> ' 根据索引执行对应的选择框点击事件<br /> <br /> .子程序 _选择框1_被单击<br /> <br /> 信息框 (“选择框1被选中”, 0, , )<br /> <br /> .子程序 _选择框2_被单击<br /> <br /> 信息框 (“选择框2被选中”, 0, , )<br /> <br /> .子程序 _选择框3_被单击<br /> <br /> 信息框 (“选择框3被选中”, 0, , )<br /> ' ... 其他选择框的点击事件处理子程序

神奇的哆啦A梦

@laihobglei    好哥哥   此贴 需要你噢

神奇的哆啦A梦

@卿卿吖 好哥哥   此贴 需要你噢

798924038

第19行 改为
局_选择框 ＝ 取所找到组件 (局_句柄, 取随机数 (0, 局_选择框数量 － 1))

Suky

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
A_选择框	选择框	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
寻找句柄	整数型
n	整数型
L_选择框	选择框

寻找句柄 ＝ 寻找组件 (_启动窗口, , “选择框”, , )
计次循环首 (取找到组件数目 (寻找句柄), n)
L_选择框 ＝ 取所找到组件 (寻找句柄, n － 1)
加入成员 (A_选择框, L_选择框)
L_选择框.标题 ＝ 取组件名称 (L_选择框)  ' 置选择框标题方便观察结果
' ↓事件转移，选择框被单击时只需要选择框1的事件子程序下写代码即可
如果真 (取组件名称 (L_选择框) ≠ “选择框1”)  ' 条件里排除作为事件转移对象的选择框1，避免事件转移死循环导致卡死
事件转移 (L_选择框, 选择框1)

计次循环尾 ()
清除组件寻找句柄 (寻找句柄)

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

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

置随机数种子 ()
a ＝ 取数组成员数 (A_选择框)
计次循环首 (a, n)  ' 移除全部选择框选中状态
A_选择框 [n].选中 ＝ 假
处理事件 ()
计次循环尾 ()
A_选择框 [取随机数 (1, a)].选中 ＝ 真  ' 随机选择一个选择框，置为选中状态

子程序名	返回值类型	公开	备 注
_选择框1_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

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

计次循环首 (取数组成员数 (A_选择框), n)
A_选择框 [n].选中 ＝ 假
处理事件 ()
计次循环尾 ()
' 鼠标左键放开的组件事件中，事件子程序的代码结束后，末尾会默认将事件组件的选中状态取反
' 所以只需在事件子程序代码中移除所有选择框的选中状态即可

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 A_选择框, 选择框, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 寻找句柄, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 L_选择框, 选择框<br /> <br /> 寻找句柄 ＝ 寻找组件 (_启动窗口, , “选择框”, , )<br /> .计次循环首 (取找到组件数目 (寻找句柄), n)<br />     L_选择框 ＝ 取所找到组件 (寻找句柄, n － 1)<br />     加入成员 (A_选择框, L_选择框)<br />     L_选择框.标题 ＝ 取组件名称 (L_选择框)  ' 置选择框标题方便观察结果<br /> <br />     ' ↓事件转移，选择框被单击时只需要选择框1的事件子程序下写代码即可<br />     .如果真 (取组件名称 (L_选择框) ≠ “选择框1”)  ' 条件里排除作为事件转移对象的选择框1，避免事件转移死循环导致卡死<br />         事件转移 (L_选择框, 选择框1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (寻找句柄)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 置随机数种子 ()<br /> a ＝ 取数组成员数 (A_选择框)<br /> .计次循环首 (a, n)  ' 移除全部选择框选中状态<br />     A_选择框 [n].选中 ＝ 假<br />     处理事件 ()<br /> .计次循环尾 ()<br /> A_选择框 [取随机数 (1, a)].选中 ＝ 真  ' 随机选择一个选择框，置为选中状态<br /> <br /> .子程序 _选择框1_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 n, 整数型<br /> <br /> .计次循环首 (取数组成员数 (A_选择框), n)<br />     A_选择框 [n].选中 ＝ 假<br />     处理事件 ()<br /> .计次循环尾 ()<br /> ' 鼠标左键放开的组件事件中，事件子程序的代码结束后，末尾会默认将事件组件的选中状态取反<br /> ' 所以只需在事件子程序代码中移除所有选择框的选中状态即可

test1.e (4.54 KB, 下载次数: 1)

2025-6-15 09:57 上传

点击文件名下载附件

798924038

随机选择.e (6.16 KB, 下载次数: 1)

2025-6-15 10:14 上传

点击文件名下载附件

影纸

新建.e (961.45 KB, 下载次数: 2)

2025-6-15 11:04 上传

点击文件名下载附件

走一回

10选1，建议用单选框

神奇的哆啦A梦

laihobglei 发表于 2025-6-15 09:08

  

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

[/quote]
[e=0].版本 2
判断 (索引 ＝ 1)
_选择框1_被单击 ()
_选择框2_被单击 ()
判断 (索引 ＝ 2)
_选择框1_被单击 ()
_选择框2_被单击 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口</blockquote></div><br /> [e=0].版本 2<br /> <br /> .判断开始 (索引 ＝ 1)<br />     _选择框1_被单击 ()<br />     _选择框2_被单击 ()<br /> .判断 (索引 ＝ 2)<br />     _选择框1_被单击 ()<br />     _选择框2_被单击 ()<br /> .默认

哥哥 为啥他得都点击一次 才会取消好使呢，  这个索引的   选择框 被点击 放一个 就不好使  就像  不取消   比如第一随机1   第二次随机2    随机2的时候1没有取消


补充内容 (2025-6-15 12:04):
两个都选择框都放上 就好使了  选择2的时候  1 就取消了  选择1的时候2就取消了  我用选择框 选中=假 也不好使