哈工大机械原理大作业凸轮机构设计题

由天下分享时间：2024/10/16 23:28:29 加入收藏我要投稿点赞

Harbin Institute of Technology

机械原理大作业二

课程名称：机械原理设计题目：凸轮机构设计

一．设计题目

设计直动从动件盘形凸轮机构，凸轮机构原始参数序升程升程升程运号 (mm) 运动动规律角(o) 22 120 90 等加等减速升程许回程用压力运动角（o）角（o）回程运动规律 40 80 等减等加速回程许用压力角（o） 70 远休近休止角止角（o）（o） 70 120 二．凸轮推杆运动规律 1.运动规律（等加速等减速运动）推程 0???450 推程 450???900

2.运动规律（等加速等减速运动）回程 1600???2000 回程 2000???2400

ds?sd?三．推杆位移、速度、加速度线图及凸轮采用VB编程，其源程序及图像如下： 1.位移：

线图

Private Sub Command1_Click() Timer1.Enabled = True '开启计时器 End Sub

Private Sub Timer1_Timer() Static i As Single

Dim s As Single, q As Single 'i作为静态变量，控制流程；s代表位移；q代表角度

Picture1.CurrentX = 0 Picture1.CurrentY = 0 i = i + 0.1 If i <= 45 Then q = i

s = 240 * (q / 90) ^ 2

Picture1.PSet Step(q, -s), vbRed ElseIf i >= 45 And i <= 90 Then q = i

s = 120 - 240 * ((90 - q) ^ 2) / (90 ^ 2) Picture1.PSet Step(q, -s), vbGreen ElseIf i >= 90 And i <= 150 Then q = i s = 120

Picture1.PSet Step(q, -s), vbBlack ElseIf i >= 150 And i <= 190 Then q = i

s = 120 - 240 * (q - 150) ^ 2 / 6400 Picture1.PSet Step(q, -s), vbBlue ElseIf i >= 190 And i <= 230 Then q = i

s = 240 * (230 - q) ^ 2 / 6400 Picture1.PSet Step(q, -s), vbRed ElseIf i >= 230 And i <= 360 Then q = i

s = 0

Picture1.PSet Step(q, -s), vbBlack Else End If End Sub

2.速度

Private Sub Command2_Click() Timer2.Enabled = True '开启计时器 End Sub

Private Sub Timer2_Timer() Static i As Single

Dim v As Single, q As Single, w As Single 'i为静态变量，控制流程；度；w代表角速度，此处被赋予50 Picture1.CurrentX = 0 Picture1.CurrentY = 0 w = 50 i = i + 0.1 If i <= 45 Then q = i

v = 480 * w * q / 8100

Picture1.PSet Step(q, -v), vbRed ElseIf i >= 45 And i <= 90 Then q = i

v = 480 * w * (90 - q) / 8100 Picture1.PSet Step(q, -v), vbBlack

q代表角