普通V带传动程序设计说明-2(2)

Pd = KA * P '计算Pd 'form4

For ipip = 1 To 6 Step 1

If ipip = 1 Then bo1.Text = "Z 型带" ElseIf ipip = 2 Then

bo1.Text = "A 型带" ElseIf ipip = 3 Then

bo1.Text = "B 型带" ElseIf ipip = 4 Then

bo1.Text = "C 型带" ElseIf ipip = 5 Then

bo1.Text = "D 型带" ElseIf ipip = 6 Then

bo1.Text = "E 型带" End If

If bo1.Text = "Z 型带" Then bo1.Text = "80" dd1 = 80 VMAX = 25 m = 0.06

Kb = 0.0002925

ElseIf bo1.Text = "A 型带" Then bo1.Text = "100" dd1 = 100 VMAX = 25 m = 0.1

Kb = 0.0007725

ElseIf bo1.Text = "B 型带" Then bo1.Text = "160" dd1 = 160 VMAX = 25 m = 0.17

Kb = 0.0019875

ElseIf bo1.Text = "C 型带" Then bo1.Text = "250" dd1 = 250 VMAX = 25 m = 0.3

Kb = 0.005625

ElseIf bo1.Text = "D 型带" Then bo1.Text = "400" dd1 = 400 VMAX = 30 m = 0.6

Kb = 0.01995

'模拟选型 '确定小带轮基准直径和最大带速

ElseIf bo1.Text = "E 型带" Then bo1.Text = "560" dd1 = 560 VMAX = 30 m = 0.9

Kb = 0.03735 End If

dd21 = CInt(Abs(dd1 * i * 0.98))

i1 = Abs((dd21 / dd1 / 0.98 - i) * 100) '计算传动比误差 'form5

dd1 = Abs(Val(bo1.Text)) '获取dd1 dd2 = dd21 \ 1#

i1 = Abs((dd2 / dd1 / 0.98 - i) * 100)

V = 3.14159265358979 * dd1 * n1 / (60# * 1000#) 'form6

a1 = 0.7 * (dd1 + dd2) a2 = 2 * (dd1 + dd2)

a0 = (a1 * 8.5 + a2 * 1.5) \ 10 '计算a0 Form7.Text1 = Str$(a0) '显示a0

Ld1 = 2# * a0 + 3.14159265358979 * (dd1 + dd2) / 2 + ((dd2 - dd1) ^ 2) / (4 * a0) Dim Ld16 As Single

If Ld1 > 380.5 And Ld1 < 400.5 Then

Ld16 = 400 '当380<Ld<400时，Ld取400 GoTo xiagechuangkou

ElseIf Ld1 <= 380.5 Or Ld1 > 16000.5 Then Ld16 = (Ld1 + 0.5) \ 1# GoTo xiagechuangkou End If

Dim Ld15 '(0 To 32)

Ld15 = Array(400, 450, 500, 560, 630, 710, 800, 900, 1000, 1120, 1250, 1400, 1600, 1800, 2000, 2240, 2500, 2800, 3150, 3550, 4000, 4500, 5000, 5600, 6300, 7100, 8000, 9000, 10000, 11200, 12500, 14000, 16000) Dim cc As Integer For cc = 0 To 31

If Ld1 >= Ld15(cc) + 0.5 And Ld1 < Ld15(cc + 1) + 0.5 Then Ld16 = Ld15(cc + 1) Exit For End If Next cc

xiagechuangkou: 'form7

a0 = Abs(Val(Form7.Text1.Text)) '获取a0 If a0 = 0 Then

a0 = 0.000000000000001