机械设计作业普通V带传动设计

机械设计作业普通V带传动设计

机械设计基础作业普通V带传动的设计

图1运行界面

图2设计结果界面

1

机械设计基础作业普通V带传动的设计

OptionExplicit'数据库定义

ConstDBnameAsString="V带传动计算.mdb"

DimstrPathAsString

DimdbAsDatabase

DimrslAsRecordset

Dimrs2AsRecordset

Dimrs3AsRecordset

Dimrs4AsRecordset

DimstrSQLAsString

PrivateSubCommand1_Click()

DimkaAsSingle’工作情况系数

DimklAsSingle'带长修正系数

DimpcAsSingle'计算功率pc

DimnlAsSingle‘主动轮转速

Dimn2AsSingle‘从动轮转速

DimtAsSingle'数据库中间变量

DimhAsSingle'数据库中间变量

DimhlAsSingle'数据库中间变量

Dimh2AsSingle'数据库中间变量

Dimh3AsSingle'数据库中间变量

Dimh4AsSingle'数据库中间变量

Dimh5AsSingle'kr中间变量

Dimh6AsSingle‘普通v带的基本额定功率pO

Dimh7AsSingle’额定功率的增量ApO

Dimh8%'带的根数

Dimdl%'带的小轮直径

Dimd2%'带的大轮直径

Dimi%'循环中间变量

Dimj%’循环中间变量

DimAI,数组

DimA2

DimA3

DimA4

DimA5

DimA6

DimBl

DimvAsSingle‘带速

DimsAsSingle'中间变量

DimaOAsSingle，计算中心距

DimaAsInteger，标准中心距

2

机械设计基础作业普通V带传动的设计

DimarfAsSingle'包角a

DimL0AsSingle'带长度

DimLdAsSingle'带的基准长度

DimbjAsSingle，包角

IfCombol.ListIndex=OThen'电动机(交流启动，三角启动，直流并励)，四缸以上的内燃机

ka=1+0.1*Combo1.Listindex+0.1*Combo2.Listindex+0.1*Combo3.ListIndex

EndIf

IfCombo1.Listindex=1Then'电动机(联机交流启动，直流复励启动)，四缸以上的内燃机

IfCombo2.ListIndex<=1Then'负载变动不大

ka=1+0.1*Combo1.Listindex+0.1*Combo2.Listindex+0.1*Combo3.Listindex

Else

IfCombo3.Listindex<=1Then，每天工作时间小于十六小时

ka=1.1+0.1*Combo1.Listindex+0.1*Combo2.Listindex+0.1*Combo3.Listindex

Else

ka=1.2+0.1*Combo1.Listindex+0.1*Combo2.Listindex+0.1*Combo3.Listindex

EndIf

EndIf

EndIfka计算出

pc=ka*Text1.Text，求出pc

n1=Text2.Text

n2=Text3.Text，带的选型和小轮(主动轮)的确定，带型号函数是由双对数坐标系算出

Ifni>(10A2.89975)*(pcA0.9659)Then

Text4.Text=”推荐选Z带”

Al=Array(50,56,63,71)

Fori=0To3

v=3.145926*Al(i)*nl/60000

Ifv>5Andv<25Then，要求速度在大于5m/s小于25m/s

dl=Al(i)

ExitFor

EndIf

Next

EndIf

Ifni<(10A2.89975)*(pcA0.9659)Andnl>(10A2.7228)*(pc八0.9659)Then

Text4.Text=”推荐选Z带”

Al=Array(80,90)

Fori=0To1

v=3.145926*Al(i)*nl/60000

Ifv>5Andv<25Then

dl=Al(i)

ExitFor

EndIf

3

机械设计基础作业普通V带传动的设计

Next

EndIf

Ifni<(10A2.7228)*(pcA0.9659)Andni>=(10A2.2286)*(pcA1.1477)Then

Text4.Text二”推荐选A带”

A2=Array(90,100)

Fori=OTo1

v=3.l45926*A2(i)*nl/60000

Ifv>5Andv<25Then

dl=A2(i)

ExitFor

EndIf

Next

EndIf

Ifni<(10A2.2286)*(pcA1.1477)Andni>(10A2.13101)*(pcA0.9659)Then

Text4.Text=”推荐选A带”

A2=Array(112,125,140,160,180)

Fori=0To4

v=3.145926*A2(i)*nl/60000

Ifv>5Andv<25Then

dl=A2(i)

ExitFor

EndIf

Next

EndIf

Ifni<=(10A2.13101)*(pcA0.9659)Andnl>=(10A1.7758)*(pcA1.03366)Then

Text4.Text=”推荐选B带”

A3=Array(125,140)

Fori=0ToI

v=3.145926*A3(i)*nl/60000

Ifv>5Andv<25Then

