打造超级数学坐标系.docVIP

打造超级数学坐标系 　　本文可以用在 　　1 函数关系的讲解 　　2 三角形的分析 　　3 物理光的成像 　　 　　在数学教学中，坐标的应用是随处可见的，特别是在几何中应用得相当广泛，不管是三角函数，还是直线，它们都与坐标密不可分，如何打造一个精度准，并能灵活调节的超级坐标系呢？用PPT就能办到，现在我就来开始制作。 　　 　　参数面板的制作 　　打开PowerPoint 2003，进入幻灯片编辑模式，右击编辑区，选择“背景”命令，在背景窗口中选择适合的颜色，如红色，再单击“应用”即可。单击“视图→工具栏→控件工具箱”打开“控件工具箱”。在“控件工具箱”里单击“文本框”控件，再按着鼠标左键在幻灯片编辑区拖放出四个文字输入框，再单击“绘图”工具栏的“文本框”，为每个文字输入框加上注释，分别为“坐标原点横坐标”、“坐标原点纵坐标”、“单位”和“长度”（见图）。 　　 　　小技巧 　　用“文本框”控件画出一个“文本框”，先选中“文本框”，再按着“Ctrl”键用鼠标拖动即可实现快速复制。 　　 　　单击“控件工具箱”里的“命令按钮”控件，在幻灯片编辑区拖放出三个命令按钮。选中第一个按钮，单击右键，在左键菜单里选择“属性”命令打开属性设置对话框，单击“Caption”右侧属性栏，更改为“画坐标系”。用同样对其他两个按钮的“Caption”属性值进行修改，分别为“清空数据”和“清除图像”。 　　 　　小技巧 　　双击命令按钮即可快速打开代码。 　　 　　画坐标系 　　单击“画坐标系”命令按钮，再单击右键，在右键菜单里选择“查看代码”打开“Microsoft Visual Basic”编辑窗口，找到如下代码： 　　Private Sub CommandButton1_Click() 　　End Sub 　　在这两行代码之间插入如下代码：（//后内容为程序说明） 　　h = Val(TextBox1.Text) 　　k = Val(TextBox2.Text) 　　Length = Val(TextBox3.Text) 　　Number = Val(TextBox4.Text) 　　Dim xx 　　xx = 1 　　Do While xx Number 　　If xx Mod 5 = 0 Then 　　SlideShowWindows(1).View.DrawLine h + xxLength, k - 7, h + xxLength, k 　　SlideShowWindows(1).View.DrawLine h - xxLength, k - 7, h - xxLength, k 　　SlideShowWindows(1).View.DrawLine h, k - xxLength, h + 7, k - xxLength 　　SlideShowWindows(1).View.DrawLine h, k + xxLength, h + 7, k + xxLength 　　//通过长度来进行分析，DrawLine能在指定幻灯片放映视图中绘制直线。 　　Else 　　SlideShowWindows(1).View.DrawLine h + xxLength, k - 3, h + xxLength, k 　　SlideShowWindows(1).View.DrawLine h - xxLength, k - 3, h - xxLength, k 　　SlideShowWindows(1).View.DrawLine h, k - xxLength, h + 3, k - xxLength 　　SlideShowWindows(1).View.DrawLine h, k + xxLength, h + 3, k + xxLength 　　//通过长度来进行分析。 　　End If 　　xx = xx + 1 　　Loop 　　SlideShowWindows(1).View.DrawLine h, k, h + xxLength, k 　　//X轴正半轴。 　　SlideShowWindows(1).View.DrawLine h - xxLength, k, h, k 　　//X轴负半轴。 　　SlideShowWindows(1).View.DrawLine h, k, h, k - xxLength 　　//Y轴正半轴。 　　SlideShowWindows(1).View.DrawLine h, k, h, k + xxLength 　　//Y轴负半轴。 　　 　　清空数据 　　选中“清空数据”命令按钮，打开代码编辑窗