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

基于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）