《毕业设计 毕业论文 抽奖系统.doc》由会员分享，可在线阅读，更多相关《毕业设计 毕业论文 抽奖系统.doc（14页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、兰州职业技术学院信息工程系 抽奖程序抽奖系统目 录一、 引言. (2)二、 关键字. (3)三、 开发及运行环境. (3)四、 开发平台简介. (3)五、 相关内容. (4)六、 参考文献. (10)七、 结束语. (10)八、 附录. (10) 一、引言诞生于本世纪中叶的计算机科学较之其他现代科学技术的发展更迅速，它大大方便了人们的生活。随着计算机的普及，以及计算机技术的不断提高和完善，越来越多的企业运用计算机技术来提高员工的工作效率。Visual Basic版本的不断更新，功能不断的得到增强，现在的最新版本是Visual Basic6.0。为了满足不同的开发需要，Visual Basic6
2、.0本身又分为学习版本、专业版和企业版。3种版本是在相同的基础上建立起来的，因此大多数应用程序可在3种版本中通用。3中版本适合于不同的拥护层次。同时增加了许多新的功能。（1）学习版：Visual Basic的基础版本，可用来开发Windows应用程序。该版本包括所有的内部控件（标准控件）和网络（ Gad）控件、对以及数据绑定控件。（2）专业版：该版本为编程人员提供一整套用于软件开发的功能完备的工具。它包括学习版的全部功能，同时包括Active控件、 Internet控件 Crystal report Write和报表控件. （3）企业版：该版本包括了专业版的全部功能,同时具有自动化管理器、部件
3、管理器、数据库管工具。启动VB6.0中文版（其它语言的版本也 可以，操作时请选择相应的菜单或按钮），单击“视图”菜单，从其中的“工具 栏”子菜单中选择“自定义”，单击它可以打开“自定义”对话框，选择其中的 “命令”选项卡。在这个对话框中，在左边的“类别”选项框中找到“帮助”并单击它，然后从右边的“命令”选择框中找到“关于MicrosoftV isualBasic”，按住鼠标左键将它拖到“工具条”上（也可以 拖到一个单中）。用鼠标右键单击该按钮，在弹出的菜单中找到“命名”，它 的后边跟着一个文字框，其中有该按钮的名字：“关于Microsoft Visual Basic6.0 Visual Bas
4、ic是一种新型的现代程序设计语言.同传统的高级语言相比, Visual Basic在许多方面都有重要的改革和突破,其中最根本、最重要的突破集中在以下几点上。1)可视化编程2)面向对象编程3)事件驱动编程二、关键词 抽奖 查询 控件三、本程序开发及运行环境程序开发环境：硬件：方正S650N笔记本电脑(CPU ：Intel Pentium T2130 内存：1024 MB ) 操作系统：windows XP SP3 运行环境：CPU：PIII以上，内存：256MB 操作系统：windows 2000 以上。无需其它软件支持。 使用者可以是抽奖操作人员或兑奖人员。四、开发平台简介Visual Bas
5、ic6.0 简介Visual Basic 6.0是美国微软公司推出的对市场冲击最大、最优秀的可视化开发环境，它提供了一种方便快捷的Windows应用程序开发工具Visual Basic。使用了Microsoft windows 图形用户界面的许多先进特性和设计思想，采用了可重复利用的完整的面向对象的程序语(ObjectOriented Language)。当今世界上最快的编辑器、最为领先的数据库技术。对于广大的程序开发人员来讲，Visual Basic。使用开发应用软件，无疑会大大提高编程效率。Visual Basic 6.0 是目前的最新版本。Visual Basic6.0又在Visual
6、Basic1.0的基础上增加了许多新的功能，对开发环境也作了改进和完善，特别是增加了大量新的组建，一时用于网络开发的需要。Visual Basic使用“可视化”的编程方法。程序员不必自己建立对象，利用Visual Basic所提供的可视“控件”，只要在提供的程序框架中加入完成功能的代码，如选择命令、移动鼠标等，而不必考虑按精确次序执行的每个步骤。在这种机制下，不必编写一个大型程序，二是建立一个由若干微小程序组成的应用程序，这些微小程序可以由用户启动事件来激发。这样就可以快速创建强大的应用程序而无须涉及不必要的细节。这样就为程序员的工作减少了相当一部分难度，而且是系统功能得以全面。Visual
7、Basic 6.0开发环境和基本语言成分，程序设计基础知识，面向对象程序设计的基本概念和方法，窗体、菜单、控件等用户界面的设计，以及文件操作、图形图像处理、程序调试与出错处理、数据库应用、ActiveX控件等。Visual Basic 6.0是专门为的32位操作系统设计的。可用来建立32位的应用编程。用Visual Basic 6.0的编译器可以自动生成32位应用程序。这样的应用程序在32位操作系统下运行，速度更快，更安全。并且更适合在多任务环境下运行。五、相关内容兰州职业技术学院信息工程系将举行庆元旦联欢晚会，其中有个抽奖活动，需要一个抽奖软件。项目名称：抽奖程序项目制作人：杨宏亮项目开发单
8、位：兰州职业技术学院信息工程系05B网络二班主管部门：兰州职业技术学院信息工程系抽奖程序在联欢晚会上由主持人输入奖票号码范围，并指定获奖等级后，在给定的号码范围内产生一个随机号码，作为该获奖等级的一个中奖号码。如果产生的中奖号码与已产生的中奖的号码重复，则给出明确的提示，有操作人员选择中奖号“有效”（即中奖规则允许一个奖票重复获奖），或者是“无效”（即不允许一个奖票重复获奖）。可随时显示或打印抽奖结果。程序功能：（1）用户可以输入不同的抽奖范围，选择不同的中奖等级。（2）本抽奖程序为随机抽奖中奖号，如果产生了重复的中奖号将根据规则“丢弃”或“保留”（3）产生的中奖和对应的中奖等级记录在一个名为
9、“LuckRecord”的文本文件中。（4）可随时打印或显示中奖记录。抽奖程序系统流程图如图所示。抽奖程序系统流程图 抽奖程序数据流程图所示。D1中奖信息抽奖程序数据流程图本程序只限于内部使用，考虑到工会操作人员的水平，工会的笔记本电脑上不一定有数据库支持环境，所以采用文本文件来记录“中奖信息”。用文本文件记录的好处还体现在，工会的工作人员，尤其是兑奖人员，可以直接到Windows自带的记事本打开中奖信息和打印中奖信息。可以开展工作。3.功能要求（1）输入抽奖规则（2）产生中奖号码（3）显示中奖信息（4）更新中奖记录（5）打印中奖记录（1）输入中奖规则：输入最小中奖号，输入最大奖票号，输入是否
10、允许重复抽奖。（2）产生中奖号码：产生一个界于最小奖票号和最大奖票号之间的数。并且判断该数是否为一个有效的中奖。（3）显示中奖信息：一表格的形式显示到目前为止所有抽出的中奖奖票号和中奖等级。（4）更新中奖记录:将中奖奖票号和中奖等级写入“LuckyRecord”文件。（5）打印中奖记录：以表格的形式打印“LuckyRecord”文件内容。4外部接口（1）系统输入：从用户界面输入奖票号码范围。（2）系统输出：存放“中奖信息”的文本文件。（3）硬件接口：一般的P机或更高档微机或笔记本电脑。（4）软件接口：Winsows2000或以上版本。 初步决定为程序五个界面：主界面，如图B.3所示；等待中奖号
11、码产生，正在滚动号码时的界面，如图B.4所示；产生了一个中奖号码的界面，如图B.5所示；显示或打印“中奖记录”的界面，如图B.6所示；要求确认中奖号码重复所抽奖票是否有效的对话框，如图B.7所示。为什么不在第一个界面中输入是否重复中奖的选择，而是要单个奖票来确认呢？在需求获取的过程中，了解到安慰奖、三等奖、二等奖、一等奖等四个等级的奖不允许重复但是特等奖是从所有奖票中产生，允许与其他等级奖重复。而且工会的工作人员还说这个规划有可能会变，因此，这样处理重复抽取的号码有一定的灵活性。图B.3 主界面说明：本抽奖系统需要使用着指定奖票号的范围，以及最大和最小奖票号码进行抽奖。本系统为了防止人为的作弊
12、，使用着可以输入最小奖票号和最大奖票号后，锁定程序防止二次输入发生作弊行为。当使用者输入抽奖范围并锁定后，使用者单击开始抽奖按钮，系统将开始按照指定的范围开始随即抽奖。图B.4 奖票号码滚动时的界面说明：当抽奖系统运行起来之后，操作着可以选择奖票的等级，并选定中奖号码。显示下一界面。图B.5 中奖号码的界面说明：当程序运行到此界面，程序将自动保存中奖号码，并保存中奖号码的等级。使用人员可以单击开始抽奖按钮，开始抽取其它奖票号。说明：当抽奖完成后，使用人员可以查看中奖号码的等级以及中奖号。说明 ：如果中奖号码有重复将提示使用者，次奖票是否有效。5性能需求（1）用户单击开始抽奖后，程序1秒内调出“
13、正在产生中奖号码的界面”，显示翻滚着的随机奖票号码。（2）用户单击“选定中奖号码”到获取奖号的响应时间为1秒。（3）抽奖后重复对话框等待1分种，用户仍不做出选择，自动响应为允许重复。（4）显示抽奖记录，打印抽奖记录，表格弹出时间性在2分钟之内。 52数据精度要（1）本系统全部为整数（2）中奖等级最多可以有99个中奖等级，最大奖票号允许为99999。最小奖票号为空，则默认为1。（1）正确性：本软件要求在一般条件下，不产生不在最大和最小奖票号之间的中奖号码。（2）可靠性：一般条件下，不会死机。（3）效率：各个操作在1-20s内完成。（4）完整性：如果出现意外情况，要求前面已产生的中奖记录是完好的。
14、（5）易使用性：界面符合windows风格，能对照画面提示直接操作。（6）可维护性：如果将这个程序用在学生联欢会时，也应能快速修改，或有错误时也能快速修改。（7）可测试性：设计时尽可能减少测试各项功能的工作量。（8）复用性：尽量选用已有的设计、类来节省开发时间，设计尽量模块化，方便以后复用。（9）安全保密性：因为这个程序主要在一种娱乐活动中采用，没有特别安全性要求。（10）可理解性：要求程序中的菜单、按钮、提示信息直观，一看就懂。（11）可移植性：要求在PC机、笔记本电脑上通用。（12）互联性：没有互联要求。7其他要求无8数据说明81静态数据最大奖票号、最小奖票号、奖票。中奖记录、中奖奖票号、
15、中奖等级。中奖记录：LuckRecord文件，由于系统本身并不复杂，所以决定用文本文件来保存中奖记录中的中奖奖票号和中奖记录。1奖票=数字52中奖等级=1数字23最大奖票号=1数字54最小奖票号=1数字55中奖奖票号=1数字56中奖记录=1中奖奖票号 中奖等级n六参考文献1VB编程技术2软件工程与UML 胡琳玲 黄奇七结束语经过近一个多月的分析、设计和调试终于完成了本软件。在程序设计过程中我着重进行了查询、统计和报表的设计工作，在软件的功能方面或许存在许多不足和平不完善的地方，通过使用过境程中的信息反馈有待以后继续完善。通过设计分析此软件，我受益匪浅，把所学的理论通过毕业设计与实践联系起来，解
16、决实际问题，提高了我设计水平和编程技巧，同时也认识到自己的不足。 此次设计通过指导教师的热心指导以及我的主动观察就和努力得以顺利完成。在此特别感谢冯老师的精心指导。敬礼八附录主界面代码如下：Option ExplicitPrivate Sub Check1_Click() If Check1.Value = 1 Then Text1.Enabled = False Else Text1.Enabled = True End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Text2.Enabled = False Els
17、e Text2.Enabled = True End IfEnd SubPrivate Sub Command1_Click()If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then If Val(Text1.Text) Val(Text2.Text) Then MsgBox 非法操作，最小票号不能大于最大票号！, vbCritical, 非法操作 Else A = Val(Text1.Text) B = Val(Text2.Text) End IfElse If Text1.Text = Or Text2.Text = Then Msg
18、Box 奖票号不能为空，请输入奖票号范围！, vbCritical, 非法操作 Else MsgBox 非法奖票号的范围，请重新输入！（只能是数字）, vbCritical, 非法操作 End IfEnd IfEnd SubPrivate Sub Command2_Click()strFileName = App.Path & LuckyRecord.ini lngHandle = FreeFile() Open strFileName For Input As lngHandleDo While Not EOF(lngHandle)Line Input #lngHandle, strLine
19、strall = strall & strLine & vbCrLfLoopFormPrint.Text1.Text = strallUnload MeEnd SubPrivate Sub Form_Load() X0 = (X0 - Me.Width) / 2 Y0 = (Y0 - Me.Height) / 2 Me.Move X0, Y0 strFileName = App.Path & LuckyRecord.inilngHandle = FreeFile()strWrite = Open strFileName For Append As lngHandlePrint #lngHand
20、le, strWriteClose lngHandleEnd SubPrivate Sub Timer1_Timer() If Label2.ForeColor = vbRed Then Label2.ForeColor = vbGreen Else Label2.ForeColor = vbRed End IfEnd SubPrivate Sub Timer2_Timer()End Sub中奖号的界面如下所示：Option ExplicitPrivate Sub Command1_Click() Timer2.Enabled = False FormCreate.Text2.Text = C
21、ombo1 strFileName = App.Path & LuckyRecord.inilngHandle = FreeFile()Open strFileName For Append As lngHandlePrint #lngHandle, strWriteClose lngHandle Unload MeEnd SubPrivate Sub Form_Load()X0 = (X0 - Me.Width) / 2Y0 = (Y0 - Me.Height) / 2Me.Move X0, Y0End SubPrivate Sub Timer1_Timer()If Label2.ForeC
22、olor = vbRed Then Label2.ForeColor = vbGreenElse Label2.ForeColor = vbRed End IfEnd SubPrivate Sub Timer2_Timer() Randomize Text2.Text = Int(Rnd() * (A - B + 1) + B)End Sub中奖号码产生代码如下：Private Sub Form_Load() X0 = (X0 - Me.Width) / 2 Y0 = (Y0 - Me.Height) / 2 Me.Move X0, Y0End SubPrivate Sub Timer1_Timer()If Label2.ForeColor = vbRed Then Label2.ForeColor = vbGreen Label2.Font.Bold = True Label2.Font.Size = 15 Else Label2.ForeColor = vbRed Label2.Font.Bold = False Label2.Font.Size = 12 End IfEnd Sub14毕业论文