几个子程序随机不重复运行

hhffgg998 · 发表于 2017-6-26 01:08:35

比如有子程序1 子程序2 子程序3，我要随机不重复运行2然后1然后3，一个子程序只能运行一次。因为在计次循环里随机不重复运行123，所以循环回来后还要接着随机不重复运行123，谢谢大家

jgw99 · 发表于 2017-6-26 01:08:36

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

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

置随机数种子 ()

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

随机启动控制 ()

子程序名	返回值类型	公开	备注
随机启动控制

变量名	类型	静态	数组	备注
按钮数组	整数型		0
乱序按钮数组	整数型		0
n	整数型
位置1	整数型

计次循环首 (10000, )

清除数组 (乱序按钮数组)

按钮数组＝ { 1, 2, 3 }

计次循环首 (取数组成员数 (按钮数组), n)

位置1 ＝取随机数 (1, 取数组成员数 (按钮数组))

加入成员 (乱序按钮数组, 按钮数组 [位置1])

删除成员 (按钮数组, 位置1, )

计次循环尾 ()

计次循环首 (取数组成员数 (乱序按钮数组), n)

判断 (乱序按钮数组 [n] ＝ 1)

子程序1 ()

判断 (乱序按钮数组 [n] ＝ 2)

子程序2 ()

判断 (乱序按钮数组 [n] ＝ 3)

子程序3 ()

处理事件 ()

计次循环尾 ()

处理事件 ()

计次循环尾 ()

子程序名	返回值类型	公开	备注
子程序1

调试输出 (“执行了子程序1”)

子程序名	返回值类型	公开	备注
子程序2

调试输出 (“执行了子程序2”)

子程序名	返回值类型	公开	备注
子程序3

调试输出 (“执行了子程序3”)

i支持库列表	支持库注释
spec	特殊功能支持库

林中道士 · 发表于 2017-6-26 01:52:00

随机数运行，随机到了就直接运行就可以。运行的时候判断其他两个进程是否存在，如果存在就关闭相应的进程再运行或者就是如果存在就不运行

零点丶 · 发表于 2017-6-26 02:47:37

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量动态, 文本型
.局部变量记录, 文本型

.循环判断首 ()
置随机数种子 ()
动态＝到文本 (取随机数 (1, 6))
.如果真 (寻找文本 (记录, 动态, , 假) ＝ -1)
      记录＝记录＋动态
      .如果真 (动态＝ “1”)
         子程序_1 ()
      .如果真结束
      .如果真 (动态＝ “2”)
         子程序_2 ()
      .如果真结束
      .如果真 (动态＝ “3”)
         子程序_3 ()
      .如果真结束
      .如果真 (动态＝ “4”)
         子程序_4 ()
      .如果真结束
      .如果真 (动态＝ “5”)
         子程序_5 ()
      .如果真结束
      .如果真 (动态＝ “6”)
         子程序_6 ()
      .如果真结束
      .如果真 (取文本长度 (记录) ＝ 6)
         跳出循环 ()
      .如果真结束

.如果真结束

.循环判断尾 (动态 ≠ “7”)
调试输出 (“------------------------------------------------------”)

零点丶 · 发表于 2017-6-26 02:49:26

浏览器又来大姨妈了效果图片上传不了就上传源码

不知道怎么出现500 错误提示源码也不可以上传你自己复制粘贴吧

周sir · 发表于 2017-6-26 13:32:44

这几天写软件写的，看到循环就头疼

		自动登录	找回密码
密码			注册

[已解决] 几个子程序随机不重复运行

最佳答案