机械基础综合实验2实验报告

1、机械基础综合实验2实验报告 机械基础综合实验II实验报告 专业班级 机械工程 201班 姓 名 指导教师 日 期 201.10 中国矿业大学 机电工程学院 带传动计算机辅助设计实验报告 一实验内容 带传动设计所涉及的图表的程序化设计；）V （1 带传动计算机辅助设计程序编制和调试。）V （2二实验要求 ； V 带传动计算机辅助设程序设计，输出设计结果（必作）（1）完成 。2）参数化绘制带轮结构图，结构任选（选作）（三实验已知数据 Pnia，带，原动机种类，工作机载荷性质，中心距，传动比 带传动输入功率 ，小带轮转速 传动每天工作时数。Lzdd，实际中心距 、 及根数 ，确定大、小带轮基准直径

2、V 要求确定带型号，基准长度aFQ 。，安装初拉力 ，压轴力四程序源代码 Option Explicit Set xlbook = xlapp.Workbooks.Open(App.Path & Const pi = 3.1415926 .xls) 机械系15-7 张庭川 Set xlsheet = xlbook.sheets1 Dim afp#, p#, n1#, n2#, i#, ap# End Sub Dim pca#, v#, d2#, a0#, ld0#, a#, af1#, z#, f0#, fp# Private Sub Command1_Click() Dim dx#, ka#

3、, d1#, ld#, kaf#, p0#, p = Text1.Text:n1 = Text2.Text:n2 = Text3.Text dtp0#, kl#, q#, dx1$ Set xlsheet = xlbook.sheets1 8-8Dim dxx#, kax#, d1x#, ldx#, kafx#, p0x#, dtp0x#, klx#, qx#kax = Combo2.ListIndex + Combo1.ListIndex * 3 + 1:kay = Dim dxy#, kay#, d1y#, ldy#, kafy#, Combo3.ListIndex + 1 p0y#, d

4、tp0y#, kly#, qy#ka = xlsheet.Cells(kax, kay)Private Sub Form_Load() pca = ka * p:i = n1 / n2 Dim xlapp As Excel.Application If n 1.21825) Thenp0y = (dx - 3) * 5 + d1x + 1 :dx = 9:End C带敔瑸?敔瑸?尠推荐选If p0x = 3 Then Ifp0 = xlsheet.Cells(p0x, p0y) If n1 12 Then :dx = 11:End 敔瑸?敔瑸?尠推荐选带Dp0 = xlsheet.Cells(

5、12, p0y) IfElse d1x = dx:d1y = 1:Set xlsheet = p0 = xlsheet.Cells(p0x - 1, p0y) + xlbook.sheets1 8-9:(xlsheet.Cells(p0x, p0y) - pv: d1y = d1y + 1:d1 = xlsheet.Cells(p0x - 1, p0y) * (n1 - xlsheet.Cells(d1x, d1y):v = pi * d1 * xlsheet.Cells(p0x - 1, 1) / n1 / 60000(xlsheet.Cells(p0x, 1) - xlsheet.Cell

6、s(p0x - 1, 1) While v = 5:GoTo pv:WendEnd If d2 = d1 * i:a0 = 2.35 * (d1 + d2)Set xlsheet = xlbook.sheets1 8-5 ld0 = 2 * a0 + (d1 + d2) * pi / 2 + (d1 + d2) * (d1 + d2) / (4 * a0)dtp0y = 11 Set xlsheet = xlbook.sheets1 8-2:ldx = While i fr2 Then Dim fr1#, fr2#, fa#, n1#, d1#, d2#, lh#z12 = fa / fr1

7、Dim z1$, z2#, z3#, z4#, z5#, z6$z22 = fr1 Dim z12#, z22#, z32#, z42#, z52#, z62#Else Dim z13#, z23#, z33#, z43$, z53#, z63#z12 = fa / fr2 Dim z14#, z15#, z16#, z64$, z65$, z66$z22 = fr2 Dim z17#, z56#, z526#, z67$, z55#, End If z525#If z22 2.5 Then Dim x#, y#, c#, p# z33 = 1 End Sub Else Private Sub

8、 Command1_Click() z33 = 0 fr1 = Text1.Text End If fa = Text2.Text If n1 1500 Then ElseIf z43 = Then 尠屎尠尠 z13 = 0 ElseIf z43 = Then Else尠尠z13 = 1 ElseIf z43 = Then End If 尠? If z12 = 0 ThenElseIf z43 = A Thenz23 = 2 尠尠 x = 1 ElseIf z43 = H Then y = 0 尠尠 ElseIf z12 0.4 ThenElseIf z43 = I Then z23 = 0尠

9、屣x = 0.5 ElseIf z43 = P Then y = 1.5尠尠Else ElseIf z43 = Q Then z23 = 1尠屎尠尠x = 0.4 End If y = 1.2z1 = N: z6 = : z14 = 3: z64 = : End Ifz15 = 6: z65 = : z16 = 7: z66 = c: z43 = z13 & z23 & z33?稠尠? Print z43If z22 = 2 Then 尠尠z2 = 1 ElseIf z43 = Thenz3 = 1 尠屣ElseIf z22 = 3 Then ElseIf z43 = _x0010_ Then

10、z2 = 1 尠尠 z3 = 2 ElseIf z22 = 5 Then z4 = 0: z5 = Int(d1 + 4.99) / 5) ElseIf d1 50 Then z2 = 2 z5 = Int(d1 + 4.99) / 5) z3 = 2End IfElseIf z22 = 7 Then If d2 10 Then ElseIf z22 = 10 Thenz42 = 0: z52 = 2z2 = 3 ElseIf d2 12 Thenz3 = 3 z42 = 0: z52 = 3: ElseIf z22 = 20 Then ElseIf d2 15 Then z2 = 3 z42

11、 = 0: z52 = 4 z3 = 4 ElseIf d2 17 Then Else z42 = 0: z52 = Int(d2 + 4.99) / 5) z2 = 5 ElseIf d2 50 Then z3 = 5 z52 = Int(d2 + 4.99) / 5)End If End IfIf d2 d1 Then z55 = z5 + 1: z525 = z52 + 1: z56 = x = d1: d1 = d2: d2 = x z55: z526 = z525 End IfText8.Text = z1 & z2 & z3 & z4 & z5 & If d1 10 Then& z

12、15 & z2 & z3 & z4 & z55 & z65 & & z15 & z2 & z3 & z42 & z525 & z65 & z4 = 0: z5 = 2z16 & z2 & z3 & z4 & z56 & z66 & & z16 & z2 & z3 & z42 & z526 & z66 & z17 ElseIf d1 12 Then& z2 & z3 & z4 & z5 & z67 & & z17 z4 = 0: z5 = 3& z2 & z3 & z42 & z52 & z67 ElseIf d1 15 ThenEnd Sub z4 = 0: z5 = 4 ElseIf d1 17 Then Private Sub Text1_Change() End Sub fr1 = Text1.TextPrivate Sub Text5_Change() End Subd1 = Text5.Text End Sub Private Sub Text2_Change() fa = Text2.TextPrivate