欢迎来到天天文库
浏览记录
ID:41707747
大小:101.40 KB
页数:12页
时间:2019-08-30
《机械设计作业普通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>
此文档下载收益归作者所有