资源描述：
《哈工大机械原理大作业2-凸轮机构设计-22题》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、标准文档HarbinInstituteofTechnology机械原理大作业二课程名称：机械原理设计题目：凸轮机构设计实用文案标准文档一．设计题目设计直动从动件盘形凸轮机构，凸轮机构原始参数序号升程(mm)升程运动角(º)升程运动规律升程许用压力角（º）回程运动角（º）回程运动规律回程许用压力角（º）远休止角（º）近休止角（º）2212090等加等减速4080等减等加速7070120二．凸轮推杆运动规律1.运动规律（等加速等减速运动）推程推程实用文案标准文档2.运动规律（等加速等减速运动）回程回程三．推杆位移、速度、加速度线图及凸轮线图采用VB编程，其源程序及图像如下：1.位移：Privat
2、eSubCommand1_Click()Timer1.Enabled=True'开启计时器EndSubPrivateSubTimer1_Timer()StaticiAsSingleDimsAsSingle,qAsSingle'i作为静态变量，控制流程；s代表位移；q代表角度Picture1.CurrentX=0Picture1.CurrentY=0i=i+0.1Ifi<=45Thenq=i实用文案标准文档s=240*(q/90)^2Picture1.PSetStep(q,-s),vbRedElseIfi>=45Andi<=90Thenq=is=120-240*((90-q)^2)/(90^2
3、)Picture1.PSetStep(q,-s),vbGreenElseIfi>=90Andi<=150Thenq=is=120Picture1.PSetStep(q,-s),vbBlackElseIfi>=150Andi<=190Thenq=is=120-240*(q-150)^2/6400Picture1.PSetStep(q,-s),vbBlueElseIfi>=190Andi<=230Thenq=is=240*(230-q)^2/6400Picture1.PSetStep(q,-s),vbRedElseIfi>=230Andi<=360Thenq=is=0Picture1.PSetS
4、tep(q,-s),vbBlackElseEndIfEndSub2.速度PrivateSubCommand2_Click()Timer2.Enabled=True'开启计时器EndSubPrivateSubTimer2_Timer()StaticiAsSingleDimvAsSingle,qAsSingle,wAsSingle实用文案标准文档'i为静态变量，控制流程；q代表角度；w代表角速度，此处被赋予50Picture1.CurrentX=0Picture1.CurrentY=0w=50i=i+0.1Ifi<=45Thenq=iv=480*w*q/8100Picture1.PSetStep
5、(q,-v),vbRedElseIfi>=45Andi<=90Thenq=iv=480*w*(90-q)/8100Picture1.PSetStep(q,-v),vbBlackElseIfi>=90Andi<=150Thenq=iv=0Picture1.PSetStep(q,-v),vbGreenElseIfi>=150Andi<=190Thenq=iv=-480*w*(q-150)/6400Picture1.PSetStep(q,-v),vbBlueElseIfi>=190Andi<=230Thenq=iv=-480*w*(230-q)/6400Picture1.PSetStep(q,-v
6、),vbRedElseIfi>=230Andi<=360Thenq=iv=0Picture1.PSetStep(q,-v),vbBlackElseEndIfEndSub实用文案标准文档3.加速度PrivateSubCommand3_Click()Timer3.Enabled=True'开启计时器EndSubPrivateSubTimer3_Timer()StaticiAsSingleDimaAsSingle,wAsSingle,qAsSingle'i为静态变量，控制流程；a代表加速度；q代表角度；w代表角速度w=50Picture1.CurrentX=0Picture1.CurrentY=0
7、i=i+0.1Ifi<=45Thenq=ia=480*w^2/8100Picture1.PSetStep(q,-a),vbRedElseIfi>=45Andi<=90Thenq=ia=-480*w^2/8100Picture1.PSetStep(q,-a),vbBlackElseIfi>=90Andi<=150Thenq=ia=0Picture1.PSetStep(q,-a),vbGreenElseIfi>=
