电算设计说明书

1、Harbin I nstituteof TechnologyV带传动电算说明书课程名称：机械设计院系：机电工稈学院班级：设计者：学号：设计时间： 2013.10.29哈尔滨工业大学一、普通V带传动的内容和任务1、普通V带传动设计内容：给定原始数据：传递的功率 P,小带轮转速n1传动比i及工作条件设计内容：带型号，基准长度Ld,根数乙传动中心距 a,带轮基准直径 ddl、dd2，带轮轮缘宽度B，初拉力F0和压轴力Q二、变量标识符为了使程序具有较好的可读性易用性，应采用统一的变量标识符，如表1所示。表1变量标识符表序号名称代号标识符单位1名义功率PPkW2设计功率PdPdkW3工作情况系数KaKA

2、4小带轮转速n1n1r/mi n5工作机载荷特性GZJ6原动机类型YDJ7带型号Z、A ETYPE8小带轮基准直径dd1dd1mm9大带轮基准直径dd2dd2mm10最小带轮直径ddminddMINmm11带速Vm/s12最大带速VMAXm/s13中心距maxaamm14基准长度LdLdmm15小带轮包角ALF1度16V带根数1ZZ17额定功率P0P0kW18功率增量PDIFP0kW19弯曲影响系数0KbKb20传动比系数KiKi21长度系数KlKL22包角系数KKALF23初拉力IVF0F0N24压轴力QQN25圆周率PAI26轮缘宽度BBmm三程序框图输出该型号带轮系列直径，选 择输入小带

3、轮基准直径 ddi开始AB输入带型号PdBNZ10 ?Y减小直径NVVmax ?YYNYN结束A计算下一种 带轮直径？查表求传动比系数Ki查Ka,计算Pd，选型输入P, ni, i 输入各原始数据计算Fo, Q,B （取整）输出结果图1 V带设计程序框图计算下一 型号带？ZPo Po KlKv=ddini60 1000根据型号确定最大带速Vmax :额定功率P0中系数Kl,K2,K3 弯曲影响系数Kbdd2= id d1查标准带轮直径表确定dd2理ra1=0.7(dd1+dd2), a2=2(dd1+dd2)输入初估中心距a0,计算Ld0查标准长度确定 Ld，冋时 查取Kl，计算实际中心距 a

4、1F计算小带轮包角1查表确定包角系数k计算Po， Po四、程序使用说明：1、 输入原始数据（设计功率直接填写时，名义功率无需填写）；2、原动机及工作情况选择，选择完成之后，点击工况系数“ Ka”按钮；3、点击设计功率“ Pd”按钮（无论步骤1输入的是名义功率或设计功率，都需 执行此操作）；4、查阅教材V带选型图，选择V带型号，并从推荐小带轮基准直径中选择直径5、点击“小带轮直径录入完毕，执行后续程序”按钮；6在中心距范围内选择中心距aO,点击“中心距录入完毕执行后续程序 “按钮五. 程序截图当没有输入名义功率时，显示:当未输入传动比时，显示:1 H当dd1不是从推荐值中选择时，显示:当中心距没

5、从给定范围内选择时，显示:六. 程序结果名义功率：3kw,转速：960r/min，传动比：1.8序号带型dd1输入 中心 距实际带 长实际 中心 距小带 轮包 角初拉 力压轴力带根 数1A90250900.0251.2164.0128.31270.252A1003001000.0277.2163.5144.71145.743A1253001120.0281.5159.9157.2928.834Z63300900.0311.6171.080.51766.6115Z71300900.0294.8169.587.91574.996Z803501000.0325.8169.4100.31398.177

6、B1405001600.0490.6167.2202.9806.528B1605001600.0450.4164.7179.7712.629B1806002000.0607.5167.3157.7627.02Opti on Explicit Dim P As Si ngle Dim Pd As Si ngle Dim i As Si ngle Dim KA As Varia nt Dim n1 As Si ngle Dim GZJ As Varia nt Dim YDJ As Varia nt七. 程序代码定义名义功率变量定义设计功率变量定义传动比变量定义工况系数变量 定义小带轮转速变量 定义

7、工作机载荷特性变量 定义原动机类型变量Dim T As Si ngle 定义每天工作时间Dim Vtype As Stri ng 定义带型号变量Dim dd1 As Si ngle 定义小带轮基准直径变量Dim dd2 As Si ngle 定义大带轮基准直径变量Dim v As Sin gle 定义带速变量Dim VMAX As Single 定义最大带速变量Dim a As Si ngle 定义中心距变量Dim Ld As Sin gle 定义基准长度变量Dim ALF1 As Si ngle 定义小带轮包角变量Dim Z As Single 定义V带根数变量Dim P0 As Sin g

