资源描述:
《凸轮 机械设计基础》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、OptionExplicitDimh!,Ro!,e!,Rt!,fai!,Df!,fais!,Df1!,fais1!,So!,S!,v!,a!Constpai=3.141593PrivateSubCommand1_Click()h=Text1.TextRo=Text2.Texte=Text3.TextRt=Text4.TextDf=Text5.Textfais=Text6.TextDf1=Text7.Textfais1=Text8.TextSo=Sqr(Ro^2-e^2)Loadform2form2.Clsform2.Print"Φ";Spc(8);"
2、S";Spc(8);"v";Spc(9);"a"Forfai=0To360Step30Iffai<=DfThenS=h*(1-Cos(pai*fai/Df))/2v=(h*pai*Sin(pai*fai/Df))/(2*Df*pai/180)a=(h*pai^2*Cos(pai*fai/Df))/(2*(Df*pai/180)^2)ElseIffai<=Df+faisThenS=h:v=0:a=0ElseIffai<=Df+fais+Df1ThenS=h*(1-(fai-Df-fais)/Df1+Sin(2*pai*(fai-Df-fais)/Df1
3、)/(2*pai))v=h*(-1/(Df1*pai/180)+Cos(2*pai*(fai-Df-fais)/Df1)/(Df1*pai/180))a=(-2*pai*h*Sin(2*pai*(fai-Df-fais)/Df1))/((Df1*pai/180)^2)ElseIffai<=Df+fais+Df1+fais1ThenS=0:v=0:a=0EndIfform2.Printfai;Spc(5);Format(S,"00.00");Spc(5);Format(v,"00.00");Spc(5);Format(a,"00.00")Nextfai
4、EndSubPrivateSubCommand2_Click()Form1.Hideform2.ShowEndSubPrivateSubCommand3_Click()UnloadForm1Unloadform2UnloadForm3EndSubPrivateSubCommand4_Click()Dimww!,hh!,i!,www!,hhh!,x1!,y1!,b!,xo!,yo!h=Text1.TextRo=Text2.Texte=Text3.TextRt=Text4.TextDf=Text5.Textfais=Text6.TextDf1=Text7
5、.Textfais1=Text8.TextSo=Sqr(Ro^2-e^2)Fori=0To2Step1ww=Form3.Picture1(i).Width:hh=Form3.Picture1(i).HeightForm3.Picture1(i).Scale(-100,0.5*hh)-(ww-100,-0.5*hh)Form3.Picture1(i).DrawWidth=1.5Form3.Picture1(i).Line(0,0)-(ww-100,0):Form3.Picture1(i).Line(0,0.5*hh)-(0,-0.5*hh)Form3.
6、Picture1(i).Line(0,0.5*hh)-(-35,0.45*hh):Form3.Picture1(i).Line(0,0.5*hh)-(35,0.45*hh)Form3.Picture1(i).Line(ww-100,0)-(ww-240,30):Form3.Picture1(i).Line(ww-100,0)-(ww-240,-30)Nextiwww=Form3.Picture2.Width:hhh=Form3.Picture2.HeightForm3.Picture2.Scale(-0.5*www,0.5*hhh)-(0.5*www
7、,-0.5*hhh)Form3.Picture2.Circle(0,0),40Form3.Picture2.DrawWidth=1.5Form3.Picture2.Line(20,0)-(0.25*www,0):Form3.Picture2.Line(0.25*www,0)-Step(-80,40):Form3.Picture2.Line(0.25*www,0)-Step(-80,-40)Form3.Picture2.Line(0,20)-(0,0.3*hhh):Form3.Picture2.Line(0,0.3*hhh)-Step(-40,-80)
8、:Form3.Picture2.Line(0,0.3*hhh)-Step(40,-80)Form3.Pict