V带传动VB程序说明书.pdf

机械设计课程上机与设计实验报告班级：姓名：学号：V 带传动的程序设计报告一、已知条件带传动设计的已知数据有：输入功率P，小带轮转速n1，传动比 i，原动机种类，工作机载荷性质，中心距a，带传动每天的工作时数二、设计题目设计一破碎机装置用普通V 带传动。已知：电动机Y 型号位 Y132S-4，电动机额定功率为P=5.5KW,转速n1=1440r/min,传动比 i=2,两班制工作，希望中心距a 不超过600mm，大带轮轴孔直径d=35mm。三、程序编程Const pi=3.1415926 Dim i As Integer:Dim j As Integer:Dim m As Integer:Dim ii As Integer Dim gonglv_given As Single 额定功率Dim small_spead As Single 小带轮转速Dim big_spead As Single 大带轮转速Dim Drive_ratio As Single 传动比Dim a As Single 给定中心距Dim Coefficient_center_distance As Single 中心距系数Dim lh As Single 每天工作小时数Dim g As String 在和性质标识符Dim Coefficient_work As Single 工况系数Dim pc As Single 计算功率Dim n(5)As Single Dim x As Single Dim y As Single Dim spead As Single 带速Dim big_diameter As Single 大轮直径Dim c1 As Single Dim c2 As Single Dim al As Single Dim lc As Single 初定带长Dim lj As Single Dim l As Single 基准长度Dim b As Single Dim amin As Single Dim amax As Single Dim center_distance_actual As Single 实际中心距Dim kl As Single 长度系数Dim ka As Single 包角系数Dim ki As Single 传动比系数Dim p0 As Single 单根带传递的额定功率Dim p1 As Single 功率增量Dim z As Single V 带根数Dim f0 As Single 初拉力Dim q As Single 压轴力Dim cc(5)As Single Dim aa(6,17)As Single Dim type_(6)As String V带类型组Dim type_1 As Variant Dim ll(34)As Single Private Sub Command1_Click()Text8.Text=Text9.Text=Text10.Text=Text11.Text=Text12.Text=Text13.Text=Text14.Text=Text15.Text=Text16.Text=Text17.Text=Text18.Text=Text19.Text=清空文本框gonglv_given=Val(Text1.Text)small_spead=Val(Text2.Text)big_spead=Val(Text3.Text)Drive_ratio=Val(Text4.Text)a=Val(Text5.Text)Coefficient_center_distance=Val(Text6.Text)g=Combo1.Text lh=Label11.Caption 设置每个文本所代表的程序符号aa(0,1)=0.00039:aa(0,2)=0.06:aa(0,3)=0.246:aa(0,4)=7.44:aa(0,5)=0.0000441:aa(0,6)=0.72:aa(0,7)=0.00043:aa(0,8)=0.000000098:aa(0,9)=435:aa(0,10)=50:aa(0,11)=63:aa(0,12)=71:aa(0,13)=80:aa(0,14)=90:aa(0,15)=1:aa(0,16)=13 aa(1,1)=0.00103:aa(1,2)=0.1:aa(1,3)=0.449:aa(1,4)=19.62:aa(1,5)=0.0000765:aa(1,6)=0.68:aa(1,7)=0.000225:aa(1,8)=0.0000000225:aa(1,9)=100:aa(1,10)=75:aa(1,11)=90:aa(1,12)=100:aa(1,13)=112:aa(1,14)=125:aa(1,15)=5:aa(1,16)=18 aa(2,1)=0.00265:aa(2,2)=0.17:aa(2,3)=0.794:aa(2,4)=50.6:aa(2,5)=0.000131:aa(2,6)=0.68:aa(2,7)=0.000174:aa(2,8)=0.0000000194:aa(2,9)=27:aa(2,10)=125:aa(2,11)=140:aa(2,12)=150:aa(2,13)=170:aa(2,14)=180:aa(2,15)=8:aa(2,16)=24 aa(3,1)=0.0075:aa(3,2)=0.3:aa(3,3)=1.48:aa(3,4)=143.2:aa(3,5)=0.000243:aa(3,6)=0.7:aa(3,7)=0.00964:aa(3,8)=0.000000448:aa(3,9)=7.2:aa(3,10)=200:aa(3,11)=224:aa(3,12)=236:aa(3,13)=265:aa(3,14)=280:aa(3,15)=14:aa(3,16)=29 aa(4,1)=0.0266:aa(4,2)=0.62:aa(4,3)=3.15:aa(4,4)=507.3:aa(4,5)=0.000477:aa(4,6)=0.78:aa(4,7)=0.0000338:aa(4,8)=0:aa(4,9)=0.92:aa(4,10)=355:aa(4,11)=400:aa(4,12)=425:aa(4,13)=475:aa(4,14)=500:aa(4,15)=18:aa(4,16)=32 aa(5,1)=0.0498:aa(5,2)=0.9:aa(5,3)=4.57:aa(5,4)=951.5:aa(5,5)=0.000706:aa(5,6)=0.706:aa(5,7)=0.0000495:aa(5,8)=0.000000001254:aa(5,9)=0:aa(5,10)=500:aa(5,11)=560:aa(5,12)=630:aa(5,13)=800:aa(5,14)=900:aa(5,15)=22:aa(5,16)=33 type_(0)=Z:type_(1)=A:type_(2)=B:type_(3)=C:type_(4)=D:type_(5)=E ll(1)=400:ll(2)=450:ll(3)=500:ll(4)=560:ll(5)=630:ll(6)=710:ll(7)=800:ll(8)=900:ll(9)=1000:ll(10)=1120:ll(11)=1250:ll(12)=1400:ll(13)=1600:ll(14)=1800:ll(15)=2000:ll(16)=2240:ll(17)=2500:ll(18)=2800:ll(19)=3150:ll(20)=3550 ll(21)=4000:ll(22)=4500:ll(23)=5000:ll(24)=5600:ll(25)=6300:ll(26)=7100:ll(27)=8000:ll(28)=9000:ll(29)=10000:ll(30)=11200:ll(31)=12500:ll(32)=14000:ll(33)=16000 If big_spead 0 Then Drive_ratio=Int(small_spead/big_spead*1000+0.5)/1000 传动比Drive_ratio End If If lh=16 Then Coefficient_work=1.2 ElseIf lh=10 Then Coefficient_work=1.1 Else Coefficient_work=1 End If If g=变动小 Then Coefficient_work=Coefficient_work+0.1 ElseIf g=变动大 Then Coefficient_work=Coefficient_work+0.2 ElseIf g=变动很大 Then Coefficient_work=Coefficient_work+0.3 End If pc=Coefficient_work*gonglv_given 确定每一种载荷系数G 下的工况系数Coefficient_work cc(0)=(Log(365)+(Log(2510)-Log(365)*(Log(pc)-Log(0.8)/(Log(5)-Log(0.8)/Log(10)cc(1)=(Log(100)+(Log(1500)-Log(100)*(Log(pc)-Log(1)/(Log(10)-Log(1)/Log(10)cc(2)=(Log(100)+(Log(870)-Log(100)*(Log(pc)-Log(3.15)/(Log(18)-Log(3.15)/Log(10)cc(3)=(Log(100)+(Log(700)-Log(100)*(Log(pc)-Log(9)/(Log(40)-Log(9)/Log(10)cc(4)=(Log(100)+(Log(500)-Log(100)*(Log(pc)-Log(50)/(Log(200)-Log(50)/Log(10)For i=0 To 4 If small_spead=10 cc(i)Then Exit For End If Next i If i=0 Then x=0:y=1 ElseIf small_spead=5 And spead=20 Then big_diameter=Int(Drive_ratio*aa(i,j)*0.98/5+0.5)*5 Drive_ratio=Int(big_diameter/aa(i,j)/0.98*100+0.5)/100 c1=big_diameter+aa(i,j)c2=big_diameter-aa(i,j)If a=0 Then center_distance_actual=Coefficient_center_distance*c1 Else:center_distance_actual=a End If lc=2*center_distance_actual+pi*c1/2+c2*c2/4/center_distance_actual For m=aa(i,15)To aa(i,16)If lc=ll(m)Then Exit For End If Next m lj=(ll(m)+ll(m-1)/2 If lc 120 Then kl=aa(i,6)+aa(i,7)*l-aa(i,8)*l*l ka=0.47+0.003*al If Drive_ratio=1.04 Then ki=0 ElseIf Drive_ratio=1.09 Then ki=0.03 ElseIf Drive_ratio=1.19 Then ki=0.052 ElseIf Drive_ratio=1.49 Then ki=0.083 ElseIf Drive_ratio=2.5 Then ki=0.113 Else:ki=0.122 End If p0=(aa(i,3)*(spead -0.09)-aa(i,4)/aa(i,j)-aa(i,5)*spead*spead)*spead p1=aa(i,1)*small_spead*ki z=Int(pc/(p0+p1)*kl*ka)+0.95)确定 V 带根数If z=9 Then f0=Int(500*pc*(2.5/ka-1)/spead/z+aa(i,2)*spead*spead+0.5)计算初拉力q=Int(2*z*f0*Sin(al*pi/180/2)+0.5)计算压轴力Text8.Text=Text8.Text&vbCrLf&vbCrLf&type_(i)Text9.Text=Text9.Text&vbCrLf&vbCrLf&l Text10.Text=Text10.Text&vbCrLf&vbCrLf&z Text11.Text=Text11.Text&vbCrLf&vbCrLf&aa(i,j)Text12.Text=Text12.Text&vbCrLf&vbCrLf&big_diameter Text13.Text=Text13.Text&vbCrLf&vbCrLf&spead Text14.Text=Text14.Text&vbCrLf&vbCrLf&Drive_ratio Text15.Text=Text15.Text&vbCrLf&vbCrLf&center_distance_actual Text16.Text=Text16.Text&vbCrLf&vbCrLf&amin Text17.Text=Text17.Text&vbCrLf&vbCrLf&amax Text18.Text=Text18.Text&vbCrLf&vbCrLf&f0 Text19.Text=Text19.Text&vbCrLf&vbCrLf&q 用文本框显示End If End If End If Next j ii=ii+5 Next i End Sub Private Sub Command2_Click()End End Sub Private Sub Form_Load()Me.Top=(Screen.Height-Me.Height)/2 Me.Left=(Screen.Width-Me.Width)/2 Label11.Caption=HScroll1.Value End Sub Private Sub HScroll1_Change()Label11.Caption=HScroll1.Value End Sub Private Sub Text3_GotFocus()Label4.Enabled=True Label5.Enabled=False End Sub Private Sub Text4_GotFocus()Label5.Enabled=True Label4.Enabled=False End Sub Private Sub Text5_GotFocus()Label6.Enabled=True Label7.Enabled=False End Sub Private Sub Text6_GotFocus()Label7.Enabled=True Label6.Enabled=False End Sub 四、数据界面设计结果变动后的结果五、立体图