在Visual Basic 2010中处理液塑限试验数据方法.docVIP

在Visual Basic 2010中处理液塑限试验数据方法 　　摘要：液塑限联合测定法(76g锥）的标准处理方法为绘图法，试验成果需直接从图上读取。VB 2010编程方法可自动实现计算、绘图和读图功能，计算和绘图结果准确可靠，可大大提高数据处理的质量和效率。 　　关键词：液塑限试验VB 2010 Graphics对象坐标转换 　　中图分类号：P435 文献标识码：A 文章编号： 　　正文： 　　1.引言： 　　液塑限试验是土工试验中的一项重要试验。根据标准规范[1][2]，采用液塑限联合测定法（76g锥）时，通过绘图法求取液、塑限值。Visual Basic面向对象编程语言编程方法采用事件驱动模式，且具有强大的数据计算和制图功能，通过合理的窗体布局设计和事件代码的编写，可以实现液塑限试验数据的高效处理。 　　2.程序设计 　　Visual Basic 2010（简称VB 2010）使用.NET技术，也叫做VB 2010.NET。VB 2010编程开发在Visual Studio 2010集成开发环境中进行。在VB.NET编程的基本步骤为：1)分析问题，确定目标；2)进行合理的窗体设计，建立用户界面的对象，3)设置对象属性；4)为其中的部分对象编写事件代码；5)运行、调试、保存文件并生成应用程序[3]。 　　2.1成果计算的程序实现 　　在成果计算部分的窗体布局如图1所示： 　　 　　图1 液塑限数据处理程序的窗体布局 　　规范[1][2]采用绘图法求取塑限和液限的过程，可以归纳为在双对数坐标系中两个已知坐标点确定的直线上的求取另一点的坐标值的过程。在VB 2010中，该求值过程可以通过自定义函数实现。 　　先在VB 2010中创建一个模块，然后在模块中定义如下函数： 　　Public Function line_GetX(ByVal y As Single, ByVal s1 As OriginalData, ByVal s2 As OriginalData) As Single 　　Try 　　line_GetX = (Lg(s1.WaterContent) - Lg(s2.WaterContent)) / (Lg(s1.DropDepth) - _ Lg(s2.DropDepth)) * (Lg(y) - Lg(s1.DropDepth)) + Lg(s1.WaterContent) 　　Return CSng(10 ^ line_GetX) 　　Catch ex As Exception 　　MessageBox.Show(ex.Message) 　　End Try 　　End Function 　　函数line_GetX()返回双对数坐标系中两个数据点（值存储在变量s1、s2中）确定的直线上，某个已知的入锥深度（变量y的值）对应的含水率值，返回值为Single类型。s1、s2为自定义结构类型OriginalData?? 　　Public Structure OriginalData‘定义结构变量OriginalData 　　Dim WaterContent As Single：Dim DropDepth As Single‘为结构变量定义两个Single类型成员 　　Sub New(ByVal h As Single, ByVal w As Single)‘定义构造函数 　　WaterContent = w：DropDepth = h 　　End Sub 　　End Structure 　　结构变量OriginalData包含WaterContent和DropDepth两个成员，分别表示含水率和对应的入锥深度值。Lg()函数用来返回数值的常用对数值，为Single类型，其定义如下： 　　Public Function Lg(ByVal x As Single) As Single‘返回x的常用对数值 　　 ReturnCSng(Log10(x)) 　　End Function 　　编程时，通过在Try代码块中执行可能抛出异常的代码，在Catch代码块中处理预料到的错误，Try … Catch …. End Try 语块可以捕获运行错误[4]。这样可以避免可能导致程序突然终止的运行错误的发生。 　　按照事件驱动模式，成果计算代码应在图1中“成果计算”按钮的Click事件下编写。 　　首先，需定义三个OriginalData类型变量(s1、s2、s3)来存储试验数据。 根据OriginalData的构造函数，定义变量s1语句为：Dim s1 as new OriginalData（CSng(txt_DropDepth_min.Text), CSng