V带电算大作业

一、普通V带传动的内容和任务1、普通V带传动设计内容：设计题目：设行车驱动装置中的V带传动电算设计条件：电动机工作功率Pd=3kW电动机满载转速nm=960(r/min)工作机的转速nW=50r/min第一级传动比i1=轴承座中心高H=250mm最短工作年限3年3班工作环境室内工作、工作平稳设计工作量：1、编制V带传动设计程序框图；2、编制V带传动设计源程序；3、按v带设计大作业中的数据运行程序，要求对每一组数据各按三种V带型号计算，对每一种带型号选三种小带轮直径进行计算并输出所有结果；4、比较结果，从9种方案中选择一个最佳方案。2、V带传动设计程序框图：B结束计算下一型号带？计算下一种带轮直径？计算P0，dP0计算，F0，Q,B（取整）输出结果Z<10?计算小带轮包角α，查表确定包角系数KALF查标准长度确定Ld，同时查取KL，计算实际中心距aAa01=0.7(dd1+dd2)，a02=2(dd1+dd2)输入初估中心距a0，计算Ld0dd2=i*dd1查标准带轮直径表确定dd2输出该型号带轮系列直径，选择输入小带轮基准直径dd1输入带型号B结束计算下一型号带？计算下一种带轮直径？计算P0，dP0计算，F0，Q,B（取整）输出结果Z<10?计算小带轮包角α，查表确定包角系数KALF查标准长度确定Ld，同时查取KL，计算实际中心距aAa01=0.7(dd1+dd2)，a02=2(dd1+dd2)输入初估中心距a0，计算Ld0dd2=i*dd1查标准带轮直径表确定dd2输出该型号带轮系列直径，选择输入小带轮基准直径dd1输入带型号B查表求传动比系数Ki计算KA和Pd，选型输入P，n1，i输入各原始数据开始根据型号确定最大带速根据型号确定最大带速VMAX，额定功率P0中系数K1，K2，K3，弯曲影响系数KbNYY减小直径减小直径NV<VMAX?V<VMAX?YN3、变量标识符：为了使程序具有较好的可读性，采用统一的变量标识符，如表中所示：序号名称代号标识符单位1名义功率PkW2设计功率PdkW3工作情况系数KA4小带轮转速n1r/min5工作机载荷情况KAz6原动机类型KAx7电动机每天工作时间KAy8带型号Z,A—EDai9小带轮基准直径dd1mm10大带轮基准直径dd2mm11带速Vm/s12最大带速VMAXm/s13中心距，a,a0mm14基准长度Ldmm15小带轮包角α度16V带根数Z17额定功率P0kW18功率增量dP0kW19弯曲影响系数Kb20传动比系数Ki21长度系数KL22包角系数KALF23初拉力F0N24压轴力QN25圆周率PAI26轮缘宽度Bmm二、数据验算并选择最佳方案（9种方案的运算结果）A型带，小带轮直径75mmA型带，小带轮直径100mmA型带，小带轮直径125mmB型带，小带轮直径125mmB型带，小带轮直径150mmB型带，小带轮直径180mmC型带，小带轮直径200mmC型带，小带轮直径250mmC型带，小带轮直径200mm通过比较九种方案，选择方案3，即A型带，小带轮直径125mm，可以使结构紧凑，又能满足设计要求。三、程序代码程序参数的定义PublicPAsDouble'名义功率PublicPdAsDouble'设计功率PublicKAAsDouble'工作情况系数Publicn1AsDouble'小带轮转速Publicdd1AsDouble'小带轮基准直径Publicdd2AsDouble'大带轮基准直径PublicddMINAsDouble'最小带轮直径PublicVAsSingle'带速PublicVMAXAsDouble'最大速度PublicaAsDouble'中心距PublicLdAsDouble'基准长度PublicαAsDouble'小带轮包角PublicZAsDouble'V带的根数PublicZ0AsDouble'V带的整数根数PublicP0AsDouble'额定功率PublicdPOAsDouble'功率增量PublicKbAsDouble'弯曲影响系数PublicKiAsDouble'传动比系数PublicKLAsDouble'长度系数PublicKALFAsDouble'包角系数PublicF0AsDouble'初拉力PublicQAsDouble'压轴力PublicPAIAsDouble'π值PublicBAsDouble'轮缘宽度PubliciAsDouble'传动比PubliceAsSingle'轮槽间距PublicfAsSingle'边距PublicKAxAsInteger'工作状况系数表格X行值PublicKAyAsInteger'工作状况系数表格Y行值PublicKAzAsInteger'工作状况系数表格Z行值PublicDaiAsInteger'带型的选择PublicmAsDouble'带的质量PublicK1AsDouble'P0的相关系数PublicK3AsDoublePublicK2AsDoublePublica0AsDouble'中心距初选值Publica01AsDouble'中心距初选值下极限Publica02AsDouble'中心距初选值上极限PublicLd0AsDouble'初算带的基准长度Publica03AsDouble'中间变量参数第一个界面和其程序PrivateSubCommand1_Click()P=Val(Text1.Text)'额定功率、转速、传动比的输入n1=Val(Text2.Text)i=Val(Text5.Text)Text6.Text=""'清除上一次的数据Text3.Text=""Text4.Text=""IfVal(n1)<100Then'额定功率、转速、传动比的合理性检测Text6.Text="转速过小！请重新输入"Text2.Text=""'清除刚输入不合理的数据ExitSubElseIfVal(n1)>6000ThenText6.Text="转速过大！请重新输入"Text2.Text=""'清除刚输入不合理的数据ExitSubElseIfVal(i)<0ThenText6.Text="错误，严重警告！请重新输入"Text5.Text=""'清除刚输入不合理的数据ExitSubElseIfVal(i)>10ThenText6.Text="不符合实际情况！请重新输入"Text5.Text=""'清除刚输入不合理的数据ExitSubElseIfVal(P0)<0ThenText6.Text="错误，严重警告！请重新输入"Text1.Text=""'清除刚输入不合理的数据ExitSubElseIfVal(P0)>100ThenText6.Text="功率过大，V带会损害！请重新输入"Text1.Text=""'清除刚输入不合理的数据ExitSubEndIfText6.Text="额定功率、转速、传动比的数值合理！！！"IfOption1=TrueThenKAx=1'选择点的定义IfOption2=TrueThenKAx=2IfOption3=TrueThenKAy=1IfOption4=TrueThenKAy=2IfOption5=TrueThenKAy=3IfOption6=TrueThenKAz=1IfOption7=TrueThenKAz=2IfOption8=TrueThenKAz=3IfOption9=TrueThenKAz=4IfKAx=1AndKAz=1AndKAy=1Then'原动机、载荷状况、工作时间的的选择，求出工作情况系数KAKA=1EndIfIfKAx=1AndKAz=1AndKAy=2ThenEndIfIfKAx=1AndKAz=1AndKAy=3ThenEndIfIfKAx=1AndKAz=2AndKAy=1ThenEndIfIfKAx=1AndKAz=2AndKAy=2ThenEndIfIfKAx=1AndKAz=2AndKAy=3ThenEndIfIfKAx=1AndKAz=3AndKAy=1ThenEndIfIfKAx=1AndKAz=3AndKAy=2ThenEndIfIfKAx=1AndKAz=3AndKAy=3ThenEndIfIfKAx=1AndKAz=4AndKAy=1ThenEndIfIfKAx=1AndKAz=4AndKAy=2ThenEndIfIfKAx=1AndKAz=4AndKAy=3ThenEndIfIfKAx=2AndKAz=1AndKAy=1ThenEndIfIfKAx=2AndKAz=1AndKAy=2ThenEndIfIfKAx=2AndKAz=1AndKAy=3ThenEndIfIfKAx=2AndKAz=2AndKAy=1ThenEndIfIfKAx=2AndKAz=2AndKAy=2ThenEndIfIfKAx=2AndKAz=2AndKAy=3ThenEndIfIfKAx=2AndKAz=3AndKAy=1ThenEndIfIfKAx=2AndKAz=3AndKAy=2ThenEndIfIfKAx=2AndKAz=3AndKAy=3ThenEndIfIfKAx=2AndKAz=4AndKAy=1ThenEndIfIfKAx=2AndKAz=4AndKAy=2ThenElseEndIfIfKAx=2AndKAz=4AndKAy=3ThenEndIfIfCheck1.Value=1Then'工作条件对工作情况系数KA的影响EndIfPd=P*KAText3.Text=KAText4.Text=PdEndSubPrivateSubCommand2_Click()'打开下一个界面Form2.Text1.Text=PdForm2.Text2.Text=n1Form2.Text3.Text=iForm1.WindowState=1EndSub第二个界面和其程序PrivateSubCommand1_Click()Pd=Val(Text1.Text)'设计功率、转速、传动比n1=Val(Text2.Text)i=Val(Text3.Text)PAI=3.1415926'π值IfOption1=TrueThenDai=1'Z型带选择点的定义IfOption2=TrueThenDai=2'A型带IfOption3=TrueThenDai=3'B型带IfOption4=TrueThenDai=4'C型带IfOption5=TrueThenDai=5'D型带IfOption6=TrueThenDai=6'E型带IfOption7=TrueThenDai=7'Y型带IfDai=7Then'7种带型的最小直径、最大速度、弯曲系数、带的质量、P0的相关系数和某带型带轮的系列直径VMAX=25ddMIN=20e=8f=7Text4.Text="202831.535.540"EndIfIfDai=1ThenVMAX=25ddMIN=50Kb=0.0002925'弯曲系数K1=0.246'P0的相关系数m=0.06'带的质量e=12'轮槽间距f=8'边距Text4.Text="455056637180"'带轮的系列直径EndIfIfDai=2ThenVMAX=25ddMIN=75e=15f=10Text4.Text="7590100112125"EndIfIfDai=3ThenVMAX=25ddMIN=125e=19Text4.Text="125140150160180"EndIfIfDai=4ThenVMAX=25ddMIN=200f=17Text4.Text="200224250280315355400"EndIfIfDai=5ThenVMAX=30ddMIN=355e=37f=23Text4.Text="355400425450500"EndIfIfDai=6ThenVMAX=30ddMIN=500f=29Text4.Text="500560600630710800"EndIfEndSubPrivateSubCommand2_Click()i=Val(Text3.Text)Ifi>1Andi<1.01ThenKi=1'传动比系数KiIfi=1ThenKi=1Ifi=1.01ThenKi=1P0=(K1*V^(-0.09)-K2/dd1-K3*V*V)*V'V带基本额定功率P0的计算Kb=Kb*10000'增加功率的计算dP0=Kb*n1*(1-1/Ki)/10000Text9.Text=dP0Text11.Text=P0EndSubPrivateSubCommand3_Click()'打开下一个界面dP0=Val(Text9.Text)Form3.Text1.Text=dd1Form3.Text2.Text=dd2Form3.Text17.Text=dP0Form2.WindowState=1EndSubPrivateSubCommand4_Click()dd1=Val(Text5.Text)dd1=dd1/1000'带的工作速度的计算V=PAI*dd1*n1/60IfV>VMAXThenText5.Text=""Text6.Text="减小直径，重新输入小带轮基准直径dd1"EndIfIfV<VMAXThendd2=i*dd1*1000Text6.Text="根据优选带轮直径系列数选取dd2"EndIfdd1=dd1*1000Text10.Text=dd2EndSub第三个界面和其程序PrivateSubCommand1_Click()'初步选取中心距的范围a01=0.7*(Val(Text1.Text)+Val(Text2.Text))'初选中心距的范围的计算a02=2*(Val(Text1.Text)+Val(Text2.Text))Text3.Text=a01Text13.Text=a02EndSubPrivateSubCommand2_Click()a0=Val(Text4.Text)Ld0=2*a0+PAI/2*(dd1+dd2)+(dd2-dd1)^2/4/a0'初算V带的基准长度Text5.Text=Ld0EndSubPrivateSubCommand3_Click()a03=57.3/aα=180-a03*(dd2-dd1)'小带轮的包角Ifα<95ThenKALF=0.68'确定小带轮的包角系数Ifα<105AndαIfαIfα<115AndαIfαIfα<125AndαIfαIfα<135AndαIfαIfα<145AndαIfαIfα<155AndαIfαIfα<165AndαIfαIfα<175AndαIfαIfα<185Andα>175ThenKALF=1Ifα=175ThenKALF=1Ifα<195AndαIfαIfα<205AndαIfαIfα<215AndαIfαIfαIfαZ=Pd/((P0+dP0)*KALF*KL)'V带根数的计算Text8.Text=αText9.Text=KALFIfZ>10ThenText10.Text="请重新选择V带带型"EndIfIfZ<0ThenText10.Text="请重新选择V带带型"EndIfIfZ>0AndZ<10ThenText10.Text=ZEndIfEndSubPrivateSubCommand4_Click()F0=500*Pd/(Z*V)*((2.5-KALF)/KALF)+m*V*V'初拉力的计算Z0=Val(Text16.Text)α=Val(Text8.Text)Q=2*Z0*F0*Sin(α*PAI/360)'轴向压力B=(Z-1)*e+2*f'带缘宽度Text11.Text=F0Text12.Text=QText15.Text=BEndSubPrivateSubCommand5_Click()Ld=Val(Text6.Text)KL=Val(Text7.Text)a0=Val(Text4.Text)Ld0=Val(Text5.Tex