V带传动设计说明书
V带传动的程序设计 设计说明书
V带传动的程序设计成浩机自08-1班22080911 1、已知条件带传动设计的已知数据有：输入功率P，小带轮转速，传动比i，原动机种类，工作机载荷性质，中心距a，带传动每天工作时数。
设计题目：设计带式输送机的V带传动装置。
已知：原动机为Y型异步电动机，电动机额定功率，转速，，工作中有轻度冲击，单班制工作，要求中心距a为。
2、设计内容1）确定V带型号、基准长度及根数z，确定大小带轮基准直径，，实际中心距a，安装初拉力，压轴力Q。
2）选择合适的三维造型软件，建立大带轮的实体造型。
3、设计结果4、程序执行过程（截图）1、2、3、4、5、6、7、5、VB源程序：Private Sub Command1_Click() '导航窗口，开始新的计算Picture1.Visible = TrueEnd SubPrivate Sub Command10_Click()'计算功率Pc txt_pc.Text = CStr(Val(txt_ka) * Val(txt_p))End SubPrivate Sub Command11_Click()'调出工作情况系数表chaxun_ka.Visible = TrueEnd SubPrivate Sub Command12_Click() 'V带带轮最小基准直径和基准直径系列查询jizhunzhijing.Visible = TrueIf txt_xh.Text = "Z" Thentxt_jz.Text = "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"End IfIf txt_xh.Text = "A" Thentxt_jz.Text = "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"End IfIf txt_xh.Text = "B" Thentxt_jz.Text = "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"End IfIf txt_xh.Text = "C" Thentxt_jz.Text = "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"End IfIf txt_xh.Text = "D" Thentxt_jz.Text = "355, 375, 400, 425, 450, 475, 500, 530, 560, 600, 630, 670, 710, 750, 800, 900, 1000"End IfIf txt_xh.Text = "E" Thentxt_jz.Text = "500, 530, 560, 600, 630, 670, 710, 750, 800, 900, 1000"End IfEnd SubPrivate Sub Command13_Click()'小带轮基准直径确定txt_d2j.Text = CStr(Format((Val(Text8.Text) * Val(txt_d1.T ext)), "#######.##"))'对小带轮转速n1进行圆整---------------------------------------------------------------------Dim i As IntegerDim n1 As Single, Y As Single, z As SingleDim n As VariantIf txt_xh.Text = "Z" Thenn = Array(400, 730, 800, 980, 1200, 1460, 1600, 2000, 2400, 2800, 3200)n1 = Val(txt_n1.Text)For i = 0 To 10If n1 <= n(i) ThenExit ForEnd IfNext iY = n(i)For i = 1 To 10If n1 <= n(i) ThenExit ForEnd IfNext iIf (n(i) - n1) <= (n1 - n(i - 1)) Thenz = n(i)Elsez = n(i - 1)End Iftxt_n1.Text = CStr(Y)ElseIf txt_xh.Text = "A" Thenn = Array(400, 730, 800, 980, 1200, 1460, 1600, 2000, 2400, 2800, 3200) n1 = Val(txt_n1.Text)For i = 0 To 10If n1 <= n(i) ThenExit ForEnd IfNext iY = n(i)For i = 1 To 10If n1 <= n(i) ThenExit ForEnd IfNext iIf (n(i) - n1) <= (n1 - n(i - 1)) Thenz = n(i)Elsez = n(i - 1)End Iftxt_n1.Text = CStr(Y)ElseIf txt_xh.Text = "B" Thenn = Array(400, 730, 800, 980, 1200, 1460, 1600, 2000, 2400, 2800, 3200)For i = 0 To 10If n1 <= n(i) ThenExit ForEnd IfNext iY = n(i)For i = 1 To 10If n1 <= n(i) ThenExit ForEnd IfNext iIf (n(i) - n1) <= (n1 - n(i - 1)) Thenz = n(i)Elsez = n(i - 1)End Iftxt_n1.Text = CStr(Y)ElseIf txt_xh.Text = "C" Thenn = Array(200, 300, 400, 500, 600, 730, 800, 980, 1200, 1460, 1600) n1 = Val(txt_n1.Text)For i = 0 To 10If n1 <= n(i) ThenExit ForEnd IfNext iY = n(i)For i = 1 To 10If n1 <= n(i) ThenExit ForEnd IfNext iIf (n(i) - n1) <= (n1 - n(i - 1)) Thenz = n(i)Elsez = n(i - 1)End IfElseIf txt_xh.Text = "D" Thenn = Array(200, 300, 400, 500, 600, 730, 800, 980, 1200, 1460, 1600) n1 = Val(txt_n1.Text)For i = 0 To 10If n1 <= n(i) ThenExit ForEnd IfNext iY = n(i)For i = 1 To 10If n1 <= n(i) ThenExit ForEnd IfNext iIf (n(i) - n1) <= (n1 - n(i - 1)) Thenz = n(i)Elsez = n(i - 1)End Iftxt_n1.Text = CStr(Y)ElseIf txt_xh.Text = "E" Thenn = Array(200, 300, 400, 500, 600, 730, 800, 980, 1200, 1460, 1600) n1 = Val(txt_n1.Text)For i = 0 To 10If n1 <= n(i) ThenExit ForEnd IfNext iY = n(i)For i = 1 To 10If n1 <= n(i) ThenExit ForEnd IfNext iIf (n(i) - n1) <= (n1 - n(i - 1)) Thenz = n(i)Elsez = n(i - 1)End Iftxt_n1.Text = CStr(Y)End IfEnd SubPrivate Sub Command14_Click()'圆整基准长度Ld Dim i As IntegerDim cd As Single, Y As Single, z As SingleDim n As Variantn = 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, 10000)cd = Val(txt_lcd.Text)For i = 0 To 28If cd <= n(i) ThenExit ForEnd IfNext iY = n(i)For i = 1 To 28If cd <= n(i) ThenExit ForEnd IfNext iIf (n(i) - cd) <= (cd - n(i - 1)) Thenz = n(i)Elsez = n(i - 1)End Iftxt_ld.Text = CStr(Y)End SubPrivate Sub Command15_Click()'计算初定带长Dim pi As Doublepi = 3.1415926txt_lcd.Text = CStr(Format((2 * Val(txt_a0.Text) + (pi * (Val(txt_d1.Text) + Val(txt_d2.Text)) / 2) + ((Val(txt_d2.Text) - Val(txt_d1.Text)) ^ 2) / (4 * Val(txt_a0.Text))), "######.##"))End SubPrivate Sub Command16_Click()'计算实际中心距a txt_a.Text = CStr(Val(txt_a0.T ext) + (1 / 2) * (Val(txt_ld.Text) - Val(txt_lcd.Text)))End SubPrivate Sub Command17_Click()Picture5.Visible = FalsePicture10.Visible = TrueCommand5.Enabled = TrueEnd SubPrivate Sub Command19_Click()'计算带轮的包角α1 txt_bj.Text = CStr(Format((180 - (Val(txt_d2.Text) - Val(txt_d1.Text)) / Val(txt_a) * 57.3), "######.##"))End SubPrivate Sub Command2_Click()Picture2.Visible = FalsePicture5.Visible = FalsePicture10.Visible = FalsePicture12.Visible = FalsePicture1.Visible = FalseFrame1.Visible = TrueFrame12.Visible = FalseFrame25.Visible = FalseEnd SubPrivate Sub Command20_Click()'对小带轮包角α1进行圆整Dim i As IntegerDim cda As Single, w As Single, q As SingleDim n As Variantn = Array(70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180)cda = Val(txt_bj.Text)For i = 0 To 11If cda <= n(i) ThenExit ForEnd IfNext iw = n(i)For i = 1 To 11If cda <= n(i) ThenExit ForEnd IfNext iIf (n(i) - cda) <= (cda - n(i - 1)) Thenq = n(i)Elseq = n(i - 1)End Iftxt_bjdz.Text = CStr(q)End SubPrivate Sub Command21_Click()'确定包角系数If Val(txt_bjdz.Text) = 70 ThenText16.Text = "0.58"ElseIf Val(txt_bjdz.Text) = 80 ThenText16.Text = "0.64"ElseIf Val(txt_bjdz.Text) = 90 ThenText16.Text = "0.69"ElseIf Val(txt_bjdz.Text) = 100 ThenText16.Text = "0.74"ElseIf Val(txt_bjdz.Text) = 110 ThenText16.Text = "0.78"ElseIf Val(txt_bjdz.Text) = 120 ThenText16.Text = "0.82"ElseIf Val(txt_bjdz.Text) = 130 ThenText16.Text = "0.86"ElseIf Val(txt_bjdz.Text) = 140 ThenText16.Text = "0.89"ElseIf Val(txt_bjdz.Text) = 150 ThenText16.Text = "0.92"ElseIf Val(txt_bjdz.Text) = 160 ThenText16.Text = "0.95"ElseIf Val(txt_bjdz.Text) = 170 ThenText16.Text = "0.98"ElseIf Val(txt_bjdz.Text) = 180 ThenText16.Text = "1.00"End IfEnd SubPrivate Sub Command22_Click()'单根V带试验条件下许用功率Dim v As Integer, pi As Integer, d1 As Integer, p0 As Variantpi = 3.1415926v = pi * Val(txt_d1.Text) * Val(txt_n1.Text) / 60000d1 = Val(txt_d1.Text)If txt_xh.Text = "Z" Thenp0 = (0.246 * v ^ (-0.09) - 7.44 / d1 - 0.441 * ((10) ^ (-4)) * (v ^ 2)) * vElseIf txt_xh.Text = "A" Thenp0 = (0.449 * v ^ (-0.09) - 19.62 / d1 - 0.765 * ((10) ^ (-4)) * (v ^ 2)) * vElseIf txt_xh.Text = "B" Thenp0 = (0.794 * v ^ (-0.09) - 50.6 / d1 - 1.31 * ((10) ^ (-4)) * (v ^ 2)) * vElseIf txt_xh.Text = "C" Thenp0 = (1.48 * v ^ (-0.09) - 143.2 / d1 - 2.34 * ((10) ^ (-4)) * (v ^ 2)) * vElseIf txt_xh.Text = "D" Thenp0 = (3.15 * v ^ (-0.09) - 507.3 / d1 - 4.77 * ((10) ^ (-4)) * (v ^ 2)) * vElseIf txt_xh.Text = "E" Thenp0 = (4.57 * v ^ (-0.09) - 951.5 / d1 - 7.06 * ((10) ^ (-4)) * (v ^ 2)) * vEnd IfText17.Text = CStr(Format(p0, "######.##"))End SubPrivate Sub Command23_Click()'传递功率的增量值△P0 If txt_xh.Text = "Z" ThenIf Val(Text8.Text) >= 1.365 And Val(Text8.Text) <= 1.51 Then 'Z型号表第一行If Val(txt_n1.Text) = 400 Or 730 Or 800 ThenText18.Text = "0.01"ElseIf Val(txt_n1.Text) = 980 Or 1200 Or 1460 Or 1600 ThenText18.Text = "0.02"ElseIf Val(txt_n1.Text) = 2000 Or 2400 ThenText18.Text = "0.03"ElseIf Val(txt_n1.Text) = 2800 Or 3200 ThenText18.Text = "0.04"End IfEnd IfIf Val(Text8.T ext) >= 2 Then 'Z型号表第二行If Val(txt_n1.Text) = 400 ThenText18.Text = "0.01"ElseIf Val(txt_n1.Text) = 730 Or 800 Or 980 ThenText18.Text = "0.02"ElseIf Val(txt_n1.Text) = 1200 Or 1460 Or 1600 ThenText18.Text = "0.03"ElseIf Val(txt_n1.Text) = 2000 Or 2400 Or 2800 ThenText18.Text = "0.04"ElseIf Val(txt_n1.Text) = 3200 ThenText18.Text = "0.05"End IfEnd IfEnd IfIf txt_xh.Text = "A" ThenIf Val(Text8.Text) >= 1.35 And Val(Text8.Text) <= 1.51 Then 'A型号表第一行If Val(txt_n1.Text) = 400 ThenText18.Text = "0.04"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "0.07"ElseIf Val(txt_n1.Text) = 800 Or 980 ThenText18.Text = "0.08"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "0.11"ElseIf Val(txt_n1.Text) = 1460 ThenText18.Text = "0.13"ElseIf Val(txt_n1.Text) = 1600 ThenText18.Text = "0.15"ElseIf Val(txt_n1.Text) = 2000 ThenText18.Text = "0.19"ElseIf Val(txt_n1.Text) = 2400 ThenText18.Text = "0.23"ElseIf Val(txt_n1.Text) = 2800 ThenText18.Text = "0.26"ElseIf Val(txt_n1.Text) = 3200 ThenText18.Text = "0.30"End IfEnd IfIf Val(Text8.T ext) >= 2 Then 'A型号表第二行If Val(txt_n1.Text) = 400 ThenText18.Text = "0.05"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "0.09"ElseIf Val(txt_n1.Text) = 800 ThenText18.Text = "0.10"ElseIf Val(txt_n1.Text) = 980 ThenText18.Text = "0.11"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "0.15"ElseIf Val(txt_n1.Text) = 1460 ThenText18.Text = "0.17"ElseIf Val(txt_n1.Text) = 1600 ThenText18.Text = "0.19"ElseIf Val(txt_n1.Text) = 2000 ThenText18.Text = "0.24"ElseIf Val(txt_n1.Text) = 2400 ThenText18.Text = "0.29"ElseIf Val(txt_n1.Text) = 2800 ThenText18.Text = "0.34"ElseIf Val(txt_n1.Text) = 3200 ThenText18.Text = "0.39"End IfEnd IfEnd IfIf txt_xh.Text = "B" ThenIf Val(Text8.Text) >= 1.35 And Val(Text8.Text) <= 1.51 Then 'B型号表第一行If Val(txt_n1.Text) = 400 ThenText18.Text = "0.10"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "0.17"ElseIf Val(txt_n1.Text) = 800 ThenText18.Text = "0.20"ElseIf Val(txt_n1.Text) = 980 ThenText18.Text = "0.23"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "0.30"ElseIf Val(txt_n1.Text) = 1460 ThenText18.Text = "0.36"ElseIf Val(txt_n1.Text) = 1600 ThenText18.Text = "0.39"ElseIf Val(txt_n1.Text) = 2000 ThenText18.Text = "0.49"ElseIf Val(txt_n1.Text) = 2400 ThenText18.Text = "0.59"ElseIf Val(txt_n1.Text) = 2800 ThenText18.Text = "0.69"ElseIf Val(txt_n1.Text) = 3200 ThenText18.Text = "0.79"End IfEnd IfIf Val(Text8.T ext) >= 2 Then 'B型号表第二行If Val(txt_n1.Text) = 400 ThenText18.Text = "0.13"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "0.22"ElseIf Val(txt_n1.Text) = 800 ThenText18.Text = "0.25"ElseIf Val(txt_n1.Text) = 980 ThenText18.Text = "0.30"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "0.38"ElseIf Val(txt_n1.Text) = 1460 ThenText18.Text = "0.46"ElseIf Val(txt_n1.Text) = 1600 ThenText18.Text = "0.51"ElseIf Val(txt_n1.Text) = 2000 ThenText18.Text = "0.63"ElseIf Val(txt_n1.Text) = 2400 ThenText18.Text = "0.76"ElseIf Val(txt_n1.Text) = 2800 ThenText18.Text = "0.89"ElseIf Val(txt_n1.Text) = 3200 ThenText18.Text = "1.01"End IfEnd IfEnd IfIf txt_xh.Text = "C" ThenIf Val(Text8.Text) >= 1.354 And Val(Text8.Text) <= 1.51 Then 'C型号表第一行If Val(txt_n1.Text) = 200 ThenText18.Text = "0.14"ElseIf Val(txt_n1.Text) = 300 ThenText18.Text = "0.21"ElseIf Val(txt_n1.Text) = 400 ThenText18.Text = "0.27"ElseIf Val(txt_n1.Text) = 500 ThenText18.Text = "0.34"ElseIf Val(txt_n1.Text) = 600 ThenText18.Text = "0.41"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "0.48"ElseIf Val(txt_n1.Text) = 800 ThenText18.Text = "0.55"ElseIf Val(txt_n1.Text) = 980 ThenText18.Text = "0.65"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "0.82"ElseIf Val(txt_n1.Text) = 1460 ThenText18.Text = "0.99"ElseIf Val(txt_n1.Text) = 1600 ThenText18.Text = "1.10"End IfEnd IfIf Val(Text8.T ext) >= 2 Then 'C型号表第二行If Val(txt_n1.Text) = 200 ThenText18.Text = "0.18"ElseIf Val(txt_n1.Text) = 300 ThenText18.Text = "0.26"ElseIf Val(txt_n1.Text) = 400 ThenText18.Text = "0.35"ElseIf Val(txt_n1.Text) = 500 ThenText18.Text = "0.44"ElseIf Val(txt_n1.Text) = 600 ThenText18.Text = "0.53"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "0.62"ElseIf Val(txt_n1.Text) = 800 ThenText18.Text = "0.71"ElseIf Val(txt_n1.Text) = 980 ThenText18.Text = "0.83"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "1.06"Text18.Text = "1.27"ElseIf Val(txt_n1.Text) = 1600 ThenText18.Text = "1.41"End IfEnd IfEnd IfIf txt_xh.Text = "D" ThenIf Val(Text8.Text) >= 1.35 And Val(Text8.Text) <= 1.51 Then 'D型号表第一行If Val(txt_n1.Text) = 200 ThenText18.Text = "0.49"ElseIf Val(txt_n1.Text) = 300 ThenText18.Text = "0.73"ElseIf Val(txt_n1.Text) = 400 ThenText18.Text = "0.97"ElseIf Val(txt_n1.Text) = 500 ThenText18.Text = "1.22"ElseIf Val(txt_n1.Text) = 600 ThenText18.Text = "1.46"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "1.70"ElseIf Val(txt_n1.Text) = 800 ThenText18.Text = "1.95"ElseIf Val(txt_n1.Text) = 980 ThenText18.Text = "2.31"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "2.92"ElseIf Val(txt_n1.Text) = 1460 ThenText18.Text = "3.52"ElseIf Val(txt_n1.Text) = 1600 ThenText18.Text = "3.89"End IfEnd IfIf Val(Text8.T ext) >= 2 Then 'D型号表第二行If Val(txt_n1.Text) = 200 ThenText18.Text = "0.63"ElseIf Val(txt_n1.Text) = 300 ThenText18.Text = "0.94"ElseIf Val(txt_n1.Text) = 400 ThenText18.Text = "1.25"Text18.Text = "1.56"ElseIf Val(txt_n1.Text) = 600 ThenText18.Text = "1.88"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "2.19"ElseIf Val(txt_n1.Text) = 800 ThenText18.Text = "2.50"ElseIf Val(txt_n1.Text) = 980 ThenText18.Text = "2.97"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "3.75"ElseIf Val(txt_n1.Text) = 1460 ThenText18.Text = "4.53"ElseIf Val(txt_n1.Text) = 1600 ThenText18.Text = "5.00"End IfEnd IfEnd IfIf txt_xh.Text = "E" ThenIf Val(Text8.Text) >= 1.354 And Val(Text8.Text) <= 1.51 Then 'E型号表第一行If Val(txt_n1.Text) = 200 ThenText18.Text = "0.96"ElseIf Val(txt_n1.Text) = 300 ThenText18.Text = "1.45"ElseIf Val(txt_n1.Text) = 400 ThenText18.Text = "1.93"ElseIf Val(txt_n1.Text) = 500 ThenText18.Text = "2.41"ElseIf Val(txt_n1.Text) = 600 ThenText18.Text = "2.89"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "3.38"ElseIf Val(txt_n1.Text) = 800 ThenText18.Text = "3.86"ElseIf Val(txt_n1.Text) = 980 ThenText18.Text = "4.58"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "5.61"ElseIf Val(txt_n1.Text) = 1460 ThenText18.Text = "6.83"Text18.Text = "-"End IfEnd IfIf Val(Text8.T ext) >= 2 Then 'E型号表第二行If Val(txt_n1.Text) = 200 ThenText18.Text = "1.24"ElseIf Val(txt_n1.Text) = 300 ThenText18.Text = "1.86"ElseIf Val(txt_n1.Text) = 400 ThenText18.Text = "2.48"ElseIf Val(txt_n1.Text) = 500 ThenText18.Text = "3.10"ElseIf Val(txt_n1.Text) = 600 ThenText18.Text = "3.72"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "4.34"ElseIf Val(txt_n1.Text) = 800 ThenText18.Text = "4.96"ElseIf Val(txt_n1.Text) = 980 ThenText18.Text = "5.89"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "7.21"ElseIf Val(txt_n1.Text) = 1460 ThenText18.Text = "8.78"ElseIf Val(txt_n1.Text) = 1600 ThenText18.Text = "-"End IfEnd IfEnd IfEnd SubPrivate Sub Command24_Click()Picture10.Visible = FalsePicture12.Visible = TrueCommand36.Enabled = TrueEnd SubPrivate Sub Command26_Click() '确定长度系数KL If txt_xh.Text = "Z" ThenIf Val(txt_ld.Text) = 400 Then 'Z型号表Text19.Text = "+0.87"ElseIf Val(txt_ld.Text) = 450 ThenText19.Text = "+0.89"ElseIf Val(txt_ld.Text) = 500 ThenText19.Text = "+0.91"ElseIf Val(txt_ld.Text) = 630 ThenText19.Text = "+0.96"ElseIf Val(txt_ld.Text) = 710 ThenText19.Text = "+0.99"ElseIf Val(txt_ld.Text) = 800 ThenText19.Text = "+1.00"ElseIf Val(txt_ld.Text) = 900 ThenText19.Text = "+1.03"ElseIf Val(txt_ld.Text) = 1120 ThenText19.Text = "+1.08"ElseIf Val(txt_ld.Text) = 1250 ThenText19.Text = "+1.11"ElseIf Val(txt_ld.Text) = 1400 ThenText19.Text = "+1.14"ElseIf Val(txt_ld.Text) = 1600 ThenText19.Text = "+1.16"ElseIf Val(txt_ld.Text) = 1800 ThenText19.Text = "+1.18"End IfElseIf txt_xh.Text = "A" ThenIf Val(txt_ld.Text) = 630 Then 'A型号表Text19.Text = "+0.81"ElseIf Val(txt_ld.Text) = 710 ThenText19.Text = "+0.83"ElseIf Val(txt_ld.Text) = 800 ThenText19.Text = "+0.85"ElseIf Val(txt_ld.Text) = 900 ThenText19.Text = "+0.87"ElseIf Val(txt_ld.Text) = 1000 ThenText19.Text = "+0.89"ElseIf Val(txt_ld.Text) = 1120 ThenText19.Text = "+1.00"ElseIf Val(txt_ld.Text) = 1250 ThenText19.Text = "+0.93"ElseIf Val(txt_ld.Text) = 1400 ThenText19.Text = "+0.96"ElseIf Val(txt_ld.Text) = 1600 ThenText19.Text = "+0.99"ElseIf Val(txt_ld.Text) = 1800 ThenText19.Text = "+1.01"ElseIf Val(txt_ld.Text) = 2000 ThenText19.Text = "+1.03"ElseIf Val(txt_ld.Text) = 2240 ThenText19.Text = "+1.06"ElseIf Val(txt_ld.Text) = 2500 ThenText19.Text = "+1.09"ElseIf Val(txt_ld.Text) = 2800 ThenText19.Text = "+1.11"ElseIf Val(txt_ld.Text) = 3150 ThenText19.Text = "+1.13"ElseIf Val(txt_ld.Text) = 3650 ThenText19.Text = "+1.17"ElseIf Val(txt_ld.Text) = 4000 ThenText19.Text = "+1.19"End IfElseIf txt_xh.Text = "B" Then 'B型号表If Val(txt_ld.Text) = 900 ThenText19.Text = "+0.82"ElseIf Val(txt_ld.Text) = 1000 ThenText19.Text = "+0.84"ElseIf Val(txt_ld.Text) = 1120 ThenText19.Text = "+0.86"ElseIf Val(txt_ld.Text) = 1250 ThenText19.Text = "+0.88"ElseIf Val(txt_ld.Text) = 1400 ThenText19.Text = "+0.90"ElseIf Val(txt_ld.Text) = 1600 ThenText19.Text = "+0.92"ElseIf Val(txt_ld.Text) = 1800 ThenText19.Text = "+0.95"ElseIf Val(txt_ld.Text) = 2000 ThenText19.Text = "+0.98"ElseIf Val(txt_ld.Text) = 2240 ThenText19.Text = "+1.00"ElseIf Val(txt_ld.Text) = 2500 ThenText19.Text = "+1.03"ElseIf Val(txt_ld.Text) = 2800 ThenText19.Text = "+1.05"ElseIf Val(txt_ld.Text) = 3150 ThenText19.Text = "+1.07"ElseIf Val(txt_ld.Text) = 3650 ThenText19.Text = "+1.09"ElseIf Val(txt_ld.Text) = 4000 ThenText19.Text = "+1.13"ElseIf Val(txt_ld.Text) = 4500 ThenText19.Text = "+1.15"ElseIf Val(txt_ld.Text) = 5000 ThenText19.Text = "+1.18"End IfElseIf txt_xh.Text = "C" Then 'C型号表If Val(txt_ld.Text) = 1600 ThenText19.Text = "+0.83"ElseIf Val(txt_ld.Text) = 1800 ThenText19.Text = "+0.86"ElseIf Val(txt_ld.Text) = 2000 ThenText19.Text = "+0.88"ElseIf Val(txt_ld.Text) = 2240 ThenText19.Text = "+0.91"ElseIf Val(txt_ld.Text) = 2500 ThenText19.Text = "+0.93"ElseIf Val(txt_ld.Text) = 2800 ThenText19.Text = "+0.95"ElseIf Val(txt_ld.Text) = 3150 ThenText19.Text = "+0.97"ElseIf Val(txt_ld.Text) = 3650 ThenText19.Text = "+0.99"ElseIf Val(txt_ld.Text) = 4000 ThenText19.Text = "+1.02"ElseIf Val(txt_ld.Text) = 4500 ThenText19.Text = "+1.04"ElseIf Val(txt_ld.Text) = 5000 ThenText19.Text = "+1.07"ElseIf Val(txt_ld.Text) = 5600 ThenText19.Text = "+1.09"ElseIf Val(txt_ld.Text) = 6300 ThenText19.Text = "+1.12"ElseIf Val(txt_ld.Text) = 7100 ThenText19.Text = "+1.15"ElseIf Val(txt_ld.Text) = 8000 ThenText19.Text = "+1.18"ElseIf Val(txt_ld.Text) = 9000 ThenText19.Text = "+1.21"ElseIf Val(txt_ld.Text) = 10000 ThenText19.Text = "+1.23"End IfElseIf txt_xh.Text = "D" Then 'D型号表If Val(txt_ld.Text) = 2800 ThenText19.Text = "+0.83"ElseIf Val(txt_ld.Text) = 3150 ThenText19.Text = "+0.86"ElseIf Val(txt_ld.Text) = 3650 ThenText19.Text = "+0.89"ElseIf Val(txt_ld.Text) = 4000 ThenText19.Text = "+0.91"ElseIf Val(txt_ld.Text) = 4500 ThenText19.Text = "+0.93"ElseIf Val(txt_ld.Text) = 5000 ThenText19.Text = "+0.96"ElseIf Val(txt_ld.Text) = 5600 ThenText19.Text = "+0.98"ElseIf Val(txt_ld.Text) = 6300 ThenText19.Text = "+1.00"ElseIf Val(txt_ld.Text) = 7100 ThenText19.Text = "+1.03"ElseIf Val(txt_ld.Text) = 8000 ThenText19.Text = "+1.06"ElseIf Val(txt_ld.Text) = 9000 ThenText19.Text = "+1.08"ElseIf Val(txt_ld.Text) = 10000 ThenText19.Text = "+1.11"End IfElseIf txt_xh.Text = "E" Then 'E型号表If Val(txt_ld.Text) = 4500 ThenText19.Text = "+0.90"ElseIf Val(txt_ld.Text) = 5000 ThenText19.Text = "+0.92"ElseIf Val(txt_ld.Text) = 5600 ThenText19.Text = "+0.95"ElseIf Val(txt_ld.Text) = 6300 ThenText19.Text = "+0.97"ElseIf Val(txt_ld.Text) = 7100 ThenText19.Text = "+1.00"ElseIf Val(txt_ld.Text) = 8000 ThenText19.Text = "+1.02"ElseIf Val(txt_ld.Text) = 9000 ThenText19.Text = "+1.05"ElseIf Val(txt_ld.Text) = 10000 ThenText19.Text = "+1.07"End IfEnd IfEnd SubPrivate Sub Command27_Click()'计算V带根数txt_zcd.Text = CStr(Format(Val(txt_pc.Text) / ((Val(Text17.Text) + Val(Text18.Text)) * Val(Text16.Text) * Val(Text19.T ext)), "######.##"))End SubPrivate Sub Command28_Click()'对V带根数进行圆整txt_zyz.T ext = CStr(Int(Val(txt_zcd.Text)) + 1)End SubPrivate Sub Command29_Click()'载入课程说明中原始数据txt_p.Text = "7.5"txt_n1.Text = "1450"txt_n2.Text = "630"txt_ka.Text = "1.1"If Text8.Text = "" ThenText8.Text = CStr(Val(txt_n1.Text) / Val(txt_n2.Text))Elsetxt_n2.Text = CStr(Val(txt_n1.Text) / Val(Text8.Text))End IfEnd SubPrivate Sub Command3_Click()Picture2.Visible = TruePicture5.Visible = FalsePicture10.Visible = FalsePicture12.Visible = FalsePicture1.Visible = FalseFrame1.Visible = FalseFrame12.Visible = FalseFrame25.Visible = FalseEnd SubPrivate Sub Command30_Click()chaxun_ka.Visible = FalseEnd SubPrivate Sub Command31_Click()jizhunzhijing.Visible = FalseEnd SubPrivate Sub Command32_Click()'查询每米带质量q If txt_xh.Text = "Z" Thentxt_q.Text = "0.06"ElseIf txt_xh.Text = "A" Thentxt_q.Text = "0.10"ElseIf txt_xh.Text = "B" Thentxt_q.Text = "0.17"ElseIf txt_xh.Text = "C" Thentxt_q.Text = "0.30"ElseIf txt_xh.Text = "D" Thentxt_q.Text = "0.62"ElseIf txt_xh.Text = "E" Thentxt_q.Text = "0.90"End IfEnd SubPrivate Sub Command33_Click()'计算初拉力F0 txt_f0.Text = CStr(Format(500 * Val(txt_pc.Text) / (Val(txt_zyz.Text) * Val(txt_v.Text)) * (2.5 / Val(Text16.Text) - 1) + Val(txt_q.Text) * (Val(txt_v.Text)) ^ 2, "######.##"))End SubPrivate Sub Command34_Click()'计算压轴力Q Text1.Text = CStr(Format(2 * Val(txt_zyz.T ext) * Val(txt_f0.Text) * Sin(Val(txt_bj.Text) / (4 * 180) * 3.1415926), "######.##"))End SubPrivate Sub Command35_Click()'对实验所得数据进行汇总Picture12.Visible = FalseFrame25.Visible = TrueText5.Text = txt_xh.TextText6.Text = txt_d1.TextText7.Text = txt_d2.TextText9.Text = Text2.TextText10.Text = txt_ld.TextText11.Text = txt_a.T extText12.Text = txt_bj.T extText13.Text = txt_zyz.TextText14.Text = txt_f0.TextText15.Text = Text1.T extEnd SubPrivate Sub Command36_Click()Picture2.Visible = FalsePicture5.Visible = FalsePicture10.Visible = FalsePicture12.Visible = TruePicture1.Visible = FalseFrame1.Visible = FalseFrame12.Visible = FalseFrame25.Visible = FalseEnd SubPrivate Sub Command37_Click()'结束程序EndEnd SubPrivate Sub Command38_Click()Picture2.Visible = FalsePicture5.Visible = FalsePicture10.Visible = FalsePicture12.Visible = FalsePicture1.Visible = FalseFrame1.Visible = FalseFrame12.Visible = TrueEnd SubPrivate Sub Command4_Click()Picture2.Visible = FalsePicture5.Visible = TruePicture10.Visible = FalsePicture12.Visible = FalsePicture1.Visible = FalseFrame1.Visible = False。
V带传动设计说明书(含C语言源程序)
while(dd1<d[0]||dd1>d[1]) { printf("dd1应在%lf和%lf之间,请重新输入：",d[0],d[1]); scanf("%lf",&dd1); } v1=PI*dd1*n1/(60*1000); if(v1<5||v1>30) { printf("带速v=%lf，不在允许范围内，请选择是否重新选择带 型，y或者n：",v1); b=getchar(); while(b!='y'&&b!='n') { printf("请输入y或者n："); b=getchar(); db=getchar(); } if(b=='y') { L2: printf("输入所选带型(大写)："); scanf("%c",&daixing); switch(daixing) { case 'E':q=0.970;break; case 'D':q=0.630;break; case 'C':q=0.300;break; case 'B':q=0.170;break; case 'A':q=0.105;break; case 'Z':q=0.060;break; default :printf("未知错误！\n");goto L2; } printf("输入小带轮最小直径："); scanf("%lf",&d[0]); printf("输入小带轮最大直径："); scanf("%lf",&d[1]); }
普通V带传动设计
载荷性质原动机类型查表 Nhomakorabea计算
工作机类型
工作时长
普通V带传动设计
工况系数KA
普通V带传动设计
（2）选取V带型号
普通V带传动设计
（3）确定带轮基准直径dd1、dd2 取小带轮直径 dd1 ≥ddmin 大带轮直径
dd2
=nn12dd1(圆整为标准值）
表6-2 V带轮最小基准直径ddmin及基准直径系列
普通V带传动设计
（6）验算小带轮包角α1
α1=180º（dd22- dd1）X 57.3º
对于V带，一般要求小轮包角≥120º。
若不满足此条
件，可采用适当增大中心距、减小两带轮的直径差或者在带轮外
侧加张紧轮等措施
（7）确定带的根数z
z
≥
Pc (P0+Δ
P0 ——单根V带基本额定功率;
ΔP0 ——单根V带基本额定功率的增量; Kα ——包角修正系数；
（5）确定中心距a和带长
①初选中心距a0
故初选a0=500mm
②确定带的基准长度Ld
Ld0
=
2a0+π（dd21+
dd2）
+
（dd1+ dd22）（ 4 a0
1836.6mm
）
根据Ld0和带的型号，查表选取相近的基准长度L（d 1800mm）
③实际中心距a
a = a0+（Ld2- Ld0） （ 481.7mm ）
普通V带传动设计
普通V带传动设计
1.已知条件和设计内容：
传动有用途和工作情况
传递的功率P 主、从动轮转速n1、n2（或 传动比） 传动位置要求和外廓要求 原动机的类型等
哈工大机械设计大作业V带传动设计说明书完美版
机械设计作业任务书题目：液体搅拌机中的V带传动结构简图见下图:方案P (KW) n m(r/mi n) n w(r / min) i1 轴承座中心高H（ mm）最短工作年限L工作环境5.2.3 4 720 80 2.5 200 3年3班室内潮湿确定设计功率F d设计功率是根据需要传递的名义功率、载荷性质、原动机类型和每天连续工作的时间长短等因素共同确定的，表达式如下：Pd = K A U P式中P ――需要传递的名义功率K A――工作情况系数，按表2工作情况系数K A选取K A=1.2；选择带型所以P d =K A L P =1.2x4 =4.8kW根据F d、n1，查看图5.71可选取B型带。
确定带轮的基准直径d d 1和d d 2d dmin知B型带d dmin =125mm,在优选直径系列选取小带轮基准直径: d dj =140mm ；大带轮基准直径: d d2 =i1L d d1 =2.5x140 = 350mm查表优先选取大带轮基准直径d d2 = 355mm ；其传动比误差心=3552.5-—1402.5咒100%=1.43%<5%，故可用。
验算带的速度兀Ld d1L n1 兀X140X720 ,V = ------ = ----------- = 5.3m /s60 咒1000 60^1000式中n1——电动机转速；d d1—小带轮基准直径;即v=5.3m/s< V max=25m/s,符合要求。
确定中心距a和V带基准长度L i根据：0.7(d d1 +d d2)兰a o <2(d d1 +d d2)初步确定中心距0.7（140+355）=346.5 < <2（140+355）=990考虑到应使结构紧凑，选取中心距a0=400mm初算带的基准长度L d':2 2-=2X400+ 王x（140+355）+（355-140）=1606.0mm2 4x400式中L d 带的标准基准长度;L d 带的初算基准长度;V带带轮最小基准直径a 。
机械零件CAD设计之普通V带传动设计说明
机械零件CAD设计之普通V带传动设计-----------------------作者：-----------------------日期：机械零件CAD设计说明书普通V带传动设计学院: 航空制造工程学院专业:材料成型及控制工程学号：09033507:饶祥指导老师:绪坤2011年11月16日目录一、设计容 (3)二、V带传动总体设计 (3)三、各带轮的设计 (5)1、结构尺寸设计 (5)2、材料的选择,结构形式设计 (6)3、3D软件设计零件 (6)四、轴的设计 (6)五、机架的设计 (6)六、零件的装配 (7)七、参考资料 (8)八、设计小结 (9)1、设计过程总结 (9)2、设计方法 (9)3、设计心得与收获 (9)一、设计容。
1.已知条件：电机功率W=4Kw，小带轮转速n1=1440 r/min, 传动比i=3，传动比允许误差≤5%±轻度冲击；两班制。
2.设计容和要求。
1）V带传动的设计计算。
2）轴径设计。
取45号刚时，按下式估算：min 1.03d≥，并圆整；3）V带轮的结构设计。
选择带轮的材料、结构形式、计算基本结构尺寸；4）用3D软件设计零件及装配图，并标注主要的特征尺寸；5）生成大带轮零件图（工程图），并标注尺寸、粗糙度等。
二、V带传动总体设计1. 确定计算功率ca P。
由表8-7查得工作情况系数A K=1.2，故1.2×4=4.8kw2. 选择V带的带型。
根据ca P、n1由图8-10选用A型。
3. 确定带轮的基准直径d d，并验算带速v 。
1)初选小带轮的基准直径1d d 。
由表8-6和表8-8，取小带轮的基准直径1d d ＝90mm 。
2)验算带速v 。
按式（8-13）验算带的速度。
6.78m/s因为5/30/m s v m s <<，故带速合适。
3)计算大带轮的基准直径.根据式（8-15a ），计算大带轮的基准直径2d d 。
3.0×90=270mm 圆整为2d d ＝280mm 。
机械设计课程设计V带传动
2 Y112M-4
750
பைடு நூலகம்
16
设计要求和内容：
（1）绘制小带轮装配图一张
（2）编写设计计算说明书一份
设计指导：
1）V 带传动的设计计算
参考教材中的 V 带传动设计方案与步骤进行计算，确定带的型号、根
数、长度，带轮尺寸，带传动中心距，作用在轴上的压力等。
2）V 带轮的结构设计
选择带轮的材料、结构型式，计算基本结构尺寸。注意小带轮的轴孔直
[3]材料力学（第二版）
同济大学出版社
6
径及键槽尺寸应根据电动机的外伸轴结构尺寸确定。
3）完成小带轮装配图设计
二、电动机的选择
由原始数据要求，查参考文献[1]表 20-1 和表 20-2，得，Y 系列三相异 步电动机技术数据选择 Y112M-4 电动机，其额定功率为 4kW，满载转 速 1440r/min，电机轴直径 d=28mm。
P=4kw n1=1440 r/min d=28mm
查参考文献[3]式(4-1)，得
查参考文献[2]式(6-1)、(6-2)，得
挡圈
` 查参考文献[1]表13-19，挡圈 查参考文献[1]表 13-19，垫圈 查参考文献[1]表 13-19，螺栓
垫圈 螺栓
六.小带轮装配图
见附图
七.设计小结
通过这次设计，我基本掌握了 V 带轮各个参数的查询和计算方法，学
四.V 带轮的结构设计 ·············································4
1.V 带轮的材料 ·······················································4 2.V 带轮的结构形式 ···················································4 3.带轮的基本结构尺寸···················································4
V带传动设计计算说明书
设计任务:设计带式运输机中的V带传动带式运输机的传动方案见下图，机器工作平稳、单向回转、成批生产。
原始数据如下：一、确定设计功率查参考文献[1]表5.7得工作情况系数K A=1.2，则P d=K A P=1.2×2.2kW=2.64kW。
二、选择带的型号V带型号根据设计功率P d和小带轮转速n1确定，查参考文献【1】图5.17可选取A型带。
三、确定带轮的基准直径和查参考文献【1】表5.4 V带带轮最小基准直径，知A型带=75mm,选取小带轮基准直径：=100mm；因此，大带轮基准直径：==2.1×100mm=210mm。
查参考文献【1】表5.4选取大带轮基准直径=200mm。
其传动比误差为4.7%<5%,,故可用。
四、验算带的速度由带的速度公式：式中n1为电动机转速；d d1为小带轮基准直径。
v=25m/s,符合要求。
即v=4.92m/s<max五、确定中心距a 和V 带基准长度L d根据0.7（d d1+d d2）≦a 0≦2（d d1+d d2）初步确定中心距 0.7（100+200）=210mm ≤ a 0≤2（100+200）=600mm 要求工作平稳，选取中心距a 0=300mm 。
初算带的基准长度L d ：式中 L d 为带的标准基准长度；L d ’为带的初算基准长度；a 0为初选中心距。
查教材表5.2普通带基准长度L d 及长度系数K L ，确定带的基准长度L d =1120mm 。
计算实际中心距a ，由六、计算小轮包角小带轮包角：七、确定V 带根数Z根据确定带的根数。
式中 为包角修正系数，考虑包角180α≠︒对传动能力的影响，由参考文献【1】表5.9查得； 为带长修正系数，考虑带长不为特定带长时对使用寿命的影响，由参考文献【1】表5.2查得； 为V 带基本额定功率。
由教材表5.4查取单根V 带所能传递的功率为=0.95kW ； 由式计算功率增量。
V带传动计算说明书
实用文档
机械设计课程设计
计算说明书
设计题目 V带传动设计
机械工程学院机械电子研究所专业机械电子学号
设计人邵谣夏
指导教师乐韵斐
完成日期 2016 年 4 月 6 日
目录
一、设计任务书 (2)
二、传动方案的拟定及说明 (3)
三、电动机的选择计算 (3)
四、计算传动装置的运动和动力参数 (3)
五、V带传动的设计计算 (3)
六、V带轮的结构设计 (5)
七、设计小结 (6)
八、参考文献 (6)
设计计算及说明主要结果
一、设计任务书
设计一由电动机驱动鼓风机的V带传动。
主动带轮1装在电动机轴上，从动带轮2装在
鼓风机轴上，两带轮中心的水平距离a约等于大带
轮直径的2倍。
1. V带传动机构简图
2．设计原始数据
电动机型号Y160M-4
鼓风机轴转速（r/min）600
一天工作时间/h 16
3．设计内容
1)确定带的型号、长度、根数
2)确定带轮直径
3)确定带传动中心距
4)确定作用在轴上的压力
4．设计任务
1)完成V带轮结构设计
2)主动带轮装配图一张（A4）
3)设计计算说明书一份
由于是鼓风机，每天工作16小时，查
°
编著。
V带传动设计
V 带传动设计一、已知条件及设计内容 1． 程序的适用范围本程序使用于普通V 带（基准宽度制）传动的设计。
2． 已知条件1）传动的用途和工作情况条件； 2）每小时工作日； 3）传递的名义功率P ；4）带轮转速1n 、2n （或传动比i ）； 5）中心距范围等。
3． 设计内容计算功率c P ；V 带型号；带长d L ；根数z ；带轮直径1d 、2d ；实际中心距a 及 其变化范围；验算带速v ；计算初拉力0F 及压轴力Q 等。
二、图表处理1．单根普通V 带的基本额定功率0P 的计算公式kW )vv /D-C -C v (C P .-23209010 （01）式中系数1C 、2C 、3C 的数值是根据教材中V 带的基本额定功率表拟合得到的，具体数值列于表01中。
注：表中m 值为普通V 带每米长的质量，单位为kg/m.表01中的数据均与带的型号有关。
编程时可将该表数据制成一个二维数组或数据文件。
2．传动比I ≠1的额定功率增量ΔP 0的计算公式kW K n K P i b ⎪⎪⎭⎫⎝⎛-∙=1110∆ （02）式中：传动比修正系数的拟合公式3513512./.i i i K ⎪⎭⎫⎝⎛+= (03)弯曲影响系数b K 的数值列入表01中。
3．角修正系数αK 的拟合公式)-(.K απα-=51251 (4）4. 带长修正系数L K)L log -L log (.K d d L 0501+= (5)式中L d 中是V 带基准长度（单位:mm ）;L d0是K L 为1时的带长，其值列入表01中。
5. 普通V 带选型图中各分界线的拟合公式min /r P C n Cca541= (6)式中：n 1为小带轮转速；系数C 4、C 5的数值列入表01中，P ca=K A P ,符号均与教材相同。
三、确定程序变量名表02.V带传动的设计计算程序变量4. V带传动的设计计算程序框图图01 V带传动设计计算程序框图5.典型程序段用于计算工作情况系数A K 的子程序VKA 输入:K1----表示工情载荷性质；⎪⎩⎪⎨⎧====载荷变动很大载荷变动较大载荷变动较小载荷变动微小43211kK2----表示原动机特性：⎩⎨⎧==负载起动软起动212KK3----表示特殊工况：⎪⎩⎪⎨⎧===增速传动工况恶劣正反转频繁反复起动载荷性质属32113,,K K六、V 带传动设计步骤 1． 确定计算功率c PP K P A c =2． 确定V 带型号3． 确定带轮基准直径21d d 和1） 根据所选V 带型号查表及带轮直径标准系列值，得到1d ； 2） 验算带速v ，应保证v 在s /m ~255之间，若不能满足这一要求应重选1d ； 3） 根据公式()ε-=112id d 算出大带轮直径，并圆整成标准值，ε取为0.02。
V带传动设计说明书
由参考文献[2]式 8-31：(Fp)min=2z(F0)minsinα21
订
得压轴力的最小值(Fp)min=2x3x121xsin 171°N≈724 N
2
五．V 带轮的结构设计
1.带轮的材料
已知转速较低，电机功率较小 所以采用灰口铸铁：HT150
2.带轮的结构形式
已查得电动机轴直径： 线 （1）对小带轮（主动带轮）：
L=B=(z-1)e+2f=(3-1)x15+2x10=50 mm
4.附图
订 （1）V 带轮槽结构图 （2）腹板式带轮结构图
六．主要设计结论
选用 A 型普通带 3 根，带基准长度 1430mm。带轮基准直径 dd1=100 mm，dd2=180 mm，中心距控制在 a=473mm-537mm。单根带初拉力 Fd0=121 N。带轮材料选择 HT150，主动轮和从动轮都选取腹板式带轮。
α1=171°
Pr=(P0+ΔP0)KαKL=(1.30+0.15)x0.982x0.96=1.37 kW 线 （2）计算 V 带的根数 z
Pr=1.15 kW
文档大全
实用标准文案
z=PPcra
= 3.3 =2.41,取 z=3 根
1.37
z=3
7.计算单根 V 带的最小初拉力(F0)min
查参考文献[2]表 8-3，得 A 型 V 带单位长度的质量是
装
v=7.43
验算，5m/s<v<25m/s,带速合适
m/s
（3）计算大带轮的基准直径 dd2：
根据已给条件 n2=800r/min,传动比 i=nn12
= 1420 =1.775，
带式运输机中的V带传动设计计算说明书
哈尔滨工业大学机械设计作业设计计算说明书题目：设计带式运输机中的V带传动系别：班号：姓名：日期：2014.10.24哈尔滨工业大学机械设计作业任务书题目：设计带式运输机中的V带传动设计原始数据：电动机工作功率：P d=3kW电动机满载转速：n m=960r/min工作机的转速：n w=90r/min第一级传动比：i1=1.8轴承座中心高：H=150mm最短工作年限：8年1班工作环境：室外、有尘图1 带式运输机运动方案及各轴名称1 运动学计算1.1选择电动机电动机有直流电动机和交流电动机两类。
由于一般生产单位所用电源是三相交流电源，因此，无特殊要求的情况先选择三相交流电动机，其中以三相异步交流电动机使用最广泛。
由于本题目要求的电动机工作环境在室外而且有尘，因此要选择封闭式的电动机。
Y 系列三相笼型异步电动机就是一般用途的全封闭自扇冷式电动机，其结构简单、工作可靠、价格低廉、维护方便。
根据题目要求的参数：电动机工作功率P d =3kW ，电动机满载转速n m =960r/min ，查参考文献[3]表15.1得，选择电动机型号为：Y132S-6型三相异步电动机。
查参考文献[3]表15.2得，电机轴径D=38mm ；与小带轮配合部分轴长度E=80mm ；轴上键宽度F=10mm ，键高度GD=8mm 。
1.2计算总传动比∑i 并分配传动比⑴ 总传动比∑i∑i =w m n n =90960=10.67 ⑵ 分配传动比I I I ∑⨯=i i i ⑶ 各传动比取值电机轴和Ⅰ轴之间的传动比I i =1.8，Ⅰ轴和Ⅱ轴之间的传动比I I i =I∑i i =5.9。
1.3计算各轴的转速、功率及转矩 带式运输机传动方案如图1所示。
⑴ 各轴的转速①电动机轴：m n =960r/min ； ②Ⅰ轴：I n =5338.1960==I i n m r/min ； ③Ⅱ轴：909.5533===I I I I I i n n r/min ； ④卷筒轴：90==I I n n 卷r/min 。
V带传动设计说明书
V带传动设计说明书V带传动设计说明书专业：化学⼯程与⼯艺设计者：张保贵1066115327王煜炎1066115406王贵发1066115337楼凯1066115338马艳芳1066155141 设计时间： 2012-11-3⽬录V带传动设计.............................................................................................. - 3 -⼀、带传动得设计准则 ............................................................................ - 3 -⼆、V带传动的设计内容......................................................................... - 3 -三、普通V带设计的⼀般步骤： ........................................................... - 3 -四、带传动设计计算 ................................................................................ - 3 -1.已知条件和设计内容 ....................................................................... - 3 -2.设计步骤和⽅法 ............................................................................... - 3 -2.1确定设计功率 .......................................................................... - 3 -2.2选择v带的带带型 .................................................................. - 5 -2．3 确定带轮直径及验算带速 ................................................ - 6 -2．4 计算中⼼距a及其变动范围。
普通V带传动设计说明书
普通V带传动设计说明书目录一、设计内容 (2)二、V带传动总体设计 (2)三、各带轮的设计及结果 (4)1、结构尺寸设计 (4)2、材料的选择,结构形式设计 (4)3、3D软件设计零件 (5)四、轴的设计 (6)五、机架的设计 (7)六、零件的装配 (8)七、设计小结 (9)八、参考资料 (10)一、设计内容。
1.已知条件：电机功率P=3Kw，小带轮转速n1=960 r/min, 传动比i=3.0，传动比允许误差≤5%±轻度冲击；两班工作制。
2.设计内容和要求。
1）V带传动的设计计算。
2）轴径设计。
取45号刚时，按下式估算：min 1.03d≥，并圆整；3）V带轮的结构设计。
选择带轮的材料、结构形式、计算基本结构尺寸；4）用3D软件设计零件及装配图，并标注主要的特征尺寸。
二、V带传动总体设计1. 确定计算功率ca P。
由表8-7查得工作情况系数A K=1.2，故Pca=A K*p=3.6kw2. 选择V带的带型。
根据ca P、n1由图8-10选用A型。
3. 确定带轮的基准直径d d，并验算带速v 。
1) 初选小带轮的基准直径1d d 。
由表8-6和表8-8，取小带轮的基准直径1d d ＝100mm 。
2) 验算带速v 。
按式（8-13）验算带的速度。
5.03m/s因为5/30/m s v m s <<，故带速合适。
3) 计算大带轮的基准直径.根据式（8-15a ），计算大带轮的基准直径2d d 。
d d2＝i d d1＝300mm ,由表8-8圆整d d2=315mm4. 确定V 带的中心距a 和基准长度d L 。
1）根据式（8-20），初定中心距 a 0=500mm 。
2）由式（8-22）计算带所需的基准长度。
11220020()2()24d d d d d d d L a d d a π-≈+++=1674.66mm 由表8-2选带的基准长度d L =1600mm 3）按式（8-23）计算实际中心距a 。
V带传动设计说明书
V带传动设计说明书专业：化学工程与工艺设计者：张保贵1066115327王煜炎1066115406王贵发1066115337楼凯1066115338马艳芳1066155141设计时间： 2012-11-3目录V带传动设计............................................................................. - 4 -一、带传动得设计准则 .................................................................... - 4 -二、V带传动的设计内容................................................................... - 4 -三、普通V带设计的一般步骤：............................................................. - 4 -四、带传动设计计算 ...................................................................... - 4 -1.已知条件和设计内容................................................................. - 4 -2.设计步骤和方法..................................................................... - 4 -2.1确定设计功率 ................................................................. - 4 -2.2选择v带的带带型 ............................................................. - 6 -2．3 确定带轮直径及验算带速..................................................... - 7 -2．4 计算中心距a及其变动范围。
v带传动带式输送机传动装置设计说明书 (1)
V带二级传动二级减速器目录设计任务书 (2)第一部分传动装置总体设计 (4)第二部分 V带设计 (6)第三部分各齿轮的设计计算 (9)第四部分轴的设计 (13)第五部分校核 (19)第六部分主要尺寸及数据 (21)设计任务书一、课程设计题目：设计带式运输机传动装置（简图如下）原始数据：数据编号 3 5 7 10690 630 760 620 运输机工作转矩T/(N.m)0.8 0.9 0.75 0.9运输机带速V/(m/s)卷筒直径D/mm 320 380 320 360工作条件：连续单向运转，工作时有轻微振动，使用期限为10年，小批量生产，单班制工作（8小时/天）。
运输速度允许误差为%。
5二、课程设计内容1）传动装置的总体设计。
2）传动件及支承的设计计算。
3）减速器装配图及零件工作图。
4）设计计算说明书编写。
每个学生应完成：1）部件装配图一张（A1）。
2）零件工作图两张（A3）3）设计说明书一份（6000~8000字）。
本组设计数据：第三组数据：运输机工作轴转矩T/(N.m) 900 。
运输机带速V/(m/s) 1.7 。
卷筒直径D/mm 300 。
已给方案：外传动机构为V带传动。
减速器为两级展开式圆柱齿轮减速器。
第一部分 传动装置总体设计一、 传动方案（已给定） 1） 外传动为V 带传动。
2） 减速器为两级展开式圆柱齿轮减速器。
3） 方案简图如下： 二、该方案的优缺点：该工作机有轻微振动，由于V 带有缓冲吸振能力，采用V 带传动能减小振动带来的影响，并且该工作机属于小功率、载荷变化不大，可以采用V 带这种简单的结构，并且价格便宜，标准化程度高，大幅降低了成本。
减速器部分两级展开式圆柱齿轮减速，这是两级减速器中应用最广泛的一种。
齿轮相对于轴承不对称，要求轴具有较大的刚度。
高速级齿轮常布置在远离扭矩输入端的一边，以减小因弯曲变形所引起的载荷沿齿宽分布不均现象。
原动机部分为Y 系列三相交流异步电动机。
普通V带设计计算使用说明
机械设计课程——普通V带设计计算说明书目录一、V带传动的设计计算 (1)1）已知条件和设计内容 (1)2）设计步骤和方法 (1)①确定计算功率 (1)②选择V带的带型 (2)③确定带基准直径dd并验算带速v (2)④确定中心距a，并选择Ｖ带的基准长度Ｌd (2)⑤验算小带轮上的包角 (3)⑥确定带的根数z (4)⑦计算单根Ｖ带的初拉力的最小值（F0）min (4)⑧计算压轴力Fp (5)二、Ｖ带轮的设计 (5)1）.Ｖ带轮的设计内容 (5)2）.Ｖ带轮的材料 (6)3）.Ｖ带轮的结构形式 (6)三、各零件及装配图 (7)小带轮零件图 (7)大带轮零件图 (7)机架零件图 (8)轴零件图 (9)装配图 (9)设计内容和要求：一、V带传动的设计计算1）已知条件和设计内容设计V带传动时的已知条件包括：带传动的工作条件（载荷变动微小）；传动位置与总体尺寸限制；所需传递的额定功率P＝3kw；小带轮转速n1=960r/min；大带轮转速n2或传动比i=2。
设计内容包括选择带的型号、确定基准长度、根数、中心距、带轮的材料、基准直径以及结构尺寸、初拉力和压轴力、张紧装置等。
2）设计步骤和方法①确定计算功率计算功率P ca是根据传递的功率P和带的工件条件而确定的P ca=K A P＝1.1×3＝3.3KW式中：P ca——计算功率，KW；K A——工作情况系数，查表得K A＝1.1P——所需传递的额定功率，如电动机的额定功率或名义的负载功率，kw。
② 选择V 带的带型根据计算功率P ca 和小带轮转速n 1，从图8－11选取普通V 带的带型。
选择V 带的带型是：A 型③ 确定带基准直径d d 并验算带速v 1. 初选小带基准直径d d1根据V 带的带型，参考表8－6和表8－8确定小带轮的基准直径dd1，应使min1)(d d d d ≥。
d d1=112mm2. 验算带速v 根据式sm n d v d /6.5100060960112100060111=⨯⨯⨯=⨯⋅⋅=ππ带速不宜过低或过高，一般应使v=5~25m/s,最高不超过30m/s 。
V带传动设计机械设计基础课程设计说明书
作用在轴上的压力 Q: 由 式 资料『1』 10-21 得
七、齿轮传动设计
1、选择材料、精度及参数 小齿轮：45 钢，调质，HB =230 （ 表 资料『1』 12-1）
大齿轮：45 钢，正火，HB =190 （ 表 资料『1』 12-1） 两齿轮齿面硬度差为 40HBS，符合软齿面传动的设计要求。 2、确定材料需用接触应力。查表 12-6，两实验齿轮材料的接触疲劳极限应 力分别为
总效率 故
（3）电动机额定功率
依据表 12-1 选取电动机额定功率
3、电动机的转速 为了便于选择电动机的转速，先推算电动机转速的可选范围。由表 3-1
查得 V 带传动常用比为范围
单级圆柱齿轮传动
，则合理总
传动比为
故电动机转速可选范围为
由表 12-1 初选同步转速分别为 1000r/min 和 1500r/min 的两种电动机进行比 较如下表：
代入
4、几何尺寸计算齿数:由于采用闭式软齿面传动，小齿轮的推荐值 Z1 20 ~ 40 ，取 Z1 27 ，则 Z 2 Z1 273 81 模数：
由表 5-1，将 m 转化为标准模数，m=2.5mm 中心距：
齿宽：
b1 b2 5 ~ 10mm 取
5、校核齿根弯曲疲劳强度 由校核公式 12-8 得
一、设计任务书
（一） 技术数据 表 1.1 技术数据
运输带工作拉力（KN） 运输带工作速 (m/s)
转筒直径 D(mm)
结果
6．5
0.59
140
（二） 工作条件
表 1.2 工作条件
运 转 方 载 荷 性 起 动 方 使 用 年 生 产 批 工作时间
向
质
式
限
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
V带传动设计说明书
机械设计课程设计
计算说明书
设计题目：设计由电动机驱动鼓风机的V带传汽车学院院车辆工程系
专业车辆工程学号1551956 设计人_________________ 郭梓恒
指导教师奚鹰
数据设计计算及说明同济大学
主要
结果
目录
一. 设计任务书 3
二. 传动方案的拟定及说明3
三. 电动机的选择计算 4
四. V带传动的设计计算 4
五. V带轮的结构设计7
六. 主要设计结论8
七. 参考资料8
设计任务书
给定电动机型号、鼓风机轴转速和一天工作时间，要求设计合适的
V带传动装置，完成电动机功率向鼓风机的传递。
主要设计计算内容有：确定带的型号、长度、根数，带轮直径，带传动中心距，作用在轴上的压力等；结构设计内容有：V带轮的材料、结构形式、基本尺寸等。
二. 传动方案的拟定及说明
主动带轮1装在电动机轴上，从动带轮2装在鼓风机轴上，两带轮中心的水平距离a约等于大带轮直径d2的2倍。
三. 电动机的选择计算
(1) 初选小带轮的基准直径d dl ： 查参考文献［2］表8-6和表8-8 取小带轮的基准直径d di =100mm (2) 验算带速v :
按照参考文献［2］式8-13，计算带速v=6：豐0 =
3.14 100 1420
=7.43m/s
60x1000 60 1000
验算，5m/s<v<25m/s,带速合适 (3) 计算大带轮的基准直径d d2：
根据已给条件n 2=800r/min,传动比i=^二竺 =1.775 ,
n 2 800
d d2=id d1=1.775x100=177.5 mm
对照参考文献［2］表8-8，圆整后取d d2=180mm
4.确定V 带的中心距a 和基准长度L d
(1) 根据参考文献［2］式 8-20 : 0.7 d d1+ d d2 < a 0 < 2(d d1+ d d2)
250mm
< a 。
< 560mm
初始条件：a ~2d2=360mm
T 两轮的中心不是水平的••• a 0>a 〜360 mm
因此取V 带的中心距a °=500mm (2) 计算相应的带长L d0：
2 n (d d2-d d1
)
L d0~ 2a 0+ ' (d d1+d d2)+
2 ' ‘ 4a °
对照参考文献［2］表8-2
=[2x500+ 3
^ x(100+180)+ 2
(180 100),
------- ]mm^ 1443 mm,
选取带的基准长度为L d =1430 mm
(3)计算实际中心距a 及其变动范围:
(
500
+
14302
1443
) mm =
494 mm
L d -L d0
如1.1
F Ca =3.3 kW
d d1 = 100 mm
v=7.43 m/s
线于是
P r=(P°+ △ R)K a K L=(1.30+0.15)X0.982X0.96=1.37 kW d d2=180 mm
得压轴力的最小值(F p )min =2x3x121xsin 171
724 N
2
五. V 带轮的结构设计
1.带轮的材料
已知转速较低，电机功率较小 所以采用灰口铸铁：
HT150
2.带轮的结构形式
(2)计算V 带的根数z z 二学==2.41,取 z=3 根 R 1.37
7.计算单根V 带的最小初拉力(F 0) min
查参考文献［2］表8-3，得A 型V 带单位长度的质量是
q=0.105
kg/m 又知带速v=7.43m/s ，由参考文献［2］式8-27，得
(F 0) min =500(2.5-K a )Ra +qv 2=500x (2.5 0.982) 3.3
+0.105x7.43 2=120.23N
i 0.982 3 7.43
K a
ZV
应使带的实际初拉力 F °>(F °)min
8.计算压轴力F p
a 1
由参考文献［2］式 8-31 : (F p )min =2z(F 0) min sin
L d = 1430 mm a=494 mm 已查得电动机轴直径: D=28 mm
a 1 = 171
(1)对小带轮(主动带轮)：d di=l00 mm
d d1
D 〜3.57>2.5 且d di<300 mm
R =
1.15 kW z=3
(F 0) min 〜121 N
线
七•参考资料
(1)《机械设计课程设计》(李兴华编，清华大学出版社)
(2)《机械设计》(第九版，高等教育出版社)
(3)《机械制图》(第六版，高等教育出版社)
图7 *6带轮槽的结构材料：HT150 〜724N。