VB彩票选号小助手报告Word格式文档下载.docx
- 文档编号:19083333
- 上传时间:2023-01-03
- 格式:DOCX
- 页数:40
- 大小:231.90KB
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 彩票 选号 助手 报告