用vb编写抽签软件-2019年文档资料.docxVIP

用 VB 编写抽签软件 ： Using VB6.0 to write the draw software ， realizing using computer to replace artificial work to complete the purpose of the draw process ， greatly reducing the burden of artificial draw when sample size is bigger ， to ensure the fairness of the draw. Software supports manual and automatic draw ， at the same time ， it has the function of saving draw record ，temporarily changing draw list without changes the source files. 软件编写目的 在日常生活中我们常常需要用抽签来解决实际问题， 比如在 大学课堂，老师可以用随机抽签的方式来查看学生的出勤情况； 在文艺晚会上，主持人可以用抽签的方式对观众进行奖品发送。 而传统的人工抽签使得人力在处理大的样本容量时显得力不从 心，由此，本软件以公平、公正、简洁、高效为编写原则，希望 解决这一难题。 程序运行流程及实现代码 1）启动软件时，软件主界面只提供一个获得焦点的可操作 按钮“选择文件”， 如图 1 所示，单击其可引导用户利用弹出的 对话框选择文本格式（ *.txt ）的抽签名单文件。 图 2 参与抽签名单确认与修改 图 3 临时修改抽签名单 选择抽签名单文件的实现： 3）程序运行时提供了两种操作模式和两种抽签模式，分别 为“手动抽签”， “自动抽签”； “重复抽签”， “条件抽签”。 软件默认为手动、重复抽签模式，即确定抽签名单后，单击 “开始抽签”， 待抽签名单循环一周后， 原按钮自动转变为“停 止抽签”按钮并激活， 以此模式进行抽签， 每一次的抽签名单都 不变，且都与确认抽签名单一致。 主界面上“开始抽签”按钮的单击事件过程代码设计思想 如下： 利用条件语句【If…Then…Else】，设置按钮功能替换 【Timer1.Enabled = Not Timer1.Enabled 】；【 If Command2.Caption = 开始抽签 Then Command2.Caption = 停止抽签 】 ；记录抽签次数【 Text1.Text = 第 z + 1 次抽签结果为 vbCrLf Text2.Text vbCrLf Text1.Text 】； 【z = z + 1 】；利用计时器 Timer1 进行文本框 Text2 框内的名 单替换和记录名单循环次数。 在手动、重复抽签模式的基础上增设了自动、 条件抽签模式， 当然，两种操作模式和抽签模式是可以随意搭配的， 通过选择抽 签模式按钮即可激活对应的抽签模式。 右键单击“开始抽签”按 钮即可激活自动抽签功能。 设置此功能的初衷是为了解决大批量 抽签时，人工操作的难题。 同时，条件抽签可在特定场合下使用， 比如在有奖抽签环节， 获奖者便不能进入下一轮的抽签名单， 于 是在条件抽签模式下，系统会自动将上一轮的获奖者名单删去。 自动、条件筛选抽签模式实现思想如下： 如果要切换回重复筛选模式， 则在系统判断选择模式为重复 筛选模式后，将确认的抽签名单重新载入抽签列表框即可。 自动抽签功能的实现， 模仿了人工抽签的模式， 即随机产生 时间段，按下停止抽签按钮，得到抽签结果，再次按下开始抽签 按钮，进行下一次抽签。 当达到要求的次数 b 时告知用户抽签结 束。所以，此功能应用了计时器控件 Timer2 和随机数命令 【Randomize】,激活按钮单击事件过程 【Command2_Click】, 由MsgBox函数告知用户，代码如下： 抽签软件开发意义 本软件的成功编写对解决实际生活问题有极大意义。 既可以 满足用户对小样本容量手动抽签的需求，又可以节省用户体力， 进行大样本容量的批量抽签。 同时， 在不改动源文件的条件下还 可临时增、删抽签名单，省去了用户对源文件数据的处理步骤。 软件特有的条件抽签模式使本软件在实际生活中的适用场合更 加广泛。 抽签模式强制性要求循环一周后随机抽签， 保证了人工 抽签不能保证的公平性，同时，软件自动记录抽签结果，支持抽 签结果的保存，加强了用户在使用过程中的便捷性。