随机数生成器，包括无重复随机数实现

qiaozirui · 发表于 2024-7-30 21:31:49

自己写的随机数生成器，起初是对无重复随机数思路的思考。
源码中含有无重复随机数实现方式。
请各位大佬多多指教。
（源码只表明自身对无重复随机数实现思路的思考，不必过分在意功能。）

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

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

编辑框4.内容＝ “”
置随机数种子 ()

判断 (选择框1.选中＝真)

子程序1 ()

判断 (选择框1.选中＝假)

子程序3 ()

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

' 重复随机数

计次循环首 (到数值 (编辑框3.内容), a)

编辑框4.加入文本 (到文本 (取随机数 (到数值 (编辑框1.内容), 到数值 (编辑框2.内容))) ＋ “，”)

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

' 无重复随机数
有效随机数个数＝ 0

判断循环首 (有效随机数个数＜到数值 (编辑框3.内容))

调试输出 (到文本 (有效随机数个数))

随机数＝取随机数 (到数值 (编辑框1.内容), 到数值 (编辑框2.内容))

如果真 (寻找文本 (编辑框4.内容, 到文本 (随机数), , 假) ＝ -1)

编辑框4.加入文本 (到文本 (随机数) ＋ “，”)

有效随机数个数＝有效随机数个数＋ 1

判断循环尾 ()
信息框 (“生成完毕”, 0, , )

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

如果 (到数值 (编辑框2.内容) －到数值 (编辑框1.内容) ＋ 1 ＜到数值 (编辑框3.内容))

信息框 (“数据错误！”, 0, , )

选择框1.选中＝真

子程序2 ()

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

foo9527 · 发表于 2024-8-21 10:08:43

谢谢分享

APPLEUFO · 发表于 2024-8-4 11:01:11

算法和控件分离，一堆编辑框夹杂在算法里面
无重复随机的话，取1-10000，然后打乱顺序，每次取最后一个，取完删除，能取用一万次

mood100 · 发表于 2024-8-3 17:40:49

思路很好感谢分享

光影魔术 · 发表于 2024-8-2 18:42:04

感谢分享源码

hjinpwhe1 · 发表于 2024-8-1 15:00:29

学习学习学习

396384183 · 发表于 2024-8-1 09:31:29

多谢分享，正需要

dangerace · 发表于 2024-7-31 19:16:34

取随机数不要用核心库的命令，有bug，取出来的随机数随机性很差。

卡卡1111 · 发表于 2024-7-31 17:38:02

感谢分享，很给力！~

renhe2018 · 发表于 2024-7-31 15:06:51

这个解决了重复的大问题啊。

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

[易语言纯源码] 随机数生成器，包括无重复随机数实现