开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 7623|回复: 30
收起左侧

[易语言模块源码] 真随机数生成模块源码

[复制链接]
结帖率:60% (3/5)
发表于 2017-3-8 11:23:10 | 显示全部楼层 |阅读模式   内蒙古自治区呼和浩特市
分享例程
界面截图:
备注说明: 取CPU从0加到1亿需要的毫秒数 () ,用于获取真随机数的种子,内置随机数算法。
最大取值范围:-2147483648~2147483647
发现有bug请在楼下跟帖回复。
本帖最后由 n9z 于 2017-3-8 13:09 编辑

  
窗口程序集名保 留  保 留备 注
真随机数生成模块   
子程序名返回值类型公开备 注
_启动子程序整数型 请在本子程序中放置易模块初始化代码
_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值
子程序名返回值类型公开备 注
_临时子程序  
变量名类 型静态数组备 注
随机数整数型 
' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
取随机字节 ()
计次循环首 (100, )
输出调试文本 (取正负随机整数 (, ))
计次循环尾 ()
子程序名返回值类型公开备 注
取随机字节字节型 该算法可返回一个0~255范围随机的字节型数据
参数名类 型参考可空数组备 注
置随机数种子逻辑型
变量名类 型静态数组备 注
随机数种子整数型 
随机数字节型9
如果真 (置随机数种子 = )
随机数种子 = 取绝对值 (到整数 (取CPU从0加到1亿需要的毫秒数 () × 到整数 (取数字时间 ()) × 取鼠标水平位置 () × 取鼠标垂直位置 ()))
随机数种子 = 取绝对值 (随机数种子)
随机数 [2]到字节 (位与 (随机数种子, 255) × 3 + 3)
随机数 [3]到字节 (右移 (位与 (随机数种子, 65280), 8) × 5 - 5)
随机数 [4]到字节 (右移 (位与 (随机数种子, 16711680), 16) × 7 + 7)
随机数 [5]到字节 (位与 (随机数种子, 255) × 9 + 9)
随机数 [6]到字节 (右移 (位与 (随机数种子, 65280), 8) × 11 - 11)
随机数 [7]到字节 (右移 (位与 (随机数种子, 16711680), 16) × 13 + 13)
随机数 [8]到字节 (右移 (位与 (随机数种子, 16711680), 16) × 15 - 15)

随机数 [2] (随机数 [3] + 3) × 3
随机数 [3] (随机数 [4] - 3) × 3
随机数 [4] (随机数 [5] + 3) × 3
随机数 [5] (随机数 [6] - 3) × 3
随机数 [6] (随机数 [7] + 3) × 3
随机数 [7] (随机数 [8] - 3) × 3
随机数 [8] (随机数 [9] + 3) × 3
随机数 [9] (随机数 [2] - 3) × 3
如果真 (随机数 [2] > 127)
随机数 [3]位异或 (随机数 [3], 127)
如果真 (随机数 [3] < 127)
随机数 [4]位异或 (随机数 [4], 127)
如果真 (随机数 [4] > 127)
随机数 [5]位异或 (随机数 [5], 127)
如果真 (随机数 [5] < 127)
随机数 [6]位异或 (随机数 [6], 127)
如果真 (随机数 [6] > 127)
随机数 [7]位异或 (随机数 [7], 127)
如果真 (随机数 [7] < 127)
随机数 [8]位异或 (随机数 [8], 127)
如果真 (随机数 [8] > 127)
随机数 [9]位异或 (随机数 [9], 127)
如果真 (随机数 [9] < 127)
随机数 [2]位异或 (随机数 [2], 127)
随机数 [1]位异或 (随机数 [2], 随机数 [3], 随机数 [4], 随机数 [5], 随机数 [6], 随机数 [7], 随机数 [8], 随机数 [9])
返回 (随机数 [1])
子程序名返回值类型公开备 注
取正负随机整数整数型 最大取值范围:-2147483648~2147483647
参数名类 型参考可空数组备 注
最小值整数型默认为-2147483648
最大值整数型默认为2147483647
变量名类 型静态数组备 注
随机数A整数型 
随机数B整数型 
正随机数整数型 
正负标志字节型 
随机数整数型 
数间隔长整数型 
随机数A = 取颜色值 (取随机字节 (), 取随机字节 (), 取随机字节 ())
随机数B = 取颜色值 (取随机字节 (), 取随机字节 (), 取随机字节 ())
正随机数 = 取绝对值 (左移 (随机数A, 24) + 随机数B)
如果真 (是否为空 (最小值))
最小值 = -2147483648
如果真 (是否为空 (最大值))
最大值 = 2147483647
如果真 (最小值 > 最大值)
交换变量 (最小值, 最大值)
如果真 (最小值 ≤ 0 最大值 ≥ 0)
正负标志 = 位与 (取随机字节 (), 1)
如果真 (最小值 ≤ 0 最大值 ≤ 0)
正负标志 = 0
如果真 (最小值 ≥ 0 最大值 ≥ 0)
正负标志 = 1
如果真 (数之间是否包含0 (最小值, 最大值, 数间隔))
如果真 (正随机数 (数间隔 + 1) = 0)
返回 (0)

