電算設(shè)計說明書

1、Harbin I nstituteof TechnologyV帶傳動電算說明書課程名稱：機械設(shè)計院系：機電工稈學院班級：設(shè)計者：學號：設(shè)計時間： 2013.10.29哈爾濱工業(yè)大學一、普通V帶傳動的內(nèi)容和任務(wù)1、普通V帶傳動設(shè)計內(nèi)容：給定原始數(shù)據(jù)：傳遞的功率 P,小帶輪轉(zhuǎn)速n1傳動比i及工作條件設(shè)計內(nèi)容：帶型號，基準長度Ld,根數(shù)乙傳動中心距 a,帶輪基準直徑 ddl、dd2，帶輪輪緣寬度B，初拉力F0和壓軸力Q二、變量標識符為了使程序具有較好的可讀性易用性，應(yīng)采用統(tǒng)一的變量標識符，如表1所示。表1變量標識符表序號名稱代號標識符單位1名義功率PPkW2設(shè)計功率PdPdkW3工作情況系數(shù)KaKA

2、4小帶輪轉(zhuǎn)速n1n1r/mi n5工作機載荷特性GZJ6原動機類型YDJ7帶型號Z、A ETYPE8小帶輪基準直徑dd1dd1mm9大帶輪基準直徑dd2dd2mm10最小帶輪直徑ddminddMINmm11帶速Vm/s12最大帶速VMAXm/s13中心距maxaamm14基準長度LdLdmm15小帶輪包角ALF1度16V帶根數(shù)1ZZ17額定功率P0P0kW18功率增量PDIFP0kW19彎曲影響系數(shù)0KbKb20傳動比系數(shù)KiKi21長度系數(shù)KlKL22包角系數(shù)KKALF23初拉力IVF0F0N24壓軸力QQN25圓周率PAI26輪緣寬度BBmm三程序框圖輸出該型號帶輪系列直徑，選 擇輸入小帶

3、輪基準直徑 ddi開始AB輸入帶型號PdBNZ10 ?Y減小直徑NVVmax ?YYNYN結(jié)束A計算下一種 帶輪直徑？查表求傳動比系數(shù)Ki查Ka,計算Pd，選型輸入P, ni, i 輸入各原始數(shù)據(jù)計算Fo, Q,B （取整）輸出結(jié)果圖1 V帶設(shè)計程序框圖計算下一 型號帶？ZPo Po KlKv=ddini60 1000根據(jù)型號確定最大帶速Vmax :額定功率P0中系數(shù)Kl,K2,K3 彎曲影響系數(shù)Kbdd2= id d1查標準帶輪直徑表確定dd2理ra1=0.7(dd1+dd2), a2=2(dd1+dd2)輸入初估中心距a0,計算Ld0查標準長度確定 Ld，冋時 查取Kl，計算實際中心距 a

4、1F計算小帶輪包角1查表確定包角系數(shù)k計算Po， Po四、程序使用說明：1、 輸入原始數(shù)據(jù)（設(shè)計功率直接填寫時，名義功率無需填寫）；2、原動機及工作情況選擇，選擇完成之后，點擊工況系數(shù)“ Ka”按鈕；3、點擊設(shè)計功率“ Pd”按鈕（無論步驟1輸入的是名義功率或設(shè)計功率，都需 執(zhí)行此操作）；4、查閱教材V帶選型圖，選擇V帶型號，并從推薦小帶輪基準直徑中選擇直徑5、點擊“小帶輪直徑錄入完畢，執(zhí)行后續(xù)程序”按鈕；6在中心距范圍內(nèi)選擇中心距aO,點擊“中心距錄入完畢執(zhí)行后續(xù)程序 “按鈕五. 程序截圖當沒有輸入名義功率時，顯示:當未輸入傳動比時，顯示:1 H當dd1不是從推薦值中選擇時，顯示:當中心距沒

5、從給定范圍內(nèi)選擇時，顯示:六. 程序結(jié)果名義功率：3kw,轉(zhuǎn)速：960r/min，傳動比：1.8序號帶型dd1輸入 中心 距實際帶 長實際 中心 距小帶 輪包 角初拉 力壓軸力帶根 數(shù)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七. 程序代碼定義名義功率變量定義設(shè)計功率變量定義傳動比變量定義工況系數(shù)變量 定義小帶輪轉(zhuǎn)速變量 定義

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帶根數(shù)變量Dim P0 As Sin g

8、le 定義額定功率變量Dim DIFPO As Si ngle 定義功率增量變量Dim Kb As Si ngle 彎曲影響系數(shù)Dim Ki As Si ngle 傳動比系數(shù)Dim KL As Si ngle 長度系數(shù)Dim KALF As Si ngle 包角系數(shù)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下拉菜單選項添加及默認值設(shè)定Combo3.Locked = TrueOptio n1.Value = True下拉菜單鎖定默認“載荷平穩(wěn)”命令按鈕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 請先點擊查詢工況系數(shù)!End IfEnd Sub設(shè)計功率計算或輸入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 請輸入名義功率或輸入設(shè)計功率!ElseIf P 0 The nPd = KA * PElseIf Pd 0 A

13、nd P = 0 The nText4.Text = PdEnd IfText4.Text = PdEnd Sub傳動比系數(shù)選擇Private Sub Comma nd3_Click() i = Val(Text3.Text)If i = 0 The nMsgBox 請輸入傳動比！ElseIf i 1 And i 0 ThenMsgBox 傳動比應(yīng)大于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 請將傳動比精確到小數(shù)點后兩位!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,