1、 2010.05軟件研制平拋運動是高中物理中很重要的內容。但對于很多學生來說,這節課的內容又顯得比較抽象而變得難于理解。所以,物理教師們多選擇用課件來演示以更好地完成教學任務。用PowerPoint制作課件,因其簡單易學制作方便而成為學校教師們的首選工具。但是,一般情況下,教師們多是通過“添加效果/自定義動畫/動作路徑/繪制自定義路徑/曲線”來實現的,這種方法使課件因缺少交互功能而顯得單調、呆板,效果也大打折扣。那么,在PowerPoint中如何實現平拋運動的交互功能呢?筆者通過反復地思考和探索找到了在PowerPoint中利用VBA實現平拋運動的交互功能的有效方法。下面就筆者制作“平拋運動”

2、課件的過程予以介紹。一、課件制件的物理原理和實現的功能1.物理原理平拋運動可以看作是水平方向上的勻速直線運動和豎直方向上的自由落體運動的合運動。物體在平拋時的初速度為v0,重力加速度為g,于是物體的水平方向速度:v水平=v0,物體豎直方向速度:v豎直=g觹t,t時刻物體在運動過程中的水平坐標x=v0觹t,豎直坐標y=g觹t觹t/2。2.課件實現的功能本課件實現的功能就是動態地模擬平拋物體運動的全過程。具體地說,通過改變文本框中v0的數值,在點擊“演示”按鈕時既可看到小球在空中的運動,又可看到組合框中動態顯示的小球位置坐標;點擊“軌跡”按鈕可隨時顯示小球的運動軌跡;點擊“復位”按鈕可使小球回到起

