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

上机电算说明书 课程名称： 机械设计 电算题目： V带传动设计 1308102班 设 计 者： 尤开灵 学 号： 1130810222 设计时间： 2015.10.17 部分变量说明说明程序定义） 输入功率 kw pd 工作功率 kw i 传动比 n1 输入小轮转速 r/min d1 小带轮直径 mm d2 大带轮直径 mm v 皮带速度 m/s jiao 输出包容角度 ° ff0 初拉力 N ff1 轴间力 N ld 带的长度 mm z 皮带代数 根 m 质量 kg 程序运行截图 包括判断小轮，数据判断小轮 输出结果及其函数界面  程序代码 Dim ka1 As Double 工作情况系数变量 Dim ka As Double 工作情况系数 Dim p As Double 输入功率 Dim pi As Double pi的定义 Dim pd As Double 工作功率 Dim i As Double 传动比 Dim n1 As Double 输入小轮转速 Dim d1 As Double 小带轮直径 Dim d2 As Double 大带轮直径 Dim k As Double 循环变量 Dim a() 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 ff0 As Double 初拉力 Dim ff1 As Double 轴间力 Dim ld As Double 带的长度 Dim shunxu As Double 基本额定功率顺序 Dim shunxu1 As Double 长度顺序 Dim pnum() As Variant 基本功率序列 Dim lxishu() As Variant c长度系数 Dim p0 As Double 基本功率 Dim dp0 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 f0 Call f1 Text5.Text = n1 r/min Text4.Text = pd kw End Sub Private Sub Command2_Click() 小轮直径选择与确定 d1 = Val(Text7.Text) Call f2 Call f3 Call f4 End Sub Private Sub Command3_Click() 中心距离输入 aa = Val(Text16.Text) Call f5 End Sub Private Sub Command4_Click() 计算 Call f6 Call f7 Call f8 Text6.Text = d1 mm Text9.Text = d2 mm Text10.Text = z 根 Text12.Text = aaa mm Text11.Text = jiao 度 Text13.Text = ff0 N Text14.Text = ff1 N End Sub Private Sub Command1_Click() End End Sub Private Sub f0() 参数赋值函数 pi = 3.14159 p = Val(Text1.Text) i = Val(Text2.Text) n1 = Val(T