第1篇 Visual Basic程序设计基础 2
1 Visual Basic集成开发环境 2
1.1 集成开发环境的主要元素 3
1.2 窗体设计器窗口 4
1.3 工程资源管理器窗口 5
1.4 代码编辑器窗口 5
1.5 工具箱窗口 6
1.6 属性窗口 7
2 编写机械设计计算程序的一般步骤 10
【例2-1】计算变位齿轮公法线长度wk 10
2.1 明确编写程序的目的和整理相关的计算公式、数学模型 10
2.2 在简单的界面上用BASIC编写计算程序并完成调试 10
2.3 设计一个较为完备的用户界面 13
2.4 用BASIC编写各过程代码指令 15
2.5 运行、调试、保存 15
【例2-2】编一个简单界面的程序 17
3 Visual Basic程序设计基础 19
3.1 BASIC代码简单语句 19
3.2 数据类型 19
3.3 常量与变量 20
3.4 运算符 22
3.5 常用内部函数 23
【例3-1】产生不再重复的真正的随机数 23
【例3-2】字符串函数的操作 24
【例3-3】齿轮齿数与根切 25
3.6 选择控制结构 28
【例3-4】圆柱形热交换器的容积计算 29
3.7 循环结构 31
3.8 数组 32
【例3-5】用键盘输入5个小汽油机型号名 33
【例3-6】搜寻出某公司产品的主参数 34
4 过程 35
4.1 子过程 35
4.2 函数过程 38
4.3 Shell函数 39
【例4-1】使用Shell函数来执行一个指定的应用程序 39
【例4-2】计算变厚齿大端公法线厚度wKL的程序 40
【例4-3】用Call调用子过程方法，编写一个计算变厚齿大端公法线长度wKL的程序（子过程是计算变厚齿大端变位系数） 43
【例4-4】使用Call调用子过程（计算变厚齿大端变位系数）计算变厚齿大端公法线长度wKL的程序 43
5 常用控件和窗体 45
5.1 命令按钮控件 45
5.2 标签控件 45
5.3 文本框控件 45
5.4 单选按钮控件 45
5.5 复选框控件 46
5.6 列表框控件 46
5.7 组合框控件 46
5.8 滚动条控件 47
5.9 窗体 47
5.10 多重窗体 47
【例5-1】利用多重窗体计算变厚齿大端公法线长度wKL 48
6 菜单编辑器 51
6.1 下拉式菜单 51
6.2 RichTextBox控件 53
6.3 弹出式菜单 54
【例6-1】利用菜单编辑器编制一个数值计算程序常用菜单的界面，并在此菜单下计算一个扭杆的刚度 54
7 通用对话框 59
7.1 工具箱里添加通用对话框的方法 59
7.2 通用对话框的基本属性及其显示方法 61
7.3 对话框的属性设置 61
【例7-1】编制一程序，存入一图样，并能打开其他图样，及以另起的图样名另存到想存的图样文件夹内 64
8 图形和图像控件 67
8.1 直线控件和形状控件 67
8.2 画直线和矩形的方法（Line） 67
8.3 Shape方法 67
8.4 颜色函数 68
8.5 Pset方法 68
【例8-1】用Pset方法绘制齿扇偏心法变间隙传动的齿扇齿条机构的侧间隙-转角的特性曲线 68
9 Windows API函数的使用 70
9.1 Windows API函数 70
9.2 使用Windows API的函数 71
9.3 API绘图函数应用 72
【例9-1】用API函数中的绘图函数Rectangle，绘制例8-1中的齿扇偏心法变间隙传动的齿扇齿条机构的侧间隙-转角的特性曲线 73
第2篇 机械设计计算程序设计基础 73
10 机械设计编程概述 78
10.1 机械设计编程的重要性及本书的目的 78
10.2 用Visual Basic进行机械设计编程与其他编程平台的比较 79
10.3 机械设计编程的任务与机械设计编程的评价 80
11 机械设计数表处理 84
11.1 一维规则非函数表的处理 84
11.2 二维规则函数表的处理 84
【例11-1】把人工插值过程转化为计算机程序处理过程，查询齿轮应力修正系数Ysa 84
12 机械设计计算程序常用的用户界面 89
12.1 简化界面 89
12.2 参数化界面 89
【例12-1】设计一个参数化界面程序，计算变厚齿大端公法线长度wKL，最后完成保存计算结果 89
12.3 具有保存计算结果功能的简化界面的程序 95
【例12-2】设计一个简化界面的程序，并将计算结果另存到“运行记录”中 95
第3篇 机械设计计算实例集锦 95
13 用迭代法研究偏心齿对重合度的影响 100
13.1 用迭代法研究偏心齿对重合度的影响的介绍 100
【例13-1】建立偏心齿重合度的计算方法，求出6.5模数变厚齿扇齿齿扇，切齿中心与轴心偏心距e＝0.5对重合度的变化及算出影响安全系数的具体值 101
13.2 偏心齿重合度计算的程序编制 103
13.3 程序运行结果及分析 120
14 用蒙特卡洛法进行优化生产膜片弹簧、碟簧 123
14.1 膜片弹簧、碟簧生产进行优化简介 123
14.2 膜片弹簧的载荷-变形非线性方程f（x）＝0简介与求方程系数程序 124
14.3 蒙特卡洛法简介与求膜片弹簧最佳磨削厚度的程序 130
14.4 验证用蒙特卡洛法求得的膜片弹簧最佳磨削厚度的正确性 133
14.5 结论与说明 144
15 用迭代法提高变厚齿扇齿厚跨距半径计算精度 145
15.1 齿扇齿厚跨距半径的几何含义和传统算法 145
15.2 迭代算法计算齿扇齿厚跨距半径 148
15.3 迭代算法计算齿扇齿厚跨距半径的程序代码 149
15.4 查表法和迭代算法计算齿扇齿厚跨距半径的对比分析 154
16 用迭代法对超声加工变幅杆的优化设计 156
16.1 超声加工变幅杆的介绍 156
【例16-1】已知45钢的圆锥形变幅杆的初设定长度、两端直径、中孔直径，求符合谐振要求的精确长度及放大系数 157
16.2 用迭代法对超声加工变幅杆（带中孔）的优化设计的程序编制 158
16.3 对超声加工圆锥形变幅杆（带中孔）优化的计算结果及分析 162
17 膜片弹簧性能曲线的计算和绘制 163
17.1 用户需求 163
17.2 膜片弹簧性能曲线计算、绘制的程序编制 163
17.3 膜片弹簧性能曲线计算、绘制程序运行的结果及分析 170
18 二冲程汽油机换气计算 175
18.1 二冲程汽油机换气计算的介绍 175
【例18-1】二冲程汽油机的换气计算 179
18.2 二冲程汽油机换气计算程序代码的编制 181
18.3 二冲程汽油机换气计算的结果及分析 182
18.4 采用经验公式对扫排气口的校核计算 182
19 用计算机辅助网络计划管理 189
19.1 用计算机辅助网络计划管理简介 189
19.2 网络计划管理的程序代码编制 193
19.3 网络计划管理的程序运行结果及分析 194
19.4 网络计划管理的动态管理与程序版本号 195
20 调用伽马函数实现变厚齿强度的概率可靠性调优计算 197
20.1 调用伽马函数实现变厚齿强度的概率可靠性调优计算的介绍 197
【例20-1】对某5t商用车转向器变厚齿齿扇的齿根弯曲强度进行校核的调优计算与概率可靠性的调优计算 205
20.2 可实现变厚齿齿根弯曲强度校核和概率可靠性调优计算的程序 205
20.3 强度校核和概率可靠性调优计算的程序运行结果及分析 222
20.4 概率可靠性设计的安全系数和传统的强度校核的安全系数的不同 226
21 简化界面程序改编为参数化界面程序 237
21.1 简化界面、参数化界面的源程序、应用程序的形式及关系 237
21.2 变厚齿扇齿的强度校核计算的简化界面应用程序 238
21.3 变厚齿扇齿的强度校核计算的参数化界面源程序 239
21.4 变厚齿扇齿的强度校核计算的参数化界面源程序生成参数化界面的应用程序 243
21.5 编制（包括改编）机械设计计算程序的一些要点 244
22 对行星减速器中心轮的威布尔分析 246
22.1 行星减速器中心轮的威布尔分析的介绍 246
【例22-1】对于某型行星减速器第一中心轮疲劳寿命试验数据采用威布尔分析 248
22.2 行星减速器中心轮的威布尔分析的程序编制 251
22.3 减速器中心轮威布尔分析程序运行结果分析及置信检验 255
23 支架梁挠度矩阵的跨平台计算 260
23.1 弹性梁的挠度计算 260
23.2 弹性梁的挠度计算的程序编制 260
【例23-1】编制一程序对简支梁挠度进行验算 260
23.3 程序运行结果及分析 263
23.4 简支梁多处加载，而后产生的综合变形（挠度）的计算的程序编制 265
【例23-2】已知某简支梁的柔度矩阵，为使b1、b2两处的变形为0，b3处的变形为0.02，则在b1、b2、b3将分别加载多少，编制一matlab程序进行计算，并求得其刚度矩阵 266
【例23-3】验证在b1、b2、b3处给定力（6.3589、-9.7491、6.9144）后所产生的挠度y1是否符合要求 267
附录 269
附表1 由可靠性系数式u查定可靠度R 269
附表2 95％矢值表 270
附表3 5％矢值表 271
参考文献 272