機(jī)械基礎(chǔ)綜合實驗2實驗報告

...wd......wd......wd...機(jī)械根基綜合實驗II實驗報告專業(yè)班級機(jī)械工程201班姓名指導(dǎo)教師日期201.10中國礦業(yè)大學(xué)機(jī)電工程學(xué)院帶傳動計算機(jī)輔助設(shè)計實驗報告一．實驗內(nèi)容〔1〕V帶傳動設(shè)計所涉及的圖表的程序化設(shè)計；〔2〕V帶傳動計算機(jī)輔助設(shè)計程序編制和調(diào)試。二．實驗要求完成V帶傳動計算機(jī)輔助設(shè)程序設(shè)計，輸出設(shè)計結(jié)果〔必作〕；參數(shù)化繪制帶輪構(gòu)造圖，構(gòu)造任選〔選作〕。三．實驗數(shù)據(jù)帶傳動輸入功率P，小帶輪轉(zhuǎn)速n1，傳動比i，原動機(jī)種類，工作機(jī)載荷性質(zhì)，中心距a，帶傳動每天工作時數(shù)。要求確定V帶型號，基準(zhǔn)長度Ld及根數(shù)z，確定大、小帶輪基準(zhǔn)直徑dd2、dd1，實際中心距a，安裝初拉力F0，壓軸力Q。四．程序源代碼OptionExplicitConstpi=3.1415926機(jī)械系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="基準(zhǔn)長度Ld："&ld&"根數(shù)z："&z&"小帶輪直徑："&d1&"大帶輪直徑："&d2&"實際中心矩："&a&"安裝初拉力F0："&f0&"壓軸力Q："&qEndSub運行結(jié)果滾動軸承計算機(jī)輔助設(shè)計實驗報告一．實驗內(nèi)容深溝球軸承、圓柱滾子軸承、角接觸球軸承〔C型、AC型〕、圓錐滾子軸承等五種類型軸承的構(gòu)造尺寸和性能參數(shù)的數(shù)據(jù)處理；滾動軸承設(shè)計所涉及的圖表的程序化設(shè)計；滾動軸承計算機(jī)輔助設(shè)計程序編制和調(diào)試。二．實驗要求完成五種類型滾動軸承計算機(jī)輔助設(shè)程序設(shè)計，輸出設(shè)計結(jié)果〔必作〕；參數(shù)化繪制軸承構(gòu)造圖，軸承類型任選〔選作〕。三．實驗數(shù)據(jù)軸承的徑向載荷R1、R2，軸向載荷A，轉(zhuǎn)速n，預(yù)期壽命Lh，軸頸直徑d，工作情況等。要求選擇軸承型號，計算當(dāng)量動載荷，當(dāng)量靜載荷以及實際壽命。程序源代碼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