基于VB的一种压力试验机可视化测试软件

杨勇

摘要：壓力试验是常见的试验环节，本文介绍了在Windows环境下利用VB6.0，采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个压力试验机稳定性测试系统的过程。通过系统功能分析和模块设计完善，对算法进行对比，选择最优的数据处理方式，实现了数据实时采集和绘图处理，并通过数据模拟测试了软件的性能。

关键词：稳定性测试系统 压力试验 VB6.0

中图分类号：TP39 文献标识码：A 文章编号：1007-9416（2016）12-0060-01

压力实验是生产中常用的实验环节，作为保证产品质量的有力措施，企业对实验的可靠性和有效性非常重视。依靠提高实验的次数和严格的实验条件，从单方面苛求完美，到了一定的阶段必然会无法继续发展。另一行之有效的方法是从提高压力实验机稳定性和精度出发，开发出专门评估压力试验机稳定性的评估系统，从实验的源头保证实验的有效性，保证产品的质量。

随着计算机技术的发展，将软件技术应用于系统评估领域，成熟的系统评估理论与计算机技术相结合，可以开发出具有Windows界面风格的可视化软件评估系统。该系统能在线检测压力试验机的加载过程，实时的记录并保存数据，有效的解决了实验的再现问题。系统稳定性高，使用方便，便于移植，其产生的报表打印后可以做成随件单，跟随压力试验机。

1 算法的分析与选择

算法（Algorithm）是解题的步骤，可以把算法定义成解一确定类问题的任意一种特殊的方法。在计算机科学中，算法要用计算机算法语言描述，算法代表用计算机解一类问题的精确、有效的方法。

要分析压力实验系统的稳定性，有三种算法可以选择：①通过比较加载速率，对超出上下限的值计数，然后用该数值除以总数，得到超过范围的值所占的百分比。②对压力值作图分析，看它的变化是不是一条斜率相等的直线。③计算前后两次压力值的差，用它来除以时间间隔，得到压力加载的速率，并绘制曲线，其期望值是一条直线。

上述三种算法中，第一种精确，可以给出期望的超差率直接对比得出结论，相对简单，容易实现，不存在作图，只通过简单的计数和除法计算就可以实现，但不够直观。第二种和第三种直观，但相对第一种不够精确，不能肯定的给出一个结果，判断压力试验机的测试是否通过。尤其是第三种特别适合压力实验系统。在VB6.0显示和绘图都很方便，可以结合使用三种方法。

2 绘图区域作图的实现

基准值由用户设定，根据用户的设定可以在Picture1中画出基准线，程序如下：

Private Sub Text6_KeyPress（KeyAscii As Integer）

If KeyAscii = 13 Then

X = CSng（Val（Text6.Text））

Y = （7760 - 1000 / 0.48 * X）

Picture1.DrawStyle = 0

Picture1.Line （1300， Y）-（11040， Y）， RGB（0， 0， 300）

Text7.SetFocus

End If

End Sub

误差上限由用户设定，根据用户的设定可以在Picture1中画出直线，程序如下：

Private Sub Text7_KeyPress（KeyAscii As Integer）

If KeyAscii = 13 Then

X = CSng（Val（Text7.Text））

Y = （7760 - 1000 / 0.48 * X）

Picture1.DrawStyle = 2

Picture1.Line （1300， Y）-（11040， Y）， RGB（0， 0， 300）

Text8.SetFocus

End If

End Sub

误差下限由用户设定，根据用户的设定可以在Picture1中画出直线，程序如下：

Private Sub Text8_KeyPress（KeyAscii As Integer）

If KeyAscii = 13 Then

X = CSng（Val（Text8.Text））

Y = （7760 - 1000 / 0.48 * X）

Picture1.DrawStyle = 2

Picture1.Line （1300， Y）-（11040， Y）， RGB（0， 0， 300）

Text9.SetFocus

End If

End Sub

实验压力曲线根据得到的压力值绘制，程序如下：

Private Sub Text2_Change（）

z = CSng（Val（Text2.Text））

m = 8760 - 1000 / 30 * z

l = 1000 / 15 * Timer1.Interval / 1000 * i + 600

Picture1.DrawStyle = 0

Picture1.Line -（l， m）， RGB（200， 0， 0）

3 模拟实验

模拟实验只要是针对主界面的显示和作图功能设计的，用以调试软件最基本的两项功能。因为没有下位机，没有数据来源，笔者通过算法产生数据，模拟压力机的加载过程，实验步骤如下：

（1）设置检测起始线、基准值、误差上限、误差下限，其它信息可以不设置。

（2）点击开始，观察显示和绘图情况，分析系统的功能实现情况。

（3）点击结束，停止模拟实验。

实验结果如图1所示，图中主窗口基本实现了显示和作图功能，符合设计要求。

4 结语

本文的研究工作初步设计了压力实验机稳定性评估的系统，勾画出了系统的总体模型，对于具体功能的实现提出了方案并用VB6.0进行了编程实现，最后通过模拟实验测试了系统性能。

参考文献

[1]钱雪忠，周黎，钱瑛，周阳花.新编Visual Basic程序设计使用教程[M].北京：机械工业出版社，2004.

[2]罗斌.Visual Basic 2005管理系统开发经典案例[M].北京：中国水利水电出版社. 2007.

[3]萨师煊，王珊.数据库系统概论[M].北京：高等教育出版社.2000：65-83.

[4]黄清国.基于VB+Access丝绸企业管理系统的研究[D].苏州：苏州大学，2007.

[5]BONCHIS A，CORKE I，RYE D C.Variable structure methods in hydraulic servo systems control[J].Automatic，2001，37（4）：589-595.