机械原理凸轮VB编程.docx

《机械原理凸轮VB编程.docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、理论轮廓线与工作轮廓线Dimr0AsDouble'定义基圆半径DimeAsDouble'定义偏心距DimhAsDouble'定义行程DimfAsDouble'定义凸轮转角DimffAsDoubleDimwAsDouble'定义凸轮角速度Dimf0AsDouble'定义推程运动角DimfsAsDouble'定义远休止角Dimf01AsDouble'定义回程运动角Dimfs1AsDouble'定义近休止角DimsAsDouble'定义从动件位移DimvAsDouble'定义从动件速度DimaAsDouble'定义从动件加速度DimxAsDou

2、ble'定义凸轮理论轮廓上点横坐标DimyAsDouble'定义凸轮理论轮廓上点纵坐标Dimx1AsDouble'定义凸轮实际轮廓上点横坐标Dimy1AsDouble'定义凸轮实际轮廓上点纵坐标DimrrAsDouble'定义滚子半径DimpiAsDouble'定义圆周率DimpaAsDouble'定义角度弧度转换中间变量DimTAsDouble'定义中间变量Dims0AsDouble'定义中间变量DimiAsDouble'定义中间变量DimdsdfAsDouble'定义ds/dfDimdxdfAsDouble'定义dx/dfDimdyd

3、fAsDouble'定义dy/dfPrivateSubpush()Iff>=0Andf<=f0/2Thens=2*h*(f/f0)^2v=4*h*w*f/f0^2a=4*h*w^2/f0^2dsdf=4*h*f/f0^2EndIfIff>=f0/2Andf<=f0Thens=h-2*h*(f0-f)^2/f0^2v=4*h*w*(f0-f)/f0^2a=-4*h*w^2/f0^2dsdf=4*h*(f0-f)/f0^2EndIfEndSubPrivateSubback()Iff>=f0+fsAndf<=f0+fs+f01/2Thens=h

4、-2*h*(f-(f0+fs))^2/f01^2v=-4*h*w*(f-(f0+fs))/f01^2a=-4*h*w^2/f01^2dsdf=-4*h*(f-(f0+fs))/f01^2EndIfIff>=f0+fs+f01/2Andf<=f0+fs+f01Thens=2*h*((f0+fs+f01)-f)^2/f01^2v=-4*h*w*((f0+fs+f01)-f)/f01^2a=4*h*w^2/f01^2dsdf=-4*h*((f0+fs+f01)-f)/f01^2EndIfEndSubPrivateSubpushstay()s=h

5、v=0a=0dsdf=0EndSubPrivateSubbackstay()s=0v=0a=0dsdf=0EndSubPrivateSubCommand1_Click()Picture1.ClsPicture1.Scale(-30,110)-(390,-20)Picture1.Line(-30,0)-(390,0)'XPicture1.Line(0,390)-(0,-20)'YFori=0To360Step30'X轴坐标Picture1.Line(i,2)-(i,0)Picture1.CurrentX=i-10:Picture1.Curr

6、entY=0Picture1.PrintiNextiFori=10To110Step10'Y轴坐标Picture1.Line(0,i)-(5,i)Picture1.CurrentX=-30:Picture1.CurrentY=i+2Picture1.PrintiNextiForff=0To360Step0.1f=ffs0=Sqr(r0^2-e^2)Iff=f0Andf=fs+f0Andf

7、seIff>=fs+f0+f01Andf<=2*piThenCallbackstayEndIfPicture1.PSet(ff,s)NextffEndSubPrivateSubCommand2_Click()Picture1.ClsPicture1.Scale(-30,30)-(390,-30)Picture1.Line(-30,0)-(390,0)'XPicture1.Line(0,390)-(0,-30)'YFori=0To360Step30'X轴坐标Picture1.Line(i,0.5)-(i,0)Picture1.Current

8、X=i-10:Picture1.CurrentY=0Picture1.PrintiNextiFori=-100To30Step10'Y轴坐标Picture1.Line(0,i)-(5,i)Pi