如何用PowerPoint制作比赛评分系统
2013-08-23 09:53 责任编辑:佚名
最近单位组织了一次英语会话比赛,笔者用PowerPoint内嵌的VBA功能制作了一个即时评分系统,受到老师和同学们的一致好评,现将制作过程与大家分享。准备工作:在桌面新建一个名为“评分系统”的文件夹,用于存放参赛队
准备工作:在桌面新建一个名为“评分系统”的文件夹,用于存放参赛队的相关信息,其中Name.txt中保存了各参赛队名称(需事先准备,每个队名占一行)。
启动工作:新建一张空白幻灯片,在“视图”菜单下找到“工具栏”子菜单,选择其中的“控件工具箱”(大家也可根据实际需要改变主界面风格)。调整相应控件位置,评委照片用的是“图像控件”,下面的分数用的是“文本框”,两个按钮用的是“命令按钮”,放置好控件之后再调整各控件的属性来美化界面,也可根据实际需要插入图片进行修饰。
评分系统主界面中包括8个评委的照片和每个评委给出的分数(如图),功能按钮包括“清空”、“最后得分”。 PPT模板下载家园 http://www.pptjia.com/
各评分得分的文本框的名称为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$
热门标签更多
相关推荐
-
ppt讲师培训精彩课件教学设计,ppt讲师培训精彩课件内容怎么做?
本文主要介绍了PPT讲师培训中制作精美的ppt课件的基本技巧与方法,以及ppt课件设计的原则与规范,帮助讲师提高教学效果,吸引学生的注意力和兴趣,巩固讲师的教学技巧与能力,提高教育教学质量。.........
2023-06-12
-
汽车安全培训课件ppt教学设计,汽车安全培训课件ppt内容怎么做?
本文以老师的角度分析汽车安全培训课件ppt,涵盖教学目标、教学重点、教学方法、教学过程、教学总结等内容,帮助学生掌握驾驶技巧、提高交通安全意识和法律意识。.........
2023-06-11
-
节约粮食的手抄报怎么做?风格大全节约粮食的手抄报?
本文介绍了制作节约粮食手抄报的步骤、要点和注意事项,包括准备工具、规划布局、书写标题、填写正文、制作插图、装饰边框等。.........
2023-05-10
-
名人漫画课件ppt模板教学设计,名人漫画课件ppt模板内容怎么做?
本文介绍了名人漫画课件ppt的概念和作用,掌握了名人漫画课件ppt制作的基本方法和技巧,并通过实践操作,提高了创新思维和动手能力,增强了表达能力。.........
2023-05-28
-
如何用PPT绘制带有虚线的长方体
ppt怎么绘制带有虚线的长方体?想要使用线条绘制一个长方体,没办法显示的面需要用虚线,下面小编就给大家讲解下ppt长方体线条图的画法。ppt模板文章推荐:如何用一个字母搞定一页PPT封面如何用PPT调节图片的透明度?......
2020-12-29
-
幼儿园山水课件ppt教学设计,幼儿园山水课件ppt内容怎么做?
本文主要介绍了幼儿园山水课件PPT教学活动的教学目标、教学重点、教学方法、教学过程和教学总结。通过多媒体形式介绍山水画的基本构成和风格,帮助幼儿欣赏山水画,培养幼儿的审美能力和创造力。.........
2023-06-17
-
会务礼仪培训ppt课件教学设计,会务礼仪培训ppt课件内容怎么做?
本文为会务礼仪培训ppt课件,从基础到高级介绍了会议礼仪的基本概念和原则、主持人、出席者、发言人等角色的礼仪行为、会议中的交际技巧和沟通技巧以及会议前、中、后的礼仪准备和细节处理等内容,旨在提高学员的礼仪修养和业务水平。.........
2023-06-10
-
好看背景图卡通ppt怎么设计?好看背景图卡通ppt风格大全
本文介绍了如何设计好看的背景图卡通 PPT,包括选取合适的主题、高清卡通图片作为背景、简洁易读的字体和文字颜色以及避免过于花哨或刺眼的动画效果。同时,提供了不同类型的颜色搭配和推荐风格供参考。.........
2023-04-28
-
保洁技能培训课件ppt教学设计,保洁技能培训课件ppt内容怎么做?
本文主要介绍了保洁技能培训课件ppt中的教学目标、教学重点、教学方法、教学过程、教学总结等内容,通过本次培训,学员可以掌握保洁工作的基本知识和技能,提高保洁工作的效率和质量,了解保洁工作中的安全和环保要求。.........
2023-06-10
-