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。
基于AutoCAD的V型带轮参数化绘图系统的开发
基于AutoCAD的V型带轮参数化绘图系统的开发AutoCAD是一款在工程设计和制图领域应用广泛的软件，其功能强大且易于使用。
随着数字化时代的到来，许多机械制图的工作已经从手工绘图转变为计算机辅助绘图。
本文将探讨如何利用AutoCAD开发一款V型带轮参数化绘图系统。
一、需求分析在进行软件开发之前，我们首先需要明确V型带轮的主要参数。
V型带轮是一种机械传动装置，主要由带轮轮缘直径、带轮轮缘宽度、带轮锥角、中心距等几个主要参数构成。
因此，我们需要设计一款能够自动计算和生成V型带轮图形的软件，支持自定义参数并具备可视化操作的特点。
二、软件设计1. 界面设计软件的主界面设计应该清晰简洁并具有可视化的操作界面，用户可以在界面上直观的调整V型带轮的参数，并通过预览图像实时查看效果。
界面上应该包含带轮轮缘直径、带轮轮缘宽度、带轮锥角、中心距等几个主要参数以及数量等参数，以充分满足用户的需求。
2. 参数化设计V型带轮是机械传动装置中重要的零部件，由于其主要参数的变化会直接影响到整个机械系统的运行效果，因此，我们需要采用参数化设计来满足不同用户的需求。
在软件设计中，我们需要将V型带轮的主要参数设定为全局变量，并在界面中显示和调整参数，用户可以根据实际需要，自由地改变参数来满足不同的机械传动需求。
3. 数据处理在软件运行过程中，我们需要将用户所输入的数据进行处理，以便自动生成带轮的图形。
主要处理程序如下：1）根据所输入参数，计算带轮的相关参数；2）生成带轮的轮缘形状；3）将轮缘形状绘制在界面上，并通过预览图像实时查看效果。
三、软件测试在软件开发完成后，我们需要对软件进行严格的测试，以保障软件质量。
测试分为功能测试和性能测试两个方面。
功能测试主要测试软件能否正常运行，能否按照用户的需求自动计算和生成V型带轮图形；性能测试主要测试软件的运行效率和稳定性，以确保软件能够在不断变化的机械传动领域中稳定运行和不断提升效率。
四、总结基于AutoCAD的V型带轮参数化绘图系统的开发，是一项较为复杂的工程。
V带传动常规设计的Matlab可视化编程实现
V带传动常规设计的Matlab可视化编程实现
许静静;叶南海;仇勇;帅词俊
【期刊名称】《机械科学与技术》
【年(卷),期】2002(021)004
【摘要】V带传动常规设计在机械设计中相当重要,一般根据给定的已知条件如功率、转速、中心距以及其工作环境等参数来确定.本文运用Matlab语言强大的计算及图形可视化功能,编制M-函数进行V带传动常规设计,其特点是简洁、高效,具有广阔的应用前景.
【总页数】2页(P683-684)
【作者】许静静;叶南海;仇勇;帅词俊
【作者单位】中南大学,机电工程学院,长沙,410083;中南大学,机电工程学院,长沙,410083;中南大学,机电工程学院,长沙,410083;中南大学,机电工程学院,长沙,410083
【正文语种】中文
【中图分类】TH166
【相关文献】
1.V带传动常规设计的可视化编程 [J], 周铭丽;应瑞功;周铭秋
2.基于Matlab的V带传动可视化编程技术 [J], 徐静;董雁;翁慧燕;罗剑程
3.基于Matlab的低矮式破碎机V带传动模糊优化设计 [J], 刘静;丁凌蓉
4.基于Matlab的V带传动多目标优化设计 [J], 覃金彩;史彬华;江全才
5.V带传动常规设计的可视化编程技术 [J], 叶南海;夏建芳;许静静;高斌
因版权原因，仅展示原文概要，查看原文内容请购买。
哈工大机械设计大作业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 。
机械零件CAD设计之普通V带传动设计
机械零件CAD设计之普通V带传动设计机械零件CAD设计之普通V带传动设计在机械制造中，普通V带传动是一种广泛应用的传动方式，它具有高效、节能、可靠、寿命长等优点，应用范围广泛，涵盖了工业生产、农业生产、建筑、交通运输等多个领域。
对于普通V带传动的设计，CAD技术的运用可以有效提高设计的准确度和效率。
下面我们就来讲一下，机械零件CAD设计之普通V带传动设计。
一、普通V带传动的结构普通V带传动包括V带轮、V带、轴承及轴等零部件，其中，V带轮是V带传动的主要零部件，它分为主动轮和从动轮两种，主动轮通过电机、发动机等动力输入设备传递动力，使V带转动，从而传递动力到从动轮，驱动机器设备工作。
V带是传递动力的主要介质，在传动过程中，其承受张力并将动力传递到从动轮上。
轴承的作用是支撑旋转的V带轮和从动轮，同时起到减少摩擦和耐磨的作用。
轴是连接各种零部件的连接体，他承受从V带轮传递下来的转矩，将力传递到机器设备中。
二、普通V带传动的参数计算在进行普通V带传动的设计时，需要进行参数计算，以确保设计的准确性和可靠性。
常用到的传动计算参数主要有：1. 动力传递功率（P）：指传动系统传递动力的能力，单位为千瓦（kW）。
2. 传动转速比（i）：表示主动轮的转速与从动轮的转速之比。
3. 带速比（v）：是V带传动带速到轮速的比率。
4. V带张紧力（Ft）：是传递轴上V带所受的张力，单位为牛顿（N）。
5. V带轮直径（Dp）：是V带轮的直径，它决定了V带的长度和张力。
6. V带长度（L）：是V带传动时的有效长度，其中，传输功率越大，带长度越长。
7. 被传动轴上的扭矩（T2）：是从动轮所承受的扭矩，它与动力传递功率、传动转速比和V带张紧力有关系。
通过计算这些参数，我们可以得到准确的设计数据，为普通V带传动提供高效、可靠的基础。
三、普通V带传动的CAD设计机械零件CAD设计是现代机械工程中必不可少的技术，它可以提高设计的精度和效率，避免传统手工绘图的繁琐和出错。
机械设计课程设计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带传动电算编程-推荐下载
对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料电试力卷保相护互装作置用调与试相技互术关，系电，力通根保1据护过生高管产中线工资0不艺料仅高试可中卷以资配解料置决试技吊卷术顶要是层求指配，机置对组不电在规气进范设行高备继中进电资行保料空护试载高卷与中问带资题负料2荷试2，下卷而高总且中体可资配保料置障试时各卷，类调需管控要路试在习验最题；大到对限位设度。备内在进来管行确路调保敷整机设使组过其高程在中1正资中常料，工试要况卷加下安强与全看过，25度并52工且22作尽护下可1关都能于可地管以缩路正小高常故中工障资作高料；中试对资卷于料连继试接电卷管保破口护坏处进范理行围高整，中核或资对者料定对试值某卷，些弯审异扁核常度与高固校中定对资盒图料位纸试置，卷.编工保写况护复进层杂行防设自腐备动跨与处接装理地置，线高尤弯中其曲资要半料避径试免标卷错高调误等试高，方中要案资求，料技编试术5写、卷交重电保底要气护。设设装管备备置线4高调、动敷中试电作设资高气，技料中课并术3试资件且、中卷料中拒管包试试调绝路含验卷试动敷线方技作设槽案术，技、以来术管及避架系免等统不多启必项动要方方高式案中，；资为对料解整试决套卷高启突中动然语过停文程机电中。气高因课中此件资，中料电管试力壁卷高薄电中、气资接设料口备试不进卷严行保等调护问试装题工置，作调合并试理且技利进术用行，管过要线关求敷运电设行力技高保术中护。资装线料置缆试做敷卷到设技准原术确则指灵：导活在。。分对对线于于盒调差处试动，过保当程护不中装同高置电中高压资中回料资路试料交卷试叉技卷时术调，问试应题技采，术用作是金为指属调发隔试电板人机进员一行，变隔需压开要器处在组理事在；前发同掌生一握内线图部槽纸故内资障，料时强、，电设需回备要路制进须造行同厂外时家部切出电断具源习高高题中中电资资源料料，试试线卷卷缆试切敷验除设报从完告而毕与采，相用要关高进技中行术资检资料查料试和，卷检并主测且要处了保理解护。现装场置设。备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
图 3 带型选择和带轮基准直径界面
实现上面功能的程序如下 :
load data1 ee1 = str2num ( get( handles1edit6, ’string’) ) ; v1 = ee13 3114163 bbb /60000; d2 = ee13 ccc; if ( v1 > = 5 & v1 < = 25) helpdlg( ’带速合适 ,通过验算 ’)
作者简介 :周铭丽 (1979 - ) ,女 ,河南太康人 ,讲师 ,主要从事机械原理和机械设计的研究工作 。 收稿日期 : 2007 - 07 - 06
© 1994-2008 China Academic Journal Electronic Publishing House. All rights reserved.
V 带传动因其结构简单 、传动平稳以及缓冲吸振等特 点在机械行业中广泛应用 ,一般根据给定的已知条件如功 率 、转速 、传动比及其工作环境等参数进行设计 。本文利 用 M atlab强大的计算及图形用户界面 ( Graphical U ser In2 terfaces, GU I)功能 ,对 V带传动进行可视化设计编程 。设 计者在可视化界面中输人已知参数 (如功率 P、转速 n、传 动比 i等 ) ,根据程序的提示操作便会自动在输出界面中 显示出 V 带传动的设计参数 (如 V 带的带型 、根数 、中心 距等 ) ,这大大方便了设计者 ,提高了设计效率 ,同时还为 初学者提供了很好的学习体验 ,最后以具体实例验证了设 计程序的实用性和通用性 。 1 M atlab可视化编程
图 4 中心距 1带长和带根数计算界面
其中 data3为存储了带型 、主动轮直径 、从动轮直径 的数据文件 , ee3、ee2 分别为从动轮直径和主动轮直径 , aa6为中心距 。
V 带根数确定 : gl = str2num ( get ( handles1edit5, ’string’) ) ; glz = str2num ( get ( handles1ed it6, ’string’) ) ; bxz = str2num ( get ( hand les1edit7, ’string’) ) ; dxz = str2num ( get ( hand les1edit8, ’string’) ) ; load da ta2; kk2 = glv + glvz; zz = dd2 / ( kk23 bxz3 dxz) ; zz1 = fix ( zz) ; if zz - zz1 > 0 zz1 = zz1 + 1;
或多个矩阵数组 (数据库 )并存储到列表框中 ,根据表格 中选项间的关系编译成 Maltab语句 ,通过列表框的上下箭 头调用数据 ,设计者根据自己的选择在界面中相应的文本 框中输入的数据 ,具有很大的灵活性 。 3 可视化界面的设计
为了突出可视化设计的过程和设计过程的多选择性 , 我们设计了 5个界面 ,依次实现下列功能 :数据的输入 ,工 作情况系数的选取 ,带型的选取和带轮基准直径的确定 , 中心距 、带长及带根数的确定 ,设计结果的输出 。为此利 用 M 语言编程设计了 5个函数 : v_delt1m , working_condi2 tion1m, delt_ type1m , dis_v, m, result1m。运行 matlab后 , 把路径切换到程序文件所在目录 。 311 数据的输入 在命令行窗口中输入 v_delt1m就会显 示图 1所示的界面 ,我们可以在文本框中输入传输功率 、 主动轮转速 、传动比等参数 。输入后点击‘确定工作情况 系数 ’按钮 ,出现第 2个界面 (图 2) 。
图 1 V 带传动设计参数的输入界面
312 工作情况系数的确定 在这个界面中 (图 2)我们可 以确定工作情况系数 ,首先从该界面右侧的图中选择工作 情况系数输入到界面左上方的文本框中 ,并在下面的复选 框中确定是否有下列情况 :频繁启动 、正反转 、工作条件恶 劣 ,如果有则在其前对应的方框中选择 。然后点击‘确
© 1994-2008 China Academic Journal Electronic Publishing House. All rights reserved.
else helpdlg (包’ 角范围不合理 ,请重新选择 ’) set ( handles1ed it10, ’string’, 0) ; end
安徽农学通报 , Anhui Agri1Sci1Bull12007, 13 ( 16) : 161 - 63161源自V 带传动常规设计的可视化编程
周铭丽 1 应瑞功 2 周铭秋 3
(1 河南科技大学车辆与动力工程学院 ,河南洛阳 471003; 2 中国科学院海洋研究所 ,山东青岛 266071; 3 武汉科技大学 ,湖北武汉 430081)
load data3; aa6 = str2num ( get ( hand les1ed it4, ’string’) ) ; baojiao = 180 - ( ee3 - ee2) 3 5715 / aa6; if baojiao > = 120 helpdlg (包’ 角范围合适 ,请继续 ’) set ( hand les1edit10, ’string’, baojiao) ;
Matlah语言因其强大的计算及图形功能闻名于世 ,广 泛受到工程技术人员的喜爱 。本文利用图形用户界面 ( GU I)做界面设计 ,同时利用 M atlab语言编写 M - file,将 V带传动常规设计中的表格图形进行处理 ,实现设计的可 视化 。为此设计了 5个可视化界面 ,前 4个界面实现数据 的人机对话 ,用户只须在输入区文本框根据提示输入相关 的已知条件 ,点击相应的按钮程序便会按照这些初始值进 行设计计算 , 最后一个实现设计的结果 。使用时须把 Matlab 中 “Current D irectory”路径设置为本程序所在的 位置 。 2 可视化编程图和表格的处理
163
set ( hand les1edit9, ’string’, num2 str( zz1) ) ; 其中 gl为额定功率 , glz为额定功率增量 , bxz为包角
修正系数 , dxz为带长修正系数 ; 315 结果的显示 在中心距 、带长及带根数的确定界面 点击‘下一步 ’按钮或在 matlab 命令行窗口中输入 re2 sult1m弹出 v带传动设计结果界面 ,如图 5 所示 ;功能是 利用计算的数据 ,在可视化界面中显示出设计的结果 ;
V isua l Programm ing about Genera l D esign of V C incture Tran sm ission Zhou M ingli Y ing Ru igong Zhou M ingq iu
Abstract: The visual p rogramm ing of V cincture transm ission are carried out by making use of the strong computation ability and visual function of M atlab. It show s that M - file is simp le and efficient and has a good app lication in machine design1 Key words: V cincture transm ission; V isual Program; M atlab design
摘 要 :运用 M atlab语言强大的计算及图形可视化功能 ,编制 M 函数进行 V 带传动常规设计 ,介绍了 M atlab编程简 洁 、高效的特点 ,说明了其在机械工程设计中具有广阔的应用前景 。 关键词 : v带传动 ;可视化 ; M atlab设计 中图分类号 TH I22 文献标识码 A 文章编号 1007 - 7731 (2007) 16 - 161 - 03
162
定 ’按钮 ,程序就会计算出最后的工作情况系数和设计功 率并在相应的文本框中显示出来 。在此界面点击‘下一 步 ’按钮就会出现带型的选取界面 。
图 2 工作情况系数的确定界面
本界面实现功能的程序如下 : dd1 = str2num ( get( handles1edit1, ’string’) ) ka = 111; if ( get ( handles1checkbox7, ’ Value ’) = = get ( handles1checkbox7, M’ ax’) ) dd1 = dd13 ka; else dd1 = dd1; end if ( get ( handles1checkbox8, ’ Value ’) = = get ( handles1checkbox8, M’ ax’) ) dd1 = dd13 ka; else dd1 = dd1; end if ( get ( handles1checkbox9, ’ Value ’) = = get ( handles1checkbox9, M’ ax’) ) dd1 = dd13 ka; else dd1 = dd1; end 其中 ka为出现反复启动 、正反转频繁 、工作条件恶劣 等场合应乘上的系数 ,这里定义为 111,可以修改 ; dd1 为 工作情况系数 。 313 带型的选取和带轮基准直径的确定 选取带型的依 据是设计的功率和主动轮的转速 ,在图 3所示界面中从带 型图上可以很快的选出所需要的带型 ;选好带型后可以从 界面右侧的 V带轮基准直径系列选取基准直径 ,选好后在 相应的文本框中输入选定的值 ,点击‘验算带速 ’按钮对 带速进行验证 ; 当带速处于合适的范围内 ( 5m / s - 25m / s) ,弹出‘带速合适 ,通过验算 ’的对话框 ,当不合适时 ,弹 出‘带速不在合理范围 ,请重新选择带轮基准直径 ’的对 话框并将文本框中的值设定为零值 。