dl=A3(i)

ExitFor

EndIf

Next

EndIf

Ifni<(10A1.7758)*(pcA1.03366)Andni>=(10A1.46891)*(pcA1.16112)Then

Text4.Text=”推荐选B带”

A3=Array(160,180,200,224,250,280)

Fori=0To5

v=3.145926*A3(i)*nl/60000

Ifv>5Andv<25Then

dl=A3(i)

4

机械设计基础作业普通V带传动的设计

ExitFor

EndIf

Next

EndIf

Ifni<(10A1.46891)*(pcA1.16112)Andnl>=(10A0.89902)*(pcA1.21825)Then

Text4.Text二”推荐选C带”

A4=Array(200,224,250,280,315,355,400,450)

Fori=0To7

v=3.145926*A4(i)*nl/60000

Ifv>5Andv<25Then

dl=A4(i)

ExitFor

EndIf

Next

EndIf

Ifni<(10A0.89902)*(pcA1.21825)Andnl>=(I0A-0.24592)*(pcA1.32193)Then

Text4.Text=”推荐选D带”

EndIf

Ifni<(10A-0.24592)*(pcA1.32193)Then

Text4.Text=”推荐选E带”

EndIf，小轮直径dl求出，并圆

整到标准尺寸

s=(l-0.02)*dl*nl/n2

Bl=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)

Forj=0To45

Ifs<Bl(j)Then

s=Bl(j)

d2=s

ExitFor

EndIf

Next1大轮直径求出并圆整

到标准尺寸

Label10.Caption=dl&"mm"

Label11.Caption=d2&"mm”

Ifdl=0Ord2=0Then

MsgBox”参数不合适请重新设计”

5

机械设计基础作业普通V带传动的设计

EndIf

aO=1.5*(dl+d2)

L0=2*a0+3.1415926*(dl+d2)/2+0.25*(d2-dl)A2/aO