8、le 定义额定功率变量Dim DIFPO As Si ngle 定义功率增量变量Dim Kb As Si ngle 弯曲影响系数Dim Ki As Si ngle 传动比系数Dim KL As Si ngle 长度系数Dim KALF As Si ngle 包角系数Dim FO As Si ngle 初拉力Dim Q As Si ngle 压轴力Dim PAI As Si ngle 圆周率Dim B As Si ngle 轮缘宽度Dim K1 As Si ngleDim K2 As Si ngleDim K3 As Si ngleDim al As DoubleDim a2 As Double

9、Dim X As In teger Dim Y As Varia ntDim j As In teger Dim u As Varia ntPrivate Sub Form_Load()PAI = 3.1415926Combol.Addltem I类Combol.Addltem U类Combol.List In dex = 0Combo2.Addltem 16hCombo2.List In dex = 0Combo3.Addltem ZCombo3.Addltem ACombo3.Addltem BCombo3.Addltem CCombo3.Addltem DCombo3.Addltem E

10、Combo3.List In dex = 0下拉菜单选项添加及默认值设定Combo3.Locked = TrueOptio n1.Value = True下拉菜单锁定默认“载荷平稳”命令按钮2不可用Comma nd2.E nabled = FalseText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text10.Text = Text11.Text = Text12.Text = Text13.Text = Te

11、xt14.Text = Text15.Text = Text16.Text = Text17.Text = Text18.Text = Text19.Text = Text20.Text = Text21.Text = Text22.Text =Text23.Text =Text24.Text =Text25.Text =Text26.Text =Text27.Text =文本框初始化Text28.Text = i = Val(Text3.Text) P = Val(Textl.Text) n1 = Val(Text2.Text)Pd = Val(Text4.Text)End SubPriva

12、te Sub Frame2_Click()If Comma nd2.E nabled = False ThenMsgBox 请先点击查询工况系数!End IfEnd Sub设计功率计算或输入Private Sub Comma nd2_Click()Combo3.Locked = False下拉菜单3解锁P = Val(Text1.Text) n1 = Val(Text2.Text) Pd = Val(Text4.Text)If P = 0 And Pd = 0 The nMsgBox 请输入名义功率或输入设计功率!ElseIf P 0 The nPd = KA * PElseIf Pd 0 A

13、nd P = 0 The nText4.Text = PdEnd IfText4.Text = PdEnd Sub传动比系数选择Private Sub Comma nd3_Click() i = Val(Text3.Text)If i = 0 The nMsgBox 请输入传动比！ElseIf i 1 And i 0 ThenMsgBox 传动比应大于1 ！ElseIf 1 = i And i = 1.01 ThenKi = 1ElseIf 1.02 = i And i = 1.04 The nKi = 1.0136ElseIf 1.05 = i And i = 1.08 ThenKi = 1

14、.0276ElseIf 1.09 = i And i = 1.12 ThenKi = 1.0419ElseIf 1.13 = i And i = 1.18 ThenKi = 1.0567ElseIf 1.19 = i And i = 1.24 ThenKi = 1.0719ElseIf 1.25 = i And i = 1.34 The nKi = 1.0875ElseIf 1.35 = i And i = 1.51 ThenKi = 1.1036ElseIf 1.52 = i And i = 2 The nKi = 1.1373ElseMsgBox 请将传动比精确到小数点后两位!End If

15、Text5.Text = KiEnd Sub电机类型选择Private Sub Combo1_Click()Select Case Combo1.TextCase I类YDJ = 1Case U类YDJ = 2End SelectEnd SubPrivate Sub Combo2_Click()每天工作时间选择Select Case Combo2.TextCase 16hT = 3End SelectEnd SubPrivate Sub Combo3_Click() V带型号选择Select Case Combo3.TextCase ZText7.Text = 50, 63, 71,80Vty

16、pe = ZCase AText7.Text = 75, 90, 100, 125Vtype = ACaseBText7.Text = 125, 140, 160, 180Vtype = BCase CText7.Text = 200, 250, 315, 400Vtype = CCase DText7.Text = 355, 400, 450, 500Vtype = DCaseEText7.Text = 500, 560, 630, 710Vtype = EEnd SelectEnd SubPrivate Sub Comma nd4_Click()dd1 = Val(Text8.Text)I

