基于VBA 的动画模拟课件的设计与实现.docxVIP

第 20 卷2010 年第 1 期现代教育技术Modern Educational Technology基于 VBA 的动画模拟课件的设计与实现*Vo1. 20No.1 2010颜清 1彭小平 2（1.上饶师范学院 数学与计算机系，江西上饶 334001；2.上饶师范学院化学系，江西上饶 334001）【摘要】为适应多媒体教学的要求，利用 PowerPoint 中的绘图功能、ActiveX 控件功能和 VBA 编程，在课件中实现化工实验过程的动画模拟。基于 VBA 的动画模拟课件生动、直观、交互性强，为化工实验模拟课件的开发提供了一种新的方法。【关键词】VBA；动画模拟课件；设计；实现【中图分类号】G40-057【文献标识码】B【论文编号】1009—8097（2010）01—0124—03引言PowerPoint 课件常用于教学、会议、产品演示等活动中，PowerPoint 课件由于制作方便、快捷，深受广大用户喜爱，是最为流行的课件制作工具[1-2]。但绝大多数由 PowerPoint制作的课件交互功能差、动画简单、形式呆板，成了名符其实的幻灯片，尤其是交互性强的动画模拟课件较为鲜见。其实，PowerPoint 中的绘图功能、ActiveX 控件功能及 VBA 编程功能[3]被大多数用户所忽视，导致课件的运行效果和适用范围受到限制。笔者用 PowerPoint 开发化工实验课件时，对PowerPoint 中各种功能及 VBA 二次开发技术[4-6]进行研究，在课件中实现了化工实验过程的动画模拟。在实验模拟中通过控制部件的操作，运动部件同时产生形态变化，仪表部件动态显示实验数据，生动直观，极大地丰富了 PowerPoint 课件的内涵。以下笔者对基于 VBA 的动画模拟课件的实现过程和方法进行阐述，以飨读者。一 PowerPoint 课件中简单的运动动画或动态模拟在 PowerPoint 中，制作钢球的平抛运动是简单的运动动画或动态模拟画面，其最为普通的方法是采用“自定义动画……”方法。如用绘图工具制作一个球体（按住“Shift”键用“椭圆”工具画一个正圆，选择单色、中心辐射渐变的“填充效果”），右键选择球体后执行“自定义动画…”命令，在打开的“自定义动画”窗口中单击“添加效果”按钮中的“动作路径（P）”/“其他动作路径（M）…”命令，在打开的“添加动作路径”窗口中选择“向下转”路径，添加路径后进行编辑，使球体运动轨迹接近实际（图 1），这一方法难以达到理想的动态模拟效果，最为明显的缺点是难以控制，交互性很不理想。但在 PowerPoint 课件中利用 VBA 技术，编程计算钢球的运动轨迹可获得逼真的动态仿真效果，还可以通过人机对话，输入水平运动速度，显示水平距离等。如在幻灯片上添加一个按钮，并在按钮的 Click()过程中输入以下 VBA 代码即可实现钢球运动的动态模拟效果：图 1 球体平抛运动的路径设置与编辑v = 15: g = 9.81 v 为水平速度，g 为重力加速度For i = 1 To 20With ActivePresentation.Slides(1).Shapes(Oval 3) “Oval3”为钢球.IncrementLeft i * v / 6 钢球向右运动速度.IncrementTop i * i * g / 2 / 36 钢球向下运动速度DoEvents放弃控制权End WithNext i二 VBA 所控制的 ActiveX 控件，在动画模拟课件中担当重要角色ActiveX 控件是由不同语言开发、能被大多数应用程序使用的组件对象模型（COM），在对话框窗体中添加 ActiveX控件是较为常用的方法，这一组件技术与 VBA 混合编程，极大地提升了 PowerPoint 课件交互功能。在 PowerPoint 文档中，可以直接添加诸如“数值调节钮”、“切换按钮”和“选项按钮”等 ActiveX 控件构建虚拟实验装置中的某些控制部———————————*基金项目：江西省教育厅 2008 年度科技项目资助（GJJ08461，基于 VBA 的实验数据处理系统的研究与实现）；收稿日期：2009 年 7 月 15 日124件，再用一小段 VBA 代码实现这些控制部件的开、关、调节等功能。如虚拟实验装置中的出口阀调节流量由“数值调节钮”窗体来构建，即通过“视图/工具栏/窗体”打开“窗体工具栏”选择“数值调节钮”ActiveX 控件进行设置。再右键单击控件，选择右键菜单的“属性(I)”命令打开“属性”对话框（图 2）设置出口阀的开度，即最小值为 0、最大值为10，共 11 个开度，0 为关闭；执行右键菜单的“查看代码”命令，输入一段 VBA 代码，即可通过出口阀开度值的大小，调节流量计转子 (Group 10)的上