实用机械设计VB编程及实例

第1篇 Visual Basic程序设计基础

1 Visual Basic集成开发环境

1.1 集成开发环境的主要元素

1.2 窗体设计器窗口

1.3 工程资源管理器窗口

1.4 代码编辑器窗口

1.5 工具箱窗口

1.6 属性窗口

2 编写机械设计计算程序的一般步骤

【例2-1】 计算变位齿轮公法线长度wk

2.1 明确编写程序的目的和整理相关的计算公式、数学模型

2.2 在简单的界面上用BASIC编写计算程序并完成调试

2.3 设计一个较为完备的用户界面

2.4 用BASIC编写各过程代码指令

2.5 运行、调试、保存

【例2-2】 编一个简单界面的程序

3 Visual Basic程序设计基础

3.1 BASIC代码简单语句

3.2 数据类型

3.3 常量与变量

3.4 运算符

3.5 常用内部函数

【例3-1】 产生不再重复的真正的随机数

【例3-2】 字符串函数的操作

【例3-3】 齿轮齿数与根切

3.6 选择控制结构

【例3-4】 圆柱形热交换器的容积计算

3.7 循环结构

3.8 数组

【例3-5】 用键盘输入5个小汽油机型号名

【例3-6】 搜寻出某公司产品的主参数

4 过程

4.1 子过程

4.2 函数过程

4.3 Shell函数

【例4-1】 使用Shell函数来执行一个指定的应用程序

【例4-2】 计算变厚齿大端公法线厚度wkL的程序

【例4-3】 用Call调用子过程方法，编写一个计算变厚齿大端公法线长度wkL的

程序（子过程是计算变厚齿大端变位系数）

【例4-4】 使用Call调用子过程（计算变厚齿大端变位系数）计算变厚齿

大端公法线长度wkL的程序

5 常用控件和窗体

5.1 命令按钮控件

5.2 标签控件

5.3 文本框控件

5.4 单选按钮控件

5.5 复选框控件

5.6 列表框控件

5.7 组合框控件

5.8 滚动条控件

5.9 窗体

5.10 多重窗体

【例5-1】 利用多重窗体计算变厚齿大端公法线长度wkL

6 菜单编辑器

6.1 下拉式菜单

6.2 RichTextBox控件

6.3 弹出式菜单

【例6-1】 利用菜单编辑器编制一个数值计算程序常用菜单的界面，并在此菜单

下计算一个扭杆的刚度

7 通用对话框

7.1 工具箱里添加通用对话框的方法

7.2 通用对话框的基本属性及其显示方法

7.3 对话框的属性设置

【例7-1】 编制一程序，存入一图样，并能打开其他图样，及以另起的图样名

另存到想存的图样文件夹内

8 图形和图像控件

8.1 直线控件和形状控件

8.2 画直线和矩形的方法（Line）

8.3 Shape方法

8.4 颜色函数

8.5 Pset方法

【例8-1】 用Pset方法绘制齿扇偏心法变间隙传动的齿扇齿条机构的侧间隙-转角的特性曲线

9 Windows API函数的使用

9.1 Windows API函数

9.2 使用Windows API的函数

9.3 API 绘图函数应用

【例9-1】 用API函数中的绘图函数Rectangle，绘制例8-1中的齿扇偏心法变间隙传动的齿扇齿条机构的侧间隙-转角的特性曲线

第2篇 机械设计计算程序设计基础

10 机械设计编程概述

10.1 机械设计编程的重要性及本书的目的

10.2 用Visual Basic进行机械设计编程与其他编程平台的比较

10.3 机械设计编程的任务与机械设计编程的评价

11 机械设计数表处理

11.1 一维规则非函数表的处理

11.2 二维规则函数表的处理

【例11-1】 把人工插值过程转化为计算机程序处理过程，查询齿轮应力修正系数Ysa

12 机械设计计算程序常用的用户界面

12.1 简化界面

12.2 参数化界面

【例12-1】 设计一个参数化界面程序，计算变厚齿大端公法线长度wkL，最后完成保存计算结果

12.3 具有保存计算结果功能的简化界面的程序

【例12-2】 设计一个简化界面的程序，并将计算结果另存到“运行记录”中

第3篇 机械设计计算实例集锦

13 用迭代法研究偏心齿对重合度的影响

13.1 用迭代法研究偏心齿对重合度的影响的介绍

【例13-1】 建立偏心齿重合度的计算方法，求出6.5模数变厚齿扇齿齿扇，切齿中心与轴心偏心距e = 0.5对重合度的变化及算出影响安全系数的具体值

13.2 偏心齿重合度计算的程序编制

13.3 程序运行结果及分析

14 用蒙特卡洛法进行优化生产膜片弹簧、碟簧

14.1 膜片弹簧、碟簧生产进行优化简介

