双色球号码生成工具-图形界面版本

本文介绍了一个能够生成并过滤号码的系统,支持自定义数据源和号码过滤器,适用于多种号码种类,提供TXT和Excel两种格式导出。系统基于SunJDK 1.5环境开发,并利用jxl-all.jar进行Excel解析。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

// ================= 程序 说明 ========================

1. 系统随机生成号码(最多5000个),生成的号码保存到文件里,格式:txt格式或者excel格式;
2. 根据自定义的过滤器或者过滤器组过滤号码,生成的号码保存到文件里,格式:txt格式或者excel格式;
3. 下载模板;

扩充功能:
1. 用户可以自定义: 随机数据源;
2. 用户可以自定义: 号码过滤器;
3. 用户自定义号码种类,模板可以是自动生成;

// ================= 项目 配置 ========================

项目设置:
1. 要求:sun jdk1.5环境.
2. 解析excel文件需要使用 jxl-all.jar提供的功能实现.


// ================= 数据 设置 ========================
actionData (Map)
"fileType",String,".xls"[".txt"] // 当前选择 保存文件为哪种类型文件
"saveFile",String,"" // 需要保存的文件,记录保存文件的位置和名称
"groupNumber",String,10 // 生成号码的组数
"frameShowType",String,1 // 显示目前激活的哪个页面
"inputFile1",String,"" // 导入文件1
"inputFile2",String,"" // 导入文件2

log4 日志文件系统

// ================= 附件 说明 ========================

shuang-src.jar 源代码文件
doc.zip api文档文件
shuang.zip 可执行文件压缩包
shuang.exe 已经打包成自解压文件(windos下运行),下载后把后缀[.zip]删除即可
history.xls 双色球历史开奖号码数据
http://blog.sina.com.cn/s/blog_4cd4ffc401018xbx.html vb编写双色球号码生成小程序源码 需要3个label,用来显示相应信息;两个文本框,一个显示生成号码,一个用来设置号码数量;两个按钮,一个用来开始生成,一个用来复制生成号码。完整代码如下: '首先声明一个生成号码的函数用于调用 Sub 生成() 'vb的函数名称可以用汉字的,呵呵 Dim n(1 To 33), i, j, q, p '定义变量 For i = 1 To 33 n(i) = 0 Next j = 0 Randomize Timer '防止随机数重复 While j < 6 '生成6个红球号码 q = Int(Rnd(1) * 33 + 1) '红球号码为01到33 If q < 10 Then '判断是否是小于10 q = 0 & q '小于10则在前面加0 End If If n(q) = 0 Then Text1.Text = Text1.Text & q & " " '生成后写入文本框,各球中间用1个空格隔开 n(q) = 1 j = j + 1 End If Wend '红球已经生成完毕了,下面是蓝球,同红球 Randomize Timer p = Int(Rnd(1) * 16 + 1) If p < 10 Then '判断是否是小于10 p = 0 & p '小于10则在前面加0 End If Text1.Text = Text1.Text & " " & p & vbCrLf '红球和蓝球联合起来,用两个空格隔开,末尾加上换行符,以便于生成多个号码 End Sub Private Sub Command1_Click() '使用Clipboard来实现复制到剪贴板功能 Clipboard.Clear Clipboard.SetText Text1.Text End Sub Private Sub Command2_Click() '我们在界面加上一个显示生成时间的小东西 Dim s, t, k s = Timer '开始生成 Text1.Text = "" '先清空文本框 k = 0 While k < Val(Text2.Text) '按照需要来生成所需数量的号码 Call 生成 k = k + 1 Wend t = Timer '生成结束 Label2.Caption = "用时" & t - s & "秒" '显示生成时间 End Sub Private Sub Form_Load() '在load里面设置一下文本框内容 Text1.Text = "" Text2.Text = 5 End Sub
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值