浅谈幻灯片计时的计时设计.docVIP

精品论文 参考文献 浅谈幻灯片计时的计时设计 【摘 要】：随着信息技术与学科的整合，教学课件在课堂中的使用越来越频繁，尤其在各种教学竞赛中。为了更好地把握课堂教学时间，教师经常在教学的课件中引入计时功能。PPT自带的自定义动画可以实现计时功能，但只能是较短时间，并不实用。下面就如何为幻灯片添加实用的计时功能进行探讨。 【关键词】：幻灯片 计时 一、 使用幻灯片自带的VB编辑器编程实现 以一个有三张幻灯片的课件为例： 第一步：打开第一张幻灯片，选择PPT菜单栏“视图——工具栏——控件工具箱”，打开控件工具箱，选择命令按钮控件，在幻灯片左下角拖出一个命令按钮。右击按钮图标，打开“属性”对话框，将Caption的值改为“开始”。 第二步：选择控件工具箱中的文本框，在按钮下方拖出一个文本框；右击文本框，打开属性对话框，进行文字格式的设置。再次右击文本框控件，选择快捷菜单中的“叠放次序——置于顶层”； 第三步：选中文本框，按Ctrl + C快捷键把文本框复制，然后依次选择第二张、第三张幻灯片，按Ctrl + V快捷键把文本框粘贴，让第二张和第三张幻灯片上都得到一个相同的文本框，并保持在同一个位置 第四步： 选择P P T 菜单栏“ 工具——宏——Visual Basic编辑器，打开编辑器窗口。在编辑窗口中选择菜单“插入——类模块”，在工程资源管理窗口中会自动添加一个名为“类1”的模块，在属性窗口中把名称改为“EventClassModule”。 第五步： 在代码窗口中编写用于捕捉PPT幻灯片开始播放的事件，以及计时程序代码。 Public WithEvents App As Application Private js As Boolean 开始或停止倒计时程序 PPT开始播放幻灯片时 Private Sub App_SlideShowBegin(ByVal Wn As SlideShowWindow) Dim tt As Integer Dim X, Y As Integer Dim Start As Single tt = 2700 5分钟倒计时，初始值为300秒 js = True 让倒计时程序开始工作 Start = Timer 获得系统时间，可以精确到0.001秒 Do While js = True If Timer gt;= Start + 1 Then 如果与前一次记录的初始时间相差1秒时 Start = Timer 重新记录初始时间 tt = tt - 1 剩余总秒数少1秒 If tt lt;= 0 Then js = False 如果倒计时完成时，停止倒计时 X = Int(tt / 60) 剩余总秒数化为分：秒，并显示在各幻灯片 Y = tt Mod 60 Slide1.TextBox1.Text = CStr(X amp; : amp; Y) Slide2.TextBox1.Text = CStr(X amp; : amp; Y) Slide3.TextBox1.Text = CStr(X amp; : amp; Y) Else DoEvents End If Loop End Sub PPT结束播放幻灯片时，停止倒计时 Private Sub App_SlideShowEnd(ByVal Pres As Presentation) jishi = False End Sub 第五步： 在编辑窗口中选择菜单“ 插入——模块”，在属性窗口中把“模块1”名称改为“ClassModule”。在代码窗口中编写用于初始化刚才制作的EventClassModule模块的程序代码。 Dim X As New EventClassModule 创建一个类对象，并把它与PPT连接 Sub InitializeApp() Set X.App = Application End Sub 第六步：双击工程资源管理器中的Slide1对象，在代码窗口中编写代码。