大学机械专业电算实验：V带设计说明书

设计说明书——普通V带传动ＣＡＤ姓名：刘竹清学号：１０４０８１０７１９班级：８１０７系别：机械设计制造及其自动化日期：2006-11-7-1-一：普通V带传动设计内容和任务1、普通V带传动设计内容给定原始数据：传递的功率P，小带轮转速n，传动比i及工作条件。设计内容：带型号，基准长度Ld，根数Z，传动中心距a，带轮基准直径dd1、dd2，带轮轮缘宽度B，初拉力F0，和压轴力Q。2、CAD任务：（1）编制V带传动设计程序框图。（2）编制V带传动设计原程序。（3）按习题或作业中数据运行程序，要求对每一组数据各按三种V带型号计算，对每一种带型号选三种小带轮直径进行计算并输出所有结果。二、变量标识符序号名称代号标识符单位1名义功率Ppkw2设计功率Pdpdkw3工作情况系数KAKA4小带轮转速n1nr/min5工作机载荷特性载荷情况.list6原动机类型电机类型.list7工作时间工作时间.list8带型号带型.list9小带轮基准直径dd1ttmm10大带论基准直径dd2dd2mm11带速vvm/s12最大带速vmaxvmaxm/s13预估中心距a0a0mm14基准长度Ldldmm15实际中心距aamm16小带轮包角α1bao度17V带根数Zz18基本额定功率P0pokw19功率增量ΔP0ddpkw20传动比系数Kiki21长度系数KLkl22包角系数Kαkao23弯曲影响系数Kbkb24初拉力F0fchuN25压轴力QfqN26轮缘宽度Bbmmmm-2-三、程序框图开始输入原始数据P,n,i并选择电机计算设计功率由带型号确定最大带速，小带轮直径系，带的相关参数m，f，e相关系数Kb确定带型号选择小带轮直径验算带速vvmax?计算大带轮直径给定范围，预估中心距AA计算Ld并取标准值，计算实际中心距并圆整计算小带轮包角计算选择相关系数：Kα，Ki。插值计算P0，计算ΔP0计算带根数ZZ10?计算相关参数结束下一型号带下一带轮直径BB-3-四、部分源程序与其说明DimtAsString't为带型（字符型）DimttAsString'tt为小带轮直径（文本）Dima1AsIntegerDima2AsIntegerDimklAsDoubleDimKAAsDoubleDimkbAsDoubleDimkiAsDoubleDimkaoAsDoubleDimmAsDoubleDimfAsDoubleDimeAsDouble'mfe为带与带轮的相关参数Dimpnum()AsVariant'V带基本功率数组Dimnum()AsVariant'小带轮直径数组DimkkaAsVariant'包角系数数组Dimlld()AsVariant'基准长度数组Dimkkl()AsVariant'长度系数数组PrivateSubCommand1_Click()（此段为计算相关参数）fchu=Int(500*Val(pd)*(2.5-kao)/Val(z)/Val(v)/kao+m*Val(v)^2)fq=Int(2*Val(z)*Val(fchu)*Sin(Val(bao)*3.1416/360))bmm=(Val(z)-1)*e+2*fEndSubPrivateSubCommand13_Click()（保存数据）Opend:\V带设计.txtForAppendAs#1Print#1,带型：;带型.Text,dd1=;dd1.Text,dd2=;dd2.Text,初估a：;a0.Text,Ld=;ld.Text,实际a：;a.Text,包角：;bao.Text,带数：;z.Text,初拉力：;fchu.Text,压轴力：;fq.Text,轮缘宽：;bmm.TextClose#1EndSubPrivateSubCommand2_Click()（确定载荷情况系数）IfVal(n)100Thentisk.Show:tisk.Label1.Caption=转速过小！:n.Text=:n.SetFocusElseIfVal(n)6000Thentisk.Show:tisk.Label1.Caption=转速过大！:n.Text=:n.SetFocusElse:载荷情况.Enabled=TrueIf电机类型.Text=I类And载荷情况.Text=载荷平稳And工作时间.Text=10h/天ThenKA=1If电机类型.Text=I类And载荷情况.Text=载荷平稳And工作时间.Text=10~16h/天ThenKA=1.1If电机类型.Text=I类And载荷情况.Text=载荷平稳And工作时间.Text=16h/天ThenKA=1.2If电机类型.Text=I类And载荷情况.Text=载荷变动小And工作时间.Text=10h/天ThenKA=1.1-4-If电机类型.Text=I类And载荷情况.Text=载荷变动小And工作时间.Text=10~16h/天ThenKA=1.2If电机类型.Text=I类And载荷情况.Text=载荷变动小And工作时间.Text=16h/天ThenKA=1.3If电机类型.Text=I类And载荷情况.Text=载荷变动较大And工作时间.Text=10h/天ThenKA=1.2If电机类型.Text=I类And载荷情况.Text=载荷变动较大And工作时间.Text=10~16h/天ThenKA=1.3If电机类型.Text=I类And载荷情况.Text=载荷变动较大And工作时间.Text=16h/天ThenKA=1.4If电机类型.Text=I类And载荷情况.Text=载荷变动很大And工作时间.Text=10h/天ThenKA=1.3If电机类型.Text=I类And载荷情况.Text=载荷变动很大And工作时间.Text=10~16h/天ThenKA=1.4If电机类型.Text=I类And载荷情况.Text=载荷变动很大And工作时间.Text=16h/天ThenKA=1.5If电机类型.Text=II类And载荷情况.Text=载荷平稳And工作时间.Text=10h/天ThenKA=1.1If电机类型.Text=II类And载荷情况.Text=载荷平稳And工作时间.Text=10~16h/天ThenKA=1.2If电机类型.Text=II类And载荷情况.Text=载荷平稳And工作时间.Text=16h/天ThenKA=1.3If电机类型.Text=II类And载荷情况.Text=载荷变动小And工作时间.Text=10h/天ThenKA=1.2If电机类型.Text=II类And载荷情况.Text=载荷变动小And工作时间.Text=10~16h/天ThenKA=1.3If电机类型.Text=II类And载荷情况.Text=载荷变动小And工作时间.Text=16h/天ThenKA=1.4If电机类型.Text=II类And载荷情况.Text=载荷变动较大And工作时间.Text=10h/天ThenKA=1.4If电机类型.Text=II类And载荷情况.Text=载荷变动较大And工作时间.Text=10~16h/天ThenKA=1.5If电机类型.Text=II类And载荷情况.Text=载荷变动较大And工作时间.Text=16h/天ThenKA=1.6If电机类型.Text=II类And载荷情况.Text=载荷变动很大And工作时间.Text=10h/天ThenKA=1.5If电机类型.Text=II类And载荷情况.Text=载荷变动很大And工作时间.Text=10~16h/天ThenKA=1.6If电机类型.Text=II类And载荷情况.Text=载荷变动很大And工作时间.Text=16h/天ThenKA=1.8DimppAsDoublepp=Val(p)*Val(KA)Ifpp250Orpp0.8Thentisk.Show:tisk.Label1.Caption=此设计任务本软件无法实现！计算出的设计功率无对应带型能选择！:Command3.Enabled=FalseIfpp=250Andpp=0.8Thenpd=Int(pp*100+0.5)/100:Command3.Enabled=TrueEndIfOpend:\V带设计.txtForAppendAs#1Print#1,原始数据:Print#1,p=;p.Text,n=;n.Text,i=;i.Text,KA=;KA-5-Print#1,输出结果：Close#1EndSubPrivateSubCommand3_Click()（出图，标点）Dimxx()AsVariantDimyy()AsVariant示意图.Show带型.Enabled=True示意图.tu.FillStyle=0示意图.tu.FillColor=RGB(255,0,0)示意图.tu.Scale(0,7200)-(10000,0)DimiAsIntegerFori=1To24示意图.tu.Line(400*i,0)-(400*i,7200),RGB(255,0,255)NextiFori=1To19示意图.tu.Line(0,400*i)-(10000,400*i),RGB(255,0,255)Nexti示意图.tu.PSet(100,7100)示意图.tu.Printn(r/min)示意图.tu.PSet(800,6400)示意图.tu.PrintY:20--40示意图.tu.Line(0,3150)-(2600,6200),RGB(255,255,255)示意图.tu.Line(2600,6200)-(2750,6800),RGB(255,255,255)示意图.tu.PrintZ:50--71示意图.tu.Line(0,2250)-(3200,5900),RGB(255,255,255)示意图.tu.Line(3200,5900)-(3350,6600),RGB(255,255,255)示意图.tu.Print80--100示意图.tu.Line(0,800)-(4000,5200),RGB(255,255,255)示意图.tu.Line(4000,5200)-(4150,6200),RGB(255,255,255)示意图.tu.PrintA:70--100示意图.tu.Line(400,0)-(4400,4400),RGB(255,255,255)示意图.tu.Line(4400,4400)-(4600,5600),RGB(255,255,255)示意图.tu.Print112--140示意图.tu.Line(1450,0)-(5200,4400),RGB(255,255,255)示意图.tu.PrintB:125--140示意图.tu.Line(2300,0)-(5600,3800),RGB(255,255,255)示意图.tu.Line(5600,3800)-(5750,4800),RGB(255,255,255)示意图.tu.Print160--200示意图.tu.Line(4150,0)-(6800,3200),RGB(255,255,255)示意图.tu.Line(6800,3200)-(6950,4000),RGB(255,255,255)示意图.tu.PrintC:200--315示意图.tu.Line(5850,0)-(8600,3200),RGB(255,255,255)-6-示意图.tu.PrintD:355--400示意图.tu.Line(7200,0)-(9600,3000),RGB(255,255,255)示意图.tu.PSet(8800,2000)示意图.tu.PrintE:450--500示意图.tu.PSet(9400,200)示意图.tu.PrintPd(kw)xx=Array(0.8,1,1.25,1.6,2,2.5,3.15,4,5,6.3,8,10,12