利用PowerPoint和Excel创建动态函数图像.doc

《利用PowerPoint和Excel创建动态函数图像.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、利用PowerPoint和Excel创建动态函数图像作者：刘景州来源：《中国信息技术教育》2010年第13期        在制作课件时,理科教师经常会用到一些精确的函数图像,特别是动态演示函数变化规律的图像。其实利用PowerPoint和Excel这两个常用的软件就能很好地创建这样的图像,笔者以一个典型的函数y=Asin(ωx+ψ)图像为例,和大家共同见证这一图像的创建过程,所用到的版本为Office2007。        ●利用PowerPoint实现        利用PowerPoint实现的创作思

2、路是:利用VBA工具中的文本框、按钮以及相应的画线函数控制y=Asin(ωx+ψ)中的相应参数,在与用户的交互中,形象展示出各参数对图像的影响以及图像的变化过程,具体操作步骤如下。        1.排列课件所用到的各对象        首先调出开发工具面板,在PowerPoint选项里显示开发工具选项(如图1),则会出现开发工具的面板。        点选开发工具面板中需要的选项并拖放到幻灯片中,即三个文本输入框,用来接收幻灯片放映时输入的A、ω、ψ的值,通过改变这三个参数的值,观察函数y=Asin(ωx+

3、ψ)图像的相应变化,并联系生活中的实际意义,从而让抽象的数学形象化,激发兴趣,鼓励学生进一步探索数学王国的奥秘。        这些功能的实现还需要三个按钮对象,分别命名为画图、画坐标轴、清除图像。命名是在按钮的属性面板里,将“Caption”右侧的内容改为按钮显示的文字,并将“AutoSize”右侧的“False”改为“True”。其他的可以采用默认形式(如图2)。        2.VBA代码的编写        Office2007提供了一个扩展功能的工具,可以把指令加载到相应的对象上,从而实现更多的交

4、互功能。在各按钮上点键,选择查看代码就能打开VBA代码编辑窗口。        下面是画图按钮的代码:        PrivateSubCommandButton1_Click()        WithActivePresentation.SlideShowSettings.Run.View        .PointerColor.RGB=RGB(0,0,255)        EndWith        A=Val(TextBox1.Text)*100        B=Val(TextBox2.T

5、ext)        C=Val(TextBox3.Text)*3.14*100/180        DoWhileCount<450        x1=Count+100        y1=-A*sin((B*Count+C)/100)+200        Count=Count+1        x2=Count+100        y2=-A*sin((B*Count+C)/100)+200        SlideShowWindows(1).View.DrawLinex1,y1,x1,y

6、2        Loop        EndSub        注:其中With语句改变正弦函数图像的颜色,DrawLine函数配合Do循环画出图像。        PrivateSubCommandButton2_Click()        SlideShowWindows(1).View.EraseDrawing        EndSub        这段代码是清除以前画的图像,实现多次输入。        以下内容是画坐标系的代码,是利用画图命令配合循环语句实现的。        Priva

7、teSubCommandButton3_Click()        WithActivePresentation.SlideShowSettings.Run.View        .PointerColor.RGB=RGB(0,0,0)        EndWith        h=100        k=200        Length=10        Number=500        Dimxx        xx=1        DoWhilexx

8、Mod4=0Then        SlideShowWindows(1).View.DrawLineh+xx*Length,k-7,h+xx*Length,k        SlideShowWindows(1).View.DrawLineh-xx*Length,k-7,h-xx*Length,k        SlideShowWindows(1).View.DrawLineh,k-xx*(Le