14.2 膜片弹簧的载荷-变形非线性方程f (x)=0简介与求方程系数程序

14.3 蒙特卡洛法简介与求膜片弹簧最佳磨削厚度的程序

14.4 验证用蒙特卡洛法求得的膜片弹簧最佳磨削厚度的正确性

14.5 结论与说明

15 用迭代法提高变厚齿扇齿厚跨距半径计算精度

15.1 齿扇齿厚跨距半径的几何含义和传统算法

15.2 迭代算法计算齿扇齿厚跨距半径

15.3 迭代算法计算齿扇齿厚跨距半径的程序代码

15.4 查表法和迭代算法计算齿扇齿厚跨距半径的对比分析

16 用迭代法对超声加工变幅杆的优化设计

16.1 超声加工变幅杆的介绍

【例16-1】 已知45钢的圆锥形变幅杆的初设定长度、两端直径、中孔直径，求符合谐振要求的精确长度及放大系数

16.2 用迭代法对超声加工变幅杆（带中孔）的优化设计的程序编制

16.3 对超声加工圆锥形变幅杆（带中孔）优化的计算结果及分析

17 膜片弹簧性能曲线的计算和绘制

17.1 用户需求

17.2 膜片弹簧性能曲线计算、绘制的程序编制

17.3 膜片弹簧性能曲线计算、绘制程序运行的结果及分析

18 二冲程汽油机换气计算

18.1 二冲程汽油机换气计算的介绍

【例18-1】 二冲程汽油机的换气计算

18.2 二冲程汽油机换气计算程序代码的编制

18.3 二冲程汽油机换气计算的结果及分析

18.4 采用经验公式对扫排气口的校核计算

19 用计算机辅助网络计划管理

19.1 用计算机辅助网络计划管理简介

19.2 网络计划管理的程序代码编制

19.3 网络计划管理的程序运行结果及分析

19.4 网络计划管理的动态管理与程序版本号

20 调用伽马函数实现变厚齿强度的概率可靠性调优计算

20.1 调用伽马函数实现变厚齿强度的概率可靠性调优计算的介绍

【例20-1】 对某5t商用车转向器变厚齿齿扇的齿根弯曲强度进行校核的调优计算与概率可靠性的调优计算

20.2 可实现变厚齿齿根弯曲强度校核和概率可靠性调优计算的程序

20.3 强度校核和概率可靠性调优计算的程序运行结果及分析

20.4 概率可靠性设计的安全系数和传统的强度校核的安全系数的不同

21 简化界面程序改编为参数化界面程序

21.1 简化界面、参数化界面的源程序、应用程序的形式及关系

21.2 变厚齿扇齿的强度校核计算的简化界面应用程序

21.3 变厚齿扇齿的强度校核计算的参数化界面源程序

21.4 变厚齿扇齿的强度校核计算的参数化界面源程序生成参数化界面的应用程序

21.5 编制（包括改编）机械设计计算程序的一些要点

22 对行星减速器中心轮的威布尔分析

22.1 行星减速器中心轮的威布尔分析的介绍

【例22-1】 对于某型行星减速器第一中心轮疲劳寿命试验数据采用威布尔分析

22.2 行星减速器中心轮的威布尔分析的程序编制

22.3 减速器中心轮威布尔分析程序运行结果分析及置信检验

23 支架梁挠度矩阵的跨平台计算

23.1 弹性梁的挠度计算

23.2 弹性梁的挠度计算的程序编制

【例23-1】 编制一程序对简支梁挠度进行验算

23.3 程序运行结果及分析

23.4 简支梁多处加载，而后产生的综合变形（挠度）的计算的程序编制

【例23-2】 已知某简支梁的柔度矩阵，为使b1、b2两处的变形为0，b3处的变形为0.02，则在b1、b2、b3将分别加载多少，编制一matlab程序进行

计算，并求得其刚度矩阵

【例23-3】 验证在b1、b2、b3处给定力（6.3589、-9.7491、6.9144）后所产生的挠度y1是否符合要求

附录

附表1 由可靠性系数式u查定可靠度R

附表2 95%矢值表

附表3 5%矢值表

参考文献

自主开发适合自己使用的工程软件是现代机械设计发展的趋势之一。《实用机械设计VB编程及实例（附光盘）（2版）》在详细介绍了用VB开发机械设计计算程序的方法基础上，精选了大量的机械设计计算实例，范围涉及产品设计多因素优化、迭代法提高计算精度、产品特性曲线计算及绘制、强度可靠性分析等，并给出了程序源代码。随书附带的光盘中包括了书中所列举实例的运行程序，便于读者调用实践。本书作者从事机械设计软件开发多年，既有深厚的机械设计功底，又有丰富的编程经验。

　　《实用机械设计VB编程及实例（附光盘）（2版）》适用于工程软件开发人员、机械设计人员以及高等院校机械专业师生学习和参考。