哈工大机械设计带传动设计电算大作业vb和语言程序代码.docVIP

上巩电算扰明爷 课程名秫： 电篡题目： 钒琬设计 V带俺助设计 院 系： 钒电控剌学院 班 级： 1308102 班 设计 者： 尤汗灵 学 1130810222 设计时间： 2015.10.17 部分变量说明（所有说明见程序部分变量定义） ka 工作情况系数 pd 工作功率 kw nl 输入小轮转速 r/min d2 大带轮直径 mm jiao 输出包容角度 o ffl 轴间力 N z 皮带代数 根 P 输入功率 kw ? 1 dl 传动比 小带轮直径 mm V 皮带速度 m/s ffO 初拉力 N Id 带的长度 mm m 质量 kg 程序运行截图 判断语句：包括速度判断选择小轮直径，输入数据判断小轮直径 输出结果及其函数界面 S格城^—— 亲件送拜 ￡?k編入卿 钱繼I 3 传动比i售入传动比 哞入不格酣 电机卖2?1 工關a 二］ 杂》利曲-复杂条件？ 条件输入确定 根振计u迭拜sa和a?a径 茭^?連s帥宰|设计功傘 此图如面右边 ?入迭拜中心姖 小轮e径 雜I―3 餓I小轮鱼径 中心? 卷考中心JK5困 计算结果 it算功攀p^k*? 计算I 退出I 小轮直径选择 Y：20, 28, 35.5, 40 Z：50, 63, 71, 80 A:75, 90, 100, 125 B:125, 140, 160, 180 C:200, 250, 315, 400 D:355, 400, 450, 500 E:500, 560, 630. 710 程序代码 Dim kal As Double ’工作情况系数变量 Dim ka As Double I:作情况系数 Dim p As Double ’输入功率 Dim pi As Double ’pi 的定义 Dim pd As Double ’工作功率 Dim i As Double 传动比 Dim nl As Double ’输入小轮转速 Dim dl As Double小带轮直径 Dim d2 As Double ’大带轮直径 Dim k As Double ’循环焚量 Dim a0 As Variant小轮直径选择序歹!) Dim b() As Variant ’皮带的长度选择序列 Dim nn() As Variant ’转速的选择序列 Dim mm() As Variant ’包容修正系数列表 Dim v As Double ’皮带速度 Dim aa As Double ’输入中心距离 Dim aaa As Double ’输出实陈中心距 Dim jiao As Double ’输出包容角度 Dim ffO As Double ’初拉力 Dim ffl As Double ’ 轴间力 Dim Id As Double ’带的长度 Dim shunxu As Double ’基本额定功率顺序 Dim shunxu 1 As Double 长度顺序 Dim pnum() As Variant蕪本功率序列 Dim lxishuO As Variant ’c 长度系数 Dim pO As Double ’基本功率 Dim dpO As Double ’增加功率 Dim z As Double ’皮带数 Dim kaa As Double ’包容修正系数 Dim kl As Double ’长度系数 Dim ki As Double ’传动比系数 Dim kb As Double ’弯曲系数 Dim m As Double ’质量 ’运行程序 Private Sub Command5 Click() ’ 条件输入确定 Call fO Call fl Text5.Text = nl r/min Text4.Text = pd kw End Sub Private Sub Command2 Click0 ’小轮直?选择与确定 dl = Val(Text7. Text) Call f2 Call f3 Call f4 End Sub Private Sub Command3_Click () ’屮心距离?输入 aa = Val (Text 16. Text) Call f5 End Sub Private Sub Command4_Click () ’计算 Call f6 Call f7 Call f8 Text6. Text = dl mm Text9. Text = d2 mm TextlO. Text = z 根 Textl2.Text = aaa mm Textll.Text = jiao 〃度 Textl3.Text = ffO N Textl4.Text = ffl N End Sub Private Sub Command1 Click0 End En