一个简单的随机数模块

禁回忆

苦于伪随机数的可算性，还不想调用其他一些模块的随机数，于是简单写了这么几行代码来生成随机数。
一共没几行代码，就截图上那么几行。
也算是一种伪随机数，但是想要计算的话，计算难度。。我也估计不出来，谁知道运行程序的电脑1s能运行多少遍，反正我不知道，看电脑配置了。
已知的局限性是：
1.如果你是用的易语言自带的创建窗口，那只能在窗口首次激活事件下调用start方法。黑月的话倒是可以当作简单的消息循环来用用。
2.多占用一块内存，之前测试过，大概有个20K左右？忘了。

  

窗口程序集名	保 留	保 留	备 注
Random, , 公开
变量名	类 型	数组	备 注
是否发生	逻辑型

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

子程序名	返回值类型	公开	备 注
start			放在启动窗口首次激活事件下，若没有，应放在启动子程序最后

变量名	类 型	静态	数组	备 注
time	日期时间型

time ＝ 取现行时间 ()
是否发生 ＝ 真
置随机数种子 (取启动时间 () × 取月份 (time) × 取日 (time) ÷ 取年份 (time))
判断循环首 (是否发生)
取随机数 (0, 100)
处理事件 ()
判断循环尾 ()

子程序名	返回值类型	公开	备 注
exit			放在窗口将被销毁事件下

是否发生 ＝ 假

.版本 2<br /> <br /> .程序集 Random, , 公开<br /> .程序集变量 是否发生, 逻辑型<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 start, , 公开, 放在启动窗口首次激活事件下，若没有，应放在启动子程序最后<br /> .局部变量 time, 日期时间型<br /> <br /> time ＝ 取现行时间 ()<br /> 是否发生 ＝ 真<br /> 置随机数种子 (取启动时间 () × 取月份 (time) × 取日 (time) ÷ 取年份 (time))<br /> .判断循环首 (是否发生)<br />     取随机数 (0, 100)<br />     处理事件 ()<br /> .判断循环尾 ()<br /> <br /> <br /> .子程序 exit, , 公开, 放在窗口将被销毁事件下<br /> <br /> 是否发生 ＝ 假

补充内容 (2020-9-20 08:22):
这个源码和置随机数种子没什么区别，只是在置随机数种子本身的基础上包装了另外的算法，因为随机数种子本身的算法有一定的缺陷，所以本源码的重点不在随机数种子，置随机数种子那条完全可以去掉，主要是这个循环

面向春天想躺平

起点不管多低，起步无论多晚，重要的是，你可以坚持多久。

ghost12

在此留名，以后多多交流哦~

18177939293

支持开源，感谢分享。

萤火之光

支持开源，感谢分享。

噢噢

支持开源~！感谢分享

噢噢

支持开源~！感谢分享

heyulinok

起点不管多低，起步无论多晚，重要的是，你可以坚持多久。

qwejjk

能窗口标题随机好评

旭哥520

  

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

变量名	类 型	静态	数组	备 注
I	整数型
AW	整数型
Fra	整数型
res	正则表达式类

计次循环首 (_启动窗口.对内显示列表框.取表项数 (), I)
res.创建 (“\[(.+?)\]”, _启动窗口.对内显示列表框.取标题 (I － 1, 0), , , , )
' ===
xxe ＝ res.取子匹配文本 (1, 1)
Qkey ＝ res.取子匹配文本 (2, 1)
Qedits ＝ res.取子匹配文本 (3, 1)
AW ＝ Slist1.插入表项 (, , , , , )
Slist1.置标题 (AW, 0, 到文本 (AW ＋ 1))
Slist1.置标题 (AW, 1, Qedits)
Slist1.置标题 (AW, 2xxe)
Slist1.置标题 (AW, 3, _启动窗口.对外显示列表框.取标题 (AW, 2))
Slist1.置标题 (AW, 4, Qkey)
判断 (Qkey ≠ _启动窗口.对外显示列表框.取标题 (AW, 2))
Slist1.置标题 (AW, 5, “不一致”)
Slist1.置标题 (AW, 6, “0”)
.判断xxe ≠ “多选题”)
Slist1.置标题 (AW, 6, “1”)
Slist1.置标题 (AW, 6, “2”)

计次循环尾 ()
AW ＝ 0  ' 0
计次循环首 (Slist1.取表项数 (), I)
AW ＝ AW ＋ 到整数 (Slist1.取标题 (I － 1, 6))
计次循环尾 ()
标签1.标题 ＝ “共得分:” ＋ 到文本 (AW)
_启动窗口.图片框4.可视 ＝ 假
窗口2.可视 ＝ 真

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 getq<br /> .局部变量 I, 整数型<br /> .局部变量 AW, 整数型<br /> .局部变量 Fra, 整数型<br /> .局部变量 res, 正则表达式类<br /> <br /> .计次循环首 (_启动窗口.对内显示列表框.取表项数 (), I)<br />     res.创建 (“\[(.+?)\]”, _启动窗口.对内显示列表框.取标题 (I － 1, 0), , , , )<br />     ' ===<br />   xxe ＝ res.取子匹配文本 (1, 1)<br />     Qkey ＝ res.取子匹配文本 (2, 1)<br />     Qedits ＝ res.取子匹配文本 (3, 1)<br />     AW ＝ Slist1.插入表项 (, , , , , )<br />     Slist1.置标题 (AW, 0, 到文本 (AW ＋ 1))<br />     Slist1.置标题 (AW, 1, Qedits)<br />     Slist1.置标题 (AW, 2xxe)<br />     Slist1.置标题 (AW, 3, _启动窗口.对外显示列表框.取标题 (AW, 2))<br />     Slist1.置标题 (AW, 4, Qkey)<br />     .判断开始 (Qkey ≠ _启动窗口.对外显示列表框.取标题 (AW, 2))<br />         Slist1.置标题 (AW, 5, “不一致”)<br />         Slist1.置标题 (AW, 6, “0”)<br />     .判断xxe ≠ “多选题”)<br />         Slist1.置标题 (AW, 6, “1”)<br />     .默认<br />         Slist1.置标题 (AW, 6, “2”)<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> AW ＝ 0  ' 0<br /> .计次循环首 (Slist1.取表项数 (), I)<br />     AW ＝ AW ＋ 到整数 (Slist1.取标题 (I － 1, 6))<br /> .计次循环尾 ()<br /> 标签1.标题 ＝ “共得分:” ＋ 到文本 (AW)<br /> _启动窗口.图片框4.可视 ＝ 假<br /> 窗口2.可视 ＝ 真