Setrs4=db.OpenRecordset(,'ldyukr,)

DoWhileNotrs4.EOF

t=rs4.Fields(0).Value

Ift>L0Then

Ld=l

ExitDo

EndIf

rs4.MoveNext

Loop

rs4.Close

'L0算出

Text5.Text="带长度为“&Ld

a=aO+(Ld-L0)/2

'验算包角

arf=I80-(d2-dl)/2

Ifarf>90Thcn

Else

MsgBox”包角太小，参数不合理重新设计”

EndIf'包角a求出

，选择kl

strSQL="SELECTz,a,b,cFROMIdyukl"'数据库调用

strSQL=strSQL&"WHEREJZchangdu="&Ld

Setrs4=db.OpenRecordset(strSQL)

IfText4.Text="推荐选z带"Then

h=rs4.Fields(0).Value

kl=h

EndIf

IfText4.Text二”推荐选A带"Then

hl=rs4.Fields(l).Value

kl=hl

6

机械设计基础作业普通V带传动的设计

'kl算出

EndIf

IfText4.Text=”推荐选B带"Then

h2=rs4.Fields(2).Value

kl=h2

EndIf

IfText4.Text=”推荐选C带"Then

h3=rs4.Fields(3).Value

kl=h3

EndIf

'求带根数z

Setrsl=db-OpenRecordsetCbaojiaokr'*)，数据库查询kr

DoWhileNotrsl.EOF

h4=rsl.Fields(O).Value

Ifarf>h4Then

bj=h4

ExitDo

EndIf

rsl.MoveNcxt

Loop

rs1.Close

Print;bj&"bj"

strSQL="SELECTbaojiao,krFROMbaojiaokr"

strSQL=strSQL&"WHEREbaojiao="&bj

Setrsl=db.OpenRecordset(strSQL)

h5=rsl.Ficlds(l).Value

…h5=ki•求出

A5=Array(200,400,800,950,1200,1450,1600,1800.2000,2400,2800,3200,3600,4000,5000,6000)

Fori=0To15

Ifni<A5(i)Then

nl=A5(i)

ExitFor

EndIf

Next

IfText4.Text=”推荐选Z带"Then

7

机械设计基础作业普通V带传动的设计

strSQL="SELECT"&"["&nl&"],xinghao,xiaozhijingFROMEDinggonglv”

strSQL=strSQL&"WHERExinghao=*z'ANDxiaozhijing="&d1

Setrs2=db.OpenRecordset(strSQL)

h6=rs2.Fields(0).Value

EndIf

IfText4.Text="推荐选AThen

strSQL="SELECT"&"["&nl&"|,xinghao,xiaozhijingFROMEDinggonglv"

strSQL=strSQL&"WHERExinghao='a'ANDxiaozhijing+'&d1

Setrs2=db.OpenRecordset(strSQL)

h6=rs2.Fields(0).Value

EndIf

IfText4.Text=”推荐选B带"Then

strSQL="SELECT"&"["&nl&"],xinghao,xiaozhijingFROMEDinggonglv”

strSQL=strSQL&"WHERExinghao='b*ANDxiaozhijing="&dl

Setrs2=db.OpenRecordset(strSQL)

h6=rs2.Fields(0).Value

EndIf

IfText4.Text二”推荐选C带"Then

strSQL="SELECT"&"〔“&nl&”],xinghao,xiaozhijingFROMEDinggonglv”

strSQL=strSQL&"WHERExinghao='c'ANDxiaozhijing="&dl

Setrs2=db.OpenRecordset(strSQL)

h6=rs2.Fields(0).Value

EndIf

,h6就是pO

A6=Array(400,730,800,980,1200,1460,1600,2000)

Forj=OTo7

Ifnl>A6(j)Then

nl=A6(j)

EndIf

Next

IfText4.Text二”推荐选Z带"Then

Ifni/n2<1.52Then

strSQL="SELECT"&"["&nl&"],i,xinghaoFROMEDzengliang"

strSQL=strSQL&"WHERExinghao='z'ANDi="&1.52

Setrs3=db.OpenRecordset(strSQL)

h7=rs3.Fields(0).Value

EndIf

8

机械设计基础作业普通V带传动的设计

Ifnl>=1.52Andnl/n2<1.99Then

strSQL="SELECT"&"],i,xinghaoFROMEDzengliang"

strSQL=strSQL&"WHERExinghao='z'ANDi="&2

Setrs3=db.OpenRecordset(strSQL)

h7=rs3.Fields(0).Value

EndIf

Ifni/n2>=2Then

strSQL="SELECT"&T&nl&"],i,xinghaoFROMEDzengliang”

strSQL=strSQL&"WHERExinghao='z'ANDi="&100

Setrs3=db.OpenRecordset(strSQL)

h7=rs3.Fields(0).Value

EndIf

EndIf

IfText4.Text=”推荐选A带"Then

Ifni/n2<1.52Then

strSQL="SELECT"&"["&nl&"],i,xinghaoFROMEDzengliang”

strSQL=strSQL&"WHERExinghao=ANDi=n&1.52

Setrs3=db.OpenRecordset(strSQL)

h7=rs3.Fields(0).Value

EndIf

Ifni>=1.52Andnl/n2<1.99Then

strSQL="SELECT"&n["&nl&"],i,xinghaoFROMEDzengliang"

strSQL=strSQL&"WHERExinghao='a'ANDi="&2

Setrs3=db.OpenRccordset(strSQL)

h7=rs3.Fields(0).Value

EndIf

Ifni/n2>=2Then

strSQL='•SELECT"&&nl&"],i,xinghaoFROMEDzengliang"

strSQL=strSQL&"WHERExinghao='a1ANDi="&100

Setrs3=db.OpenRecordset(strSQL)

h7=rs3.Fields(0).Value

EndIf

EndIf

IfText4.Text=”推荐选B带"Then

Ifni/n2<1.52Then

strSQL="SELECT"&n["&nl&"],i,xinghaoFROMEDzengliang”

strSQL=strSQL&"WHERExinghao='b'ANDi="&1.52

Setrs3=db.OpenRccordset(strSQL)

h7=rs3.Fields(0).Value

EndIf

Ifni>=1.52Andnl/n2<1.99Then

9

机械设计基础作业普通V带传动的设计

strSQL="SELECT"&"["&nl&"],i,xinghaoFROMEDzengliang"

strSQL=strSQL&”WHERExinghao='b'ANDi="&2

Setrs3=db.OpenRecordset(strSQL)

h7=rs3.Fields(0).Value

EndIf

Ifni/n2>2Then

strSQL="SELECT"&"["&nl&"],i,xinghaoFROMEDzengliang"

strSQL=strSQL&"WHERExinghao='b'ANDi="&100

Setrs3=db.OpenRecordset(strSQL)

h7=rs3.Fields(0).Value

EndIf

EndIf

IfText4.Text=”推荐选C带"Then

Ifni/n2<1.52Then

strSQL="SELECT"&'T'&nl&"],i,xinghaoFROMEDzengliang"

strSQL=strSQL&"WHERExinghao='c'ANDi="&1.52

Setrs3=db.OpenRecordset(strSQL)

h7=rs3.Fields(0).Value

EndIf

Ifni>=1.52Andnl/n2<1.99Then

strSQL="SELECT"&T&nl&"],i,xinghaoFROMEDzengliang"

strSQL=strSQL&"WHERExinghao='c'ANDi="&2

Setrs3=db.OpenRecordset(strSQL)

h7=rs3.Fields(0).Value

EndIf

Ifni/n2>=2Then

strSQL="SELECT"&"[M&nl&"],i,