VB彩票选号小助手报告Word格式文档下载.docx
《VB彩票选号小助手报告Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VB彩票选号小助手报告Word格式文档下载.docx（40页珍藏版）》请在冰豆网上搜索。
Form1：
启动界面，启动程序。
Form2：
体育彩片选号界面，进行体育彩票摇号。
Form3：
福利彩票界面，进行福利彩票选择。
Form4：
双色球彩票选号界面，进行双色球摇号。
Form5：
3D彩票选号界面，进行3D摇号。
Form6：
35选7选号界面，进行35选7摇号。
Form7：
29选7选号界面，进行29选7摇号。
Form8：
关于界面，查看关于界面。
4.预计软件实现的效果
----------实现多种彩票种类分别随机摇号
----------实现排序输出（福利彩票）
----------实现摇号过程中清除旧的摇号数据
----------实现菜单栏工具栏简单功能，实现状态栏时间日期显示功能
----------实现帮助文件的调用
四、系统各功能块设计
1.关键控件
PrivateSubCommand1_Click（）（控件点击的调用方法）
Command2.Enabled=（窗体控件是否可用）
PrivateSubForm_Load（）（窗体运行）
PrivateSubTimer1_Timer（）（计时器）
CallCommand2_Click（调用控件）
DimiAsInteger（变量定义）
For（循环）
DoEvents函数（返回转让控制权，防止系统卡）
PrivateSubCommand1_Click（）
Form1.Hide
Form2.Show
EndSub（不同窗体的切换方法）
Option5.Value=True
Text1（i）.Text=（对控件属性进行赋值的方法）
Wait（自定义延迟函数）
2.关键技术
随机数（Rnd）的产生
延迟输出
循环
Hlp文件的建立
3.主要界面
Form2，Form4，Form5，Form6，Form7
五、软件运行结果
创建8个Form窗口
1.Form1的设计
①功能介绍：
主要用于进行Form1和Form2界面的交换使用，并提供退出程序控件。
②过程分析：
使用end和show即可实现以上功能。
③设计应用界面
在form1窗体上添加命令按钮command1、command2、command3和标签label1。
④对象主要属性设置
控件
属性名
属性值
说明
Form1
Caption
彩票选号小助手
Borderstyle
1-fixedsingle
禁止用户改变窗体大小
Minbutton
True
允许用户最小化程序
Starupposition
2-屏幕中心
启动时界面在屏幕中心
Command1
体育彩票
Command2
福利彩票
Command3
退出
⑤运行界面如下
2.Form2的设计
①功能介绍
手动或者自动产生1到5组体育彩票号码，并实现手动自动交替之间的清除功能。
②过程分析
使用延迟函数使号码产生依次停止效果，使用timer语句产生滚动效果，并提供返回主界面（Form1）的程序控件。
③设计应用界面
在窗体上添加七个timer控件timer1——timer7，添加四个command控件command1——command4，两个frame控件frame1、frame2，向frame1中添加七个text控件数组，分别为：
text1（0）——text1（4）、text2（0）——text2（4）、text3（0）——text3（4）、text4（0）——text4（4）、text5（0）——text5（4）、text6（0）——text6（4）、text7（0）——text7（4）。
向frame2中添加一个option控件数组：
option1（0）——option1（4）。
form2
传统型体育彩票
timer1-timer7
Interval
30
开始
停止
自动
Command4
返回主界面
3.Form3的设计
主要用于进行Form3和Form4，Form5，Form6，Form7界面的交换使用，并提供返回主界面（Form1）的程序控件。
使用command的控件实现。
添加五个command控件command1——command5。
④对象主要属性设置
Form3
电脑福利彩票
command1
双色球
command2
Caption
3D
command3
35选7
command4
Caption
29选7
command5
4.Form4的设计
自动产生一组六个红球号码，一个蓝球号码，并实现自动交替之间的清除功能。
使用延迟函数使号码产生依次停止效果，使用timer语句产生滚动效果，并提供返回福彩界面（Form3）的程序控件。
在窗体上添加七个timer控件timer1——timer7，添加三个command控件command1——command3，七个Shape控件Shape1——Shape7，向Shape1——Shape7中分别添加七个tex1——text7控件。
Form4
双色球福利彩票
返回福彩界面
5.Form5的设计
自动产生三位数字（百，十，个），并实现自动交替之间的清除功能。
在窗体上添加七个timer控件timer1——timer3，添加三个command控件command1——command3，三个Shape控件Shape1——Shape3，向Shape1——Shape3中分别添加七个text1——text3控件。
Form5
3D福利彩票
timer1-timer3
6.Form6
1功能介绍
随机产生用户需要的一到五组的福利彩票号码。
2分析
使用控件数组简化程序代码的数量，提高程序的稳定性。
使用循环结构产生各组控件需要的值。
用逐一比较法排除相同项。
③设计应用界面
在窗体上添加三个command控件command1——command3，两个frame控件frame1、frame2，向frame1中添加七个text控件数组，分别为：
option1（0）——option1（4）如图18所示
④设置对象属性
Form6
35选7福利彩票
清除
6.Form7
3功能介绍
4分析
Form7
29选7福利彩票
5运行界面如下
六、设计总结
期末课程实习选择学习了VB，起初还十分担心，因为怕自己对VB很难在短时间内掌握。
但是，为了做好本次课程设计，我去图书馆接了《VisualBasic程序设计教程》，并对着老师给的课件，认真开始学习，对实习中所需涉及到的知识有更深入的了解和掌握。
在一切的充分准备下，我认为，程序设计目的已较明确，程序实现起来较顺利，这让我体会到了踏实学习知识的重要性。
实习中与同学的交流合作，让我们彼此间的知识和思维进行了碰撞和进步。
本次课程设计的实习报告确实让我学习到了许多新鲜的知识，我了解了VisualBasic程序设计教程的相关知识，由于使用了VB语言进行程序的编写，这就在一定程度上锻炼了自己在VB方面的水平，也让我深刻地理解了，一种语言可以应用到很多的方面，尤其是在当今社会，对计算机的掌握水平提出了更高的要求。
作为一名合格的大学生，一名以后能胜任自己岗位的工作者，更要不断提升自己对计算机的掌握水平。
通过这次课程设计，我获益匪浅。
我想这些都会对我以后的工作学习产生深刻的影响。
即使以后不从事系统软件方面的工作，这些代码实现的技巧也会对我作其他软件开发工作带来极大的助益。
同时，对阅读内核代码进行阅读、总结的过程也提高了我的分析问题、解决问题的能力，而这种能力是无论做什么工作都需要的。
在这过程中，让我懂得了团队合作非常的重要，在这期间我有很多不懂的问题，通过和同学一起讨论，很多问题都得到了有效的解决，这样不仅加深了和同学之间的友谊，也使我们在编程中有许多的乐趣。
这次程序设计，使我认识到，对知识的了解不够深入，只停留在知道的层面，这远远不够，我应该在以后的学习中，学会“学以致用”，知识只有用得多了才更熟练更深入，必须强化这一观念，不断提升自己在各方面的学习进步。
七、参考文献
格式如下：
网页参考文献例：
[1]URL:
[2]URL:
[3]URL:
书籍参考文献例:
[1]VisualBasic程序设计教程（第2版）刘瑞新汪远征等著——北京：
机械工业出版社，2006.8（2008.4重印）
附录：
—————form1窗口—————
form1.Hide
EndSub
PrivateSubCommand2_Click（）
Form3.Show
PrivateSubCommand3_Click（）
End
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
SelectCaseButton.Index
Case1
form1.Show
Case2
EndSelect
PrivateSub彩票小助手_Click（）
Form8.Show
PrivateSub开始_Click（）
PrivateSub使用帮助_Click（）
CommonDialog1.HelpFile=App.Path&
"
/TEXT1.hlp"
CommonDialog1.HelpCommand=cdlHelpContents
CommonDialog1.ShowHelp
PrivateSub退出_Click（）
—————form2窗口—————
DimXAsInteger'
定义总体要用的选中的第几注
DimiAsInteger
IfText1（0）.Text<
>
"
AndText1
（1）.Text<
AndText1
（2）.Text<
AndText1（3）.Text<
AndText1（4）.Text<
Then
Fori=0To4
Text1（i）.Text="
Nexti
Text2（i）.Text="
Text3（i）.Text="
Text4（i）.Text="
Text5（i）.Text="
Text6（i）.Text="
Text7（i）.Text="
DoEvents
EndIf
IfOption1（i）.Value=TrueThen
X=i
ExitFor
Nexti'
获得第几注
Command1.Enabled=False
Command2.Enabled=True
Timer1.Enabled=True'
启动Timer1--timer7
Timer2.Enabled=True
Timer3.Enabled=True
Timer4.Enabled=True
Timer5.Enabled=True
Timer6.Enabled=True
Timer7.Enabled=True
Subwait（iAsInteger）'
定义延迟函数（未用sleep函数）
DimsAsInteger
DimjAsInteger
DimkAsInteger
Forj=0Toi
Fork=0To5000
s=s
Nextk
Nextj
EndSub'
其实就是一个循环，循环需要时间
Command2.Enabled=False
wait（100）'
延时0.1秒
Timer1.Enabled=False
DoEvents'
防止卡机
wait（600）'
延时0.6秒
Timer2.Enabled=False
wait（1100）'
延时1.1秒
Timer3.Enabled=False
wait（1600）'
延时1.6秒
Timer4.Enabled=False
wait（2100）'
延时2.1秒
Timer5.Enabled=False
wait（200）'
延时2.6秒
Timer6.Enabled=False
wait（3100）'
延时3.1秒
Timer7.Enabled=False'
延迟时间不同，间隔相同，实现依次停止
Command1.Enabled=True
Command3.Enabled=False
Option1（i）.Value=True'
注数依次选中
wait（6000）
CallCommand2_Click'
启用停止按钮,自动停止
Option1（0）.Value=True'
标记第一注选中
Command3.Enabled=True
PrivateSubCommand4_Click（）
Form2.Hide
PrivateSubForm_Load（）
Option1（0）.Value=False'
开始即在第一注上
Timer1.Enabled=False'
未启动Timer1--timer7
Timer7.Enabled=False
PrivateSubTimer1_Timer（）
Text1（X）.Text=Int（10*Rnd）
PrivateSubTimer2_Timer（）
Text2（X）.Text=Int（10*Rnd）
PrivateSubTimer3_Timer（）
Text3（X）.Text=Int
升级会员 