机械设计上机设计实验报告

来源：用户分享时间：2025/6/20 6:27:03 本文由

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ：xxxxxx 处理（尽可能给您提供完整文档），感谢您的支持与谅解。

机械设计上机设计

班级：姓名：学号：

1.数表和线图的程序化处理 ........................................................................................ 1

1.1数表的程序化 ............................................................................................................... 1

1.1.1查表检索法 .................................................................................................................... 1 1.1.2数表解析法 ........................................................................................................................ 12

1.2线图的程序化 ...................................................................................................................... 15 1.3有关数据处理 ...................................................................................................................... 16

2.典型零部件的程序设计 .......................................................................................... 18

2.1 V带传动的程序设计 .............................................................................................. 18 2.2 齿轮传动的程序设计 ................................................................................................... 19 2.3 滚动轴承的程序设计 ..................................................................................................... 21

3.课后习题计算 .............................................................................................................. 22

一、表和线图的程序化处理

1.1 数表程序化

数表程序化有两种方法：一是查表检索法；二是数表解析法

1.1.1 查表检索法

1）一元数表的存取

表1-1 普通V带型号及有关参数

程序变量名称 s q1 dm kb

运行界面：

普通V带型号

参数名称

带型代号 q / kg·m-1 dmin/ mm Kb/ 10-3

1 0.02 20 0.02

Z 2 0.06 50 0.17

A 3 0.10 75 1.03

B 4 0.17 125 2.65

C 5 0.30 200 7.50

D 6 0.62 355 26.6

E 7 0.90 500 49.8

程序代码：

Private Sub Command1_Click() Dim s As Integer

Dim q1 As Single, dm As Single, kb As Single s = Val(Txt_s.Text)

Select Case s Case 0

q1 = 0.02: dm = 20: kb = 0.00006 Case 1

q1 = 0.06: dm = 50: kb = 0.00039 Case 2

q1 = 0.1: dm = 75: kb = 0.00103 Case 4

q1 = 0.17: dm = 125: kb = 0.00265 Case 5

q1 = 0.3: dm = 200: kb = 0.0075 Case 6

q1 = 0.62: dm = 355: kb = 0.0266 Case 7

q1 = 0.9: dm = 500: kb = 0.0498 End Select

Txt_q1.Text = Str(q1) Txt_dmin.Text = Str(dm) Txt_kb.Text = Str(kb) End Sub

Private Sub Command2_Click() End End Sub

2）二元数表的存取

表1-2齿轮传动工作状况系数KA 工作机（代码N）原动机（代码M） 1 平稳 1 2 3 2

2 中等冲击 1.25 1.5 1.75 3 较大冲击 1.75 2 ≥2.25 工作平稳轻度冲击中等冲击 1 1.25 1.5

搜索更多关于：机械设计上机设计实验报告的文档

机械设计上机设计实验报告.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.diyifanwen.net/c3mpa47tf5t02tja2irb3_1.html（转载请注明文章来源）