[原创]技能竞赛系统(用VBA实现)

chenhuafu

[原创]技能竞赛系统(用VBA实现) 论坛上曾经有人想制作一个技能竞赛系统的ＰＰＴ用来即时显示比赛累积分，利用ＶＢＡ是可以实现的。 详情见附件，希望版主能再给个精华，版主可不要吝惜啊，得给我鼓励啊，我可是花了４个小时的时间来调试才完成！ MSdFvXHz.rar (101.82 KB, 下载次数: 21172)

2005-12-19 22:34 上传

点击文件名下载附件
[原创]技能竞赛系统(用VBA实现)

chenhuafu

huang05 你有空看看我的帖子

Kevin

我在你的基础上改了一下，用一张Slide实现不限次计分，并且加上了一些防错控制！ 点击EH的LOGO开始计分，也可以当全局重置按键！ 抱歉，你的一楼作品不能给精华，希望以后能看到更好的作品！ xeDbBLcH.rar (130.89 KB, 下载次数: 20800)

2005-12-20 14:44 上传

点击文件名下载附件
[原创]技能竞赛系统(用VBA实现)

chenhuafu

以下是引用[I]Kevin[/I]在2005-12-20 14:45:08的发言：
我在你的基础上改了一下，用一张Slide实现不限次计分，并且加上了一些防错控制！ 点击EH的LOGO开始计分，也可以当全局重置按键！ 抱歉，你的一楼作品不能给精华，希望以后能看到更好的作品！

版主改得高明！

[此贴子已经被作者于2005-12-20 21:29:01编辑过]

chenhuafu

以下是引用[I]Kevin[/I]在2005-12-20 14:45:08的发言：[BR]我在你的基础上改了一下，用一张Slide实现不限次计分，并且加上了一些防错控制！ 点击EH的LOGO开始计分，也可以当全局重置按键！ 抱歉，你的一楼作品不能给精华，希望以后能看到更好的作品！

定义总分为Long可能会出错，因为给分可能是带有小数点的。定义为单精度就好了。

Kevin

呵呵，你考虑得比较周全。

其实还有很多地方可以改进和完善，要视具体需求而定。

chenhuafu

以下是引用[I]Kevin[/I]在2005-12-20 14:45:08的发言：[BR]我在你的基础上改了一下，用一张Slide实现不限次计分，并且加上了一些防错控制！ 点击EH的LOGO开始计分，也可以当全局重置按键！ 抱歉，你的一楼作品不能给精华，希望以后能看到更好的作品！

大受启发，受益匪浅！

huang05

太好了，通过大家的交流，我得好好学。其实，我想就是在单个幻灯片实现效果，再次谢谢大家!

wancj

gaoshou!

dearoo

前面拜读了Chenhuafu的累积分实现方法，还有Kevin总版主的修改方案，非常有帮助，谢谢！ 下面的这个教程是多个评委同时评分的评分系统，但是我研究了半天也没有成功，不知道究竟哪儿出了错？！ 我很想实现这个功能并且每个选手均有5分倒计时显示，最好最后十秒像CCTV5中T0P10中的模式放大闪过！ 谢谢Kevin版主，谢谢Chenhuafu！ 教程如下： 在桌面新建一个名为“评分系统”的文件夹，用于存放参赛队的相关信息，其中Name.txt中保存了各参赛队名称（需事先准备，每个队名占一行）。 启动工作：新建一张空白幻灯片，在“视图”菜单下找到“工具栏”子菜单，选择其中的“控件工具箱”（大家也可根据实际需要改变主界面风格）。调整相应控件位置，评委照片用的是“图像控件”，下面的分数用的是“文本框”，两个按钮用的是“命令按钮”，放置好控件之后再调整各控件的属性来美化界面，也可根据实际需要插入图片进行修饰。 评分系统主界面中包括8个评委的照片和每个评委给出的分数功能按钮包括“清空”、“最后得分”。 各评分得分的文本框的名称为TxtS1，TxtS2……TxtS8，“最后得分”按钮的名称为CommandTotal，第二张幻灯片用来显示最后得分的标签名称为LblTotal。 设计工作：打开VBA编辑器编写代码： '指定文件夹用于存放每组得分的统计文件 Const Path$ = "C:\windows\desktop\评分系统\" '全局变量，最后总分 Dim sum As Single '全局变量，最后平均得分 Dim AverageScore As Single '全局变量，记录组次，保存后自动加1 Dim GroupNum As Integer '清空“评委得分”，清空“最后得分” Private Sub CommandButton1_Click() TxtS1.Text = "" TxtS2.Text = "" TxtS3.Text = "" TxtS4.Text = "" TxtS5.Text = "" TxtS6.Text = "" TxtS7.Text = "" TxtS8.Text = "" '清空下一张幻灯片的最后总分 Slide2.LblTotal.Caption = "" End Sub '“最后得分”按钮 Private Sub CommandTotal_Click() On Error GoTo er Dim sum As Single '将8个评委的分数相加得出总分sum sum = sum + CSng(TxtS1.Text) sum = sum + CSng(TxtS2.Text) sum = sum + CSng(TxtS3.Text) sum = sum + CSng(TxtS4.Text) sum = sum + CSng(TxtS5.Text) sum = sum + CSng(TxtS6.Text) sum = sum + CSng(TxtS7.Text) sum = sum + CSng(TxtS8.Text) '计算出最后得分（平均分），精确到小数点后3位 AverageScore = Format(sum / 8, "#.###") '第二张幻灯片显示最后得分 Slide2.LblTotal.Caption = AverageScore '写入最后得分 If GroupNum>=1 AND GroupNum <= 5 Then Open Path$ && "InpScore.txt" For Append As #1 Print #1, AverageScore Close #1 End If GroupNum = GroupNum + 1 er: End Sub 新建一个模块，写入如下代码，此处为评奖模块。 '评选项一等奖1名，二等奖2名，三等奖3名，故Counter变量设为6 Const Counter = 6 Public StrName(Counter) As String Public SngScore(Counter) As Single '模块功能：读取得分文件，并对得分加以排序 Public Sub ReadDataInp() On Error GoTo er Open Path$ && "InpName.txt" For Input As #1 For i = 1 To Counter Input #1, StrName(i) Next Close #1 Open Path$ && "InpScore.txt" For Input As #2 For i = 1 To Counter Input #2, SngScore(i) Next Close #2 For i = 1 To Counter For j = 1 To Counter If SngScore(i) > SngScore(j) Then a = SngScore(i): SngScore(i) = SngScore(j): SngScore(j) = a b = StrName(i): StrName(i) = StrName(j): StrName(j) = b End If Next Next er: End Sub 新建一张幻灯片，用于显示三等奖获奖名单，按钮名称为CmdDisply，6个文本框的名称为TxtThirdPrize1……TxtThirdPrize6。 代码如下： Private Sub CmdDisply_Click() ReadDataInp 因为分数从高到低排序，因此先输出最后三组 TxtThirdPrize1.Text = StrName(4) TxtThirdPrize2.Text = StrName(5) TxtThirdPrize3.Text = StrName(6) 制作时你也可以加入其他的幻灯片用做修饰，比如制作一个带动态效果的开始画面以及结束语等等，然后在比赛时用投影机作为输出，一定会起到烘托赛场气氛的作用。