机械原理大作业VB四杆机构的设计.docx

1、机械原理大作业VB四杆机构的设计机械原理大作业VB四杆机构的设计(总9页) 沈阳航空航天大学铰链四杆机构设计报告 学院：机电工程学院班级：姓名：学号：Dim a, b, c, d, e, f, l1, l2, l3, l4, w1, w2, w3, a2, a3#, p, m, dc, bjj, n%Private Sub Command1_Click() 杆长赋值l1 = Val(Text1(0).Text)l2 = Val(Text1(1).Text)l3 = Val(Text1(2).Text)l4 = Val(Text1(3).Text)a = Val * / 180 初始 角度转弧度

2、Call bj(bjj)If bjj = 1 Then Exit Subw1 = 0Call jsg w1 = Val 公式计算角速度，角加速度 w2 = -w1 * l1 * Sin(a - c) / (l3 * Sin(b - c)w3 = w1 * l1 * Sin(a - b) / (l2 * Sin(c - b) = w2 = w3a2 = (l3 * w3 * w3 - l1 * w1 * w1 * Cos(a - c) - l2 * w2 * w2 * Cos(b - c) / (l2 * Sin(b - c)a3 = (l2 * w2 * w2 + l1 * w1 * w1 *

3、 Cos(a - b) - l3 * w3 * w3 * Cos(c - b) / (l3 * Sin(c - b) = a2 = a3End SubFunction jsg()If p = 0 Then p = -1On Error GoTo ela = a + * w1 角度随时间增加d = l4 - l1 * Cos(a)e = -l1 * Sin(a)f = (d 2 + e 2 + l3 2 - l2 2) / (2 * l3)c = 2 * Atn(e + Sqr(d 2 + e 2 - f 2) * p) / (d - f)b = Atn(e + l3 * Sin(c) / (d

4、 + l3 * Cos(c)w1 = -w1el: w1 = -w1Line1(0).Y1 = / 2 定义各个线段端点的坐标Line1(0).X1 = / 2Line1(0).X2 = l1 * Cos(a) + Line1(0).X1Line1(0).Y2 = Line1(0).Y1 - l1 * Sin(a)Line1(3).X2 = Line1(0).X1 + l4Line1(3).Y2 = Line1(0).Y1Line1(3).X1 = Line1(0).X1Line1(3).Y1 = Line1(0).Y1Line1(2).X1 = Line1(3).X2 + l3 * Cos(

5、c)Line1(2).Y1 = Line1(3).Y2 - l3 * Sin(c)Line1(2).X2 = Line1(3).X2Line1(2).Y2 = Line1(3).Y2Line1(1).X1 = Line1(0).X2Line1(1).Y1 = Line1(0).Y2Line1(1).X2 = Line1(2).X1Line1(1).Y2 = Line1(2).Y1Shape1(i).Left = Line1(i).X1 - 50 连接两杆转动副的中心坐标 Shape1(i).Top = Line1(i).Y1 - 50Next i (Line1(1).X1, Line1(1).

6、Y1), vbRed 画出主动件和连架杆的轨迹 (Line1(2).X1, Line1(2).Y1), vbGreenEnd FunctionFunction bj(x) 杆长条件的判断x = 0xld = Val(Text1(0).Text)xlx = Val(Text1(0).Text) For i = 1 To 3 If xld Val(Text1(i).Text) Then xlx = Val(Text1(i).Text)Next iFor i = 0 To 3zh = Val(Text1(i).Text) + zhNext iIf (xlx + xld) (zh - (xlx + x

7、ld) ThenMsgBox (不满足杆长要求)x = 1End IfEnd Function。 (-8, 4)-(8, -4) 画出角速度w2函数图像 , 0)-, 0) (0, -(0, = : = : x = : = 4: y For i = -7 To 7 (i, 0)-(i, = i - : = : i Next i For i = To Step If i And i And i And i And i And i Then i = 0 = : = i + : i , i)-(0, i) Next iDim a1, b1, c1, d1, e1, f1, w11#w11 = For

8、 x = To Step If p = 0 Then p = -1On Error GoTo el a1 = a1 + w11 d1 = l4 - l1 * Cos(a1) e1 = -l1 * Sin(a1) f1 = (d1 2 + e1 2 + l3 2 - l2 2) / (2 * l3) c1 = 2 * Atn(e1 + Sqr(d1 2 + e1 2 - f1 2) * p) / (d1 - f1) b1 = Atn(e1 + l3 * Sin(c1) / (d1 + l3 * Cos(c1) w11 = -w11el: w11 = -w11 If x = Then czd = c1: czx = c1 If czd c1 Then czx = c1 = czd - czx If x = Then czd1 = b1: czx1 = b1 If czd1 b1 Then czx1 = b1 = czd1 - czx1 (x, c1) (x, b1), vbRed