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

用PPTVBA制作抛体运动演示课件以前写过用PPT的SLIDESHOWWINDOWS1VIEWDRAWLINEX1,Y1,X2,Y2封装的绘图方法（参见用POWERPOINT制作带电粒子在电磁场中的运动轨迹用POWERPOINT制作粒子的散射试验径迹等博文），现在总是觉得画出图形的质量不好不便于嵌入文档（当然演示效果能好一点），今年寒假我把PPT中的添加直线的方法ACTIVEWINDOWSELECTIONSLIDERANGESHAPESADDLINETOPX4X1,XX,XD,TOPY4Y1,YX,YD,TOPX4X2,XX,XD,TOPY4Y2,YX,YDSELECT封装起来，这比上一次更规范功能更强大，比较复杂在这里我不打算贴出来。本文介绍高中物理中抛体运动模拟的一个成功例子。设计的要点有两个一是小球的绘制与擦除，而是用很短时间的匀变速直线运动作为曲线运动的近似。程序如下1程序功能演示平抛、斜抛和弹道曲线（按照阻力正比于速度近似）的动画2窗体设计PRIVATESUBCBBIANKUANG_CLICKIFCBBIANKUANGVALUETRUETHENMYBIANKUANGVALTXTXNDIV,VALTXTYNDIV,VALTXTXD,VALTXTYD,VALTXTXX,VALTXTYX,14CBZUOBIAOBZENABLEDFALSEELSECBZUOBIAOBZENABLEDTRUEENDIFENDSUBPRIVATESUBCBWANGGE_CLICKIFCBWANGGEVALUETRUETHENMYWANGGEVALTXTXNDIV,VALTXTYNDIVENDIFENDSUBPRIVATESUBCBZUOBIAO_CLICKIFCBZUOBIAOVALUETRUETHENMYZUOBIAOVALTXTXNDIV,VALTXTYNDIV,VALTXTXD,VALTXTYD,VALTXTXX,VALTXTYXCBZUOBIAOBZENABLEDFALSEELSECBZUOBIAOBZENABLEDTRUEENDIFENDSUBPRIVATESUBCBZUOBIAOBZ_CLICKIFCBZUOBIAOBZVALUETRUETHENMYZUOBIAOBZVALTXTXNDIV,VALTXTYNDIV,VALTXTXD,VALTXTYD,VALTXTXX,VALTXTYX,14CBZUOBIAOENABLEDFALSECBBIANKUANGENABLEDFALSEELSECBZUOBIAOENABLEDTRUECBBIANKUANGENABLEDTRUEENDIFENDSUBPRIVATESUBCMDCANCEL_CLICKUNLOADFRMPAOTIAENDSUBPRIVATESUBCMDCLEAR_CLICKMYCLEARCBBIANKUANGVALUEFALSECBZUOBIAOVALUEFALSECBWANGGEVALUEFALSECBZUOBIAOBZVALUEFALSEENDSUBPRIVATESUBCMDPAOTIA_CLICKDIMNCOLORIFOBREDVALUETRUETHENNCOLOR1ELSEIFOBGREENVALUETRUETHENNCOLOR2ELSEIFOBBLUEVALUETRUETHENNCOLOR3ELSEIFOBBLACKVALUETRUETHENNCOLOR4ENDIFPAOTIAVALTXTV0,VALTXTTHETA,VALTXTTM,VALTXTH,VALTXTKPM,_VALTXTXX,VALTXTYX,VALTXTXD,VALTXTYD,NCOLOR,VALTXTNDIVENDSUBSUBPAOTIAV0,THETA,H,KPM,XX,YX,XD,YD,NCOLOR,DELTATDIMTDIMV1X,V1Y,V2X,V2YDIMX1,Y1,X2,Y2DIMA1X,A1Y,A2X,A2YT0V1XV0COSTHETAPI/180V1YV0SINTHETAPI/180A1XKPMV1XA1YKPMV1YGX10Y1HMYOBJECTX1,Y1,XX,YX,XD,YD封装的过程，实现在XX,YXXD,YD范围绘制一个小球（PPT自动填充）ACTIVEWINDOWSELECTIONSHAPERANGEDELETEDOWHILEY10采用累加法模拟运动，与根据函数解析法完全不同，时间采用DELTAT，位移采用累加TTDELTATV2XV1XA1XDELTATV2YV1YA1YDELTATA2XKPMV2XA2YKPMV2YGX2X1V2XDELTATA2X/2DELTATDELTATY2Y1V2YDELTATA2Y/2DELTATDELTAT添加轨迹PLINE4X1,Y1,X2,Y2,XD,YD,XX,YX封装的过程，在XX,YXXD,YD范围绘制一条直线SETLINECOLORNCOLOR封装的过程，设置直线的颜色MYOBJECTX2,Y2,XX,YX,XD,YDACTIVEWINDOWSELECTIONSHAPERANGEDELETEV1XV2XV1YV2YA1XA2XA1YA2YX1X2Y1Y2LOOPTXTTFORMATT,“000“TTDELTATV2XV1XA1XDELTATV2YV1YA1YDELTATA2XKPMV2XA2YKPMV2YGX2X1V2XDELTATA2X/2DELTATDELTATY2Y1V2YDELTATA2Y/2DELTATD