如何用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课件模板下载的教学,并详细阐述了教学目标、教学重点、教学方法、教学过程和教学总结等方面的内容。.........
2023-06-02
-
艺术文化ppt课件模板教学设计,艺术文化ppt课件模板内容怎么做?
本课程旨在培养学生制作艺术文化ppt课件的技能,介绍其基本结构和设计原则,并提供实践机会以发掘和表达自己的创意。通过本课的学习可以提升对艺术文化知识的认识和理解,同时也可以激发创新思维和美学素养的培养。.........
2023-05-27
-
袁隆平课件PPT幼儿园教学设计,袁隆平课件PPT幼儿园内容怎么做?
本文以幼儿园教学为主题,介绍了如何利用袁隆平课件PPT,培养幼儿的好奇心和探究精神,让他们了解科学技术在现代社会中的重要性,激发学习农业科学的兴趣。.........
2023-06-19
-
图文ppt课件制作教学设计,图文ppt课件制作内容怎么做?
本文介绍了图文PPT课件制作的教学目标、重点、方法、过程和总结,包括理论讲解、实践演练、互动教学等多种教学方式,帮助学生掌握基本知识和技能。.........
2023-05-26
-
幼儿园生活ppt课件教学设计,幼儿园生活ppt课件内容怎么做?
本课程旨在培养幼儿园生活中的社交技能、学习技能和生活技能,采用多种教学方法,包括互动、体验、情境教学等,帮助幼儿更好地适应幼儿园生活,丰富其经验和知识,培养其自信心和兴趣。本文详细介绍了教学目标、教学重点、教学方法、教学过程、教学总结等内容。.........
2023-06-16
-
军队安全教育ppt课件教学设计,军队安全教育ppt课件内容怎么做?
本PPT课件讲解军队安全教育的概念、基本内容和方法,以及如何实施军队安全教育的实践策略和方法,帮助学生提高应对灾害应急的能力。.........
2023-06-07
-
ppt背景图简单大方怎么设计?ppt背景图简单大方风格大全
本文介绍了设计简约大方的ppt背景图的方案,并提供了一些简洁明了的颜色搭配和流行的设计风格推荐,帮助你在ppt制作中更加清晰突出地展示内容。.........
2023-04-23
-
叉车安全培训ppt课件教学设计,叉车安全培训ppt课件内容怎么做?
本文主要介绍叉车安全培训PPT课件的教学目标、重点、教学方法、教学过程和教学总结,旨在帮助学员掌握叉车的安全知识和技能,提高叉车操作的质量和效率。.........
2023-06-09
-
网络的PPT背景图怎么设计?网络的PPT背景图风格大全
本文介绍了网络PPT背景图的设计方案,包括主题、图片素材、布局、字体和颜色等方面。同时还提供了常用的颜色搭配方案和不同风格的背景图推荐。.........
2023-05-08
-
教育研究方法课件PPT教学设计,教育研究方法课件PPT内容怎么做?
本篇文章主要介绍了教育研究方法课件PPT的教学目标、教学重点、教学方法、教学过程和教学总结,旨在帮助学生掌握教育研究方法的基本概念和科学研究的基本方法,培养学生的科学研究思维和能力。.........
2023-06-05