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

《机械基础综合实验2实验报告2》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

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

2、准长度Ld及根数安装初拉力F。，压轴力四.程序源代码OptionExplicitConstpi=3.1415926机械系15-7张庭川03151073Dimafp#,p#,nl#,n2#,i#,ap#Dimpea#,v#,d2#,a0#,IdO#,a#,afl#,z#,f0#,fp#Dimdx#,ka#,dl#,Id#,kaf#,p0#,dlpO#,kl#,q#,dx1$Dimdxx#,kax#,dlx#,ldx#,kafx#,pOx#,dtpOx#,klx#,qx#Dimdxy#,kay#,dly#,ldy#,kafy#,p

3、Oy#,dtpOy#,kly#,qy#PrivateSubForm_Load()DimxlappAsExcel.ApplicationDimxlbookAsExcel.WorkbookDimxlsheetAsExcel.WorksheetSetxlapp=CreateObject("Excel.Application")Setxlbook=xlapp.Workbooks.Open(App.Path&ul.xls")EndSubPrivateSubCommand1_Click()p=Text1.Text:n1=Text2.Te

4、xt:n2=Text3.TextSetxlsheet=xlbook.sheets18-8kax=Combo2.Listlndex+Combo1.Listindex*3+l:kay=Combo3.Listindex+1ka=xlsheet.Cells(kax,kay)pea=ka*p:i=nl/n2Ifni>(10A2.7228)*(peaA0.9659)ThenText7.Text=”推荐选Z带”:dx=3:EndIfIfni<(10A2.7228)*(peaA0.9659)Andnl>(10人2.13101)*(peaA0.

5、9659)ThenText7.Text="推荐选A带":dx=5:EndIfIfni<=(10A2.13101)*(peaA0.9659)Andnl>=(10A1.7758)*(peaA1.03366)ThenText7.Text=”推荐选B带”:dx=7:EndIfIfni<(10A1.7758)*(peaA1.03366)Andnl>=(1()A0.89902)*(peaA1.21825)ThenText7.Text二”推荐选C带”:dx=9:EndIfSetxlsheet=xlbook.sheetslIfni<(10A0

6、.89902)*(peaA1.21825)ThenText7.Text="推荐选D带”:dx=11:EndIfdlx=dx:dly=l:Setxlsheet=xlbook.sheetsl8-9:pv:dly=dly+1:dl=xlsheet.Cells(dlx,dly):v=pi*d1*n1/60000Whilev>=5:GoTopv:Wendd2=dl*i:a0=2.35*(dl+d2)ld0=2*a0+(dl+d2)*pi/2+(di+d2)客(dl+d2)/(4*aO)Setxlsheet=xlbook.sheetsl8

7、-2:ldx=dx:ldy=2Id=500xlsheet.Cells(ldx,ldy):WhileId1xlsheet.Cells(p0x,1)pOx=pOx+1WendpOy=(dx・3)*5+d1x+1

8、IfpOx=3ThenpO=xlsheet.Cells(pOx,pOy)ElselfpOx>12ThenpO=xlsheet.Cells(12,pOy)ElsepO=xlsheet.Cells(pOx・1,pOy)+(xlsheet.Cells(pOx,pOy)-xlshee