用PPT制作演讲比赛评分系统对参赛选手进行评分显示获奖名单

enso0730

enso0730

2015-04-27 21:36

今天小编给大家分享一个比较有意思的powerpoint小技巧,只要稍微懂点powerpoint小知识,就能学会哦,很多人为powerpoint这个东西比较复杂。其实不是的,只要肯学习,肯用心看教程,机会学到别人不知道的东西~

演讲比赛评分系统可以对参加比赛的选手进行评分,在本例中将8个评委的分数相加得出总分sum并计算出最后得分(平均分),精确到小数点后3位。如评一等奖1名,二等奖2名,三等奖3名。主要的任务就是界面设置、全局变量设置(使用到了VBA,不熟悉的朋友可以参考相关文章)、评奖模块的建立、显示获奖名单的建立等等,在文章末尾有源程序下载,感兴趣的朋友可以参考下。

准备工作:

在C盘新建一文件夹,命名为“考试评分”。用于存放参赛人员的相关信息,其中Name.txt中保存着各参赛人员名字(事先准备好Name.txt,每位参赛人员占一行)。

制作过程:

1.界面设置

打开PowerPoint 2003新建一幻灯片,点击“视图→工具栏→控件工具箱”打开“控件工具箱”。在工具箱中使用“图像控件”来插入八位语文教师的照片,分数可以用“文本框”来表示,再插入两个“命令按钮”进行操作,分别为“清空”和“最终得分”按钮。放置好控件之后再调整各控件的属性并美化界面(见图1)。

评委打分的文本框名称为Text1,Text2,……,Text8,“最终得分”按钮的名称为CommandTotal,第二张幻灯片用来显示最后得分,名称为TotalScore。

2.全局变量设置

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/ruanjianjc/)

打开VBA编辑器(见图2)输入如下代码:Const Path$ = "C:考试评分"'指定得分的统计文件路径Dim sum As Single'全局变量总分Dim AverageScore As Single'全局变量平均得分Dim GroupNum As Integer'全局变量记录组次Private Sub CommandButton1_Click()'清空得分Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Slide2.TotalScore.Caption = ""'清空下一张幻灯片的最后总分End Sub

Private Sub CommandTotal_Click()'“最终得分”按钮On Error GoTo erDim sum As Single'将8个评委的分数相加得出总分sumsum = sum + CSng(Text1.Text)sum = sum + CSng(Text2.Text)sum = sum + CSng(Text3.Text)sum = sum + CSng(Text4.Text)sum = sum + CSng(Text5.Text)sum = sum + CSng(Text6.Text)sum = sum + CSng(Text7.Text)sum = sum + CSng(Text8.Text)AverageScore = Format(sum / 8, "#.###")'计算出最后得分(平均分),精确到小数点后3位Slide2.TotalScore.Caption = AverageScore'第二张幻灯片显示最后得分If GroupNum>=1 AND GroupNum <= 5 Then'写入最后得分Open Path$ & "InpScore.txt" For Append As #1Print #1, AverageScoreClose #1End IfGroupNum = GroupNum + 1er:End Sub

3.建立评奖模块

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/ruanjianjc/)

在Microsoft Visual Basic中点击“插入→模块”来建立评奖模块,再写入如下代码:

Const Counter = 6'如评一等奖1名,二等奖2名,三等奖3名,故Counter设为6Public StrName(Counter) As StringPublic SngScore(Counter) As SinglePublic Sub ReadDataInp()'读取得分文件,并对得分加以排序On Error GoTo erOpen Path$ & "InpName.txt" For Input As #1For i = 1 To CounterInput #1, StrName(i)NextClose #1Open Path$ & "InpScore.txt" For Input As #2For i = 1 To CounterInput #2, SngScore(i)NextClose #2For i = 1 To CounterFor j = 1 To CounterIf SngScore(i) > SngScore(j) Thena = SngScore(i): SngScore(i) = SngScore(j): SngScore(j) = ab = StrName(i): StrName(i) = StrName(j): StrName(j) = bEnd IfNextNexter:End Sub

4.建立显示获奖名单

回到PPT中新建一张幻灯片,用于显示获奖名单,按钮名称为CmdDisply,6个文本框的名称为Prize1,……,Prize6。代码如下:

Private Sub CmdDisply_Click()ReadDataInp'因为分数从高到低排序,因此先输出最后三组Prize1.Text = StrName(4)Prize2.Text = StrName(5)Prize3.Text = StrName(6)

大家在制作时可以加入其他的幻灯片用做修饰,这样就能让赛场气氛非常热烈。源程序下载。

展开更多 50%)
分享

猜你喜欢

用PPT制作演讲比赛评分系统对参赛选手进行评分显示获奖名单

软件教程 电脑应用 powerpoint
用PPT制作演讲比赛评分系统对参赛选手进行评分显示获奖名单

用PowerPoint制作比赛评分系统

办公软件
用PowerPoint制作比赛评分系统

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

《fifa 11》绿茵传奇模式评分系统详解

电脑网络
《fifa 11》绿茵传奇模式评分系统详解

用CSS写的星级评分

Web开发
用CSS写的星级评分

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

阿氏评分检查

电脑网络
阿氏评分检查

psp《寄生前夜:第三次生日》任务评分系统解说

电脑网络
psp《寄生前夜:第三次生日》任务评分系统解说

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

PPT2010中自制凭运气说话的幸运转盘决定一些拿不准的事

PPT2010中自制凭运气说话的幸运转盘决定一些拿不准的事

PPT制作之自定义形状中的任意多边形及图片填充的使用介绍

PPT制作之自定义形状中的任意多边形及图片填充的使用介绍
下拉加载更多内容 ↓