基于VB辩论赛时间控制程序设计与开发.docVIP

基于VB辩论赛时间控制程序设计与开发 　　摘 要：通过分析辩论赛时间控制程序的设计需求，详细介绍了利用VB软件中计时器控件及其它控件对时间控制程序的具体设计和实现方法。? 　　关键词：VB；辩论赛；时间控制程序? 　　中图分类号：TP317 文献标识码：A 文章编号：1672-7800（2012）003-0081-03?? 　　? 　　作者简介：王瑜(1980-)，男，湖北十堰人，郧阳师范高等专科学校计算机科学系讲师,研究方向为计算机应用、计算机辅助设计。 　　 　　0 引言? 　　辩论赛也叫论辩赛、辩论会，它在形式上是参赛双方就某一问题进行辩论的一种竞赛活动。参加辩论赛的选手在时间上有严格要求，以往辩论赛的时间通常以人工计时为主，既耗费人力又不准确，利用VB中的计时器控件可以快速、灵活地设计出符合要求的时间控制程序，从而实现整个辩论赛过程中计时的自动化、准确化。? 　　VB语言是目前最通用的程序设计语言之一，它功能强大、设计灵活，用其设计开发的辩论赛时间控制程序可直接生成Exe文件，在任何操作系统下直接运行，并可通过代码设计，将该程序设置成为透明状态，悬浮于显示器中的指定位置，不受其它窗口影响，始终保持在屏幕的最上层。当该程序运行时，单击正方或反方任意阶段相应文字，即可开始本方该阶段时间倒计时，若再次单击“正”或“反”标识，本方倒计时中止，比赛结束双击标题退出。正反方分别由各自对应的代码控制，互相不受影响，程序生成后应用广泛，易于修改，运行时的界面如图1所示。 ? 　　 　　图1 时间控制界面? 　　1 需求分析与界面基本布局? 　　1.1 功能与设计思路? 　　该时间控制程序按照一般辩论赛流程分陈词、攻辩、攻辩小结、自由辩论和结辩5个部分，双方辩手按次序轮流发言，每个部分要求不一样，时间也各不相同，均采用倒计时形式进行，时间停止后，发言辩手必须停止发言，否则作违规处理。根据设计要求分析定义程序功能如下：? 　　(1)陈词、攻辩小结及结辩部分情况相似，均为当用时尚剩30秒时，程序以一次短促的铃声提醒，在用时只剩最后10秒时，程序将进行读秒，提醒辩手和评委注意，用时满时，以音乐声终止发言。? 　　(2)攻辩部分属双方辩手相互提问时间，每方每次提问不得超过30秒，在用时只剩最后10秒时，程序将进行读秒，提醒辩手和评委注意，用时满，以音乐声终止发言。? 　　(3)自由辩论双方各有5分钟时间，正反方辩手自动轮流发言，发言辩手落座为发言结束即为另一方发言开始的计时标志，若有间隙，累积时照常进行。当用时尚剩30秒时，程序以一次短促的铃声提醒，用时只剩最后10秒时，程序将进行读秒，用时满，以音乐声终止发言。? 　　1.2 界面基本布局? 　　启动VB6.0，新建工程，在默认窗体上添加如下控件：4个图片框、2组标签、2个计时器控件及2个多媒体声音控件。4个图片框分别用来存放辩论赛图标、标题以及“正”、“反”标识。先在Photoshop中将文字处理成图片，保存为BMP格式后进行导入，否则程序代码无法将其转换为透明状态。图片加载之后，要不断运行程序查看实际效果，经反复调整之后，确定图片显示的最佳位置。两组标签用于显示“正”、“反”方各项目内容，包括辩论赛各部分标题及时间的倒计时显示。当计时器开始运行时，标签中会显示倒计时时间，多媒体控件则用于发出提示音。每个计时器控件和多媒体控件分属一方，在设计状态下，两类控件均为可见，但在程序运行期间，计时器控件是不可见的，若要设置多媒体控件也不可见，需将其visible属性设置为“False”。最后再选中窗体，将其Borderstyle属性设置为“0-none”，指定窗体没有边框样式。? 　　2 代码详细设计? 　　为实现辩论赛时间控制程序，需要对相应控件的相关事件和过程编写程序代码，具体方法为：在设计状态，双击相应控件，在弹出的“对象――过程”编辑窗口选择相应的过程，输入VB程序代码。? 　　2.1 窗体Load事件代码? 　　程序加载以后，窗体要能始终悬浮于显示器其它各窗口之上，始终保持在屏幕的最上层，经反复调整相关数据找到最合适位置，代码如下：? 　　Private Sub Form_load()? 　　设置窗体在屏幕上的位置? 　　Dim retValue As Long? 　　retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 900, 450, SWP_SHOWWINDOW)? 　　窗体始终悬浮各窗口之上? 　　Dim rtn As Long? 　　rtn = GetWindowLong(hwnd, GWL_EXSTYLE)? 　　rtn