论文部分内容阅读
摘要：应用VB6.0编写抽签应用软件，实现了利用计算机代替人工完成抽签过程的目的，大大减轻了在样本容量较大时人工抽签的负担，保证了抽签的公平性。软件手动抽签与自动抽签兼可，具备导出抽签记录，在不改动抽签源文件的情况下临时更改抽签名单的功能。
关键词：VB6.0；抽签软件；自动化
中图分类号：TP311 文献标识码：A 文章编号：1009-3044（2016）23-0077-02
Abstract： 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.
Key words： Visual Basic 6.0； draw software； automation
1 软件编写目的
在日常生活中我们常常需要用抽签来解决实际问题，比如在大学课堂，老师可以用随机抽签的方式来查看学生的出勤情况；在文艺晚会上，主持人可以用抽签的方式对观众进行奖品发送。而传统的人工抽签使得人力在处理大的样本容量时显得力不从心，由此，本软件以公平、公正、简洁、高效为编写原则，希望解决这一难题。
2 程序运行流程及实现代码
1）启动软件时，软件主界面只提供一个获得焦点的可操作按钮“选择文件”，如图1所示，单击其可引导用户利用弹出的对话框选择文本格式（*.txt）的抽签名单文件。
2）按提示选择抽签名单文本文件后会自动弹出如图2所示的对话框，让用户查看抽签名单是否正确，正确则点击“确定抽签数据”按钮就可返回至抽签软件主界面；如需对名单进行修改，则可点击“编辑抽签数据”按钮出现如图3所示的对话框，在该对话框中可完成在不改变抽签数据源文件的情况下临时修改抽签名单的需求；如果发现所选名单错误，则可在点击“确认”按钮后进入抽签主界面时重新选择抽签文件。
图2 参与抽签名单确认与修改 图3 临时修改抽签名单
选择抽签名单文件的实现：
使用可返回文件地址和文件名的通用对话框控件进行文件筛选并导入抽签数据，对话框控件的过滤器设置为：【"文本文档（*.txt）"|*.txt|"所有文件（*.*）"|*.*】；为了避免用户的错误操作，通过设置按钮的Enabled属性，在不同条件下控制用户的操作行为。同时，在用户临时编辑抽签名单时，为了帮助用户理解操作界面上各按钮的功能，设置了该操作界面“删除”和“增加”按钮的ToolTipText属性，如图3所示是鼠标指针指向编辑抽签数据对话框中的“删除”按钮时，其ToolTipText值为【从抽签名单编辑框中删除项目】；将“增加”按钮的ToolTipText属性值设置为【向抽签名单编辑框中添加项目】。在“增加”按钮操作中，使用InputBox函数引导用户临时增加抽签条目，设置其为【info = InputBox（"请输入需要增加的项目"， "增加"， ""）】；在“删除”按钮的功能中，提供了多项选择并删除的功能，利用【For … next】循环语句批量删除所选项，利用MsgBox函数提醒用户的错误操作。
3）程序运行时提供了两种操作模式和两种抽签模式，分别为“手动抽签”，“自动抽签”；“重复抽签”，“条件抽签”。
软件默认为手动、重复抽签模式，即确定抽签名单后，单击“开始抽签”，待抽签名单循环一周后，原按钮自动转变为“停止抽签”按钮并激活，以此模式进行抽签，每一次的抽签名单都不变，且都与确认抽签名单一致。
主界面上“开始抽签”按钮的单击事件过程代码设计思想如下：
利用条件语句【If … Then … Else】，设置按钮功能替换【Timer1.Enabled = Not Timer1.Enabled】；【If Command2.Caption = "开始抽签" Then Command2.Caption = "停止抽签"】；记录抽签次数【Text1.Text = "第"
关键词：VB6.0；抽签软件；自动化
中图分类号：TP311 文献标识码：A 文章编号：1009-3044（2016）23-0077-02
Abstract： 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.
Key words： Visual Basic 6.0； draw software； automation
1 软件编写目的
在日常生活中我们常常需要用抽签来解决实际问题，比如在大学课堂，老师可以用随机抽签的方式来查看学生的出勤情况；在文艺晚会上，主持人可以用抽签的方式对观众进行奖品发送。而传统的人工抽签使得人力在处理大的样本容量时显得力不从心，由此，本软件以公平、公正、简洁、高效为编写原则，希望解决这一难题。
2 程序运行流程及实现代码
1）启动软件时，软件主界面只提供一个获得焦点的可操作按钮“选择文件”，如图1所示，单击其可引导用户利用弹出的对话框选择文本格式（*.txt）的抽签名单文件。
2）按提示选择抽签名单文本文件后会自动弹出如图2所示的对话框，让用户查看抽签名单是否正确，正确则点击“确定抽签数据”按钮就可返回至抽签软件主界面；如需对名单进行修改，则可点击“编辑抽签数据”按钮出现如图3所示的对话框，在该对话框中可完成在不改变抽签数据源文件的情况下临时修改抽签名单的需求；如果发现所选名单错误，则可在点击“确认”按钮后进入抽签主界面时重新选择抽签文件。
图2 参与抽签名单确认与修改 图3 临时修改抽签名单
选择抽签名单文件的实现：
使用可返回文件地址和文件名的通用对话框控件进行文件筛选并导入抽签数据，对话框控件的过滤器设置为：【"文本文档（*.txt）"|*.txt|"所有文件（*.*）"|*.*】；为了避免用户的错误操作，通过设置按钮的Enabled属性，在不同条件下控制用户的操作行为。同时，在用户临时编辑抽签名单时，为了帮助用户理解操作界面上各按钮的功能，设置了该操作界面“删除”和“增加”按钮的ToolTipText属性，如图3所示是鼠标指针指向编辑抽签数据对话框中的“删除”按钮时，其ToolTipText值为【从抽签名单编辑框中删除项目】；将“增加”按钮的ToolTipText属性值设置为【向抽签名单编辑框中添加项目】。在“增加”按钮操作中，使用InputBox函数引导用户临时增加抽签条目，设置其为【info = InputBox（"请输入需要增加的项目"， "增加"， ""）】；在“删除”按钮的功能中，提供了多项选择并删除的功能，利用【For … next】循环语句批量删除所选项，利用MsgBox函数提醒用户的错误操作。
3）程序运行时提供了两种操作模式和两种抽签模式，分别为“手动抽签”，“自动抽签”；“重复抽签”，“条件抽签”。
软件默认为手动、重复抽签模式，即确定抽签名单后，单击“开始抽签”，待抽签名单循环一周后，原按钮自动转变为“停止抽签”按钮并激活，以此模式进行抽签，每一次的抽签名单都不变，且都与确认抽签名单一致。
主界面上“开始抽签”按钮的单击事件过程代码设计思想如下：
利用条件语句【If … Then … Else】，设置按钮功能替换【Timer1.Enabled = Not Timer1.Enabled】；【If Command2.Caption = "开始抽签" Then Command2.Caption = "停止抽签"】；记录抽签次数【Text1.Text = "第"