资源描述：
《机械基础综合实验2实验报告2.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、机械基础综合实验II机械基础综合实验II实验报告专业班级机械工程201班姓名指导教师日期201.10中国矿业大学机电工程学院机械基础综合实验II带传动计算机辅助设计实验报告一．实验内容（1）V带传动设计所涉及的图表的程序化设计；（2）V带传动计算机辅助设计程序编制和调试。二．实验要求（1）完成V带传动计算机辅助设程序设计，输出设计结果（必作）；（2）参数化绘制带轮结构图，结构任选（选作）。三．实验已知数据带传动输入功率P，小带轮转速n1，传动比i，原动机种类，工作机载荷性质，中心距a，带传动每天工作时数。要求确定V带型号，基准长度Ld及根数z，确定大、小带轮基准直径dd2、
2、dd1，实际中心距a，安装初拉力F0，压轴力Q。四．程序源代码机械基础综合实验IIOptionExplicitConstpi=3.1415926机械系15-7张庭川03151073Dimafp#,p#,n1#,n2#,i#,ap#Dimpca#,v#,d2#,a0#,ld0#,a#,af1#,z#,f0#,fp#Dimdx#,ka#,d1#,ld#,kaf#,p0#,dtp0#,kl#,q#,dx1$Dimdxx#,kax#,d1x#,ldx#,kafx#,p0x#,dtp0x#,klx#,qx#Dimdxy#,kay#,d1y#,ldy#,kafy#,p0y#,dtp0y
3、#,kly#,qy#PrivateSubForm_Load()DimxlappAsExcel.ApplicationDimxlbookAsExcel.WorkbookDimxlsheetAsExcel.WorksheetSetxlapp=CreateObject("Excel.Application")Setxlbook=xlapp.Workbooks.Open(App.Path&"1.xls")Setxlsheet=xlbook.sheets1EndSubPrivateSubCommand1_Click()p=Text1.Text:n1=Text2.Text:n2=Te
4、xt3.TextSetxlsheet=xlbook.sheets18-8kax=Combo2.ListIndex+Combo1.ListIndex*3+1:kay=Combo3.ListIndex+1ka=xlsheet.Cells(kax,kay)pca=ka*p:i=n1/n2Ifn1>(10^2.7228)*(pca^0.9659)ThenText7.Text="推荐选Z带":dx=3:EndIfIfn1<(10^2.7228)*(pca^0.9659)Andn1>(10^2.13101)*(pca^0.9659)ThenText7.Text="推荐选A带":dx=5
5、:EndIfIfn1<=(10^2.13101)*(pca^0.9659)Andn1>=(10^1.7758)*(pca^1.03366)ThenText7.Text="推荐选B带":dx=7:EndIfIfn1<(10^1.7758)*(pca^1.03366)Andn1>=(10^0.89902)*(pca^1.21825)ThenText7.Text="推荐选C带":dx=9:EndIf机械基础综合实验IIIfn1<(10^0.89902)*(pca^1.21825)ThenText7.Text="推荐选D带":dx=11:EndIfd1x=dx:d1y=1:Setx
6、lsheet=xlbook.sheets18-9:pv:d1y=d1y+1:d1=xlsheet.Cells(d1x,d1y):v=pi*d1*n1/60000Whilev>=5:GoTopv:Wendd2=d1*i:a0=2.35*(d1+d2)ld0=2*a0+(d1+d2)*pi/2+(d1+d2)*(d1+d2)/(4*a0)Setxlsheet=xlbook.sheets18-2:ldx=dx:ldy=2ld=500xlsheet.Cells(ldx,ldy):Whileld7、x=ldx+1:kly=ldykl=xlsheet.Cells(klx,kly)a=a0+(ld-ld0)/2af1=180-(d2-d1)*57.3*aSetxlsheet=xlbook.sheets18-4p0x=3Whilen1>1xlsheet.Cells(p0x,1)p0x=p0x+1Wendp0y=(dx-3)*5+d1x+1Ifp0x=3Thenp0=xlsheet.Cells(p0x,p0y)ElseIfp0x>12Thenp0=xlsheet.Cells(12,p0y)Elsep0=xlsheet