如果 (正负标志 = 1)
随机数 = 取绝对值 (正随机数 % 最大值 + 1)
随机数 = 0 - 取绝对值 (正随机数 % 最小值 + 1)
返回 (随机数)
子程序名返回值类型公开备 注
数之间是否包含0逻辑型 
参数名类 型参考可空数组备 注
最小值长整数型
最大值长整数型
间隔长整数型
如果真 (最小值 > 最大值)
交换变量 (最小值, 最大值)
间隔 = 最大值 - 最小值
返回 (最小值 ≤ 0 最大值 ≥ 0)
子程序名返回值类型公开备 注
取数字时间长整数型 
变量名类 型静态数组备 注
文本时间文本型 
文本时间 = 到文本 (取现行时间 ())
文本时间 = 子文本替换 (文本时间, “年”, , , , )
文本时间 = 子文本替换 (文本时间, “月”, , , , )
文本时间 = 子文本替换 (文本时间, “日”, , , , )
文本时间 = 子文本替换 (文本时间, “时”, , , , )
文本时间 = 子文本替换 (文本时间, “分”, , , , )
文本时间 = 子文本替换 (文本时间, “秒”, , , , )
返回 (到长整数 (文本时间))
子程序名返回值类型公开备 注
取CPU从0加到1亿需要的毫秒数整数型 由于CPU频率的不稳定性受到温度等环境以及硬件配置的影响,每次累加需要的时间都会不同,真随机数通过此函数产生的。
变量名类 型静态数组备 注
开始时间整数型 
计数整数型 
开始时间 = 取启动时间 ()
判断循环首 (计数 ≤ 100000000)
计数 = 计数 + 1
判断循环尾 ()
返回 (取启动时间 () - 开始时间)





友情提醒:请选择可信度高的模块,勿用未知模块,防止小人在模块内加入木马程序。【发现问题模块请到站务投诉】。
结帖率:100% (13/13)
发表于 2017-6-3 23:51:48 | 显示全部楼层   广东省广州市
有BUG啊,取正负随机整数(1000000,2000000)居然会返回比 1000000 还小的数字
回复 支持 反对

使用道具 举报

结帖率:60% (3/5)
 楼主| 发表于 2017-6-4 07:19:46 | 显示全部楼层   内蒙古自治区呼和浩特市
这个是新版本的。
  
