自定义随机抽号自动点名器

易语言 2020-03-08 21:15:09

自定义随机抽号自动点名器

.计次循环首 (到整数 (编辑框5.内容), )
禁止重复 (编辑框3.内容, 随机不重复, 到整数 (编辑框1.内容), 到整数 (编辑框2.内容))
第几个 = 取随机数 (1, 取数组成员数 (随机不重复))
.判断开始 (选择框2.选中 = 真)
标签1.可视 = 真
.计次循环首 (5, i)
延迟 (30 × (10 - i))
标签1.标题 = “”
.判断开始 (第几个 ≤ 取数组成员数 (随机不重复) 且 取数组成员数 (随机不重复) ≠ 0)
标签1.标题 = 到文本 (取随机数 (1, 取数组成员数 (随机不重复)))
.默认

.判断结束

.计次循环尾 ()
.判断开始 (第几个 ≤ 取数组成员数 (随机不重复) 且 取数组成员数 (随机不重复) ≠ 0)
随机数 = 随机不重复 [取随机数 (1, 取数组成员数 (随机不重复))]
标签1.文本颜色 = #红色
标签1.标题 = 到文本 (随机数)
.默认
标签1.标题 = “都选完啦!”
.判断结束

延迟 (1500)
标签1.标题 = “”
标签1.文本颜色 = #默认色
.判断 (第几个 ≤ 取数组成员数 (随机不重复) 且 取数组成员数 (随机不重复) ≠ 0)
随机数 = 随机不重复 [第几个]
.默认

.判断结束
.判断开始 (第几个 ≤ 取数组成员数 (随机不重复) 且 取数组成员数 (随机不重复) ≠ 0)
个数 = 分割文本 (编辑框3.内容, “/”, )
编辑框3.内容 = 编辑框3.内容 + 到文本 (随机数) + “/”
分组框1.标题 = “抽号结果 已抽取:” + 到文本 (取数组成员数 (个数) + 1) + “个”
.默认
跳出循环 ()