輕松做PowerPoint教案演示正弦波_PPT技巧提高

推薦：解決PowerPoint英語課件配音難同步的問題
用PowerPoint制作英語課件時，在“聽力配課文”環(huán)節(jié)上出了點小問題：課文很長，若將內(nèi)容放在一頁上，只能是個形式，學(xué)生根本看不到文字的提示。而如果放到多頁上，又必須把聲音文件按幻燈片內(nèi)容適當(dāng)截

用PowerPoint制作課件，因其簡單易學(xué)制作方便而成為老師們的首選工具。今天我們要講的是在PowerPoint中實現(xiàn)正弦波的演示。

　　正弦型函數(shù)的圖象是高中數(shù)學(xué)中很重要的內(nèi)容。但對于很多學(xué)生來說，這節(jié)課的內(nèi)容又顯得過于抽象而變得難于理解。所以，數(shù)學(xué)老師們多選擇用課件來演示正弦波以更好地完成教學(xué)任務(wù)。那么，在PowerPoint中如何實現(xiàn)正弦波的演示呢?

　　一、一般性演示

　　如果課件只是要求簡單的演示正弦波的圖象，沒有什么交互性的要求，而您使用的又是Offcie XP或者2003版本，那么，這個問題就變得非常簡單了。

　　先點擊“繪圖”工具欄中的“橢圓”按鈕，在幻燈片編輯窗口中畫一個小的圓球(用它來表示動點)。選中此圓球，右擊鼠標(biāo)，在彈出的右鍵菜單中選擇“自定義動畫”命令，打開“自定義動畫”任務(wù)窗格。在此任務(wù)窗格中點擊“添加效果→動作路徑→正弦波”命令，如圖1所示。

　　那么，您會看到編輯窗口中的圓球會沿一個正弦波路徑運(yùn)動。當(dāng)它停止運(yùn)動后，您就可以看到一個正弦波出現(xiàn)了。選中它，您可以利用控制句柄調(diào)整其大小或進(jìn)行旋轉(zhuǎn)操作。如圖2所示。

　　不過，先別高興太早，在放映時，您只能看到圓球沿該路徑運(yùn)動，路徑本身(正弦波)是不會顯示出來的。想顯示正弦波嗎?那咱們得動動手。

　　點擊菜單命令“視圖→顯示比例…”，在打開的“顯示比例”對話框中選擇“100%”，按下“Print Screen”鍵，將屏幕拷貝下來并粘貼到畫圖板中，進(jìn)行適當(dāng)?shù)木庉嫞�只保留路徑部分，保存�?/P>

　　然后點擊菜單命令“插入→圖片→來自文件…”，將路徑圖插入到編輯窗口中，仔細(xì)調(diào)整圖片的位置，使圖片中的路徑與編輯窗口中的路徑完全重合(可以按下Ctrl鍵并配合小鍵盤上的方向鍵實現(xiàn)逐象素移動)。別忘了調(diào)整一下小球的“疊放次序”啊，保險起見，將它調(diào)到頂層好了(調(diào)整方法是右擊小球，在右鍵菜單中點擊“疊放次序→置于頂層”命令)。好了，現(xiàn)在，您可以放映一下，感覺一下效果了。

　　我們可以調(diào)整一下小球運(yùn)動的速度，以獲得更佳的演示效果:雙擊正弦波路徑，打開3所示的“正弦波”對話框。點擊“計時”選項卡，看到了嗎?

　　默認(rèn)情況下是兩秒鐘完成動畫的，當(dāng)然會感覺快了。在“速度”輸入框中輸入您所希望的時間(以秒為單位)，然后點擊“確定”按鈕就可以了。

二、定制正弦型函數(shù)圖象

　　雖然上面的方法制作起來簡單快捷，但其中的不便之處也是顯而易見的。那就是它不能按我們上課的實際需要精確演示函數(shù)圖象。在教學(xué)實際中，我們經(jīng)常要根據(jù)不同的A、ω、φ值畫出準(zhǔn)確的y=Asin(ωx+φ)圖象。顯然，上面的方法是不可能完成的。不過，在PowerPoint中，利用VBA，還是可以使我們的這一要求得到滿足的。

　　首先點擊菜單命令“視圖→工具欄→控件工具箱”，打開控件工具箱工具欄。點擊工具欄中的“文本框”工具，在編輯窗口中拖放三個文本輸入框。我們將利用此三個文本框分別接收幻燈片放映時輸入的A、ω、φ的值，并利用這三個值畫出函數(shù)y=Asin(ωx+φ)圖象。

　　點擊控件工具箱中的“命令按鈕”工具，在編輯窗口中拖放一個按鈕。選中它，點擊右鍵，在彈出的快捷菜單中選擇“屬性”命令，打開“屬性”對話框。如圖4所示。將“Caption”右側(cè)的內(nèi)容改為“畫圖象”，并將“AutoSize”右側(cè)的“False”改為“True”。其它的可以采用默認(rèn)形式。點擊“確定”按鈕。

　　仍然選中“畫圖象”命令按鈕，點擊右鍵，在彈出的快捷菜單中選擇“查看代碼”命令，打開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所示(最后一個文本框應(yīng)輸入φ的角度數(shù))。

　　您可以多次輸入數(shù)據(jù)，畫出多個函數(shù)圖象以方便觀察。要清除這些圖象，可以用上面的方法再做一個按鈕，按鈕上的文字設(shè)置為“清除圖象”，編輯代碼為:

　　Private Sub CommandButton3_Click()
　　SlideShowWindows(1).View.EraseDrawing
　　End Sub

　　想要一個坐標(biāo)系?呵呵，如果您不怕麻煩，當(dāng)然可以了。做第三個按鈕，按鈕文字為“畫坐標(biāo)系”，編輯代碼為:

　　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所示。呵呵，夠“專業(yè)”吧?用它來演示正弦波，不錯吧?

分享：PowerPoint XP處理多媒體技巧
為了能更好地展示演示效果，許多人已經(jīng)不滿足在幻燈片中插入精彩的圖象了，他們現(xiàn)在又將精力瞄準(zhǔn)在了很時尚的動畫以及動感十足的多媒體視頻上了。為了能更好地幫助大家合理地在幻燈片中插入和播放動畫和多媒體視頻文件，本文特向大家介紹PowerPoint XP處理動畫和視頻方