.版本 2.支持库 spec
窗口程序集名保 留  保 留备 注
真随机数生成模块   
子程序名返回值类型公开备 注
_启动子程序整数型 请在本子程序中放置易模块初始化代码
_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值
子程序名返回值类型公开备 注
_临时子程序  
变量名类 型静态数组备 注
随机数整数型 
最小值整数型 
最大值整数型 
' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
置随机数种子 ()
取随机字节 ()
计次循环首 (10000, )
最小值 = 取随机数 (0, 10000)
最大值 = 取随机数 (0, 10000)
如果真 (位与 (取随机数 (, ), 1) = 1)
最小值 = 0 - 最小值
如果真 (位与 (取随机数 (, ), 1) = 1)
最大值 = 0 - 最大值
如果真 (最小值 > 最大值)
交换变量 (最小值, 最大值)
随机数 = 取正负随机整数 (最小值, 最大值)
如果真 (随机数 < 最小值 随机数 > 最大值)
调试输出 (随机数)
调试输出 (“错误”)
结束 ()

计次循环尾 ()
调试输出 (“成功”)
结束 ()
子程序名返回值类型公开备 注
取随机字节字节型 该算法可返回一个0~255范围随机的字节型数据
参数名类 型参考可空数组备 注
置随机数种子逻辑型
变量名类 型静态数组备 注
随机数种子整数型 
随机数字节型9
如果真 (置随机数种子 = )
随机数种子 = 取绝对值 (到整数 (取CPU从0加到1亿需要的毫秒数 () × 到整数 (取数字时间 ()) × 取鼠标水平位置 () × 取鼠标垂直位置 ()))
随机数种子 = 取绝对值 (随机数种子)
随机数 [2]到字节 (位与 (随机数种子, 255) × 3 + 3)
随机数 [3]到字节 (右移 (位与 (随机数种子, 65280), 8) × 5 - 5)
随机数 [4]到字节 (右移 (位与 (随机数种子, 16711680), 16) × 7 + 7)
随机数 [5]到字节 (位与 (随机数种子, 255) × 9 + 9)
随机数 [6]到字节 (右移 (位与 (随机数种子, 65280), 8) × 11 - 11)
随机数 [7]到字节 (右移 (位与 (随机数种子, 16711680), 16) × 13 + 13)
随机数 [8]到字节 (右移 (位与 (随机数种子, 16711680), 16) × 15 - 15)

随机数 [2] (随机数 [3] + 3) × 3
随机数 [3] (随机数 [4] - 3) × 3
随机数 [4] (随机数 [5] + 3) × 3
随机数 [5] (随机数 [6] - 3) × 3
随机数 [6] (随机数 [7] + 3) × 3
随机数 [7] (随机数 [8] - 3) × 3
随机数 [8] (随机数 [9] + 3) × 3
随机数 [9] (随机数 [2] - 3) × 3
如果真 (随机数 [2] > 127)
随机数 [3]位异或 (随机数 [3], 127)
如果真 (随机数 [3] < 127)
随机数 [4]位异或 (随机数 [4], 127)
如果真 (随机数 [4] > 127)
随机数 [5]位异或 (随机数 [5], 127)
如果真 (随机数 [5] < 127)
随机数 [6]位异或 (随机数 [6], 127)
如果真 (随机数 [6] > 127)
随机数 [7]位异或 (随机数 [7], 127)
如果真 (随机数 [7] < 127)
随机数 [8]位异或 (随机数 [8], 127)
如果真 (随机数 [8] > 127)
随机数 [9]位异或 (随机数 [9], 127)
如果真 (随机数 [9] < 127)
随机数 [2]位异或 (随机数 [2], 127)
随机数 [1]位异或 (随机数 [2], 随机数 [3], 随机数 [4], 随机数 [5], 随机数 [6], 随机数 [7], 随机数 [8], 随机数 [9])
返回 (随机数 [1])
子程序名返回值类型公开备 注
取正负随机整数整数型 最大取值范围:-2147483648~2147483647
参数名类 型参考可空数组备 注
最小值整数型默认为-2147483648
最大值整数型默认为2147483647
变量名类 型静态数组备 注
随机数A整数型 
随机数B整数型 
正随机数整数型 
正负标志字节型 
随机数整数型 
数间隔长整数型 
随机数A = 取颜色值 (取随机字节 (), 取随机字节 (), 取随机字节 ())
随机数B = 取颜色值 (取随机字节 (), 取随机字节 (), 取随机字节 ())
正随机数 = 取绝对值 (左移 (随机数A, 24) + 随机数B)
如果真 (是否为空 (最小值))
最小值 = -2147483648
如果真 (是否为空 (最大值))
最大值 = 2147483647
如果真 (最小值 = 最大值)
返回 (最小值)
如果真 (最小值 > 最大值)
交换变量 (最小值, 最大值)
数间隔 = 最大值 - 最小值
随机数 = 正随机数 % 数间隔 + 最小值
返回 (随机数)
子程序名返回值类型公开备 注
取数字时间长整数型 
变量名类 型静态数组备 注
文本时间文本型 
文本时间 = 到文本 (取现行时间 ())
文本时间 = 子文本替换 (文本时间, “年”, , , , )
文本时间 = 子文本替换 (文本时间, “月”, , , , )
文本时间 = 子文本替换 (文本时间, “日”, , , , )
文本时间 = 子文本替换 (文本时间, “时”, , , , )
文本时间 = 子文本替换 (文本时间, “分”, , , , )
文本时间 = 子文本替换 (文本时间, “秒”, , , , )
返回 (到长整数 (文本时间))
子程序名返回值类型公开备 注
取CPU从0加到1亿需要的毫秒数整数型 由于CPU频率的不稳定性受到温度等环境以及硬件配置的影响,每次累加需要的时间都会不同,真随机数通过此函数产生的。
变量名类 型静态数组备 注
开始时间整数型 
计数整数型 
开始时间 = 取启动时间 ()
判断循环首 (计数 ≤ 100000000)
计数 = 计数 + 1
判断循环尾 ()
返回 (取启动时间 () - 开始时间)


