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

基于VBA动画模拟课件设计与实现 　　【摘要】为适应多媒体教学的要求,利用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代码即可实现钢球运动的动态模拟效果: 　　 　　v = 15: g = 9.81 v为水平速度,g为重力加速度 　　For i = 1 To 20 　　With ActivePresentation.Slides(1).Shapes(Oval 3) “Oval 3”为钢球 　　.IncrementLeft i * v / 6 钢球向右运动速度 　　.IncrementTop i * i * g / 2 / 36 钢球向下运动速度 　　DoEvents放弃控制权 　　End With 　　Next i 　　 　　二 VBA所控制的ActiveX控件,在动画模拟课件中担当重要角色 　　 　　ActiveX控件是由不同语言开发、能被大多数应用程序使用的组件对象模型(COM),在对话框窗体中添加ActiveX控件是较为常用的方法,这一组件技术与VBA混合编程,极大地提升了PowerPoint课件交互功能。在PowerPoint文档中,可以直接添加诸如“数值调节钮”、“切换按钮”和“选项按钮”等ActiveX控件构建虚拟实验装置中的某些控制部件,再用一小段VBA代码实现这些控制部件的开、关、调节等功能。如虚拟实验装置中的出口阀调节流量由“数值调节钮”窗体来构建,即通过“视图/工具栏/窗体”打开“窗体工具栏”选择“数值调节钮”ActiveX控件进行设置。再右键单击控件,选择右键菜单的“属性(I)”命令打开“属性”对话框(图2)设置出口阀的开度,即最小值为0、最大值为10,共11个开度,0为关闭;执行右键菜单的“查看代码”命令,输入一段VBA代码,即可通过出口阀开度值的大小,调节流量计转子(Group 10)的上下位置,“数值调节钮”ActiveX控件的Change()过程VBA代码如下: 　　x = SpButCKF.Value“数值调节钮”调节的值 　　If x y Then z = -1 Else z = 1 　　ActivePresentation.Slides(1).Shapes(Group 10).IncrementTop z * 10“Group 10”为流量计的转子,z为-1时向上,z为1时向