抽奖系统毕业论文

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