评分

参与人数 1精币 +6 收起 理由
胆小的老虎 + 6 感谢发布原创作品,精易因你更精彩!

查看全部评分

回复 支持 1 反对 0

使用道具 举报

结帖率:84% (89/106)

签到天数: 3 天

发表于 2017-3-8 15:35:09 | 显示全部楼层   广东省中山市
学习一下,支持楼主
回复 支持 反对

使用道具 举报

结帖率:75% (3/4)

签到天数: 3 天

发表于 2017-3-9 08:04:05 | 显示全部楼层   河北省石家庄市
支持一下我来顶
回复 支持 反对

使用道具 举报

结帖率:100% (2/2)

签到天数: 3 天

发表于 2017-3-9 09:16:32 | 显示全部楼层   江苏省苏州市
精易的不好用么?
回复 支持 反对

使用道具 举报

发表于 2017-3-9 21:06:03 | 显示全部楼层   福建省泉州市
真随机数生成模块源码
回复 支持 反对

使用道具 举报

结帖率:75% (3/4)
发表于 2017-3-10 08:04:58 | 显示全部楼层   山东省淄博市
看一看~~1111
回复 支持 反对

使用道具 举报

结帖率:0% (0/1)
发表于 2017-3-10 10:27:14 | 显示全部楼层   北京市北京市
辛苦了,谢谢分享
回复 支持 反对

使用道具 举报

发表于 2017-3-12 17:08:53 | 显示全部楼层   广西壮族自治区南宁市
伪随机而已,要取出真正的随机数是不可能的
回复 支持 反对

使用道具 举报

结帖率:75% (3/4)
发表于 2017-3-12 17:34:37 | 显示全部楼层   福建省漳州市
下载学习学习
回复 支持 反对

使用道具 举报

结帖率:60% (3/5)
 楼主| 发表于 2017-3-12 18:10:41 | 显示全部楼层   天津市天津市
jbxh 发表于 2017-3-12 17:08
伪随机而已,要取出真正的随机数是不可能的


楼上需要弄清楚 取CPU从0加到1亿需要的毫秒数 () 返回的随机数是怎么来的。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 诚聘英才| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表