用 vba制作抛体运动演示课件.docVIP

用ppt vba制作抛体运动演示课件 以前写过用PPT的SlideShowWindows(1).View.DrawLine x1, y1, x2, y2封装的绘图方法（参见《用PowerPoint制作带电粒子在电磁场中的运动轨迹》《用PowerPoint制作α粒子的散射试验径迹》等博文），现在总是觉得画出图形的质量不好不便于嵌入文档（当然演示效果能好一点），今年寒假我把PPT中的添加直线的方法ActiveWindow.Selection.SlideRange.Shapes.AddLine(ToPX4(x1, xX, xD), ToPY4(y1, yX, yD), ToPX4(x2, xX, xD), ToPY4(y2, yX, yD)).Select封装起来，这比上一次更规范功能更强大，比较复杂在这里我不打算贴出来。本文介绍高中物理中抛体运动模拟的一个成功例子。设计的要点有两个：一是小球的绘制与擦除，而是用很短时间的匀变速直线运动作为曲线运动的近似。程序如下 1     程序功能 演示平抛、斜抛和弹道曲线（按照阻力正比于速度近似）的动画 2     窗体设计 Private Sub cbBianKuang_Click()           If cbBianKuang.Value = True Then               MyBianKuang Val(txtxNDiv), Val(txtyNDiv), Val(txtxD), Val(txtyD), Val(txtxX), Val(txtyX), 14               cbZuoBiaoBZ.Enabled = False          Else               cbZuoBiaoBZ.Enabled = True          End If      End Sub       Private Sub cbWangGe_Click()          If cbWangGe.Value = True Then              MyWangGe Val(txtxNDiv), Val(txtyNDiv)          End If      End Sub Private Sub cbZuoBiao_Click()           If cbZuoBiao.Value = True Then               MyZuoBiao Val(txtxNDiv), Val(txtyNDiv), Val(txtxD), Val(txtyD), Val(txtxX), Val(txtyX)               cbZuoBiaoBZ.Enabled = False           Else               cbZuoBiaoBZ.Enabled = True           End If       End Sub Private Sub cbZuoBiaoBZ_Click()           If cbZuoBiaoBZ.Value = True Then               MyZuoBiaoBZ Val(txtxNDiv), Val(txtyNDiv), Val(txtxD), Val(txtyD), Val(txtxX), Val(txtyX), 14               cbZuoBiao.Enabled = False               cbBianKuang.Enabled = False          Else              cbZuoBiao.Enabled = True              cbBianKuang.Enabled = True          End If     End Sub Private Sub cmdCancel_Click()            Unload frmPaoTiA       End Sub Private Sub cmdClear_Click()           MyClear           cbBianKuang.Value = False           cbZuoBiao.Value = False           cbWangGe.Value = False           cbZuoBiaoBZ.Value = False       End Sub Private Sub cmdPaoTiA_Click()           Dim NColor%