V带传动设计大作业,机械设计大作业
机械设计课程设计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带式输送机传动系统设计完整图纸
机械设计课程设计报告——V带式输送机传动系统设计院系及专业：设计者：指导老师：目录一、设计任务书 (4)二、传动装置的总体设计 (5)（一）、电动机的选择 (5)（二)、传动比的分配及转速校核 (7)（三）、减速器各轴转速、功率、转矩的计算 (10)三、传动零件的设计计算 (12)（一）、V带设计 (12)（一）、V带轮的结构设计 (12)（二）、V带的计算设计 (13)（二）、齿轮传动的设计 (16)（一）、高速级齿轮传动设计计算 (16)（二）、高速级齿轮传动的几何尺寸 (21)（三）、低速级齿轮传动设计计算 (21)（四）、低速级齿轮传动的几何尺寸 (26)四、轴的设计： (26)（一）、高速轴 (26)（一）、高速轴的设计 (26)（二）、高速轴的计算与校核 (29)（二）、中间轴 (32)（一）、中间轴的设计 (32)（二）、中间轴的计算与校核 (34)（三）、低速轴 (36)（一）、低速轴的设计 (36)（二）、低速轴的计算与校核 (38)五、轴承校核： (40)六、箱体的设计计算 (44)七、减速器的润滑设计 (45)（一）齿轮的润滑设计 (45)（二）、轴承的润滑及设计 (46)八、密封 (46)九、结束语 (47)一、设计任务书带式输送机传动系统设计1.设计任务设计带式输送机传动系统。
采用V带传动及两级圆柱齿轮减速器。
2.传动系统参考方案（见图）带式输送机由电动机驱动。
电动机1通过V带传动将动力传入两级圆柱齿轮减速器3，再通过联轴器4将动力传至输送机滚筒5，带动输送带6工作。
3.原始数据：输送带有效拉力F= 6800N输送带工作速度v= 0.48m/s （允许误差±5%） 输送机滚筒直径d= 425 mm 减速器设计寿命为5年。
４、工作条件：两班制，常温下连续工作；空载起动，工作载荷平稳；三相交流电源，电压为380/220伏。
二、传动装置的总体设计（一）、电动机的选择一、选择电动机，确定传动方案及计算运动参数：（一） 电动机的选择：（1）、选择电动机类型：按工作要求和条件，选用三箱笼型异步电动机，封闭式结构，电压380V ，Y 型。
机械设计_大作业_V带传动设计
Ka ——包角修正系数， 由教材表 7.8 查得 Ka=0.97 由教材表 7.2 查得 KL=0.91 Δ P0——功率增量， 由式 7.19 计算功率增量Δ P0，
KL —— 长度系数，
Δ P0/kw= K b n1 (1
1 ) Ki
5
Kb ——弯曲影响系数， Ki——传动比系数， 故得
由教材表 7.4 得 Kb=0.7725×10
故 轴 TI = Td1i1 = 2.98 104 0.96 2 5.72 104 N mm
轴
TII = TI23i 2 = 5.72 104 0.97 0.98 5.93 32.24 104 N mm
卷筒轴 T卷 = TII34i3 = 32.24 104 0.98 0.99 1 31.28 104 N mm 3）运动参数汇表.1 轴名 电动机轴 轴 轴 卷筒轴 功率 P/kW 3 2.88 2.74 2.65 表 .1 各轴运动及动力参数 转矩 T/(N· m) 转 速 传动比 n/(r/min) i 29.8 960 57.2 533.3 322.4 90 312.8 90 效率
F0 = 500
Pd 2.5 K a ( ) mv 2 =500×3×﹙2.5-0.97﹚÷﹙5×5.03×0.97﹚ zv Ka
+0.1×5.032=96.6 N 十一 计算作用在轴上的压力
由教材式 7.25 得
Q/N=2zF0sin（α /2）=2×3×96.6×sin（166.4°/2）=575.5228 N 十二 带轮结构设计
轴
PII = PI23
其中 2 ——齿轮传动效率，由参考资料[1] 表 9.1 有： 2 =0.97；
机械设计V带传动设计及其计算
机械设计V带传动设计及其计算V带传动是一种常见的机械传动方式，广泛应用于各种机械设备中。
其主要优点是结构简单，传动效率高，能够传递较大的功率，并且具有噪音小、寿命长等优点。
下面将详细介绍V带传动的设计及计算方法。
首先需要确定V带传动的工作条件，包括传动比、传动功率以及工作速度等。
根据这些工作条件，可以选择合适的V带型号和尺寸。
目前市场上常见的V带型号有Z、A、B、C、D等，它们的截面形状不同，也适用于不同的传动功率范围。
根据工作条件，选择合适的V带型号和尺寸是设计的第一步。
黏着力=功率/带速其中，黏着力的单位是牛顿(N)，功率的单位是瓦特(W)，带速的单位是米/秒(m/s)。
根据黏着力的计算结果，可以选择合适的V带张紧力。
一般情况下，V带的张紧力为传动黏着力的1.7倍。
然后需要计算V带的张紧力。
张紧力是指保持V带传动紧密连接的力，用来防止滑动和跳齿。
张紧力的计算公式如下：张紧力=动力传递功率/带速其中，张紧力的单位是牛顿(N)，传递功率的单位是瓦特(W)，带速的单位是米/秒(m/s)。
根据张紧力的计算结果，可以选择合适的张紧轮直径和张紧力调整装置。
最后需要计算V带的寿命，并根据寿命选择合适的V带材料和质量。
V带的寿命可以根据以下公式计算：寿命=(C×10^6)/(P×v)其中，寿命的单位是小时(h)，C是V带的寿命系数(一般为1000-4000)，P是传动功率的单位(kW)，v是带速的单位(m/s)。
根据寿命的计算结果，可以选择合适的V带材料和质量。
综上所述，V带传动的设计及计算包括选择合适的V带型号和尺寸、计算黏着力和张紧力、选择合适的张紧轮直径和张紧力调整装置，以及计算V带的寿命并选择合适的材料和质量。
这些步骤可以确保V带传动在工作过程中能够稳定可靠地传递功率，延长传动寿命。
中职机械基础(机工版)教案：V型带传动设计
一、带传动的失效形式和设计准则带传动的主要失效形式：打滑，疲劳破坏。
带传动设计准则：既要保证传动带具有足够的传动能力，不打滑；又要保证传动带具有足够的疲劳强度，达到预期使用寿命。
二、V型带传动设计的原始数据和主要内容1、V型带传动的原始数据一般为：（1）传递的功率Ｐ（ＫＷ）；（2）大、小带轮的转速n2、n1(r/min)或传动比；（3）传动对外廓尺寸的要求；（4）传动的用途和工作条件。
2、V型带传动主要内容：（1）确定V型带的型号，根数和长度；（2）选定传动的中心距；（3）带轮基准直径及结构尺寸；（4）计算初拉力和带对轴的压力。
三、V型带传动的设计步骤1、确定计算功率Ｐｃ计算功率Ｐｃ是根据所传递的名义功率Ｐ及V型带传动的工作情况确定的．Ｐｃ＝ＫＡＰ表9—2工作情况系数K A载荷平稳液体搅拌机、离心式水泵、离心式压缩机、轻型输送机、鼓风机和通风机（≤7.5KW）1.0 1.1 1.2 1.1 1.2 1.3载荷变动小带式输送机、鼓风机（＞7.5KW）、发电机、旋转式水泵、机床、剪床、振动筛、压力机1.1 1.2 1.3 1.2 1.3 1.4载荷变动较大螺旋式输送机、斗式提升机、往复式水泵、压缩机、锻锤、粉碎机、锯木机、纺织机、饲料压粒机、和木工机械1.2 1.3 1.4 1.4 1.5 1.6载荷变动很大碎矿机（旋转式、颚式）、球磨机、棒磨机、起重机、挖掘机、脱粒滚筒、橡胶辊压机1.3 1.4 1.5 1.5 1.6 1.8表9-3 V型带轮最小直径d min型号O A B C D E Fd min71（63）100（90）140（125）200 315 500 8001、选择V型带型号根据计算功率Pc和小带轮转速n1,由图选取V型带的型号。
(若Pc 、V的交点落在交线附近,可同时用两种型号作为两个方案计算,然后比较,选取。
)3.确定大、小带轮的直径d１,d２(1)初选小带轮的直径当V型带的型号确定后,小带轮直径愈小,结构愈紧凑, V型带的弯曲应力σb1则愈大, V 型带寿命降低,d1愈小,圆周速度愈小,单根V型带传递的功率Po也愈小，故对最小直径加以限制,d1max见表。
哈工大机械设计大作业V带传动电算报告19页word
H a r b i n I n s t i t u t e o f T e c h n o l o g y哈尔滨工业大学机械设计作业设计计算说明书设计题目：V带传动设计院系：英才学院班级：设计者：学号：设计时间：2019.11.25哈尔滨工业大学一、程序框图二、V带设计程序function varargout = V_caculate(varargin)%本程序用于计算V带的各项数据%部分中文注释复制出来之后为乱码% V_CACULATE M-file for V_caculate.fig% V_CACULATE, by itself, creates a new V_CACULATE or raises the existing% singleton*.% H = V_CACULATE returns the handle to a new V_CACULATE or the handle to % the existing singleton*.% V_CACULATE('CALLBACK',hObject,eventData,handles,...) calls the local% function named CALLBACK in V_CACULATE.M with the given input arguments. % V_CACULATE('Property','Value',...) creates a new V_CACULATE or raises the% existing singleton*. Starting from the left, property value pairs are% applied to the GUI before V_caculate_OpeningFcn gets called. An% unrecognized property name or invalid value makes property application% stop. All inputs are passed to V_caculate_OpeningFcn via varargin.% *See GUI Options on GUIDE's Tools menu. Choose "GUI allows only one% instance to run (singleton)".% See also: GUIDE, GUIDATA, GUIHANDLES% Edit the above text to modify the response to help V_caculate% Last Modified by GUIDE v2.5 06-Dec-2019 15:27:18% Begin initialization code - DO NOT EDITgui_Singleton = 1;gui_State = struct('gui_Name', mfilename, ...'gui_Singleton', gui_Singleton, ...'gui_OpeningFcn', @V_caculate_OpeningFcn, ...'gui_OutputFcn', @V_caculate_OutputFcn, ...'gui_LayoutFcn', [] , ...'gui_Callback', []);if nargin && ischar(varargin{1})gui_State.gui_Callback = str2func(varargin{1});endif nargout[varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});elsegui_mainfcn(gui_State, varargin{:});end% End initialization code - DO NOT EDIT% --- Executes just before V_caculate is made visible.function V_caculate_OpeningFcn(hObject, eventdata, handles, varargin)% This function has no output args, see OutputFcn.% hObject handle to figure% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% varargin command line arguments to V_caculate (see VARARGIN)global Pd yilei erlei chuandongbi zhuansu TYPE Dd1array Dd1 MINMAX P0array Narray Vmax Ldarray Dd1pos Kaarray Klarray Dd2array DSPcellarray CELLDSP TABLEPOS HEADMES;Vmax=25;%ZABCÐÍ´øµÄ×î´ó´øËÙ%ÒÔÏÂÊÇÆÕͨV´ø»ù±¾¶î¶¨¹¦ÂÊP0µÄ±í¸ñÊý¾ÝP0array=[0.00 0.04,0.06,0.09,0.10,0.12,0.14,0.16,0.17,0.20,0.22,0.26,0.28,0.30,0.32,0.33,0.34,0.33,0.31;0.00 0.05,0.08,0.13,0.15,0.18,0.22,0.25,0.27,0.32,0.37,0.41,0.45,0.47,0.49,0.50,0.50,0.49,0.48;0.00 0.06,0.09,0.17,0.20,0.23,0.27,0.30,0.33,0.39,0.46,0.50,0.54,0.58,0.61,0.62,0.62,0.61,0.58;0.00 0.10,0.14,0.20,0.22,0.26,0.30,0.35,0.39,0.44,0.50,0.56,0.61,0.64,0.67,0.67,0.66,0.64,0.00;0.00 0.15,0.26,0.40,0.45,0.51,0.60,0.68,0.73,0.84,0.92,1.00,1.04,1.08,1.09,1.07,1.02,0.96,0.80;0.00 0.22,0.39,0.61,0.68,0.77,0.93,1.07,1.05,1.34,1.50,1.64,1.73,1.83,1.87,1.88,1.82,0.00,0.00;0.00 0.26,0.47,0.74,0.83,0.95,1.14,1.32,1.42,1.66,1.87,2.05,2.19,2.28,2.34,2.33,0.00,0.00,0.00;0.00 0.37,0.67,1.07,1.19 1.37 1.66 1.92 2.07 2.44 2.74 2.98 3.16 3.26 0.00 0.00 0.00 0.00 0.00;0.00 0.48 0.84 1.30 1.44 1.64 1.93 2.19 2.33 2.64 2.85 2.96 2.94 2.80 0.00 0.00 0.00 0.00 0.00;0.00 0.59 1.05 1.64 1.82 2.08 2.47 2.82 3.00 3.42 3.70 3.85 3.83 0.00 0.00 0.00 0.00 0.00 0.00;0.00 0.74 1.32 2.09 2.32 2.66 3.17 3.62 3.86 4.40 4.75 4.89 0.00 0.00 0.00 0.00 0.00 0.00 0.00;0.00 0.88 1.59 2.53 2.81 3.22 3.85 4.39 4.68 5.30 5.67 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;0.00 1.39 2.41 3.69 4.07 4.58 5.29 5.84 6.07 6.34 6.02 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;0.00 2.03 3.62 5.64 6.23 7.04 8.21 9.04 9.38 9.62 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;0.00 2.84 5.14 8.09 8.92 10.05 11.53 12.46 12.72 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;0.00 3.91 7.06 11.02 12.10 13.48 15.04 0.0 0.000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;3.01 5.31 9.24 13.70 14.83 16.15 17.25 16.77 15.63 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;3.66 6.52 11.45 17.07 18.46 20.06 21.20 0.00 0.000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;4.37 7.90 13.85 20.63 22.25 24.01 24.84 0.00 0.000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;5.08 9.21 16.20 23.99 25.76 27.50 0.000 0.00 0.000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;6.21 10.86 18.55 26.21 27.57 28.32 0.00 0.00 0.000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;7.32 13.09 22.49 31.59 33.03 33.40 0.00 0.00 0.000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;8.75 15.65 26.95 37.26 38.62 0.000 0.00 0.00 0.000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;10.31 18.52 31.83 42.87 43.52 0.00 0.00 0.00 0.000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00; MINMAX=[950,6000;800,6000;700,6000;700,6000;200,600;200,6000;200,6000;200,5500;200,6000;200,5000;200,4500;200,3600;200,3600;200,3200;200,2800;200,2400;200,2400;200,2000;200,1600;200,1200;100,1600;100,1200;100,1200;100,950;100,950;100,950;100,800;100,800;];Narray=[100,200,400,700,800,950,1200,1450,1600,2000,2400,2800,3200,3600,4000,4500,5000,5500,6000];%ÒÔÏÂÊÇ´øµÄ»ù×¼³¤¶ÈLdϵÁÐLdarray=[200,224,250,280,315,355,400,450,500,560,630,710,800,900,1000,1120,1250,1400,1600,1800,2000,224 0,2500,2800,3150,3550,4000,4500,5000];Dd2array=[20,28,31.5,35.5,40,45,50,56,63,71,80,90,100,112,125,140,150,160,180,200,224,250,280,315,355,400, 425,450,500,560,600,630,710,800];%ÒÔÏÂÊǹ¤×÷»·¾³µÄKa²é±íyilei=[1:0.1:1.2;1.1:0.1:1.3;1.2:0.1:1.4;1.3:0.1:1.5];erlei=[1.1:0.1:1.3;1.2:0.1:1.4;1.4:0.1:1.6;1.5,1.6,1.8];%°ü½ÇÐÞÕýϵÊý±íKaarray=[220,210,200,190,180,170,160,150,140,130,120,110,100,90;1.20,1.15,1.10,1.05,1.00,0.98,0.95,0.92,0.89,0.86,0.82,0.78,0.73,0.68];%´ø³¤ÐÞÕýϵÊý±íKlarray=[200 zeros(1,6);224 zeros(1,6);250 zeros(1,6);280 zeros(1,6);315 zeros(1,6);355 zeros(1,6);400 0.87 zeros(1,5);450 0.89 zeros(1,5);500 0.91 zeros(1,5);560 0.94 zeros(1,5);630 0.96 0.81 zeros(1,4);710 0.99 0.83 zeros(1,4);800 1.00 0.85 0.82 zeros(1,3);900 1.03 0.87 0.84 0.83 zeros(1,2);1000 1.06 0.89 0.86 0.86 0.83 0;1120 1.08 0.91 0.88 0.88 0.86 0;1250 1.10 0.93 0.90 0.91 0.89 0;1400 1.14 0.96 0.92 0.93 0.91 0;1600 1.16 0.99 0.95 0.95 0.93 0;1800 1.18 1.01 0.98 0.97 0.96 0;2000 0 1.03 1.00 0.99 0.98 0;2240 0 1.06 1.03 1.02 1.00 0;2500 0 1.09 1.05 1.04 1.03 0;2800 0 1.11 1.07 1.07 1.06 0;3150 0 1.13 1.09 1.09 1.08 0;3550 0 1.17 1.13 1.12 1.11 0;4000 0 1.19 1.15 1.15 1.14 0;4500 0 0 1.18 1.18 1.17 0;5000 0 0 0 1.21 1.20 0];%СÂÖÖ±¾¶ÏµÁÐÊý×éDd1array=[50 63 71 80 75 90 100 125 125 140 160 180 200 250 315 400 355 400 450 500 500 560 630 710]; %½çÃæ³õʼ»¯TYPE=get(handles.popupmenu11,'value');switch(TYPE)case 1set(handles.popup,'string','50|63|71|80');case 2set(handles.popup,'string','75|90|100|125');case 3set(handles.popup,'string','125|140|160|180');case 4set(handles.popup,'string','200|250|315|400');case 5set(handles.popup,'string','355|400|450|500');Vmax=30;case 6set(handles.popup,'string','500|560|630|710');Vmax=30;endDd1pos=get(handles.popup,'value'); %È·¶¨popupÖÐDd1Ñ¡ÔñµÄλÖÃDd1=Dd1array((TYPE-1)*4+Dd1pos);TABLEPOS=1;changetabledsp(handles.uitable1,'deleteall',TABLEPOS,TYPE);set(handles.edit9,'string','');% Choose default command line output for V_caculatehandles.output = hObject;% Update handles structureguidata(hObject, handles);% UIWAIT makes V_caculate wait for user response (see UIRESUME)% uiwait(handles.figure1);% --- Outputs from this function are returned to the command line.function varargout = V_caculate_OutputFcn(hObject, eventdata, handles)% varargout cell array for returning output args (see VARARGOUT);% hObject handle to figure% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Get default command line output from handles structurevarargout{1} = handles.output;% --- Executes on selection change in popupmenu3.function popupmenu3_Callback(hObject, eventdata, handles)% hObject handle to popupmenu3 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = cellstr(get(hObject,'String')) returns popupmenu3 contents as cell array% contents{get(hObject,'Value')} returns selected item from popupmenu3% --- Executes during object creation, after setting all properties.function popupmenu3_CreateFcn(hObject, eventdata, handles)% hObject handle to popupmenu3 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');endfunction edit1_Callback(hObject, eventdata, handles)% hObject handle to edit1 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of edit1 as text% str2double(get(hObject,'String')) returns contents of edit1 as a double% --- Executes during object creation, after setting all properties.function edit1_CreateFcn(hObject, eventdata, handles)% hObject handle to edit1 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');endfunction edit2_Callback(hObject, eventdata, handles)% hObject handle to edit2 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of edit2 as text% str2double(get(hObject,'String')) returns contents of edit2 as a double% --- Executes during object creation, after setting all properties.function edit2_CreateFcn(hObject, eventdata, handles)% hObject handle to edit2 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');endfunction edit3_Callback(hObject, eventdata, handles)% hObject handle to edit3 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of edit3 as text% str2double(get(hObject,'String')) returns contents of edit3 as a double% --- Executes during object creation, after setting all properties.function edit3_CreateFcn(hObject, eventdata, handles)% hObject handle to edit3 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');end% --- Executes on selection change in popupmenu9.function popupmenu9_Callback(hObject, eventdata, handles)% hObject handle to popupmenu9 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = cellstr(get(hObject,'String')) returns popupmenu9 contents as cell array% contents{get(hObject,'Value')} returns selected item from popupmenu9% --- Executes during object creation, after setting all properties.function popupmenu9_CreateFcn(hObject, eventdata, handles)% hObject handle to popupmenu9 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');end% --- Executes on selection change in popupmenu5.function popupmenu5_Callback(hObject, eventdata, handles)% hObject handle to popupmenu5 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = cellstr(get(hObject,'String')) returns popupmenu5 contents as cell array% contents{get(hObject,'Value')} returns selected item from popupmenu5% --- Executes during object creation, after setting all properties.function popupmenu5_CreateFcn(hObject, eventdata, handles)% hObject handle to popupmenu5 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');end% --- Executes on selection change in popupmenu4.function popupmenu4_Callback(hObject, eventdata, handles)% hObject handle to popupmenu4 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = cellstr(get(hObject,'String')) returns popupmenu4 contents as cell array% contents{get(hObject,'Value')} returns selected item from popupmenu4% --- Executes during object creation, after setting all properties.function popupmenu4_CreateFcn(hObject, eventdata, handles)% hObject handle to popupmenu4 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');end% --- Executes on selection change in popupmenu6.function popupmenu6_Callback(hObject, eventdata, handles)% hObject handle to popupmenu6 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = cellstr(get(hObject,'String')) returns popupmenu6 contents as cell array% contents{get(hObject,'Value')} returns selected item from popupmenu6% --- Executes during object creation, after setting all properties.function popupmenu6_CreateFcn(hObject, eventdata, handles)% hObject handle to popupmenu6 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');end% --- Executes on selection change in popupmenu8.function popupmenu8_Callback(hObject, eventdata, handles)% hObject handle to popupmenu8 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = cellstr(get(hObject,'String')) returns popupmenu8 contents as cell array% contents{get(hObject,'Value')} returns selected item from popupmenu8% --- Executes during object creation, after setting all properties.function popupmenu8_CreateFcn(hObject, eventdata, handles)% hObject handle to popupmenu8 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))set(hObject,'BackgroundColor','white');end% --- Executes on button press in checkbox1.function checkbox1_Callback(hObject, eventdata, handles)% hObject handle to checkbox1 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hint: get(hObject,'Value') returns toggle state of checkbox1% --- Executes on button press in checkbox2.function checkbox2_Callback(hObject, eventdata, handles)% hObject handle to checkbox2 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hint: get(hObject,'Value') returns toggle state of checkbox2% --- Executes on button press in checkbox3.function checkbox3_Callback(hObject, eventdata, handles)% hObject handle to checkbox3 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hint: get(hObject,'Value') returns toggle state of checkbox3% --- Executes during object creation, after setting all properties.function pushbutton1_Callback(hObject, eventdata, handles)% hObject handle to pushbutton1 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)global Pd yilei erlei chuandongbi zhuansu TYPE Dd2array Dd1 Dd2 TABLEPOS HEADMES; for i=1:1p=get(handles.edit1,'string');n1=get(handles.edit2,'string');cd=get(handles.edit3,'string');gonglv=eval(p);%ÃûÒ幦ÂÊzhuansu=eval(n1);chuandongbi=eval(cd);%´«¶¯±ÈGZJ=get(handles.popupmenu3,'value');YDJ=get(handles.popupmenu5,'value');SJ=get(handles.popupmenu9,'value');if(YDJ==1||YDJ==3||YDJ==4||YDJ==6)leibie=1;elseleibie=2;endif(leibie==1)Ka=yilei(GZJ,SJ);elseend;check1=get(handles.checkbox1,'value');check2=get(handles.checkbox2,'value');check3=get(handles.checkbox3,'value');gongzuochanghe=check1|check2|check3;if(gongzuochanghe==1)Ka=Ka*1.1;endPd=Ka*gonglv;xianshi=sprintf('%0.3f %s',Pd,'KW');set(handles.text23,'string',xianshi);Dd22=chuandongbi*Dd1;Dd2=nearest(Dd22,Dd2array);a01=0.7*(Dd1+Dd2);a02=2*(Dd1+Dd2);pa1=num2str(a01);pa2=num2str(a02);set(handles.edit6,'string',pa1);set(handles.edit8,'string',pa2);end% --- Executes on selection change in popupmenu11.function popupmenu11_Callback(hObject, eventdata, handles)% hObject handle to popupmenu11 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = cellstr(get(hObject,'String')) returns popupmenu11 contents as cell array % contents{get(hObject,'Value')} returns selected item from popupmenu11 global TYPE Dd1pos Dd1array Dd1 Dd2 Dd2array chuandongbi;TYPE=get(handles.popupmenu11,'value');switch(TYPE)case 1set(handles.popup,'string','50|63|71|80');case 2set(handles.popup,'string','75|90|100|125');case 3set(handles.popup,'string','125|140|160|180');case 4set(handles.popup,'string','200|250|315|400');case 5set(handles.popup,'string','355|400|450|500');Vmax=30;case 6set(handles.popup,'string','500|560|630|710');endDd1pos=get(handles.popup,'value'); %È·¶¨popupÖÐDd1Ñ¡ÔñµÄλÖÃDd1=Dd1array((TYPE-1)*4+Dd1pos);Dd22=chuandongbi*Dd1;Dd2=nearest(Dd22,Dd2array);a01=0.7*(Dd1+Dd2);a02=2*(Dd1+Dd2);pa1=num2str(a01);pa2=num2str(a02);set(handles.edit6,'string',pa1);set(handles.edit8,'string',pa2);% --- Executes during object creation, after setting all properties.function popupmenu11_CreateFcn(hObject, eventdata, handles)% hObject handle to popupmenu11 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');end% --- Executes on button press in pushbutton2.function pushbutton2_Callback(hObject, eventdata, handles)% hObject handle to pushbutton2 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% --- Executes on button press in pushbutton5.function pushbutton5_Callback(hObject, eventdata, handles)% hObject handle to pushbutton5 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)global Pd yilei erlei chuandongbi zhuansu TYPE Dd1 Dd2 MINMAX P0array Narray Vmax Ldarray Dd1pos Kaarray Dd2array Klarray TABLEPOS data datafront;clc;for i=1:1Dd22=chuandongbi*Dd1;Dd2=nearest(Dd22,Dd2array);V=pi*Dd1*zhuansu/(60*1000);%´øËÙa0=str2double(get(handles.edit9,'string'));%³õÑ¡ÖÐÐľàLdpie=2*a0+1.57*(Dd1+Dd2)+(Dd2-Dd1)^2/(4*a0);%³õÑ¡»ù×¼³¤¶ÈLd=nearest(Ldpie,Ldarray);%»ù×¼³¤¶Èa=round(a0+(Ld-Ldpie)/2); %ÖÐÐľàalf1=180-(Dd2-Dd1)/a*57.3; %СÂÖ°ü½Ç£¬µ¥Î»£º¶ÈP0=P0func(zhuansu,MINMAX,P0array,Narray,TYPE,Dd1pos);%²é±í£¬ÕÒµ½¾Í·µ»Ø¶î¶¨¹¦ÂÊKa=baojiao(alf1,Kaarray);%²éÕÒ°ü½ÇÐÞÕýϵÊýKl=daichangxiuzheng(Ld,TYPE,Klarray);%²éÕÒ´ø³¤ÐÞÕýϵÊýKb=wanquyingxiang(TYPE);%ÍäÇúÓ°ÏìϵÊýKi=chuandongbixishu(chuandongbi);%´«¶¯±ÈϵÊýdietaP0=Kb*zhuansu*(1-1/Ki);Zfront=Pd/(P0+dietaP0)/Ka/Kl;%Ƥ´ø¸ùÊýZ=ceil(Zfront);m=mass(TYPE);%¼ÆËã´øµÄÖÊÁ¿if(Z<1)Z=1;endF0=500*Pd/(V*Z)*((2.5-Ka)/Ka)+m*V^2;%È·¶¨³õÀ-Á¦´óСFq=2*F0*Z*sin(alf1/360*pi);%¼ÆËã×÷ÓÃÔÚÖáÉϵÄѹÁ¦%ÏÔʾÊý¾Ýdata={Z,Ld,a,alf1,V,Dd2,F0,Fq};changetabledsp(handles.uitable1,'write',TABLEPOS,TYPE,data);TABLEPOS=TABLEPOS+1;endfunction popup_Callback(hObject, eventdata, handles)% hObject handle to popup (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of popup as text% str2double(get(hObject,'String')) returns contents of popup as a doubleglobal Dd1 TYPE Dd1array Dd1pos Dd2 Dd2array chuandongbi;Dd1pos=get(handles.popup,'value'); %È·¶¨popupÖÐDd1Ñ¡ÔñµÄλÖÃDd1=Dd1array((TYPE-1)*4+Dd1pos);Dd22=chuandongbi*Dd1;Dd2=nearest(Dd22,Dd2array);a01=0.7*(Dd1+Dd2);a02=2*(Dd1+Dd2);pa1=num2str(a01);pa2=num2str(a02);set(handles.edit6,'string',pa1);set(handles.edit8,'string',pa2);% --- Executes during object creation, after setting all properties.function popup_CreateFcn(hObject, eventdata, handles)% hObject handle to popup (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))set(hObject,'BackgroundColor','white');end% --- Executes when entered data in editable cell(s) in uitable1.function uitable1_CellEditCallback(hObject, eventdata, handles)% hObject handle to uitable1 (see GCBO)% eventdata structure with the following fields (see UITABLE)% Indices: row and column indices of the cell(s) edited% PreviousData: previous data for the cell(s) edited% EditData: string(s) entered by the user% NewData: EditData or its converted form set on the Data property. Empty if Data was not changed % Error: error string when failed to convert EditData to appropriate value for Data% handles structure with handles and user data (see GUIDATA)% --- Executes during object creation, after setting all properties.function edit6_CreateFcn(hObject, eventdata, handles)% hObject handle to edit6 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% --- Executes during object creation, after setting all properties.function edit8_CreateFcn(hObject, eventdata, handles)% hObject handle to edit8 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns calledfunction edit7_Callback(hObject, eventdata, handles)% hObject handle to edit7 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of edit7 as text% str2double(get(hObject,'String')) returns contents of edit7 as a double% --- Executes during object creation, after setting all properties.function edit7_CreateFcn(hObject, eventdata, handles)% hObject handle to edit7 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');endfunction edit9_Callback(hObject, eventdata, handles)% hObject handle to edit9 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of edit9 as text% str2double(get(hObject,'String')) returns contents of edit9 as a double。
大作业三设计带式运输机中的V带传动
H a r b i n I n s t i t u t e o f T e c h n o l o g y机械设计大作业说明书设计题目：设计带式运输机中的V带传动院系：班级：设计者：学号：指导教师：张锋设计时间：2016.10目录任务书 0一、选择电动机 (1)二、确定设计功率 (1)三、选择带的型号 (1)四、确定带的基准直径 (1)五、验算带的速度 (1)六、确定中心距带基准长度 (2)七、计算小轮包角 (2)八、确定V带根数 (2)九、确定初拉力 (3)十、计算作用在轴上的压力 (4)十一、带轮结构设计 (4)参考文献 (6)任务书5.1 设计带式运输机中的V带传动带式运输机的传动方案如图所示，机器工作平稳、单向回转、成批生产，其他数据如表1所示。
表1一、选择电动机带式运输机工作平稳，单向回转，成批生产。
查参考文献[1]表15.1和15.2，选用型号为Y132S-6的三相异步电动机，额定功率为3kW ，满载转速为960r/min ，电动机轴径D=38mm,轴径长E=80mm 。
二、确定设计功率设计功率是根据需要传递的名义功率及考虑载荷性质、原动机类型和每天连续工作的时间长短等因素共同确定的，表达式如下：P K P A d =式中:P ——需要传递的名义功率,kW ；A K ——工作情况系数，按参考文献[2] 表7.6选取。
根据任务书数据要求，最短工作年限5年2班，工作环境室外、有尘，查参考文献[2]表7.6得工作情况系数 1.2A K =，考虑到本装置的工作环境，值应扩大1.1倍kW P K P A d 96.332.11.1*1.1=⨯⨯==三、选择带的型号根据设计功率kW P d 96.3=，小带轮转速1960/min n r =，查参考文献[2]图7.11选取带的型号为A 型带。
四、确定带的基准直径查参考文献[2]表7.3知A 型V 带带轮最小基准直径范围是75~125mm ，小带轮直径过小包角减小，弯曲应力大；小带轮过大时，传动结构尺寸增大。
机械设计作业普通V带传动设计
机械设计作业普通V带传动设计图1运行界面图2设计结果界面Option Explicit '数据库定义Const DBname As String = "V带传动计算.mdb"Dim strPath As StringDim db As DatabaseDim rs1 As RecordsetDim rs2 As RecordsetDim rs3 As RecordsetDim rs4 As RecordsetDim strSQL As StringPrivate Sub Command1_Click()Dim ka As Single '工作情况系数Dim kl As Single '带长修正系数Dim pc As Single '计算功率pcDim n1 As Single '主动轮转速Dim n2 As Single '从动轮转速Dim t As Single '数据库中间变量Dim h As Single '数据库中间变量Dim h1 As Single '数据库中间变量Dim h2 As Single '数据库中间变量Dim h3 As Single '数据库中间变量Dim h4 As Single '数据库中间变量Dim h5 As Single 'kr中间变量Dim h6 As Single '普通v带的基本额定功率p0 Dim h7 As Single '额定功率的增量Δp0Dim h8% '带的根数Dim d1% '带的小轮直径Dim d2% '带的大轮直径Dim i% '循环中间变量Dim j% '循环中间变量Dim A1 ' 数组Dim A2Dim A3Dim A4Dim A5Dim A6Dim B1Dim v As Single '带速Dim s As Single '中间变量Dim a0 As Single '计算中心距Dim a As Integer '标准中心距Dim arf As Single '包角αDim L0 As Single '带长度Dim Ld As Single '带的基准长度Dim bj As Single '包角If Combo1.ListIndex = 0 Then '电动机（交流启动，三角启动，直流并励），四缸以上的内燃机ka = 1 + 0.1 * Combo1.ListIndex + 0.1 * Combo2.ListIndex + 0.1 * Combo3.ListIndexEnd IfIf Combo1.ListIndex = 1 Then '电动机（联机交流启动，直流复励启动），四缸以上的内燃机If Combo2.ListIndex <= 1 Then '负载变动不大ka = 1 + 0.1 * Combo1.ListIndex + 0.1 * Combo2.ListIndex + 0.1 * Combo3.ListIndexElseIf Combo3.ListIndex <= 1 Then '每天工作时间小于十六小时ka = 1.1 + 0.1 * Combo1.ListIndex + 0.1 * Combo2.ListIndex + 0.1 * Combo3.ListIndexElseka = 1.2 + 0.1 * Combo1.ListIndex + 0.1 * Combo2.ListIndex + 0.1 * Combo3.ListIndexEnd IfEnd IfEnd If 'ka计算出pc = ka * Text1.Text '求出pcn1 = Text2.Textn2 = Text3.Text '带的选型和小轮（主动轮）的确定，带型号函数是由双对数坐标系算出If n1 > (10 ^ 2.89975) * (pc ^ 0.9659) ThenText4.Text = "推荐选Z带"A1 = Array(50, 56, 63, 71)For i = 0 To 3v = 3.145926 * A1(i) * n1 / 60000If v > 5 And v < 25 Then '要求速度在大于5m/s小于25m/s d1 = A1(i)Exit ForEnd IfNextEnd IfIf n1 < (10 ^ 2.89975) * (pc ^ 0.9659) And n1 > (10 ^ 2.7228) * (pc ^ 0.9659) ThenText4.Text = "推荐选Z带"A1 = Array(80, 90)For i = 0 To 1v = 3.145926 * A1(i) * n1 / 60000If v > 5 And v < 25 Thend1 = A1(i)Exit ForEnd IfEnd IfIf n1 < (10 ^ 2.7228) * (pc ^ 0.9659) And n1 >= (10 ^ 2.2286) * (pc ^ 1.1477) Then Text4.Text = "推荐选A带"A2 = Array(90, 100)For i = 0 To 1v = 3.145926 * A2(i) * n1 / 60000If v > 5 And v < 25 Thend1 = A2(i)Exit ForEnd IfNextEnd IfIf n1 < (10 ^ 2.2286) * (pc ^ 1.1477) And n1 > (10 ^ 2.13101) * (pc ^ 0.9659) Then Text4.Text = "推荐选A带"A2 = Array(112, 125, 140, 160, 180)For i = 0 To 4v = 3.145926 * A2(i) * n1 / 60000If v > 5 And v < 25 Thend1 = A2(i)Exit ForEnd IfNextEnd IfIf n1 <= (10 ^ 2.13101) * (pc ^ 0.9659) And n1 >= (10 ^ 1.7758) * (pc ^ 1.03366) Then Text4.Text = "推荐选B带"A3 = Array(125, 140)For i = 0 To 1v = 3.145926 * A3(i) * n1 / 60000If v > 5 And v < 25 Thend1 = A3(i)Exit ForEnd IfNextEnd IfIf n1 < (10 ^ 1.7758) * (pc ^ 1.03366) And n1 >= (10 ^ 1.46891) * (pc ^ 1.16112) Then Text4.Text = "推荐选B带"A3 = Array(160, 180, 200, 224, 250, 280)For i = 0 To 5v = 3.145926 * A3(i) * n1 / 60000If v > 5 And v < 25 Thend1 = A3(i)End IfNextEnd IfIf n1 < (10 ^ 1.46891) * (pc ^ 1.16112) And n1 >= (10 ^ 0.89902) * (pc ^ 1.21825) ThenText4.Text = "推荐选C带"A4 = Array(200, 224, 250, 280, 315, 355, 400, 450)For i = 0 To 7v = 3.145926 * A4(i) * n1 / 60000If v > 5 And v < 25 Thend1 = A4(i)Exit ForEnd IfNextEnd IfIf n1 < (10 ^ 0.89902) * (pc ^ 1.21825) And n1 >= (10 ^ -0.24592) * (pc ^ 1.32193) ThenText4.Text = "推荐选D带"End IfIf n1 < (10 ^ -0.24592) * (pc ^ 1.32193) ThenText4.Text = "推荐选E带"End If '小轮直径d1求出，并圆整到标准尺寸s = (1 - 0.02) * d1 * n1 / n2B1 = Array(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)For j = 0 To 45If s < B1(j) Thens = B1(j)d2 = sExit ForEnd IfNext ' 大轮直径求出并圆整到标准尺寸Label10.Caption = d1 & "mm"Label11.Caption = d2 & "mm"If d1 = 0 Or d2 = 0 ThenMsgBox "参数不合适请重新设计"End Ifa0 = 1.5 * (d1 + d2)L0 = 2 * a0 + 3.1415926 * (d1 + d2) / 2 + 0.25 * (d2 - d1) ^ 2 / a0Set rs4 = db.OpenRecordset("ldyukl")Do While Not rs4.EOFt = rs4.Fields(0).ValueIf t > L0 ThenLd = tExit DoEnd Ifrs4.MoveNextLooprs4.Close' L0算出Text5.Text = "带长度为" & Lda = a0 + (Ld - L0) / 2'验算包角arf = 180 - (d2 - d1) / 2If arf > 90 ThenElseMsgBox "包角太小，参数不合理重新设计"End If '包角α求出'选择klstrSQL = "SELECT z,a,b,c FROM ldyukl " '数据库调用strSQL = strSQL & "WHERE JZchangdu = " & LdSet rs4 = db.OpenRecordset(strSQL)If Text4.Text = "推荐选z带" Thenh = rs4.Fields(0).Valuekl = hEnd IfIf Text4.Text = "推荐选A带" Thenh1 = rs4.Fields(1).Valuekl = h1' kl算出End IfIf Text4.Text = "推荐选B带" Thenh2 = rs4.Fields(2).Valuekl = h2End IfIf Text4.Text = "推荐选C带" Thenh3 = rs4.Fields(3).Valuekl = h3End If'求带根数zSet rs1 = db.OpenRecordset("baojiaokr") '数据库查询krDo While Not rs1.EOFh4 = rs1.Fields(0).ValueIf arf > h4 Thenbj = h4Exit DoEnd Ifrs1.MoveNextLooprs1.ClosePrint ; bj & "bj"strSQL = "SELECT baojiao,kr FROM baojiaokr "strSQL = strSQL & "WHERE baojiao = " & bjSet rs1 = db.OpenRecordset(strSQL)h5 = rs1.Fields(1).Value' "h5=kr求出A5 = Array(200, 400, 800, 950, 1200, 1450, 1600, 1800, 2000, 2400, 2800, 3200, 3600, 4000, 5000, 6000) For i = 0 To 15If n1 < A5(i) Thenn1 = A5(i)Exit ForEnd IfNextIf Text4.Text = "推荐选Z带" ThenstrSQL = "SELECT " & " [" & n1 & "],xinghao, xiaozhijing FROM EDinggonglv " strSQL = strSQL & "WHERE xinghao= 'z' AND xiaozhijing=" & d1Set rs2 = db.OpenRecordset(strSQL)h6 = rs2.Fields(0).ValueEnd IfIf Text4.Text = "推荐选A带" ThenstrSQL = "SELECT " & " [" & n1 & "],xinghao, xiaozhijing FROM EDinggonglv " strSQL = strSQL & "WHERE xinghao= 'a' AND xiaozhijing=" & d1Set rs2 = db.OpenRecordset(strSQL)h6 = rs2.Fields(0).ValueEnd IfIf Text4.Text = "推荐选B带" ThenstrSQL = "SELECT " & " [" & n1 & "],xinghao, xiaozhijing FROM EDinggonglv " strSQL = strSQL & "WHERE xinghao= 'b' AND xiaozhijing=" & d1Set rs2 = db.OpenRecordset(strSQL)h6 = rs2.Fields(0).ValueEnd IfIf Text4.Text = "推荐选C带" ThenstrSQL = "SELECT " & " [" & n1 & "],xinghao, xiaozhijing FROM EDinggonglv " strSQL = strSQL & "WHERE xinghao= 'c' AND xiaozhijing=" & d1Set rs2 = db.OpenRecordset(strSQL)h6 = rs2.Fields(0).ValueEnd If'h6就是p0A6 = Array(400, 730, 800, 980, 1200, 1460, 1600, 2000)For j = 0 To 7If n1 > A6(j) Thenn1 = A6(j)End IfNextIf Text4.Text = "推荐选Z带" ThenIf n1 / n2 < 1.52 ThenstrSQL = "SELECT" & "[" & n1 & " ],i , xinghao FROM EDzengliang "strSQL = strSQL & " WHERE xinghao= 'z' AND i= " & 1.52Set rs3 = db.OpenRecordset(strSQL)h7 = rs3.Fields(0).ValueEnd IfIf n1 >= 1.52 And n1 / n2 < 1.99 ThenstrSQL = "SELECT" & "[" & n1 & " ],i , xinghao FROM EDzengliang " strSQL = strSQL & " WHERE xinghao= 'z' AND i= " & 2Set rs3 = db.OpenRecordset(strSQL)h7 = rs3.Fields(0).ValueEnd IfIf n1 / n2 >= 2 ThenstrSQL = "SELECT" & "[" & n1 & " ],i , xinghao FROM EDzengliang " strSQL = strSQL & " WHERE xinghao= 'z' AND i= " & 100Set rs3 = db.OpenRecordset(strSQL)h7 = rs3.Fields(0).ValueEnd IfEnd IfIf Text4.Text = "推荐选A带" ThenIf n1 / n2 < 1.52 ThenstrSQL = "SELECT" & "[" & n1 & " ],i , xinghao FROM EDzengliang " strSQL = strSQL & " WHERE xinghao= 'a' AND i= " & 1.52Set rs3 = db.OpenRecordset(strSQL)h7 = rs3.Fields(0).ValueEnd IfIf n1 >= 1.52 And n1 / n2 < 1.99 ThenstrSQL = "SELECT" & "[" & n1 & " ],i , xinghao FROM EDzengliang " strSQL = strSQL & " WHERE xinghao= 'a' AND i= " & 2Set rs3 = db.OpenRecordset(strSQL)h7 = rs3.Fields(0).ValueEnd IfIf n1 / n2 >= 2 ThenstrSQL = "SELECT" & "[" & n1 & "],i,xinghao FROM EDzengliang " strSQL = strSQL & " WHERE xinghao= 'a' AND i = " & 100Set rs3 = db.OpenRecordset(strSQL)h7 = rs3.Fields(0).ValueEnd IfEnd IfIf Text4.Text = "推荐选B带" ThenIf n1 / n2 < 1.52 ThenstrSQL = "SELECT" & "[" & n1 & " ],i , xinghao FROM EDzengliang " strSQL = strSQL & " WHERE xinghao= 'b' AND i= " & 1.52Set rs3 = db.OpenRecordset(strSQL)h7 = rs3.Fields(0).ValueEnd IfIf n1 >= 1.52 And n1 / n2 < 1.99 ThenstrSQL = "SELECT" & "[" & n1 & " ],i , xinghao FROM EDzengliang "strSQL = strSQL & " WHERE xinghao= 'b' AND i= " & 2Set rs3 = db.OpenRecordset(strSQL)h7 = rs3.Fields(0).ValueEnd IfIf n1 / n2 > 2 ThenstrSQL = "SELECT" & "[" & n1 & " ],i , xinghao FROM EDzengliang "strSQL = strSQL & " WHERE xinghao= 'b' AND i= " & 100Set rs3 = db.OpenRecordset(strSQL)h7 = rs3.Fields(0).ValueEnd IfEnd IfIf Text4.Text = "推荐选C带" ThenIf n1 / n2 < 1.52 ThenstrSQL = "SELECT" & "[" & n1 & " ],i , xinghao FROM EDzengliang "strSQL = strSQL & " WHERE xinghao= 'c' AND i= " & 1.52Set rs3 = db.OpenRecordset(strSQL)h7 = rs3.Fields(0).ValueEnd IfIf n1 >= 1.52 And n1 / n2 < 1.99 ThenstrSQL = "SELECT" & "[" & n1 & " ],i , xinghao FROM EDzengliang "strSQL = strSQL & " WHERE xinghao= 'c' AND i= " & 2Set rs3 = db.OpenRecordset(strSQL)h7 = rs3.Fields(0).ValueEnd IfIf n1 / n2 >= 2 ThenstrSQL = "SELECT" & "[" & n1 & " ],i , xinghao FROM EDzengliang "strSQL = strSQL & " WHERE xinghao= 'c' AND i= " & 100Set rs3 = db.OpenRecordset(strSQL)h7 = rs3.Fields(0).ValueEnd IfEnd If' h7 ' h7就是detp0 h8 = pc / (h6 + h7)Text6.Text = "根数" & h8 ' h8 是带的根数If h8 > 10 ThenMsgBox "参数不合适带数太多请重新设计"End IfIf d1 = 0 Or d2 = 0 ThenMsgBox "参数不合适请重新设计"End IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Label10.Caption = ""Label11.Caption = ""End SubPrivate Sub Form_Load()Combo1.AddItem "第一类电动机"Combo1.AddItem "第二类电动机"Combo2.AddItem "载荷变动很小"Combo2.AddItem "载荷变动小"Combo2.AddItem "载荷变动较大"Combo2.AddItem "载荷变动很大"Combo3.AddItem "工作＜10小时"Combo3.AddItem "工作10到16小时"Combo3.AddItem "工作＞16小时"strPath = App.Path & "\"Set db = OpenDatabase(strPath & DBname)Set rs1 = db.OpenRecordset("baojiaokr")Set rs2 = db.OpenRecordset("EDinggonglv")Set rs3 = db.OpenRecordset("EDzengliang")End Sub说明：设计中汉字为注释,本设计采用了数据库的调用，因数据库与课本上各表相符，所以没有打印出来。
完整版机械设计V型带传动
设计V型带传动设计题目及数据注：生产批量均为成批，各原动机均为鼠笼式异步电动机。
二、设计工作量1.设计计算说明书。
包括选择V型带型号、材料、长度与根数；带轮直径及中心距；计算初拉力与压轴力等。
2 •大带轮的零件工作图。
要求注出表面粗糙度、尺寸公差、形位公差等。
三、设计指导带传动的设计步骤比较完整成熟，要求按教材中的顺序进行•在设计时还须注意以下问题：1、由输入功率和转速n i选择带的型号时，若介于两种型号中间的直线区附近时可以同时选择两种型号进行设计、比较结果（带的根数、传动的结构尺寸大小等）选择最佳方案。
2、帘布结构V型带比化纤带应用更广泛，应当优先选用。
但化纤带承载能力高，若传动尺寸要求紧凑时，可采用化纤带。
3、直径D1时，如果要求结构紧凑，应取D1 = Dmin （教材表6-7 ）;若尺寸不受限制，D1可取大些，对承载能力有利。
Di D2按带轮直径系列圆整，其转速误差不应大于5%L Lea4、中心距一般可以调整，所以可用0计算，并圆整成整数。
5、计算求出的带的根数应满足 2 z 10，否则应改选型号，重新设计。
6、大带轮的轮辐部分之结构，由带轮直径D选择。
绘制带轮工作图时注意非加工表面的圆角过渡，轮槽尺寸的标注应符合标准规定。
四、带轮零件工作图示例见图2-1 o65技术墓求，1铸造圆角J倒角2X45C图2-1技术要求，1铸造圆脊Rf2倒^2X45C标题栏V型带传动设计计算书设计步骤公式计算结果1 求计算功率P c K A = 1.5 R=6.0w选取V带型号A型2。
V带传动设计说明书
机械设计大作业题目： V带传动设计院系：机械制造及其自动化班级： 1008XXX姓名： XXX学号： 1100800XXX目 录一．设计任务:带式运输机............................................. 3 二 选择电动机 .................................................... 4 三 确定设计功率d P ................................................ 4 四 选择带的型号 .................................................. 4 五 确定带轮的基准直径12d d d d 和 ..................................... 6 六 验算带的速度 .................................................. 6 七 确定中心距a 和V 带基准长度d L .................................. 7 八 计算小轮包角 .................................................. 8 九 确定V 带根数Z ................................................. 8 十确定初拉力0F (10)十一 计算作用在轴上的压力........................................ 11 十二 带轮结构设计.................................................. 12 十三 V 带传动的紧、安装及防护 .................................... 17 十四 参考文献.................................................... 18 十五 附表.. (19)机械设计作业任务书一．设计任务:带式运输机结构简图见下图:★原始数据及设计容：通常情况下设计V带传动时已知的原始数据有：①传递的功率P；②主动轮、从动轮的转速、；③传动的用途和工作条件；④传动的位置要求，原动机种类等。
哈工大机械设计_大作业_V带传动设计 (1)
H a r b i n I n s t i t u t e o f T e c h n o l o g y机械设计大作业题目：V带设计院系：能源科学与工程学院班级：1202104姓名：刘翼学号：1120200623指导教师：张锋©哈尔滨工业大学目录一 任务书 (1)二 选择电动机 (2)三 确定设计功率d P (2)四 选择带的型号 (2)五 确定带轮的基准直12d d d d 和 (2)六 验算带的速度 (3)七 确定中心距a 和V 带基准长d L (3)八 计算小轮包1 (3)九 确定 V 带Z (3)十 确定初拉0F (4)十一 计算作用在轴上的压Q (5)十二 带轮结构计 (5)十三 参考文献 (6)一哈尔滨工业大学 机械设计作业任务书题目:带式运输机结构简图见下图:原始数据如下：机器工作平稳，单向回转，成批生产方案 d P （KW ） (/min)m n r(/min)w n r1i轴承座中心高H （mm ）最短工作 年限L 工作环境 5.1.42.2940802.11605年2班室内、清洁二 选择电动机 由方案图表中的数据要求，查参考文献[2]表15.1 Y 系列三相异步电动机的型号及相关数据选择可选择Y112M-6。
可查得轴径为28mm,长为60mm. 三 确定设计功率d P设计功率是根据需要传递的名义功率、载荷性质、原动机类型和每天连续工作的时间长短等因素共同确定的，表达式如下：d A m P K P =式中 m P ——需要传递的名义功率A K ——工作情况系数，按表2工作情况系数A K 选取A K =1.2；已知设计功率为2.2KW 。
四 选择带的型号查看教材图7.11可选取A 型带。
五 确定带轮的基准直径12d d d d 和查表3. V 带带轮最小基准直径min d d 知A 型带min d d =75mm,又由教材表7.3选取小带轮基准直径：mm d d 1251=；大带轮基准直径：mm d i d d d 5.2621251.212=⨯=⋅= 查教材表7.3选取大带轮基准直径mm d d 2502=；其传动比误差%50476.0%1001.21252501.2<=⨯-=∆i 故可用。
(完整版)机械设计V型带传动
设计V型带传动
一、设计题目及数据
机。
二、设计工作量
1.设计计算说明书。
包括选择V型带型号、材料、长度与根数；带轮直径及中心距；计算初拉力与压轴力等。
2．大带轮的零件工作图。
要求注出表面粗糙度、尺寸公差、形位公差等。
三、设计指导
带传动的设计步骤比较完整成熟，要求按教材中的顺序进行．在设计时还须注意以下问题：
1、由输入功率和转速n1选择带的型号时，若介于两种型号中间的直线区附近时可以同时选择两种型号
进行设计、比较结果（带的根数、传动的结构尺寸大小等）选择最佳方案。
2、帘布结构V型带比化纤带应用更广泛，应当优先选用。
但化纤带承载能力高，若传动尺寸要求紧凑时，可采用化纤带。
3、直径D1时，如果要求结构紧凑，应取D1= Dmin （教材表6-7）；若尺寸不受限制，D1可取大些，对承载能力有利。
D1 D2按带轮直径系列圆整，其转速误差
不应大于5%。
4、中心距一般可以调整，所以可用20Lca L a a -+
≈计
算，并圆整成整数。
5、计算求出的带的根数应满足102<<z ，否则应改选型号，重新设计。
6、大带轮的轮辐部分之结构，由带轮直径D 选择。
绘制带轮工作图时注意非加工表面的圆角过渡，轮槽尺寸的标注应符合标准规定。
四、带轮零件工作图示例 见图2-1。
图2-1
V型带传动设计计算书
设计步骤公式计算结果
1 求计算功率P c K A= 1.5P c=6.0w
2 选取V带型号A型。
机械设计大作业——V带传动教学教材
机械设计 设计说明书
设计题目：
V 带传动设计
机械与能源工程 学院 机械设计制造及其自动化 专业
班级
学号
设计人
指导老师 李兴华
完成日期 2012 年 3 月 24 日
同济大学
仅供学习与参考
学习资料
目录
1. 确定计算功率 Pca ......................................................................................................... 2 2. 选择 V 带的类型........................................................................................................ 2 3. 确定带轮的基准直径 dd 并验算带速 v .................................................................... 2 4. 确定 V 带的中心距 a 和基准长度 Ld........................................................................ 2 5. 验算小带轮上的包角 ............................................................................................ 3 6. 计算带的根数 z ......................................................................................................... 3 7. 计算单根 V 带的初拉力的最小值（F0）min............................................................. 3 8. 计算压轴力 FP............................................................................................................ 3 9. 设计结果.................................................................................................................... 3 10. 带轮结构设计 ........................................................................................................ 4 11. 设计小结 ................................................................................................................ 5 12. 参考文献 ................................................................................................................ 5
哈工大机械设计大作业V带传动设计完美版
Harbin Institute of Technology机械设计大作业说明书大作业名称：机械设计大作业设计题目：V带传动设计班级：设计者：学号：指导教师：设计时间：2014.10.25哈尔滨工业大学目录一、大作业任务书 ........................................................................................................................... 1 二、电动机的选择 ........................................................................................................................... 1 三、确定设计功率d P ..................................................................................................................... 2 四、选择带的型号 ........................................................................................................................... 2 五、确定带轮的基准直径1d d 和2d d ............................................................................................. 2 六、验算带的速度 ........................................................................................................................... 2 七、确定中心距a 和V 带基准长度d L ......................................................................................... 2 八、计算小轮包角 ........................................................................................................................... 3 九、确定V 带根数Z ........................................................................................................................ 3 十、确定初拉力0F ......................................................................................................................... 3 十一、计算作用在轴上的压力 ....................................................................................................... 4 十二、小V 带轮设计 .. (4)1、带轮材料选择 ..................................................................................................................... 4 2、带轮结构形式 ..................................................................................................................... 4 十二、参考文献 . (6)一、大作业任务书带式运输机的传动方案如图1所示，机器工作平稳、单向回转、成批生产，其他数据见表1。