用vb编写的齿轮的动画全部程序

《用vb编写的齿轮的动画全部程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、(1)PrivateSubCommandl_Click()UnloadMeLoadForm2Form2.ShowEndSubPrivateSubLabell_Click()EndSubPrivateSubTimerl_Timer()StaticpAsIntegerp=p+1Ifp=16Thenp=0EndIfLabell.ForeColor=QBColor(pMod14)Label2.ForeColor=RGB(lnt(Rnd*256),lnt(Rnd*256),lnt(Rnd*256))Label3.ForeColor=RGB

2、(lnt(Rnd*256),lnt(Rnd*256),lnt(Rnd*256))Label4.ForeColor=RGB(lnt(Rnd*256),lnt(Rnd*256),lnt(Rnd*256))EndSubPrivateSubTimer2_Timer()Commandl.BackColor=RGB(lnt(Rnd*256),lnt(Rnd*256),lnt(Rnd*256))EndSub(2)PrivateSubCommandl_Click()Commandl.Visible=FalseCommand2・Visible=T

3、ruePicturel.Visible=TruePicturel.CIsCommand2・Value=FalseCommand3・Value=FalseTimerl.Enabled=FalseTimer2.Enabled=False'开始画第一个齿轮rbl=170/2*Cos(PI/9)ral=190/2rfl=(17-2-0.5)*10/2Picturel.Scale(-120,-200)-(370,200)'画渐开线一一Picturel.DrawWidth=1.2Picturel.Circle(0,0),2,QBColor(

4、15)rkl=rbli=jiao*PI/180Foral=19/17*i+0To2*PI+19/17*iStep2*PI/17mn1二al+14*PI/180mml=al+12.5*PI/180z21=rfl*Cos(mnl)z22=rfl*Sin(mnl)X1112=rbl*Cos(mml)Y1112=rbl*Sin(mml)Picturel.Line(z21,z22)-(Xlll2,Y1112)zQBColor(15)gkl=Tan(Atn(Sqr(l-rbl/rkl*rbl/rkl)/rbl*rkl))-Atn(Sqr(l

5、-rbl/rkl*rbl/rkl)/rbl*rkl)，展角与rk的关系bl=al+gklsbl=PI*10/2*Cos(PI/9)-10*17*Cos(PI/9)*(PI/9-Tan(PI/9))Xllll=rbl*Cos(bl-gkl)Yllll=rbl*Sin(bl-gkl)'画齿根圆弧Forpl=al-7*PI/180Toal-1*PI/180Step0.4*PI/180zll=rfl*Cos(pl)zl2=rfl*Sin(pl)Picturel.PSet(zll,zl2),QBColor(15)NextplPicture

6、l.Line(zll,Z12MX1111,Yllll),QBColor(15)Forrkl=rblToralStep0.4gkl=Tan(Atn(Sqr(l・rbl/rkl*rbl/rkl)/rbl*rkl))・Atn(Sqr(1・rbl/rkl*rbl/rkl)/rbl*rkl)'展角与rk的关系bl=al+gklsbl=PI*10/2*Cos(PI/9)-10*17*Cos(PI/9)*(PI/9-Tan(PI/9))XI=rkl*Cos(bl)Yl=rkl*Sin(bl)Ifbl=alThenbxl=XIByl=Y1Pic

7、turel.PSet(bxl,Byl),QBColor(15)ElsePicturel.PSet(XI,Yl),QBColor(15)EndIfNextrklsbl=PI*10/2*Cos(PI/9)-10*17*Cos(PI/9)*(PI/9-Tan(PI/9))wl=sbl/rblForrkl=rblToralStep0.4gkl=Tan(Atn(Sqr(l-rbl/rkl*rbl/rkl)/rbl*rkl))-Atn(Sqr(l-rbl/rkl*rbl/rkl)/rbl*rkl)'展角与rk的关系dl=al+w1・gkls

8、bl=PI*10/2*Cos(PI/9)・10*17*Cos(PI/9)*(PI/9-Tan(PI/9))X12=rkl*Cos(dl)Y12=rkl*Sin(dl)Ifdl=wlThenbxl2=X12Byl2=Y12Picturel.PSet(bxl2,By