易语言双色球源码

‘壹’ 求易语言编程高手

我知道啊，你问问我同学，他是学这个的

‘贰’ 我想作一个双色球计算软件，只会公式不会写，谁能用易语言帮我写

楼主提供公式，计算编写倒不是很难。

‘叁’ 易语言如何实现数字随机变化、谁给下源码、

.版本 2.程序集 窗口程序集1.子程序 _按钮1_被单击
.局部变量 红球, 整数型, , "0"
.局部变量 篮球, 整数型, , "16"
.局部变量 c, 整数型, , "0"
.局部变量 i, 整数型
.局部变量 q, 整数型
.局部变量 w, 整数型
.局部变量 出球, 整数型
.局部变量 结果, 整数型
.局部变量 次数, 整数型编辑框1.内容 ＝ “”
.计次循环首 (33, i)
加入成员 (红球, i)
.计次循环尾 ()
置随机数种子 ()
.计次循环首 (6, w)
q ＝ 取数组成员数 (红球)
置随机数种子 (取随机数 (0, 1e+014))
出球 ＝ 取随机数 (1, q)
输出调试文本 (出球)
结果 ＝ 红球 [出球]
' 数组排序 (红球, )
删除成员 (红球, 出球, )
加入成员 (c, 结果)
数组排序 (c, 真).计次循环尾 ()
.计次循环首 (6, w)
编辑框1.内容 ＝ 编辑框1.内容 ＋ 到文本 (c [w]) ＋ “,”
.计次循环尾 ()
编辑框2.内容 ＝ 到文本 (取随机数 (1, 16)).子程序 _标签3_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
这是我写的双色球随机取值，你自己参考着捉摸吧

‘肆’ 易语言双色球

事先声明，我只是一个新手，看了几个视频教程以后不知道该写什么，然后想尝试你说这个，可是有很多问题，

出现了很多问题，以我现在的本事无法解释。

1:在超级列表框2里，序号1里03和05出现了4次是对的，可是序号12里，03和06只有8次，为什么是9.我也不知道

2：删除重复，删不掉第一项，我想加在找号下，可是，删不干净，无论我计次循环多少

3：看见源码，你就知道我是什么样的新手了

4发现错误的兄弟麻烦告诉我下是那里错了

5刚才发现LZ有开奖日期，我没加，（实在是没耐性了）

.版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量 第几个, 整数型
.局部变量 临时数字变量, 整数型
.局部变量 临时次数变量, 双精度小数型
.局部变量 找次数, 整数型
.局部变量 第几排, 整数型
.局部变量 概率, 双精度小数型
.局部变量 表项索引, 整数型
.局部变量 查找, 文本型
.局部变量 下一个次数变量, 整数型
.局部变量 下一个数找次数, 整数型
.局部变量 莫名其妙的变量, 文本型
.局部变量 莫名其妙的变量1, 文本型
.局部变量 a, 整数型
.局部变量 概率2, 整数型

超级列表框2.全部删除 ()
查找 ＝ 编辑框1.内容
.计次循环首 (7, 第几排)
.计次循环首 (超级列表框1.取表项数 (), 第几个)
临时次数变量 ＝ 0
.计次循环首 (超级列表框1.取表项数 (), 找次数)
.如果真 (查找 ＝ 超级列表框1.取标题 (找次数 － 1, 第几排))
临时次数变量 ＝ 临时次数变量 ＋ 1
.如果真结束

.计次循环尾 ()
.如果真 (查找 ＝ 超级列表框1.取标题 (第几个 － 1, 第几排))
表项索引 ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (表项索引, 0, 到文本 (超级列表框2.取表项数 ()))
.如果 (第几排 ＝ 7)
超级列表框2.置标题 (表项索引, 2, “蓝色球”)
.否则
.判断开始 (第几排 ＝ 1)
超级列表框2.置标题 (表项索引, 2, “红色球一”)
.判断 (第几排 ＝ 2)
超级列表框2.置标题 (表项索引, 2, “红色球二”)
.判断 (第几排 ＝ 3)
超级列表框2.置标题 (表项索引, 2, “红色球三”)
.判断 (第几排 ＝ 4)
超级列表框2.置标题 (表项索引, 2, “红色球四”)
.判断 (第几排 ＝ 5)
超级列表框2.置标题 (表项索引, 2, “红色球五”)
.判断 (第几排 ＝ 6)
超级列表框2.置标题 (表项索引, 2, “红色球六”)
.默认

.判断结束

.如果结束
超级列表框2.置标题 (表项索引, 1, 查找)
超级列表框2.置标题 (表项索引, 3, 到文本 (临时次数变量))
概率 ＝ 临时次数变量 ÷ 超级列表框1.取表项数 () × 100
超级列表框2.置标题 (表项索引, 4, 到文本 (四舍五入 (概率, 1)) ＋ “%”)
.如果 (超级列表框1.取标题 (第几个 － 1, 第几排 ＋ 1) ＝ “”)
超级列表框2.置标题 (表项索引, 5, “没有了”)
.否则
超级列表框2.置标题 (表项索引, 5, 到文本 (超级列表框1.取标题 (第几个 － 1, 第几排 ＋ 1)))
.如果结束

