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

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

　　1、算法的分析与选择

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

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

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

　　2、绘图区域作图的实现

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

　　PrivateSubText6_KeyPress(KeyAsciiAsInteger)

　　IfKeyAscii=13Then

　　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

　　EndIf

　　EndSub

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

　　PrivateSubText7_KeyPress(KeyAsciiAsInteger)

　　IfKeyAscii=13Then

　　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

　　EndIf

　　EndSub

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

　　PrivateSubText8_KeyPress(KeyAsciiAsInteger)

　　IfKeyAscii=13Then

　　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

　　EndIf

　　EndSub

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

　　PrivateSubText2_Change()

　　z=CSng(Val(Text2.Text))

　　m=8760-1000/30*z

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

　　Picture1.DrawStyle=0

　　图1

　　Picture1.Line-(l,m),RGB(200,0,0)

　　3、模拟实验

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

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

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

　　(3)点击结束,停止模拟实验。

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

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