3、點;點擊“退出”按鈕可退出課件。運行效果如圖1所示。圖1二、課件的制作1.新建演示文稿啟動PowerPoint2003(其他版本操作相似,點擊窗口右側任務窗格中的“開始工作”下拉菜單,選擇“幻燈片版式”命令,在“應用幻燈片版式”列表中,選擇“內容版式/空白版式”(也可根據需要或愛好選擇別的版式。2.素材和控件的添加坐標的繪制。使用繪圖工具欄上的“箭頭”工具,按住“Shift”鍵,繪制一條自左向右的箭頭做為水平坐標,右鍵單擊箭頭彈出快捷菜單,選擇“設置自選圖形格式”命令,打開“設置自選圖形格式”對話框,在“尺寸”選項卡下,在“尺寸和旋轉”選項區,設置為“寬度:14厘米”(如圖2,在“位置”選項卡

4、下,在“幻燈片上的位置”選項區,設置為“水平:5厘米,豎直:7厘米”(如圖3,其它為默認,點擊“確定”按鈕即可;再次使用“箭頭”工具,按住“Shift”鍵,繪制一條從上向下的箭頭做為豎直坐標,同理,打開其“設置自選圖形格式”對話框,在“尺寸”選項卡下,設置為“高度:10厘米”,在“位置”選項卡下,設置為“水平:5厘米,豎直:7厘米”,其它為默認,點擊“確定”按鈕即可。圖2圖3基于VBA的物體平拋運動PPT課件的實現劉玉崗(尉氏縣第三高級中學,河南尉氏475500 66 2010.05軟件研制小球的繪制。使用繪圖工具欄上的“橢圓”工具,按住“Shift”鍵,繪制一個適當大小的圓形。添加按鈕。點擊

5、菜單欄“視圖/工具欄/控件工具箱”命令彈出控件工具箱,點擊“命令按鈕”圖標,在坐標系的右側拖出一個命令按鈕并右擊,在彈出的快捷菜單中點擊“屬性”命令打開“屬性”對話框,將“名稱”和“Caption”屬性改為“演示”,“AutoSize”屬性改為“True”(如圖4;同理,在“演示”按鈕下面添加3個命令按鈕,將它們的“名稱”和“Caption”屬性分別改為“軌跡”、“復位”、“退出”,“AutoSize”屬性都改為“True”。圖4選中所有的命令按鈕,點擊繪圖工具欄上的“繪圖/對齊或分布/右對齊”命令(如圖5,可以使它們左右對齊;再次點擊“繪圖/對齊或分布/縱向分布”命令,使它們縱向等距離分布。

6、圖5添加文字內容。點擊菜單欄“插入/文本框/水平”命令在“演示”按鈕的上面拖出一個文本框,輸入“v0=米/秒”;同理在水平坐標的上面插入兩個文本框,分別輸入“x=米”、“y=米”。在幻燈片的上側插入一個文本框輸入課件的標題“平拋物體的運動”。添加初速度控件。在“控件工具箱”中點擊“文本框”按鈕圖標,單擊鼠標在“v0=米/秒”的下劃線的上面拖出一個適當大小的文本框并打開其“屬性”對話框,將“名稱”屬性改為“txtv”,點擊左側的“BorderStyle”屬性,點擊其右側的下拉按鈕,選擇“1-fmBorderStyleSingle”,再點擊下拉按鈕選擇“0-fmBorderStyleNone”,這

7、樣可以消除文本框的邊框。添加位移控件。在“控件工具箱”中點擊“組合框”按鈕圖標,單擊鼠標在“x=米”、“y=米”中的“=”和“米”之間分別拖出一個組合框,將“名稱”屬性分別改為“combox”和“comboy”。確定小球名稱。點擊菜單欄“工具/宏/錄制新宏”命令,打開“錄制新宏”對話框,使用默認宏名并單擊“確定”按鈕,右擊小球在彈出的快捷菜單中選擇“設置自選圖形格式”命令,打開“設置自選圖形格式”對話框,在“顏色和線條”選項卡下,點擊“線條”選項區的“顏色”下拉按鈕,選擇“無線條顏色”,點擊“填充”選項區的“顏色”下拉按鈕,選擇“填充效果”選項,進入“填充效果”對話框(如圖6,在“顏色”選項區

8、,選中“單色”單選按鈕,在“底紋樣式”選項區,選中“中心輻射”單選按鈕(如圖7,點擊“確定”按鈕;在“尺寸”選項卡下,設置“尺寸和旋轉”選項區的“高度”和“寬度”為“1厘米”;在“位置”選項卡下,設置“幻燈片上的位置”選項區的“水平”和“豎直”位置分別為“4.5厘米”和“6.5厘米”,點擊“確定”按鈕。單擊浮動工具欄中的“停止錄制”命令,結束宏錄制。圖6圖7點擊菜單欄“工具/宏/宏”命令, 選中剛才錄制的宏67 2010.05軟件研制名并單擊“編輯”按鈕,打開VBA編輯窗口,在代碼中可以看到小球的名稱為Shapes(Oval6。3.VBA代碼的添加在幻燈片中選中按鈕或組合框等控件,點擊右鍵,在

9、彈出的快捷菜單中選擇“查看代碼”命令,打開VBA代碼編輯窗口。把窗口中的內容全部刪除,然后在窗口中輸入以下代碼:Dim v As Single,n As IntegerDim x(As Single,y(As SingleSub csjs(v=Val(txtv.Textb=Sqr(9觹28.347/5觹10If v=0Thena=bElsea=13觹28.347觹10/vEnd IfIf a>=b Thenn=bElsen=aEnd IfReDim x(nAs Single,y(nAs Singlecombox.Clearcomboy.ClearFor i=0To ncombox.Add

10、Item s1comboy.AddItem s2t=t+0.1NextEnd SubPrivate Sub演示_Click(csjsFor i=0To nt1=TimerWhile Timer-t1<0.01:DoEvents:WendShapes(Oval6.Left=x(iShapes(Oval6.Top=y(icombox.ListIndex=icomboy.ListIndex=iNextEnd SubPrivate Sub復位_Click(txtv.Text=40combox.Text=0comboy.Text=0End SubPrivate Sub軌跡_click(For i=0To n-0.1x1=v觹t+5觹28.347y1=5觹t觹t+7觹28.347t=t+0.1For j=0To100x2=v觹t+5觹28.347y2=5觹t觹t+7觹28.