机械原理大作业VB四杆机构的设计(共9页).doc

沈阳航空航天大学铰链四杆机构设计报告 学院：机电工程学院班级：姓名：学号：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(Text3.Text) * 3.14159265358979 / 180 初始 角度转弧度Call bj(bjj)If bjj = 1 Then Exit Subw1 = 0Call jsg