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

格式：doc
大小：284.00 KB
文档页数：13

下载文档原格式

/ 13

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

上机电算说明书

课程名称：机械设计

电算题目：V带传动设计

院系：机电控制学院

班级：1308102班

设计者：尤开灵

学号：1130810222

设计时间：2015.10.17

部分变量说明（所有说明见程序部分变量定义）

ka 工作情况系数 p 输入功率 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(Text3.Text)

a() = Array(20, 28, 31.5, 35.5, 40, 45, 50, 56, 63, 71, 75, 80, 90, 100, 112, 125, 140, 150, 160, 180, 200, 224, 250, 280, 315, 355, 400, 425, 450, 500, 560, 600, 630, 710, 800, 0)

b() = Array(200, 224, 250, 280, 315, 355, 400, 450, 500, 560, 630, 710, 800, 900, 1000, 1120, 1250, 1400, 1600, 1800, 2000, 2240, 2500, 2800, 3150, 3550, 4000, 4500, 5000, 0)

nn() = Array(100, 200, 400, 700, 800, 950, 1200, 1450, 1600, 2000, 2400, 2800, 3200, 3600, 4000, 4500, 5000, 5500, 6000, 0)

mm() = Array(0.68, 0.73, 0.78, 0.82, 0.86, 0.89, 0.92, 0.95, 0.98, 1, 1.05, 1.1, 1.15, 1.2, 0)

End Sub

Private Sub f1() '选择ka1 计算pd