基于Visual Basic试验数据处理.docVIP

基于Visual Basic试验数据处理 　　摘 要：介绍了在VisualBasic6.0环境下实现数据处理的方法，数据处理是试验台控制系统一个重要组成部分，数据处理的准确与否直接关系到试验结果的可靠性和精度。 　　关键词：VisualBasic6.0；数据处理；试验台 　　DOI：10.16640/j.cnki.37-1222/t.2017.13.016 　　目前国内大部分汽车零部件试验台人机界面友好性欠佳，测试过程及结果分析主要依靠试验工作人员的经验，精度不高，使用不方便。本汽车零部件试验台软件，根据汽车行业标准，设计了几种数据分析方法，既方便用户分析数据，同时使试验数据更直观。 　　软件基于Microsoft Visual Basic 6.0软件，使用Visual Basic语言编程，主要应用于汽车零部件性能检验试验台，可实时监控试验过程，实现试验数据自动存储，自动打印等功能，同时对试验数据进行分析，从而给出准确的试验结果。 　　1 试验台软件流程图设计 　　汽车零部件试验台系统利用PLC及工业控制计算机完成各类信号的采集、管理、监控。上位机监控界面可实时显示监控参数、显示报警记录和打印表格曲线等功能。 　　试验数据存储为二进制文件，大大减少占用计算机硬盘空间，同时，试验数据可以导出为excel格式，方便数据共享。存储信息保存到数据库中，方便用户按照不同条件查询数据。 　　试验数据查询，按照用户设置查询条件，在数据库中检索，如型号，编码，检验员，试验日期，试验开始时间等，可以实现模糊查询。 　　试验数据分析，主要是将试验存数的曲线数据进行分析、计算，找到用户测试的数据，或对曲线进行各种操作，方便用户分析零部件故障。 　　2 试验台软件功能实现 　　2.1 各档位换档力的查找 　　由于换档机构的特殊机械结构，所以在换档过程中最大的换档力并不是真正的换档力，真正的换档力为在最大换档力前，换档力上升斜坡的某一个力的小锯齿顶点或者力保持不变的一个值。 　　Public Sub Force_C（） 　　Tr（Cr_i） = Crave（Cr_jl（Cr_i） + 50）.Force（Cra_i） 　　最后波峰延时500ms看换档力是否回初始 　　If Tr（Cr_i） Abs（F_b） + 20 Then 　　Form1.T_Fmax.Text = 0 　　换档力力未回初始，换档力无效 　　Cr_i = -1 　　End If 　　If Cr_i 0 Then 　　大于1个波峰，判断 最后波峰 最后波谷-1 　　最后波峰-1 间隔200ms 换档力力有效确定 　　If （（Cr_jl（Cr_i） - Cr_jl（Cr_i - 1）） 30） And _ 　　（（Cr_jl（Cr_i - 1） - Tr_jl（Cr_i - 1）） 30） Then 　　Form1.T_Fmax.Text = Cr（Cr_i - 1） 　　Else 　　Form1.T_Fmax.Text = Cr（Cr_i） 　　未满足判断条件，认定最后波峰即换档力 　　End If 　　ElseIf Cr_i = 0 Then 　　1个波峰，该波峰即换档力 　　Form1.T_Fmax.Text = Cr（0） 　　End If 　　End Sub 　　2.2 曲线操作 　　试验结束后，曲线存储在计算机中，查询后，用鼠标拖动控件框选要显示的曲线，可以实现曲线无极放大，同时可以实现曲线平移（左、右、上、下），撤销操作或者重复撤销的操作。对曲线的操作可以方便用户分析故障点的数据，进而分析零部件的问题所在。主要操作vb中的PictureBox控件，改变控件的Scale属性，以达到放大、缩小、平移曲线的目的，以重复和左移曲线为例，程序如下。 　　If Amp_i（Ci） zi_max Then repeat 　　Amp_i（Ci） = Amp_i（Ci） + 1 　　Amp_ZB_0 　　End If 　　If A_cs（Amp_i（Ci））.frX（Ci） 0 Then left 　　Amp_i（Ci） = Amp_i（Ci） + 1 　　A_cs（Amp_i（Ci））.frY（Ci）=A_cs（Amp_i（Ci）-1）.frY（Ci） 　　A_cs（Amp_i（Ci））.neY（Ci）=A_cs（Amp_i（Ci）-1）.neY（Ci） 　　If （A_cs（Amp_i（Ci）-1）.frX（Ci）-DeiTx/10） 0 Then 　　A_cs（Amp_i（Ci））.frX（Ci） = Int（A_cs（Amp_i（Ci） _ 　　- 1）.frX（Ci