打造超级数学坐标系

本文可以用在

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轴负半轴。

清空数据

选中“清空数据”命令按钮，打开代码编辑窗口，在“Private Sub CommandButton2_Click()”代码后加入如下代码：

TextBox1.Value = ""

TextBox2.Value = ""

TextBox3.Value = ""

TextBox4.Value = ""

//让相应输入框的值为空。

清除图像

选中“清除图像”按钮并加入如下代码：

Private Sub CommandButton3_Click()

SlideShowWindows(1).View.EraseDrawing

End Sub

//EraseDrawing用于清除通过DrawLine方法或绘图笔工具在放映中绘制的直线，而SlideShowWindows能返回SlideShowWindows集合，代表所有打开的幻灯片放映窗口。

教学试用

OK，现在按F5键或单击“幻灯片放映观看放映”即可观看效果。在参数输入框里输入数据，单击“画坐标系”按钮即可制作一个精确的坐标系；单击“清空数据”按钮就会清空当前输入的数据；单击“清除图像”就能清除输入的数据或所画出的坐标系，重新进行设置。