利用VBA在PowerPoint中制作“平抛运动”课件
2009-03-23邹江邹滨
邹 江 邹 滨
笔者以PowerPoint2003作为开发平台制作的助教型课件“平抛运动”,全面地讲解了高中物理中有关平抛物体运动的演示课件制作。其中利用PowerPoint2003提供的VBA编程功能制作的物体平抛运动模拟演示实验,形象、直观地展现了平抛运动在水平与竖直方向的分解规律。本文介绍了该课件的设计、算法与应用中的关键问题。
平抛物体的运动是高中物理中的一个重点教学内容。作为学生接触的第一种曲线运动,平抛运动过程中物体的受力分析、运动方向的变化以及轨迹都极容易使学生产生困惑。虽然教师讲解时可以辅以演示实验,帮助说明平抛物体运动的特点和原理,但是演示实验的瞬时性和不可再现性,往往不利于演示目标的实现。因而,平抛运动成为高中物理教学中的一个难点。为解决以上问题,笔者利用PowerPoint中的VBA制作“平抛运动”课件,以帮助学生理解运动的合成与分解及矢量的加减运算。
课件制作软件的选择
“平抛运动”演示实验中初速度、位移等物理量不易确定,实验现象稍纵即逝。利用课件可以把抽象的内容直观化、复杂的原理具体化、短暂的现象再现化,从而帮助教师提高教学的效率和效果。Microsoft PowerPoint普及面广,生成的文件占用空间少,操作简单,是一个很好的课件制作工具。PowerPoint中的Visual Basic for Application(VBA)为PowerPoint内置的控制语言,可以实现很多复杂的交互,比如可以实现自动向演示文稿中展示不同初速度下小球平抛运动的效果,极大地提高演示文稿的效率,使课件更具灵活性、条理性和清晰性,更好地为教学服务。
小球做平抛运动轨迹问题的算法
小球的移动过程也就是圆心的运动过程,设定一个时间间隔,只要计算每个时间间隔后小球圆心的位置,也就知道了小球的轨迹。可以把实际问题转化成运用循环结构和物理里面的平抛运动来计算求圆心轨迹的过程。具体算法如下:已知重力加速度为g=9.8,假设小球运动时间初值t为1,输入小球水平初速度v,如果水平初速度v小于等于100,计算小球水平坐标x=v*t,计算小球竖直坐标y=g*v*t*t/2,以(x,y)为中心画小球(以圆代替),累加小球运动的时间t=t+1,直到t大于100结束。
平抛运动课件的制作
1)启动PowerPoint2003(其他版本操作相似),打开相应的课件演示文稿,定位到制作平抛运动演示幻灯片中,输入文字“水平初速度”。
2)执行“视图→工具栏→控件工具箱”命令,展开“控件工具箱”,点击一下其中的“文本框”按钮,然后在幻灯片中拖拉出一个文本框来。
3)再用“控件工具箱”的“命令按钮”在幻灯片上添加2个按钮,并将其中一个“Caption”属性修改为“演示”(或其他字符),另一个“Caption”属性修改为“擦除”。再双击按钮,进入“Visual Basic编辑器”状态,将下述代码分别输入到出现的二组代码中间,输入完成后,关闭窗口返回。
图1为描述小球做平抛运动的轨迹的程序运行界面。
程序代码:
Private Sub CommandButton1_Click()
g=9.8
t=1
v=Val(TextBox1.Text)
Do While t<=100
x=v*t
y=g*t*t/2
a=x-10*Sin(0)
b=x-10*Cos(0)
For e=0To50 (调e的取值范围可改变演示实验的轨迹生成的速度)
a=x-10*Sin(e)
b=y-10*Cos(e)
c=x-10*Sin(e+0.1)
d=y-10*Cos(e+0.1)
SlideShowWindows(Index:=1).View.DrawLine a,b,c,d
Next
t=t+1
Loop
End Sub
Private Sub CommandButton2_Click()
TextBox1 = " "
SlideShowWindows(Index:=1).View.EraseDrawing
End Sub
课件演示相关问题
本课件的定位侧重于辅助教师的课堂教学。建议使用模式:首先,教师仔细讲解平抛运动的原理、物体做平抛运动时轨迹的形成及原因;然后,利用本课件演示平抛运动的过程,演示过程中可以多次更改水平初速度,同时展示不同水平初速度下平抛运动的轨迹,并进行提问或答疑,引导学生来构建平抛运动的未知知识;随时点击“擦除”按扭,可重新演示实验;退出时可按“ESC”键。
(作者单位:1 江西省新余市第五中学;2 江西省新余市第四中学)