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

机械基础综合实验II实验报告 专业班级机械工程 201班姓名指导教师日期 201.10 中国矿业大学 机电工程学院 带传动计算机辅助设计实验报告一．实验内容 （1）V 带传动设计所涉及的图表的程序化设计；（2）V 带传动计算机辅助设计程序编制和调试。二．实验要求 完成 V 带传动计算机辅助设程序设计，输出设计结果（必作）；参数化绘制带轮结构图，结构任选（选作）。三．实验已知数据 带传动输入功率 P，小带轮转速 n1，传动比 i，原动机种类，工作机载荷性质，中心距 a，带传动每天工作时数。要求确定 V 带型号，基准长度 Ld及根数 z，确定大、小带轮基准直径 dd2、dd1，实际中心距 a，安装初拉力 F0，压轴力 Q。四．程序源代码 Option ExplicitConst pi = 3.1415926 机械系15-7 张庭川im afp#, p#, n1#, n2#, i#, ap#Dim pca#, v#, d2#, a0#, ld0#, a#, af1#, z#, f0#, fp#Dim dx#, ka#, d1#, ld#, kaf#, p0#, dtp0#, kl#, q#, dx1$Dim dxx#, kax#, d1x#, ldx#, kafx#, p0x#, dtp0x#, klx#, qx#Dim dxy#, kay#, d1y#, ldy#, kafy#, p0y#, dtp0y#, kly#, qy#Private Sub Form_Load() Dim xlapp As Excel.Application Dim xlbook As Excel.Workbook Dim xlsheet As Excel.Worksheet Set xlapp = CreateObject(Excel.Application) Set xlbook = xlapp.Workbooks.Open(App.Path \1.xls) Set xlsheet = xlbook.sheets1End SubPrivate Sub Command1_Click()p = Text1.Text:n1 = Text2.Text:n2 = Text3.TextSet xlsheet = xlbook.sheets1 8-8kax = Combo2.ListIndex + Combo1.ListIndex * 3 + 1:kay = Combo3.ListIndex + 1ka = xlsheet.Cells(kax, kay)pca = ka * p:i = n1 / n2If n1 (10 ^ 2.7228) * (pca ^ 0.9659) ThenText7.Text = 推荐选Z带:dx = 3:End IfIf n1 (10 ^ 2.7228) * (pca ^ 0.9659) And n1 (10 ^ 2.13101) * (pca ^ 0.9659)ThenText7.Text = 推荐选A带:dx = 5:End IfIf n1 = (10 ^ 2.13101) * (pca ^ 0.9659) And n1 = (10 ^ 1.7758) * (pca ^ 1.03366) ThenText7.Text = 推荐选B带:dx = 7:End IfIf n1 (10 ^ 1.7758) * (pca ^ 1.03366) And n1 = (10 ^ 0.89902) * (pca ^ 1.21825) ThenText7.Text = 推荐选C带:dx = 9:End IfIf n1 (10 ^ 0.89902) * (pca ^ 1.21825) ThenText7.Text = 推荐选D带:dx = 11:End Ifd1x = dx:d1y = 1:Set xlsheet = xlbook.sheets1 8-9:pv: d1y = d1y + 1:d1 = xlsheet.Cells(d1x, d1y):v = pi * d1 * n1 / 60000While v = 5:GoTo pv:Wendd2 = d1 * i:a0 = 2.35 * (d1 + d2)ld0 = 2 * a0 + (d1 + d2) * pi / 2 + (d1 + d2) * (d1 + d2) / (4 *