论文部分内容阅读
视频具有生动、形象、直观的特点，已被广泛应用于PPT教学课件中，但是，许多教师制作课件时只是简单地将其插入幻灯片，缺乏与教学情境的有机结合。本文通过基于“动画”和“控件对象”的视频在典型教学情境中的应用案例，介绍如何实现视频与文字动画、控件有机结合，以此拓展课件功能，增加课件感染力，激发学生学习兴趣。
一、文本配合基于“动画”的MPG视频应用于“语文”成语课后复习
成语故事选自小学语文《伯乐识马》。由“自定义动画”和“幻灯片自动切换”功能来实现单一视频在多张幻灯片中的连续播放。
1.建立“标题”、“片头”、“提问”和“片尾”幻灯片。在“片头”幻灯片中执行“插入／影片和声音／文件中的影片”命令，选择“自动播放”后插入视频（伯乐识马.mpg）。在“提问”幻灯片的“标题”和“文本”中分别输入要提出的问题及与视频相关的文字。
2.设置视频控制。选中所插入的视频，在“自定义动画”任务窗格中设置视频播放的“开始”选项为“之前”；在具体设置的下拉菜单中选择“效果选项”命令，打开“播放影片”对话框，在“效果”选项卡中设置“在8张幻灯片之后”停止播放（见图1）。
图1
3.设置幻灯片切换方式与时间。播放“片头”幻灯片中的视频，用秒表记录视频片头、各问题的秒数，在各幻灯片对应的“幻灯片切换”任务窗格选中“每隔”复选框，设置自动换片时间（图2为“片头”幻灯片的00:07秒）。
图2
图3
二、基于“动画”的视频控制应用于化学实验演示
实验取自初中“观察瓶中白鼠在通入二氧化碳和空气后的不同反应”，通过视频演示帮助无实验条件的师生讲授和观摩实验，帮助学生获得实验的感性认识。本案例采用两种方法控制视频演示，供师生选用：方法1从实验开始自动播放，在完成各实验环节时暂停播放3秒钟，再自动继续播放；方法2由图形按钮选择播放实验各视频片断。
1.基于“动画”的视频播放、暂停及继续播放的自动控制。在第2张幻灯片中插入实验视频（小白鼠实验.mpg）。在“自定义动画”任务窗格中删除已设置的影片效果，选中影片分别执行“添加效果／影片操作／播放｜暂停｜播放｜暂停｜播放”命令，依次单击图3各影片操作右侧向下箭头，选择“效果选项”或“计时”命令并按下表设置参数（结果如图4所示）。请读者思考：如将各暂停的“开始”参数改为“之后”，同时调整其他参数是否可实现相同效果？
图4
2.利用图形按钮触发器选择播放视频片断。在第3张幻灯片插入视频（小白鼠实验.mpg）和“全程播放”、“通入二氧化碳”和“通入空气”三个棱台图形按钮。在“自定义动画”任务窗格中删除已设置的影片效果，选中影片分别执行“添加效果／影片操作／播放｜播放｜停止｜播放”命令，依次单击图5各影片播放右侧向下箭头，选择“计时”命令，在弹出对话框的“单击下列对象时启动效果”中分别设置播放与停止的触发器为上述三个棱台图形按钮（见图5），再选择“效果选项”命令并按下表设置参数。
图5
三、基于“控件对象”的视频控制应用于实验等特定细微过程的反复观察
通过控件与VBA程序可以实现对基于“控件对象”的视频在任意指定时间段的播放控制，有选择地重复观察实验等视频中的特定过程（请读者对比本刊2006年11期相关文章）。
1.对Real Player G2 Control控件对象视频的控制。基于“动画”的视频不适于rm格式的视频。在案例第2张幻灯片中执行“视图／工具栏／控件工具箱”命令，在调出的控件工具栏上分别单击和按钮插入Caption属性为“播放”的命令按钮（CommandButton1）、开始时间文本框（TextBox1）和结束时间文本框（TextBox2），再单击该工具栏的“其他控件→RealPlayer G2 Control”，插入播放器界面，右击播放器，选择并设置下列属性：Source (合成实验.rm)，Autostart（False），Controls（imagewindow,all）（all表示显示全部控制面板）。
双击CommandButton1按钮，在弹出的VB编辑窗口中编写如下代码：
Option Explicit
Dim StarTime, PlayPeriod As Variant
------------------------------------------------------
Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
MsgBox "请输入开始时间。"
ElseIf TextBox2.Text = "" Then
MsgBox "请输入结束时间。"
Else
RealAudio1.SetCanSeek True
RealAudio1.DoPlay’开始播放视频（对应语句１）
RealAudio1.SetPosition TextBox1.Value * 1000’将视频开始播放时间单位转为ms（对应语句2）
PlayPeriod = TextBox2.Text - TextBox1.Text设置视频播放时长
StarTime = Timer’从系统当前时间取视频开始播放的时间
Do While Timer < StarTime PlayPeriod
DoEvents’在系统当前时间没到达视频播放时长时将控制让给其他程序
Loop
RealAudio1.DoStop’停止视频播放（对应语句３）
End If
End Sub
2.对Windows Media Player控件对象视频的控制。视频文件为“木炭在氧气中燃烧.avi”，所用方法基本同上，实现相同功能的不同语句如下：
WindowsMediaPlayer1.Controls.Play ’开始播放视频（对应语句1）
WindowsMediaPlayer1.Controls.currentPosition = TextBox1.Text’设置视频开始播放时间（对应语句2）
WindowsMediaPlayer1.Controls.stop ’停止播放视频（对应语句3）
（作者单位：江苏连云港新海实验中学 北京师范大学教育技术学院，通信作者裴纯礼）
（注：本文案例的演示实例可到本刊论坛下载：http://bbs.itedu.org.cn/index?boardid=10）
一、文本配合基于“动画”的MPG视频应用于“语文”成语课后复习
成语故事选自小学语文《伯乐识马》。由“自定义动画”和“幻灯片自动切换”功能来实现单一视频在多张幻灯片中的连续播放。
1.建立“标题”、“片头”、“提问”和“片尾”幻灯片。在“片头”幻灯片中执行“插入／影片和声音／文件中的影片”命令，选择“自动播放”后插入视频（伯乐识马.mpg）。在“提问”幻灯片的“标题”和“文本”中分别输入要提出的问题及与视频相关的文字。
2.设置视频控制。选中所插入的视频，在“自定义动画”任务窗格中设置视频播放的“开始”选项为“之前”；在具体设置的下拉菜单中选择“效果选项”命令，打开“播放影片”对话框，在“效果”选项卡中设置“在8张幻灯片之后”停止播放（见图1）。
图1
3.设置幻灯片切换方式与时间。播放“片头”幻灯片中的视频，用秒表记录视频片头、各问题的秒数，在各幻灯片对应的“幻灯片切换”任务窗格选中“每隔”复选框，设置自动换片时间（图2为“片头”幻灯片的00:07秒）。
图2
图3
二、基于“动画”的视频控制应用于化学实验演示
实验取自初中“观察瓶中白鼠在通入二氧化碳和空气后的不同反应”，通过视频演示帮助无实验条件的师生讲授和观摩实验，帮助学生获得实验的感性认识。本案例采用两种方法控制视频演示，供师生选用：方法1从实验开始自动播放，在完成各实验环节时暂停播放3秒钟，再自动继续播放；方法2由图形按钮选择播放实验各视频片断。
1.基于“动画”的视频播放、暂停及继续播放的自动控制。在第2张幻灯片中插入实验视频（小白鼠实验.mpg）。在“自定义动画”任务窗格中删除已设置的影片效果，选中影片分别执行“添加效果／影片操作／播放｜暂停｜播放｜暂停｜播放”命令，依次单击图3各影片操作右侧向下箭头，选择“效果选项”或“计时”命令并按下表设置参数（结果如图4所示）。请读者思考：如将各暂停的“开始”参数改为“之后”，同时调整其他参数是否可实现相同效果？
图4
2.利用图形按钮触发器选择播放视频片断。在第3张幻灯片插入视频（小白鼠实验.mpg）和“全程播放”、“通入二氧化碳”和“通入空气”三个棱台图形按钮。在“自定义动画”任务窗格中删除已设置的影片效果，选中影片分别执行“添加效果／影片操作／播放｜播放｜停止｜播放”命令，依次单击图5各影片播放右侧向下箭头，选择“计时”命令，在弹出对话框的“单击下列对象时启动效果”中分别设置播放与停止的触发器为上述三个棱台图形按钮（见图5），再选择“效果选项”命令并按下表设置参数。
图5
三、基于“控件对象”的视频控制应用于实验等特定细微过程的反复观察
通过控件与VBA程序可以实现对基于“控件对象”的视频在任意指定时间段的播放控制，有选择地重复观察实验等视频中的特定过程（请读者对比本刊2006年11期相关文章）。
1.对Real Player G2 Control控件对象视频的控制。基于“动画”的视频不适于rm格式的视频。在案例第2张幻灯片中执行“视图／工具栏／控件工具箱”命令，在调出的控件工具栏上分别单击和按钮插入Caption属性为“播放”的命令按钮（CommandButton1）、开始时间文本框（TextBox1）和结束时间文本框（TextBox2），再单击该工具栏的“其他控件→RealPlayer G2 Control”，插入播放器界面，右击播放器，选择并设置下列属性：Source (合成实验.rm)，Autostart（False），Controls（imagewindow,all）（all表示显示全部控制面板）。
双击CommandButton1按钮，在弹出的VB编辑窗口中编写如下代码：
Option Explicit
Dim StarTime, PlayPeriod As Variant
------------------------------------------------------
Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
MsgBox "请输入开始时间。"
ElseIf TextBox2.Text = "" Then
MsgBox "请输入结束时间。"
Else
RealAudio1.SetCanSeek True
RealAudio1.DoPlay’开始播放视频（对应语句１）
RealAudio1.SetPosition TextBox1.Value * 1000’将视频开始播放时间单位转为ms（对应语句2）
PlayPeriod = TextBox2.Text - TextBox1.Text设置视频播放时长
StarTime = Timer’从系统当前时间取视频开始播放的时间
Do While Timer < StarTime PlayPeriod
DoEvents’在系统当前时间没到达视频播放时长时将控制让给其他程序
Loop
RealAudio1.DoStop’停止视频播放（对应语句３）
End If
End Sub
2.对Windows Media Player控件对象视频的控制。视频文件为“木炭在氧气中燃烧.avi”，所用方法基本同上，实现相同功能的不同语句如下：
WindowsMediaPlayer1.Controls.Play ’开始播放视频（对应语句1）
WindowsMediaPlayer1.Controls.currentPosition = TextBox1.Text’设置视频开始播放时间（对应语句2）
WindowsMediaPlayer1.Controls.stop ’停止播放视频（对应语句3）
（作者单位：江苏连云港新海实验中学 北京师范大学教育技术学院，通信作者裴纯礼）
（注：本文案例的演示实例可到本刊论坛下载：http://bbs.itedu.org.cn/index?boardid=10）