正弦型函數的圖象是高中數學中很重要的內容。但對于很多學生來說，這節課的內容又顯得過于抽象而變得難于理解。所以，數學老師們多選擇用課件來演示正弦波以更好地完成教學任務。那么，在PowerPoint中如何實現正弦波的演示呢?
一、一般性演示
如果課件只是要求簡單的演示正弦波的圖象，沒有什么交互性的要求，而您使用的又是Offcie XP或者2003版本，那么，這個問題就變得非常簡單了。
先點擊“繪圖”工具欄中的“橢圓”按鈕，在幻燈片編輯窗口中畫一個小的圓球(用它來表示動點)。選中此圓球，右擊鼠標，在彈出的右鍵菜單中選擇“自定義動畫”命令，打開“自定義動畫”任務窗格。在此任務窗格中點擊“添加效果→動作路徑→正弦波”命令，如圖1所示。
那么，您會看到編輯窗口中的圓球會沿一個正弦波路徑運動。當它停止運動后，您就可以看到一個正弦波出現了。選中它，您可以利用控制句柄調整其大小或進行旋轉操作。如圖2所示。
不過，先別高興太早，在放映時，您只能看到圓球沿該路徑運動，路徑本身(正弦波)是不會顯示出來的。想顯示正弦波嗎?那咱們得動動手。
點擊菜單命令“視圖→顯示比例…”，在打開的“顯示比例”對話框中選擇“100%”，按下“Print Screen”鍵，將屏幕拷貝下來并粘貼到畫圖板中，進行適當的編輯，只保留路徑部分，保存。
然后點擊菜單命令“插入→圖片→來自文件…”，將路徑圖插入到編輯窗口中，仔細調整圖片的位置，使圖片中的路徑與編輯窗口中的路徑完全重合(可以按下Ctrl鍵并配合小鍵盤上的方向鍵實現逐象素移動)。別忘了調整一下小球的“疊放次序”啊，保險起見，將它調到頂層好了(調整方法是右擊小球，在右鍵菜單中點擊“疊放次序→置于頂層”命令)。好了，現在，您可以放映一下，感覺一下效果了。
我們可以調整一下小球運動的速度，以獲得更佳的演示效果:雙擊正弦波路徑，打開3所示的“正弦波”對話框。點擊“計時”選項卡，看到了嗎?
默認情況下是兩秒鐘完成動畫的，當然會感覺快了。在“速度”輸入框中輸入您所希望的時間(以秒為單位)，然后點擊“確定”按鈕就可以了。
二、定制正弦型函數圖象
雖然上面的方法制作起來簡單快捷，但其中的不便之處也是顯而易見的。那就是它不能按我們上課的實際需要精確演示函數圖象。在教學實際中，我們經常要根據不同的A、ω、φ值畫出準確的y=Asin(ωx+φ)圖象。顯然，上面的方法是不可能完成的。不過，在PowerPoint中，利用VBA，還是可以使我們的這一要求得到滿足的。
首先點擊菜單命令“視圖→工具欄→控件工具箱”，打開控件工具箱工具欄。點擊工具欄中的“文本框”工具，在編輯窗口中拖放三個文本輸入框。我們將利用此三個文本框分別接收幻燈片放映時輸入的A、ω、φ的值，并利用這三個值畫出函數y=Asin(ωx+φ)圖象。
點擊控件工具箱中的“命令按鈕”工具，在編輯窗口中拖放一個按鈕。選中它，點擊右鍵，在彈出的快捷菜單中選擇“屬性”命令，打開“屬性”對話框。如圖4所示。將“Caption”右側的內容改為“畫圖象”，并將“AutoSize”右側的“False”改為“True”。其它的可以采用默認形式。點擊“確定”按鈕。
仍然選中“畫圖象”命令按鈕，點擊右鍵，在彈出的快捷菜單中選擇“查看代碼”命令，打開VBA代碼編輯窗口。在窗口輸入如下代碼:
Private Sub CommandButton1_Click()
A = Val(TextBox1.Text) * 20
B = Val(TextBox2.Text)
C = Val(TextBox3.Text) * 3.14 * 20 / 180
SlideShowWindows(1).View.DrawLine 70, 200, 600, 200
SlideShowWindows(1).View.DrawLine 100, 60, 100, 400
Do While Count < 450
x1 = Count + 100
y1 = -A * Sin((B * Count + C) / 20) + 200
Count = Count + 1
x2 = Count + 100
y2 = -A * Sin((B * Count + C) / 20) + 200
SlideShowWindows(1).View.DrawLine x1, y1, x1, y2
Loop
End Sub
放映一下，輸入三個變量值，點擊“畫圖象”按鈕，看看效果如何?如圖5所示(最后一個文本框應輸入φ的角度數)。
您可以多次輸入數據，畫出多個函數圖象以方便觀察。要清除這些圖象，可以用上面的方法再做一個按鈕，按鈕上的文字設置為“清除圖象”，編輯代碼為:
Private Sub CommandButton3_Click()
SlideShowWindows(1).View.EraseDrawing
End Sub
想要一個坐標系?呵呵，如果您不怕麻煩，當然可以了。做第三個按鈕，按鈕文字為“畫坐標系”，編輯代碼為:
rivate Sub CommandButton3_Click()
h = 100
k = 200
Length = 15.7
Number = 500
Dim xx
xx = 1
Do While xx < Number
If xx Mod 4 = 0 Then
SlideShowWindows(1).View.DrawLine h + xx * Length, k - 7, h + xx * Length, k
SlideShowWindows(1).View.DrawLine h - xx * Length, k - 7, h - xx * Length, k
SlideShowWindows(1).View.DrawLine h, k - xx * (Length + 4.3), h + 7, k - xx * (Length + 4.3)
SlideShowWindows(1).View.DrawLine h, k + xx * (Length + 4.3), h + 7, k + xx * (Length + 4.3)
Else
SlideShowWindows(1).View.DrawLine h + xx * Length, k - 3, h + xx * Length, k
SlideShowWindows(1).View.DrawLine h - xx * Length, k - 3, h - xx * Length, k
SlideShowWindows(1).View.DrawLine h, k - xx * (Length + 4.3), h + 3, k - xx * (Length + 4.3)
SlideShowWindows(1).View.DrawLine h, k + xx * (Length + 4.3), h + 3, k + xx * (Length + 4.3)
End If
xx = xx + 1
Loop
SlideShowWindows(1).View.DrawLine h, k, h + xx * Length, k
SlideShowWindows(1).View.DrawLine h - xx * Length, k, h, k
SlideShowWindows(1).View.DrawLine h, k, h, k - xx * Length
SlideShowWindows(1).View.DrawLine h, k, h, k + xx * Length
End Sub
行了，再試一次。如圖6所示。呵呵，夠“專業”吧?用它來演示正弦波，不錯吧?
