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

...wd......wd......wd...机械根基综合实验II实验报告专业班级机械工程201班姓名指导教师日期201.10中国矿业大学机电工程学院带传动计算机辅助设计实验报告一．实验内容〔1〕V带传动设计所涉及的图表的程序化设计；〔2〕V带传动计算机辅助设计程序编制和调试。二．实验要求完成V带传动计算机辅助设程序设计，输出设计结果〔必作〕；参数化绘制带轮构造图，构造任选〔选作〕。三．实验数据带传动输入功率P，小带轮转速n1，传动比i，原动机种类，工作机载荷性质，中心距a，带传动每天工作时数。要求确定V带型号，基准长度Ld及根数z，确定大、小带轮基准直径dd2、dd1，实际中心距a，安装初拉力F0，压轴力Q。四．程序源代码OptionExplicitConstpi=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#,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=Text3.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: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:EndIfIfn1<(10^0.89902)*(pca^1.21825)ThenText7.Text="推荐选D带":dx=11:EndIfd1x=dx:d1y=1:Setxlsheet=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):Whileld<ld0ldy=ldy+1:ld=xlsheet.Cells(ldx,ldy)Wendklx=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.Cells(p0x-1,p0y)+(xlsheet.Cells(p0x,p0y)-xlsheet.Cells(p0x-1,p0y))*(n1-xlsheet.Cells(p0x-1,1))/(xlsheet.Cells(p0x,1)-xlsheet.Cells(p0x-1,1))EndIfSetxlsheet=xlbook.sheets18-5dtp0y=11Whilei<xlsheet.Cells(2,dtp0y)dtp0y=dtp0y-1Ifdtp0y=2Then:GoTop2:EndIf:Wendp2:dtp0y=(dx-3)*5+dtp0ydtp0x=p0x:dtp0=xlsheet.Cells(dtp0x,dtp0y)Setxlsheet=xlbook.sheets18-6Whileaf1<xlsheet.Cells(kafx,1)kafx=kafx+1:Wendkaf=xlsheet.Cells(kafx-1,2)+(xlsheet.Cells(kafx,2)-xlsheet.Cells(kafx-1,2))*(af1-xlsheet.Cells(kafx-1,1))/(xlsheet.Cells(kafx,1)-xlsheet.Cells(kafx-1,1))z=pca/((p0+dtp0)*kaf*kl)Setxlsheet=xlbook.sheets18-3:qx=dxq=xlsheet.Cells(qx,1)f0=50*(2.5-kaf)*pca/(kaf*z*v)+q*v*vfp=2*z*f0*Sin(af1/2)Text8.Text="基准长度Ld："&ld&"根数z："&z&"小带轮直径："&d1&"大带轮直径："&d2&"实际中心矩："&a&"安装初拉力F0："&f0&"压轴力Q："&qEndSub运行结果滚动轴承计算机辅助设计实验报告一．实验内容深沟球轴承、圆柱滚子轴承、角接触球轴承〔C型、AC型〕、圆锥滚子轴承等五种类型轴承的构造尺寸和性能参数的数据处理；滚动轴承设计所涉及的图表的程序化设计；滚动轴承计算机辅助设计程序编制和调试。二．实验要求完成五种类型滚动轴承计算机辅助设程序设计，输出设计结果〔必作〕；参数化绘制轴承构造图，轴承类型任选〔选作〕。三．实验数据轴承的径向载荷R1、R2，轴向载荷A，转速n，预期寿命Lh，轴颈直径d，工作情况等。要求选择轴承型号，计算当量动载荷，当量静载荷以及实际寿命。程序源代码OptionExplicetDimafp#,p#,n1#,n2#,i#Dimpac#,v#,d2#,a0#,ld0#,a#,af1#,z#,f0#,fp#Dimdx#,ka#,d1#,ld#,kaf#,p0#,dtp0#,kl#,q#PrivateSubForm_Load()Dimfr1#,fr2#,fa#,n1#,d1#,d2#,lh#Dimz1$,z2#,z3#,z4#,z5#,z6$Dimz12#,z22#,z32#,z42#,z52#,z62#Dimz13#,z23#,z33#,z43$,z53#,z63#Dimz14#,z15#,z16#,z64$,z65$,z66$Dimz17#,z56#,z526#,z67$,z55#,z525#Dimx#,y#,c#,p#EndSubPrivateSubCommand1_Click()fr1=Text1.Textfa=Text2.Textfr2=Text3.Textn1=Text4.Textd1=Text5.Textd2=Text6.Textlh=Text7.TextIffr1>fr2Thenz12=fa/fr1z22=fr1Elsez12=fa/fr2z22=fr2EndIfIfz22>2.5Thenz33=1Elsez33=0EndIfIfn1>1500Thenz13=0Elsez13=1EndIfIfz12=0Thenz23=2x=1y=0ElseIfz12>0.4Thenz23=0x=0.5y=1.5Elsez23=1x=0.4y=1.2EndIfz43=z13&z23&z33Printz43Ifz43="000"Thenz1=7:z6="AC"ElseIfz43="010"Thenz1=6:z6=""ElseIfz43="011"Thenz1=7:z6="c"ElseIfz43="020"Thenz1=6:z6=""ElseIfz43="021"Thenz1="N":z6=""ElseIfz43="100"Thenz1=3:z6=""ElseIfz43="001"Thenz1=7:z6="AC"ElseIfz43="101"Thenz1=3:z6=""ElseIfz43="110"Thenz1=6:z6=""ElseIfz43="111"Thenz1=7:z6="c"ElseIfz43="120"Thenz1=6:z6=""ElseIfz43="121"Thenz1="N":z6=""EndIfz1="N":z6="":z14=3:z64="":z15=6:z65="":z16=7:z66="c":z17=7:z67="AC"Ifz22<2Thenz2=0z3=0ElseIfz22<3Andz22>=2Thenz2=1z3=1ElseIfz22<5Andz22>=3Thenz2=1z3=2ElseIfz22<7Andz22>=5Thenz2=2z3=2ElseIfz22<10Andz22>=7Thenz2=2z3=3ElseIfz22<20Andz22>=10Thenz2=3z3=3ElseIfz22<50Andz22>=20Thenz2=3z3=4Elsez2=5z3=5EndIfIfd2>d1Thenx=d1:d1=d2:d2=xEndIfIfd1<=10Thenz4=0:z5=1ElseIfd1<=12Andd1>10Thenz4=0:z5=2ElseIfd1<=15Andd1>12Thenz4=0:z5=3ElseIfd1<=17Andd1>15Thenz4=0:z5=4ElseIfd1<=50Andd1>17Thenz4=0:z5=Int((d1+4.99)/5)ElseIfd1>50Thenz5=Int((d1+4.99)/5)EndIfIfd2<=10Thenz42=0:z52=1ElseIfd2<=12Andd2>10Thenz42=0:z52=2ElseIfd2<=15Andd2>12Thenz42=0:z52=3:ElseIfd2<=17Andd2>15Thenz42=0:z52=4ElseIfd2<=50Andd2>17Thenz42=0:z52=Int((d2+4.99)/5)ElseIfd2>50Thenz52=Int((d2+4.99)/5)EndIfz55=z5+1:z525=z52+1:z56=z55:z526=z525Text8.Text=z1&z