首页 人人文库网 > 图纸下载 > 毕业设计 > V带传动VB程序
说明书.doc

V带传动VB程序

收藏

资源目录
跳过导航链接。
V带传动VB程序.rar
V带传动VB程序
说明书.doc---(点击预览)
Form1.frm
Form1.frx
MSSCCPRJ.SCC
V带传动.vbp
V带传动.vbw
带传动.vbw
压缩包内文档预览：
预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图
编号：20722313    类型：共享资源    大小：149.98KB    格式：RAR    上传时间：2019-07-09 上传人：QQ24****1780 IP属地：浙江
30
积分
举报
举报 版权申诉
版权申诉 word格式文档无特别注明外均可编辑修改；预览文档经过压缩，下载后原文更清晰！ 立即下载
关 键 词：
V带传动程序 v带传动vb程序
资源描述：
V带传动VB程序,V带传动程序,v带传动vb程序
内容简介：
机械设计课程上机与设计实验报告班级：姓名： 学号：V带传动的程序设计报告一、已知条件 带传动设计的已知数据有：输入功率P，小带轮转速n1，传动比i，原动机种类，工作机载荷性质，中心距a，带传动每天的工作时数二、设计题目 设计一破碎机装置用普通V带传动。已知：电动机Y型号位Y132S-4，电动机额定功率为P=5.5KW,转速n1=1440r/min,传动比i=2,两班制工作，希望中心距a不超过600mm，大带轮轴孔直径d=35mm。三、程序编程Const pi = 3.1415926Dim i As Integer: Dim j As Integer: Dim m As Integer: Dim ii As IntegerDim 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 SingleDim x As SingleDim y As SingleDim spead As Single 带速Dim big_diameter As Single 大轮直径Dim c1 As SingleDim c2 As SingleDim al As SingleDim lc As Single 初定带长Dim lj As SingleDim l As Single 基准长度Dim b As SingleDim amin As SingleDim amax As SingleDim 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 SingleDim aa(6, 17) As SingleDim type_(6) As String V带类型组Dim type_1 As VariantDim ll(34) As SinglePrivate 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.Textlh = 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) = 13aa(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) = 18aa(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) = 24aa(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) = 29aa(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) = 32aa(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) = 33type_(0) = Z: type_(1) = A: type_(2) = B: type_(3) = C: type_(4) = D: type_(5) = Ell(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) = 3550ll(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) = 16000If big_spead 0 Then Drive_ratio = Int(small_spead / big_spead * 1000 + 0.5) / 1000 传动比 Drive_ratioEnd IfIf lh = 16 Then Coefficient_work = 1.2ElseIf lh = 10 Then Coefficient_work = 1.1Else Coefficient_work = 1End IfIf g = 变动小 Then Coefficient_work = Coefficient_work + 0.1ElseIf g = 变动大 Then Coefficient_work = Coefficient_work + 0.2ElseIf g = 变动很大 Then Coefficient_work = Coefficient_work + 0.3End Ifpc = Coefficient_work * gonglv_given 确定每一种载荷系数G下的工况系数 Coefficient_workcc(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 IfNext iIf i = 0 Then x = 0: y = 1ElseIf 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 Tex
温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
提示  人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
关于本文
本文标题：V带传动VB程序
链接地址：https://www.renrendoc.com/p-20722313.html

官方联系方式

网站客服网站客服      侵权投诉侵权投诉
1:下载资料失败解决办法   
2:不支持迅雷下载,请使用浏览器下载   
3:不支持QQ浏览器下载,请用其他浏览器   
4:下载后的文档和图纸-无水印   
5:文档经过压缩，下载后原文更清晰   
点击下载此资源
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

网站客服QQ：2881952447     

copyright@ 2020-2024  renrendoc.com 人人文库版权所有   联系电话：400-852-1180

备案号:蜀ICP备2022000484号-2       经营许可证: 川B2-20220663       公网安备川公网安备: 51019002004831号

本站为文档C2C交易模式，即用户上传的文档直接被用户下载，本站只是中间服务平台，本站所有文档下载所得的收益归上传人(含作者)所有。人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私，请立即通知人人文库网，我们立即给予删除！