论文部分内容阅读
“频闪摄影”是物理研究中的一种重要的实验方法,其原理是对运动中的物体在同一张底片上每隔一定的时间间隔进行摄影,从而记录下物体的运动位置。因为条件的限制,学校一般无法对物体进行“频闪摄影”研究。这时我们可以借助计算机来模拟这种效果。
PowerPoint由于其简单、易用及兼容性好等特点成为广大教师制作课件的首选工具。但是,因为它不是专业的软件开发工具,用常规手段制作的课件不能满足教师,特别是理科教师的需求,而不得不改用Flash等课件制作工具。本文主要通过对“匀速直线运动”案例的制作,阐述如何在PowerPoint中应用VBA来实现“频闪摄影”的效果。
一、VBA的启动方式
为了防范宏病毒对计算机的侵害,一般情况下,在PowerPoint的工具菜单中对宏的安全性设置为“高”选项,这时将拒绝执行VBA代码。在确保VBA代码运行无害的前提下,需要降低PPT的安全等级以使VBA代码得以执行。单击菜单栏“工具/宏/安全性”命令,打开“安全性”对话框,单击“安全级”选项卡,选择“低”选项,单击“确定”即可。
二、在VBA中如何确定对象名称
在代码中不可避免地要引用对象的名称,但是从绘图工具栏中各种自选图形以及插入菜单中插入的文本框、图片和表格等对象来看,其名称无从得知。获取名称的唯一方法是针对这些对象录制一段临时宏,然后在宏代码中去查找。具体操作过程如下。
1.先将有关对象添加至幻灯片,然后取消选择,单击菜单栏“工具/宏/录制新宏”命令,打开“录制新宏”对话框,使用默认宏名并单击“确定”,此时会出现一个“停止录制”的浮动工具栏,表明已进入宏录制状态。
2.在幻灯片中调整该对象的位置或大小,然后单击浮动工具栏中的“停止录制”,结束宏录制。
3.单击“工具/宏/宏”命令,打开“宏”对话框,选中相应的宏名并单击“编辑”后,即可进入宏代码窗口,此时在代码中可以查看该对象的名称。
三、课件的制作
1.新建演示文稿
启动PowerPoint 2003(其他版本操作相似),单击窗口右侧任务窗格中的“开始工作”下拉菜单,选择“幻灯片版式”命令,在“应用幻灯片版式”列表中,选择“内容版式/空白版式”。
2.控件和素材的添加
(1)添加按钮控件。依次选择菜单栏“视图/工具栏/控件工具箱”命令,打开“控件工具箱”对话框,单击“命令按钮”图标,在幻灯片的下侧添加一个命令按钮并右击,在弹出的快捷菜单中选择“属性”命令,打开其“属性”对话框,将“名称”和“Caption”属性改为“播放”,“AutoSize”属性改为“True”。
同理,在“播放”按钮右侧添加两个命令按钮,将它们的“名称”和“Caption”属性分别改为“频闪”和“复位”,“AutoSize”属性改为“True”。
选中所有的命令按钮,单击绘图工具栏上的“绘图/对齐或分布/顶端对齐”命令,可以使按钮上下对齐,再次单击“绘图/对齐或分布/横向分布”命令,使它们横向等距离分布。
(2)添加小球。使用绘图工具栏上的“椭圆”工具,按住“Shift”键,绘制一个适当大小的圆形。双击打开“设置自选图形格式”对话框,在“颜色和线条”选项卡下,单击“线条”选项区的“颜色”下拉按钮,选择“无线条颜色”,单击“填充”选项区的“颜色”下拉按钮,选择“填充效果”选项,进入“填充效果”对话框,在“颜色”选项区,选中“单色”单选按钮,在“底纹样式”选项区,选中“中心辐射”单选按钮,单击“确定”即可;在“尺寸”选项卡下,设置“尺寸和旋转”选项区的“高度”和“宽度”为“1厘米”;在“位置”选项卡下,设置“幻灯片上的位置”选项区的“水平”和“竖直”位置分别为“3厘米”和“8厘米”,单击“确定”按钮。
(3)添加文字说明。通过单击菜单栏“插入/文本框/水平”命令,在幻灯片的上侧插入一文本框,输入“匀速直线运动”并设置好字体、字号。
3.添加代码
在幻灯片中双击“播放”按钮打开VBA编辑器,把编辑窗口的内容全部删除,输入如下代码。
Private Sub 播放_Click()
For t = 0 To 10
x = 40 * t 3 * 28.364
t1 = Timer
While Timer - t1 < 0.1: DoEvents: Wend
Shapes("oval 7").Left = x
Shapes("oval 7").Top = 8 * 28.364
Next
End Sub
Private Sub 频闪_Click()
For i = 0 To 10
t1 = Timer
While Timer - t1 < 0.1: DoEvents: Wend
With Shapes("oval 7").Duplicate
.Left = i * 40 3 * 28.364
.Top = 8 * 28.364
End With
Next
End Sub
Private Sub 复位_Click()
a = Shapes.Count
b = a - 10
Dim i As Integer
For i = b To a
Shapes(i).Visible = False
Next
Shapes("oval 7").Left = 3 * 28.364
Shapes("oval 7").Top = 8 * 28.364
End Sub
输入完成后,关闭VBA编辑器,按F5放映幻灯片,单击“频闪”按钮,这时,“频闪摄影”的效果就出来了(如下图)。
(作者单位:河南尉氏县第三高级中学)
PowerPoint由于其简单、易用及兼容性好等特点成为广大教师制作课件的首选工具。但是,因为它不是专业的软件开发工具,用常规手段制作的课件不能满足教师,特别是理科教师的需求,而不得不改用Flash等课件制作工具。本文主要通过对“匀速直线运动”案例的制作,阐述如何在PowerPoint中应用VBA来实现“频闪摄影”的效果。
一、VBA的启动方式
为了防范宏病毒对计算机的侵害,一般情况下,在PowerPoint的工具菜单中对宏的安全性设置为“高”选项,这时将拒绝执行VBA代码。在确保VBA代码运行无害的前提下,需要降低PPT的安全等级以使VBA代码得以执行。单击菜单栏“工具/宏/安全性”命令,打开“安全性”对话框,单击“安全级”选项卡,选择“低”选项,单击“确定”即可。
二、在VBA中如何确定对象名称
在代码中不可避免地要引用对象的名称,但是从绘图工具栏中各种自选图形以及插入菜单中插入的文本框、图片和表格等对象来看,其名称无从得知。获取名称的唯一方法是针对这些对象录制一段临时宏,然后在宏代码中去查找。具体操作过程如下。
1.先将有关对象添加至幻灯片,然后取消选择,单击菜单栏“工具/宏/录制新宏”命令,打开“录制新宏”对话框,使用默认宏名并单击“确定”,此时会出现一个“停止录制”的浮动工具栏,表明已进入宏录制状态。
2.在幻灯片中调整该对象的位置或大小,然后单击浮动工具栏中的“停止录制”,结束宏录制。
3.单击“工具/宏/宏”命令,打开“宏”对话框,选中相应的宏名并单击“编辑”后,即可进入宏代码窗口,此时在代码中可以查看该对象的名称。
三、课件的制作
1.新建演示文稿
启动PowerPoint 2003(其他版本操作相似),单击窗口右侧任务窗格中的“开始工作”下拉菜单,选择“幻灯片版式”命令,在“应用幻灯片版式”列表中,选择“内容版式/空白版式”。
2.控件和素材的添加
(1)添加按钮控件。依次选择菜单栏“视图/工具栏/控件工具箱”命令,打开“控件工具箱”对话框,单击“命令按钮”图标,在幻灯片的下侧添加一个命令按钮并右击,在弹出的快捷菜单中选择“属性”命令,打开其“属性”对话框,将“名称”和“Caption”属性改为“播放”,“AutoSize”属性改为“True”。
同理,在“播放”按钮右侧添加两个命令按钮,将它们的“名称”和“Caption”属性分别改为“频闪”和“复位”,“AutoSize”属性改为“True”。
选中所有的命令按钮,单击绘图工具栏上的“绘图/对齐或分布/顶端对齐”命令,可以使按钮上下对齐,再次单击“绘图/对齐或分布/横向分布”命令,使它们横向等距离分布。
(2)添加小球。使用绘图工具栏上的“椭圆”工具,按住“Shift”键,绘制一个适当大小的圆形。双击打开“设置自选图形格式”对话框,在“颜色和线条”选项卡下,单击“线条”选项区的“颜色”下拉按钮,选择“无线条颜色”,单击“填充”选项区的“颜色”下拉按钮,选择“填充效果”选项,进入“填充效果”对话框,在“颜色”选项区,选中“单色”单选按钮,在“底纹样式”选项区,选中“中心辐射”单选按钮,单击“确定”即可;在“尺寸”选项卡下,设置“尺寸和旋转”选项区的“高度”和“宽度”为“1厘米”;在“位置”选项卡下,设置“幻灯片上的位置”选项区的“水平”和“竖直”位置分别为“3厘米”和“8厘米”,单击“确定”按钮。
(3)添加文字说明。通过单击菜单栏“插入/文本框/水平”命令,在幻灯片的上侧插入一文本框,输入“匀速直线运动”并设置好字体、字号。
3.添加代码
在幻灯片中双击“播放”按钮打开VBA编辑器,把编辑窗口的内容全部删除,输入如下代码。
Private Sub 播放_Click()
For t = 0 To 10
x = 40 * t 3 * 28.364
t1 = Timer
While Timer - t1 < 0.1: DoEvents: Wend
Shapes("oval 7").Left = x
Shapes("oval 7").Top = 8 * 28.364
Next
End Sub
Private Sub 频闪_Click()
For i = 0 To 10
t1 = Timer
While Timer - t1 < 0.1: DoEvents: Wend
With Shapes("oval 7").Duplicate
.Left = i * 40 3 * 28.364
.Top = 8 * 28.364
End With
Next
End Sub
Private Sub 复位_Click()
a = Shapes.Count
b = a - 10
Dim i As Integer
For i = b To a
Shapes(i).Visible = False
Next
Shapes("oval 7").Left = 3 * 28.364
Shapes("oval 7").Top = 8 * 28.364
End Sub
输入完成后,关闭VBA编辑器,按F5放映幻灯片,单击“频闪”按钮,这时,“频闪摄影”的效果就出来了(如下图)。
(作者单位:河南尉氏县第三高级中学)