【精品】哈工大机械设计电算程序vb

《【精品】哈工大机械设计电算程序vb》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、DimaAsDoubleDimtAsStringDimalAsIntegerDima2AsIntegerDimklAsDoubleDimkbAsDoubleDimKiAsDoubleDimkaoAsDoubleDimmAsDoubleDimfAsDoubleDimeAsDoubleDimpnum()AsVariantDimnum()AsVariantDimkkaAsVariantDimlld()AsVariantDimkkl()AsVariantDimvmaxAsDouble'计算相关参数PrivateSubCommandl_Click()fchu=Round((50

2、0*Val(pd)*(2.5-kao)/Val(z)/Val(v)/kao+m*Val(v)A2),2)fq=Round((2*Vai⑵*Val(fchu)*Sin(Val(bao)*3.1416/360)),2)bmm=(Val(z)-1)*e+2*ffchu.Text=fchu:fq.Text=fq:bmm.Text=bmmEndSubPrivateSubCommand2_Click()1确定载荷情况系数DimKAIAsDoublelfVal(n)<100ThenCallMsgBox(u转速过小！48,”警告“):n.Text=,u,:n.SetFocusElse

3、lfVal(n)>6000ThenCallMsgBox("转速过大！48z"警告M)：n.Text="":n.SetFocusElse:zaihe.Enabled=TrueIfdianjileixing.Text="I类,,Andzaihe.Text="载荷平稳”AndWorkHour.Text="<10h/天”ThenKA1=1Ifdianjileixing.Text="I类”Andzaihe.Text=”载荷平稳”AndWorkHour.Text="10^16h/天”ThenKAI=1.1Ifdianjileixing.Text="1类”Andzaihe.Text

4、="载荷平稳”AndWorkHour.Text=">16h/天“ThenKAI=1.2Ifdianjileixing.Text="I类”Andzaihe.Text="载荷变动小"AndWorkHour.Text="<10h/天"ThenKAI=1.1Ifdianjileixing.Text="I类”Andzaihe.Text=“载荷变动小“AndWorkHour.Text=”10T6h/天“ThenKAI=1.2Ifdianjileixing.Text="I类”Andzaihe.Text="载荷变动小"AndWorkHour.Text=">16h/天”ThenKAI=

5、1.3Ifdianjileixing.Text="I类”Andzaihe.Text="载荷变动较大"AndWorkHour.Text="<10h/天”ThenKAI=1.2Ifdianjileixing.Text=*'l类”Andzaihe.Text="载荷变动较大”AndWorkHour.Text="10~16h/天,,ThenKAI=1.3Ifdianjileixing.Text="I类"Andzaihe.Text="载荷变动较大"AndWorkHour.Text=">16h/天,,ThenKAI=1.4Ifdianjileixing.Text="I类,,Andz

6、aihe.Text=”载荷变动很大”AndWorkHour.Text="<10h/天”ThenKAI=1.3Ifdianjileixing.Text="I类"Andzaihe.Text="载荷变动很大"AndWorkHour.Text="10~16h/天"ThenKAI=1.4Ifdianjileixing.Text="I类”Andzaihe.Text二"载荷变动很大,,AndWorkHour.Text=">16h/天"ThenKAI=1.5Ifdianjileixing.Text="II类”Andzaihe.Text="载荷平稳"AndWorkHour.Text="

7、<10h/天"ThenKAI=1.1Ifdianjileixing.Text="II类”Andzaihe.Text=“载荷平稳”AndWorkHour.Text=”10~16h/天“ThenKAI=1.2Ifdianjileixing.Text="II类”Andzaihe.Text="载荷平稳"AndWorkHour.Text=">16h/天”ThenKAI=1.3Ifdianjileixing.Text="II类”Andzaihe.Text="载荷变动小”AndWorkHour.Text="<10h/天”ThenKAI=1.2Ifdianjilei