.如果 (第几排 ＝ 7)
超级列表框2.置标题 (表项索引, 6, “没有了”)
.否则
.判断开始 (第几排 ＝ 1)
超级列表框2.置标题 (表项索引, 6, “红色球二”)
.判断 (第几排 ＝ 2)
超级列表框2.置标题 (表项索引, 6, “红色球三”)
.判断 (第几排 ＝ 3)
超级列表框2.置标题 (表项索引, 6, “红色球四”)
.判断 (第几排 ＝ 4)
超级列表框2.置标题 (表项索引, 6, “红色球五”)
.判断 (第几排 ＝ 5)
超级列表框2.置标题 (表项索引, 6, “红色球六”)
.判断 (第几排 ＝ 6)
超级列表框2.置标题 (表项索引, 6, “蓝色球”)
.默认

.判断结束

.如果结束

.如果真结束

.计次循环尾 ()
.计次循环尾 ()
.计次循环首 (超级列表框2.取表项数 (), )

.计次循环首 (超级列表框2.取表项数 (), 下一个数找次数)
.如果 (超级列表框2.取标题 (下一个数找次数 － 1, 5) ＝ “没有了”)
超级列表框2.置标题 (下一个数找次数 － 1, 7, “没有了”)
.否则
下一个次数变量 ＝ 1
.计次循环首 (超级列表框2.取表项数 (), a)
.如果 (超级列表框2.取标题 (下一个数找次数 － 1, 5) ＝ 超级列表框2.取标题 (a, 5))
下一个次数变量 ＝ 下一个次数变量 ＋ 1
.否则

.如果结束

.计次循环尾 ()
超级列表框2.置标题 (下一个数找次数 － 1, 7, 到文本 (下一个次数变量))
概率2 ＝ 下一个次数变量 ÷ 超级列表框1.取表项数 () × 100
超级列表框2.置标题 (下一个数找次数 － 1, 8, 到文本 (概率2) ＋ “%”)
.如果结束

.计次循环尾 ()
.计次循环尾 ()

.子程序 _按钮2_被单击
.局部变量 纵向, 整数型
.局部变量 删除纵向变量, 整数型

.计次循环首 (超级列表框2.取表项数 (), 纵向)
.计次循环首 (超级列表框2.取表项数 (), 删除纵向变量)
.如果真 (超级列表框2.取标题 (纵向, 1) ＝ 超级列表框2.取标题 (纵向 ＋ 删除纵向变量, 1))
.如果真 (超级列表框2.取标题 (纵向, 2) ＝ 超级列表框2.取标题 (纵向 ＋ 删除纵向变量, 2))
.如果真 (超级列表框2.取标题 (纵向, 5) ＝ 超级列表框2.取标题 (纵向 ＋ 删除纵向变量, 5))
.如果真 (超级列表框2.取标题 (纵向, 6) ＝ 超级列表框2.取标题 (纵向 ＋ 删除纵向变量, 6))
超级列表框2.删除表项 (纵向)
.如果真结束

.如果真结束

.如果真结束

.如果真结束

.计次循环尾 ()
.计次循环尾 ()

.子程序 _按钮3_被单击
.局部变量 a, 整数型
.局部变量 找最大, 整数型
.局部变量 表项索引, 整数型
.局部变量 次数, 整数型
.局部变量 号码, 文本型
.局部变量 颜色球, 文本型
.局部变量 概率, 整数型
.局部变量 号码2, 文本型
.局部变量 颜色球2, 文本型
.局部变量 次数2, 整数型
.局部变量 概率2, 整数型

编辑框2.内容 ＝ “”
.计次循环首 (超级列表框1.取表项数 (), a)
找最大 ＝ 到数值 (超级列表框2.取标题 (a, 7))
.如果 (找最大 ≤ 到数值 (超级列表框2.取标题 (a ＋ 1, 7)))
找最大 ＝ 到数值 (超级列表框2.取标题 (a ＋ 1, 7))
.否则
号码 ＝ 超级列表框2.取标题 (a, 1)
颜色球 ＝ 超级列表框2.取标题 (a, 2)
次数 ＝ 到数值 (超级列表框2.取标题 (a, 3))
概率 ＝ 到数值 (超级列表框2.取标题 (a, 4))
号码2 ＝ 超级列表框2.取标题 (a, 5)
颜色球2 ＝ 超级列表框2.取标题 (a, 6)
次数2 ＝ 到数值 (超级列表框2.取标题 (a, 7))
概率2 ＝ 到数值 (超级列表框2.取标题 (a, 8))
编辑框2.加入文本 (号码 ＋ “号，” ＋ 颜色球 ＋ “，” ＋ “出现过” ＋ 到文本 (次数) ＋ “次，概率是” ＋ 到文本 (概率) ＋ “%” ＋ “下一个号码” ＋ 号码2 ＋ “号，” ＋ 颜色球2 ＋ “，” ＋ “这2个号码同时出现过” ＋ 到文本 (次数2) ＋ “次，概率是” ＋ 到文本 (概率2) ＋ “%”)
.如果结束

.计次循环尾 ()

‘伍’ 易语言:求一个双色球6红的快速全组合写法 最好能排除无效的组合。如123456。123478. 1234.6.9.之类的组合

组合的方式有很多种，而且6个号码的组合方式就有上万种！

‘陆’ 易语言做一个双色球程序如何避免随机数字重复

是你方法的问题。随机取数不该这种方法，因为可能会有重复。不论是易语言还是其他，正确的流程是，一，初始化随机种子，二定义33个的一维数组四初始化从一到33赋值，五，打乱顺序 ，六，只需依次从第一个变量开始输出即可。关键算法是变量的打乱顺序。这个我写出来又比较麻烦。手机打字不容易

‘柒’ 易语言获取双色球开奖信息

给你写了个

模块自己网络下载精易模块3.8