资源描述：
《用vb编写凸轮轮廓线程序及源代码》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、用vb编程凸轮轮廓线。下例是设计滚子直动凸轮正弦加速运动的的具体步骤基圆半径。滚子半径已知。偏距15mm。推程100mm。开始计算，然后出图、Dims1AsDouble,v1AsDouble,a1AsDoubleDimc1AsDouble,c2AsDouble,c3AsDouble,c4AsDoubleDimquAsDouble,r0AsDoubleDimhAsDouble,wAsDouble,iAsInteger,fi1AsDouble,fi2AsDoubleDimxbiAsDouble,ybiAsDouble,yaliAsDoubleDimrfaAsDouble,s0AsDou
2、ble,wy1AsDouble,wy2AsDoubleDimx(366)AsDouble,y(366)AsDouble,x1(366)AsDouble,y1(366)AsDoubleDims(366)AsDouble,v(366)AsDouble,a(366)AsDoubleConstPI=3.1415926SubZT(h,w,i,fi1,fi2)DimjAsDoublej=i*PI/180s1=h*((j-c1)/fi1-1/(2*PI)*Sin(2*PI*(j-c1)/fi1))v1=(h*w/fi1)*(1-Cos(2*PI*(j-c1)/fi1))a1=(2*PI*h*w^
3、2/fi1^2)*Sin(2*PI*(j-c1)/fi1)wy1=h/fi1*(1-Cos(2*PI*(j-c1)/fi1))wy2=2*PI*h/fi1^2*Sin(2*PI*(j-c1)/fi1)EndSubSubZH(h,w,i,fi1,fi2)DimjAsDoublej=i*PI/180s1=h*(1-(j-c3)/fi2+1/(2*PI)*Sin(2*PI*(j-c3)/fi2))v1=-h*w*fi2*(1-Cos(2*PI*(j-c3)/fi2))a1=-2*PI*h/1000*w^2/fi2^2*Sin(2*PI*(j-c3)/fi2)wy1=-h*fi2*(1-C
4、os(2*PI*(j-c3)/fi2))wy2=-2*PI*h/fi2^2*Sin(2*PI*(j-c3)/fi2)EndSubPrivateSubCommand1_Click()c1=Val(Text1.Text)c1=c1*PI/180c2=Val(Text2.Text)c2=c2*PI/180c3=Val(Text3.Text)c3=c3*PI/180c4=Val(Text4.Text)c4=c4*PI/180e=Val(Text5.Text)h=Val(Text6.Text)w=Val(Text7.Text)r0=Val(Text8.Text)f=Val(Text9.Tex
5、t)f=f*PI/180g=Val(Text10.Text)rr=Val(Text11.Text)g=g*PI/180p=Val(Text12.Text)fi1=c2-c1fi2=c4-c3s0=Sqr(r0^2-e^2)100:Fori=0To360Step1Ifi<=30Thens1=0v1=0a1=0s(i)=s1v(i)=v1a(i)=a1ElseIfi<=150ThenCallZT(h,w,i,fi1,fi2)s(i)=s1v(i)=v1a(i)=a1ElseIfi<=210Thens1=hv1=0a1=0s(i)=s1v(i)=v1a(i)=a1ElseIfi<=330
6、ThenCallZH(h,w,i,fi1,fi2)s(i)=s1v(i)=v1a(i)=a1Elses1=0v1=0a1=0s(i)=s1v(i)=v1a(i)=a1EndIfyali=Abs(wy1+e)/(s(i)+(Sqr(r0^2-e^2)))'yali=Tan(rfa*PI/180)rfa=Atn(yali)Ifi>=30Andi<=210ThenIfrfa<=fThenqu=r0+s(i)+wy2Elser0=r0+0.1GoTo100EndIfElseIfrfa<=gThenqu=r0+s(i)+wy2Elser0=r0+0.1GoTo100EndIfIfqu<0Th
7、enDimjAsDoublej=i*PI/180x(i)=(s0+s(i))*Sin(j)+e*Cos(j)y(i)=(s0+s(i))*Cos(j)-e*Sin(j)xbi=(s0+s(i))*Cos(j)-e*Sin(j)ybi=-(s0+s(i))*Sin(j)+e*Cos(j)x1(i)=x(i)-rr*ybi/Sqr(xbi^2+ybi^2)y1(i)=y(i)+rr*xbi/Sqr(xbi^2+ybi^2)ElseIfqu>=p+rrThenj=i*PI/