17、f dd1 = 0 The nMsgBox 请先输入所选小带轮直径!ElseSelect Case VtypeCase ZIf dd1 50 And dd1 63 And dd1 71 And dd1 80 ThenMsgBox 请从推荐带轮直径中选择输入！ElseK1 = 0.246K2 =7.44K3 =0.441Kb =0.2925VMAX = 25End IfCase AIf dd1 75 And dd1 90 And dd1 100 And dd1 125 Then请从推荐带轮直径中选择输入！MsgBox End IfCase BIfdd1 MsgBox 125 And dd1 14

18、0 And dd1 160请从推荐带轮直径中选择输入！And dd1180 ThenElseK1 =0.499K2 =19.02K3 =0.765Kb =0.7725VMAX = 25End IfCase CIfdd1 200 And dd1 250 And dd1 315MsgBox 请从推荐带轮直径中选择输入！And dd1400 ThenElseK1 = 0.794K2 =50.6K3 =1.31Kb =1.9875VMAX = 25ElseK1 =1.48K2 =143.2K3 =2.34Kb =5.625VMAX = 25End IfCase DIfdd1 355 And dd1 4

19、00 And dd1 450MsgBox 请从推荐带轮直径中选择输入！ElseAnd dd1500 ThenK1 = 3.15K2 = 507.3K3 = 4.77Kb = 19.95VMAX = 30End IfCase EIfdd1 500 And dd1 560 And dd1 630 And dd1 710 ThenMsgBox 请从推荐带轮直径中选择输入！ElseK1 = 4.57K2 =951.5K3 =7.06Kb =37.35VMAX = 30End IfEnd SelectEnd Ifn1 = Val(Text2.Text)Text9.Text = VMAXv = PAI *

20、 dd1 * n1 / 60000Text10.Text = Format(v, 0.000)If v VMAX Or v 755 ThenX = 800ElseIf dd2 670 The nX = 710ElseIf dd2 615 ThenX = 630ElseIf dd2 580 ThenX = 600ElseIf dd2 530 ThenX = 560ElseIf dd2 475 The nX = 500Elself dd2 437.5 ThenX = 450Elself dd2 412.5 The nX = 425Elself dd2 377.5 ThenX = 400Elself

21、 dd2 335 ThenX = 355Elself dd2 297.5 ThenX = 315Elself dd2 265 ThenX = 280Elself dd2 237 ThenX = 250Elself dd2 212 ThenX = 224Elself dd2 190 The nX = 200Elself dd2 170 ThenX = 180Elself dd2 155 The nX = 160Elself dd2 145 The nX = 150Elself dd2 132.5 The nX = 140Elself dd2 118.5 ThenX = 125Elself dd2

22、 106 The nX = 112Elself dd2 95 The nX = 100Elself dd2 85 The nX = 90Elself dd2 75.5 The nX = 80Elself dd2 67 The nX = 71Elself dd2 59.5 The nX = 63Elself dd2 53 The nX = 56Elself dd2 47.5 The nX = 50Elself dd2 42.5 The nX = 45Elself dd2 37.75 ThenX = 40Elself dd2 33.5 The nX = 35.5Elself dd2 29.75 T

23、henX = 31.5Elself dd2 24 The nX = 28Elself dd2 = 20 ThenX = 20End lfdd2 = Xlf i 0 And dd1 0 ThenX = (dd2 / dd1 - i) / ilf X 0.05 The n请重选小带MsgBox推荐大带轮直径得到的传动比偏差过大，轮直径或带型！ElseText16.Text = dd2al = 0.7 * (dd1 + dd2)a2 = 2 * (dd1 + dd2)Text17.Text = Str$(a1) + a + Str$(a2)End lfElself i = 0 Or dd1 = 0

24、The nMsgBox 小带轮直径或传动比未输入或输入错误！End lfEnd lfEnd SubPrivate Sub Comma nd5_Click()Dim m As Si nglea = Val(Text18.Text)lf a a2 The nMsgBox 请正确输入初步中心距！ElseLd = 2 * a + PAl * (dd1 + dd2) / 2 + (dd2 - dd1) A 2) / (4 * a)Text19.Text = LdSelect Case VtypeCase Zm = 0.06u = Array(355, 400, 450, 500, 560, 630, 710, 800, 900, 1000,1120, 1250, 1400, 1600, 1800, 2000)Y = Array(0, 0.87, 0.89, 0.91, 0.94, 0.96, 0.99, 1, 1.03, 1.06,1.08, 1.1,