《基于VBA的物体平抛运动PPT课件的实现》由会员分享，可在线阅读，更多相关《基于VBA的物体平抛运动PPT课件的实现（3页珍藏版）》请在金锄头文库上搜索。
1、2010.05软件研制平抛运动是高中物理中很重要的内容。 但对于很多学生来说，这节课的内容又显得比较抽象而变得难于理解 。所以， 物理教师们多选择用课件来演示以更好地完成教学任务。用 PowerPoint制作课件，因其简单易学制作方便而成为学校教师们的首选工具。 但是， 一般情况下，教师们多是通过“ 添加效果 自定义动画 动作路径 绘制自定义路径 曲线”来实现的，这种方法使课件因缺少交互功 能 而 显 得 单 调 、 呆 板 ， 效 果 也 大 打 折 扣 。 那 么 ，在PowerPoint中如何实现平抛运动的交互功能呢？笔者通过反复地思考和探索找到了在PowerPoint中利用VBA实现平
2、抛运动的交互功能的有效方法。下面就笔者制作“ 平抛运动”课件的过程予以介绍。一 、 课件制件的物理原理和实现的功能1物理原理平抛运动可以看作是水平方向上的匀速直线运动和竖直方向上的自由落体运动的合运动。 物体在平抛时的初速度为v0，重力加速度为g，于是物体的水平方向速度：v水 平v0， 物体竖直方向速度：v竖 直g 觹 t， t 时刻物体在运动过程中的水平坐标xv0觹 t， 竖直坐标yg觹 t觹 t 2。2课件实现的功能本课件实现的功能就是动态地模拟平抛物体运动的全过程。具体地说，通过改变文本框中v0的数值，在点击“ 演示 ”按钮时既可看到小球在空中的运动，又可看到组合框中动态显示的小球位置坐
3、标；点击 “ 轨迹”按钮可随时显示小球的运动轨迹；点击 “ 复位 ”按钮可使小球回到起点； 点击 “ 退出 ”按钮可退出课件。 运行效果如图1 所示 。图 1二 、 课件的制作1新建演示文稿启动PowerPoint2003（其他版本操作相似），点击窗口右侧任务窗格中的“ 开始工作”下拉菜单，选择 “ 幻灯片版式”命令， 在“ 应用幻灯片版式”列表中，选择 “ 内容版式 空白版式” （也可根据需要或爱好选择别的版式）。2素材和控件的添加坐标的绘制。 使用绘图工具栏上的“ 箭头 ”工具， 按住“ Shift ”键，绘制一条自左向右的箭头做为水平坐标，右键单击箭头弹出快捷菜单，选择 “ 设置自选图形
4、格式”命令，打开 “ 设置自选图形格式”对话框， 在“ 尺寸 ”选项卡下，在“ 尺寸和旋转”选项区， 设置为 “ 宽度： 14 厘米 ” （如图2），在“ 位置 ”选项卡下，在“ 幻灯片上的位置”选项区， 设置为“ 水平： 5 厘米， 竖直： 7 厘米 ” （如图3），其它为默认，点击“ 确定 ”按钮即可；再次使用“ 箭头 ”工具， 按住 “ Shift ”键，绘制一条从上向下的箭头做为竖直坐标，同理， 打开其 “ 设置自选图形格式”对话框， 在“ 尺寸 ”选项卡下，设置为 “ 高度：10 厘米 ”， 在“ 位置 ”选项卡下，设置为 “ 水平： 5 厘米，竖直： 7 厘米 ”,其它为默认，点击
5、 “ 确定 ”按钮即可。图 2图 3基于 VBA 的物体平抛运动PPT 课件的实现刘 玉 岗（ 尉氏县第三高级中学， 河南尉氏475500 ）662010.05软件研制小球的绘制。使用绘图工具栏上的“ 椭圆”工具， 按住“ Shift ”键，绘制一个适当大小的圆形。添加按钮。 点击菜单栏“ 视图 工具栏 控件工具箱”命令弹出控件工具箱，点击 “ 命令按钮”图标， 在坐标系的右侧拖出一个命令按钮并右击，在弹出的快捷菜单中点 击“ 属 性 ”命 令 打 开“ 属 性 ”对 话 框 ，将“ 名 称 ”和“ Caption ”属 性 改 为“ 演 示 ”， “ AutoSize ”属 性 改 为“ T
6、rue ”（如图4）；同理， 在“ 演 示 ”按 钮 下 面 添 加3 个命令按钮，将它们的“ 名称”和“ Caption ”属性分别改为“ 轨 迹 ”、 “ 复 位 ”、 “ 退 出 ”， “ AutoSize ”属 性 都 改 为“ True ”。图 4选中所有的命令按钮，点击绘图工具栏上的“ 绘图对齐或分布 右对齐”命令 （如图5），可以使它们左右对齐；再次点击“ 绘图 对齐或分布 纵向分布”命 令 ， 使 它们纵向等距离分布。图 5添加文字内容。 点击菜单栏“ 插入 文本框 水平”命令在 “ 演示 ”按钮的上面拖出一个文本框，输入 “ v0米 秒 ”； 同理在水平坐标的上面插入两个文本
7、框，分别输入“ x米 ”、 “y米 ”。在幻灯片的上侧插入一个文本框输入课件的标题“ 平抛物体的运动”。添加初速度控件。 在“ 控件工具箱 ”中 点 击“ 文 本框 ”按钮图标，单击鼠标在“ v0米 秒 ”的下划线的上面拖出一个适当大小的文本框并打开其“ 属性”对话 框 ， 将“ 名 称 ”属 性 改 为“ txtv ”， 点 击 左 侧 的“ BorderStyle”属 性 ， 点 击 其 右 侧 的 下 拉 按 钮 ，选 择“ 1 fmBorderStyleSingle”，再点 击下拉 按钮选 择“ 0 fmBorderStyleNone”， 这样可以消除文本框的边框。添加位移控件。 在“
8、 控件工具箱”中点击“ 组合框”按 钮 图 标 ， 单 击 鼠 标 在“ x 米 ”、 “y 米 ”中 的“ ”和“ 米 ”之间分别拖出一个组合框，将“ 名称”属性分别改为“ combox ”和“ comboy ”。确定小球名称。 点击菜单栏“ 工具 宏 录制新宏”命令，打开 “ 录制新宏”对话框，使用默认宏名并单击“ 确定 ”按钮， 右击小球在弹出的快捷菜单中选择“ 设置自选图形格式”命令， 打开 “ 设置自选图形格式”对话框，在“ 颜色和线条”选项卡下，点击 “ 线条”选项区的“ 颜色”下拉按钮，选择 “ 无 线 条 颜 色 ”，点 击“ 填 充 ”选 项 区 的“ 颜色 ”下拉按钮，选择
9、 “ 填充效果”选项， 进入 “ 填充效果 ”对话框（如图6），在“ 颜色 ”选项区，选中 “ 单色”单选按钮，在“ 底纹样式”选项区，选中 “ 中心辐射”单选按钮（如图7），点击 “ 确定 ”按钮； 在“ 尺寸 ”选项卡下，设置“ 尺寸和旋转 ”选 项 区 的“ 高 度 ”和“ 宽 度 ”为“ 1 厘米 ”； 在“ 位置 ”选项卡下，设置 “ 幻灯片上的位置”选项区的 “ 水平”和“ 竖 直 ”位 置 分 别 为“ 45厘 米 ”和“ 65厘米 ”， 点击 “ 确定 ”按钮 。单击浮动工具栏中的“ 停止录制 ”命令， 结束宏录制。图 6图 7点击菜单栏“ 工具 宏 宏 ”命令， 选中刚才录制
10、的宏672010.05软件研制名并单击“ 编辑”按钮， 打开VBA编辑窗口，在代码中可以看到小球的名称为Shapes( Oval6) 。3VBA代码的添加在幻灯片中选中按钮或组合框等控件，点击右键，在弹出的快捷菜单中选择“ 查看代码”命令， 打开VBA代码编辑窗口。把窗口中的内容全部删除，然后在窗口中输入以下代码：DimvAsSingle,nAsIntegerDimx()AsSingle,y()AsSingleSubcsjs()v Val(txtvText)b Sqr(9觹 28347 5)觹 10Ifv 0Thena bElsea 13觹 28347 觹 10vEndIfIfa bThenn
11、 bElsen aEndIfReDimx(n)AsSingle,y(n)AsSinglecombox Clearcomboy ClearFori 0Tonx(i) v觹 t 45 觹 28347y(i) 5觹 t觹 t 65 觹 28347s1 Format(x(i) 45 觹 28347, 0)s2 Format(y(i) 65 觹28347, 0)combox AddItems1comboy AddItems2t t 01NextEndSubPrivateSub演示Click()csjsFori 0Tont1 TimerWhileTimer t1 001: DoEvents:WendSha
12、pes( Oval6) Left x(i)Shapes( Oval6) Top y(i)combox ListIndex icomboy ListIndex iNextEndSubPrivateSub复位Click()Shapes( Oval 6) Left 45 觹 28347Shapes( Oval 6) Top 65 觹 28347txtvText 40combox Text 0comboy Text 0EndSubPrivateSub轨迹click()Fori 0Ton 01x1 v觹 t 5觹 28347y1 5觹 t觹 t 7觹 28347t t 01Forj 0To100x2 v觹 t 5觹 28347y2 5觹 t觹 t 7觹 28347SlideShowWindows(1)View DrawLine x1,y1,x2,y2NextNextEndSubPrivateSub退出click()ApplicationQuitEndSub完成后关闭VBA编辑窗口。按 F5 键放映一下，点击“ 演示”按钮， 看看效果如何。参考文献 1马 致明 等 在 PowerPoint 中利 用 VBA 制 作交 互式 物 理模拟课件 中国教育信息化： 基础教育 ,2008,(8)编辑： 于翼楠68
