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

《机械设计作业普通V带传动设计》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、机械设计作业普通V带传动设计图1运行界面j^uuxkcinjtxriHim图2设计结果界面OptionExplicit，数据库定义ConstDBnameAsString=nV带传动计算.mdbHDimstrPathAsStringDimdbAsDatabaseDimrslAsRecordsetDimrs2AsRecordsetDimrs3AsRecordsetDimrs4AsRecordsetDimstrSQLAsStringPrivateSubCommandl_Click()DimkaAsSin

2、gleDimklAsSingleDimpcAsSingleDimnlAsSingleDimn2AsSingleDinitAsSingleDimhAsSingleDimhlAsSingleDimh2AsSingleDimh3AsSingleDinih4AsSingleDimh5AsSingleDimh6AsSingleDimh7AsSingleDimh8%Dirndl%Dimd2%Dimi%Dimj%DimA1DimA2DimA3DimA4DimA5DimA6DimB1DimvAsSingleDim

3、sAsSingleDimaOAsSingleDimaAsInteger'工作情况系数'带长修正系数，计算功率pc'主动轮转速'从动轮转速'数据库中间变量'数据库中间变量，数据库中间变量'数据库中间变量'数据库中间变量'数据库中间变量'kr屮间变量'普通v带的基本额定功率p()'额定功率的ApO'带的根数'带的小轮玄径'带的大轮直径'循环中间变量'循环中间变量*数组'带速'中间变彊'计算中心距，标准中心距包角a'带长度'带的基准长度'包角DimarfAsSingleDimLOAsSingleDimL

4、dAsSingleDinibjAsSingleIfCombol.ListIndex=()Then■电动机(交流启动，三角启动，直流并励)，四缸以上的内燃机ka=1+0.1*ComboLListlndex+0.1*Combo2.Listindex+0.1*Combo3.ListindexEndIfIfCombol.ListIndex=1Then'电动机(联机交流启动，直流复励斤动)，四缸以上的内燃机IfCombo2.ListIndex<=1Then，负载变动不大ka=1+0.1*Combo1.Lis

5、tindex+0.1*Combo2.ListIndex+0.1*Combo3.LislIndexElseIfCombo3.Listindex<=1Then'每天工作时间小于十六小时ka=1.1+0」*Combo1.Listindex+0.1*Combo2.ListIndex+0.1*Combo3.ListindexElseka=1.2+0.1*ComboLListlndex+0.1*Combo2.Listindex+0.1*Combo3.ListindexEndIfEndIfEndIfXa计算出'

6、求出pcpc=ka*Text1.Textnl=Tcxt2.Tcxtn2=Text3.Text'带的选型和小轮(主动轮)的确定，带型号函数是由双对数坐标系算出Ifni>(10A2.89975)*(pcA0.9659)ThenText4.Text二”推荐选Z带”A1=Array(5(),56,63,71)Fori=0To3v=3.145926*Al(i)*nl/60000Ifv>5Andv<25Then，要求速度在大于5m/s小于25m/sdl=AI(i)ExitForEndIfNextEndIfIf

7、ni<(10A2.89975)*(pcA0.9659)Andnl>(10A2.7228)*(pcA0.9659)ThenTcxt4.Tcxt=”推荐选Z带"Al=Array(80,90)Fori=OTo1v=3.145926*AI(i)*nl/60000Ifv>5Andv<25Thendl=Al(i)ExitForEndIfNextEndIfIfni<(10A2.7228)*(pcA0.9659)Andnl>=(10A2.2286)*(pcA1.1477)ThenText4.Text=”推荐选A带

8、”A2=Array(90,100)Fori=0To1V=3.145926*A2(i)*nl/60000Ifv>5Andv<25Thendl=A2(i)ExitForEndIfNextEndIfIfni<(10A2.2286)*(pcA1.1477)Andnl>(10A2.13101)*(pcA0.9659)ThenText4.Text二”推荐选A带”A2=Array(112,125,140,160,180)Fori=0To4V=3.145926*A2(i)*nl/60000Ifv>