内容发布更新时间 : 2024/12/22 14:59:09星期一 下面是文章的全部内容请认真阅读。

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代 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 ElseIf i >= 90 And i <= 150 Then q = i v = 0

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

v = -480 * w * (q - 150) / 6400 Picture1.PSet Step(q, -v), vbBlue ElseIf i >= 190 And i <= 230 Then q = i

v = -480 * w * (230 - q) / 6400 Picture1.PSet Step(q, -v), vbRed ElseIf i >= 230 And i <= 360 Then q = i v = 0

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

3.加速度

Private Sub Command3_Click() Timer3.Enabled = True '开启计时器 End Sub

Private Sub Timer3_Timer() Static i As Single

Dim a As Single, w As Single, q As Single 'i为静态变量，控制流程；a代表加速度；q代表角度；w代表角速度 w = 50

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

a = 480 * w ^ 2 / 8100

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

a = -480 * w ^ 2 / 8100