搜索
中国矿业大学徐海学院实验报告课程名称：机械设计实验名称：V带传动的程序设计姓名：学号：班级：实验日期：2010.10.30中国矿业大学徐海学院实验报告-1-V带传动的程序设计一、已知条件设计带式输送机的v带传动装置。已知：原动机为Y型异步电动机，电动机额定功率P=7.5KW，转速n1=1450r/min，n2=630r/min，工作中有轻度冲击，单班制工作，要求中心距a为600~800。二、设计内容1）确定v带型号、基准长度Ld、根数Z,确定大小带轮基准直径D1、D2，实际中发距a，安装初压力F0，压轴力Q;2）选择合适的编程语言，参数化绘制大带轮的二维结构图;3）选择合适的三维造型软件，建立大带轮的实体造型。三、VB源程序OptionExplicitDimpcAsDoubleDimpAsDoubleDimpaiAsVariantDimkaAsSinglePrivateSubCommand1_Click()pai=3.1415926p=Val(Txt_p.Text)IfOption1.Value=TrueThenka=1'包角系数IfOption2.Value=TrueOrOption4.Value=TrueThen中国矿业大学徐海学院实验报告-2-ka=1.1IfOption3.Value=TrueOrOption5.Value=TrueOrOption7.Value=TrueThenka=1.2IfOption6.Value=TrueOrOption8.Value=TrueOrOption10.Value=TrueThenka=1.3IfOption9.Value=TrueOrOption11.Value=TrueThenka=1.4IfOption12.Value=TrueThenka=1.5Dimn1AsDouble,n2AsDouble,c(5)AsDoubleDimxhAsString,iAsIntegerpc=ka*p'选定型号n1=Val(Txt_n1.Text)c(0)=(Log(365)+(Log(2500)-Log(365))*(Log(pc)-Log(0.8))/(Log(5)-Log(0.8)))/Log(10)c(1)=(Log(100)+(Log(1500)-Log(100))*(Log(pc)-Log(1))/(Log(10)-Log(1)))/Log(10)c(2)=(Log(100)+(Log(870)-Log(100))*(Log(pc)-Log(3.15))/(Log(18)-Log(3.15)))/Log(10)c(3)=(Log(100)+(Log(700)-Log(100))*(Log(pc)-Log(9))/(Log(40)-Log(9)))/Log(10)c(4)=(Log(100)+(Log(500)-Log(100))*(Log(pc)中国矿业大学徐海学院实验报告-3--Log(50))/(Log(200)-Log(50)))/Log(10)Fori=0To4Ifn1=10^c(i)ThenExitForEndIfNextiSelectCaseiCase0:xh=ZCase1:xh=ACase2:xh=BCase3:xh=CCase4:xh=DCase5:xh=EEndSelecttxt_xh.Text=xhDimjAsIntegerDimd1AsSingle,d2AsSingleDimmAsVariantIftxt_xh.Text=ZThend1=56Iftxt_xh.Text=AThend1=100Iftxt_xh.Text=BThend1=150Iftxt_xh.Text=CThend1=250中国矿业大学徐海学院实验报告-4-Iftxt_xh.Text=DThend1=400Iftxt_xh.Text=EThend1=670n2=Val(txt_n2.Text)'大轮转速d2=(n1/n2)*d1'大轮直径m=Array(20,22.4,25,28,31.5,40,45,50,56,63,71.75,80,85,90,95,100,106,112,118,125,_132,140,150,160,170,180,200,212,224,236,250,265,280,300,315,355,375,400,425,450,_475,500,530,560,600,630,670,710,750,800,900,1000)Forj=1To52Ifd2=m(j)ThenExitForEndIfNextjIf(m(j)-d2)=(d2-m(j-1))Thend2=m(j)Elsed2=m(j-1)中国矿业大学徐海学院实验报告-5-EndIfTxt_d1.Text=Str(d1)Txt_d2.Text=Str(d2)DimvAsSinglev=pai*d1*n1/60000'带速Txt_v.Text=vDimlAsVariant,ldAsDouble,aAsSingleDimnAsVariant,kAsSinglel=2*Val(Txt_a0.Text)+pai*(d1+d2)/2+(d2-d1)^2/(4*Val(Txt_a0.Text))n=Array(400,450,500,560,630,710,800,900,1000,1120,1250,1400,1600,1800,2000,_2240,2500,2800,3150,3650,4000,4500,5000,5600,6300,7100,8000,9000,1000)Fork=1To29Ifl=n(k)ThenExitForEndIfNextkIf(n(k)-l)=(l-n(k-1))Thenld=n(k)中国矿业大学徐海学院实验报告-6-Elseld=n(k-1)EndIfTxt_ld.Text=Str(ld)a=Int(Val(Txt_a0.Text)+(ld-l)/2)Txt_a.Text=Str(a)Dima1AsSinglea1=180-(d2-d1)/a*57.3'小轮包角Txt_a1.Text=a1Dimp0AsSingleIftxt_xh.Text=ZThenp0=(0.246*v^(-0.09)-7.44/d1-0.441*10^(-4)*v^2)*vIftxt_xh.Text=AThenp0=(0.449*v^(-0.09)-19.62/d1-0.765*10^(-4)*v^2)*vIftxt_xh.Text=BThenp0=(0.794*v^(-0.09)-50.6/d1-1.31*10^(-4)*v^2)*vIftxt_xh.Text=CThenp0=(1.48*v^(-0.09)-143.2/d1-2.34*10^(-4)*v^2)*vIftxt_xh.Text=DThenp0=(3.15*v^(-0.09)-507.3/d1-4.77*10^(-4)*v^2)*vIftxt_xh.Text=EThenp0=(4.57*v^(-0.09)中国矿业大学徐海学院实验报告-7--951.5/d1-7.06*10^(-4)*v^2)*vtxt_p0.Text=p0DimwAsSingle,kiAsSingleDimdp0AsSinglew=n1/n2Ifw=1.04Thenki=0ElseIfw=1.09Thenki=0.03ElseIfw=1.19Thenki=0.052ElseIfw=1.49Thenki=0.083ElseIfw=2.5Thenki=0.113Elseki=0.122EndIfIftxt_xh.Text=ZThendp0=0.00039*n1*kiIftxt_xh.Text=AThendp0=0.00103*n1*kiIftxt_xh.Text=BThendp0=0.00265*n1*kiIftxt_xh.Text=CThendp0=0.0075*n1*ki中国矿业大学徐海学院实验报告-8-Iftxt_xh.Text=DThendp0=0.0266*n1*kiIftxt_xh.Text=EThendp0=0.0498*n1*kitxt_dp0.Text=dp0DimiiAsIntegerDimuAsSingleDimkfAsSingleDimxAsVariant,yAsVariantx=Array(120,125,130,135,140,145,150,155,160,165,170,175,180)y=Array(0.82,0.84,0.86,0.88,0.89,0.91,0.92,0.93,0.95,0.96,0.98,0.99,1)Ifa1x(0)Thenii=0ElseIfa1=x(12)Thenii=12ElseForii=1To11Ifa1=x(ii)Thenii=ii-1ExitForEndIfNextii中国矿业大学徐海学院实验报告-9-EndIfu=(a1-x(ii))/(x(ii+1)-x(ii))ka=y(ii)+u*(y(ii+1)-y(ii))txt_ka.Text=kaDimklAsSingleIftxt_xh.Text=ZThenkl=0.72+4.3*10^(-4)*ld-9.8*10^(-8)*ld^2Iftxt_xh.Text=AThenkl=0.68+2.25*10^(-4)*ld-2.52*10^(-8)*ld^2Iftxt_xh.Text=BThenkl=0.68+1.74*10^(-4)*ld-1.49*10^(-8)*ld^2Iftxt_xh.Text=CThenkl=0.7+9.64*10^(-5)*ld-4.48*10^(-9)*ld^2Iftxt_xh.Text=DThenkl=0.78+3.38*10^(-5)*ldIftxt_xh.Text=EThenkl=0.706+4.95*10^(-5)*ld-1.254*10^(-9)*ld^2txt_kl.Text=klDimzAsIntegerz=pc/((p0+dp0)*ka*kl)Txt_z.Text=zDimf0AsSingle中国矿业大学徐海学院实验报告-10-DimqAsIntegerIftxt_xh.Text=ZThenq=0.06Iftxt_xh.Text=AThenq=0.1Iftxt_xh.Text=BThenq=0.17Iftxt_xh.Text=CThenq=0.3Iftxt_xh.Text=DThenq=0.62Iftxt_xh.Text=EThenq=0.9f0=500*pc/(z*v)*(2.5/ka-1)+q*v^2txt_f0.Text=f0Dimq1AsIntegerq1=2*z*f0*Sin((a1/360)*2*pai/2)txt_q1.Text=q1EndSubPrivateSubCommand3_Click()EndEndSub中国矿业大学徐海学院实验报告-11-