机械设计
课程上机与设计
实
验
报
告
    班级：
    姓名：
    学号：
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 Singlevb程序设计是啥
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 <= 16 And lh >= 10 Then
    Coefficient_work = 1.1
Else
    Coefficient_work = 1

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。