1、有机质含量试验数据处理程序摘要：有机质含量对于划分土的类别具有重要的意义，在结果的处理中，主要分“ 空白标定消耗硫酸亚铁标准液的量”和“ 滴定土样消耗硫酸亚铁标准液的量”两部分计算。本文依据“土工规范”的计算方法，着重介绍利用“VB6.0”编写有机质含量试验数据处理程序，力求寻找一种有效提高有机质含量试验结果计算效率及准确性的方法。 关键词：有机质含量；数据处理；程序 中图分类号：S153.6+21 文献标识码：A 1 有机质含量试验数据处理程序设计流程 图 1 有机质含量试验数据处理程序设计流程 2 有机质含量试验数据处理程序设计步骤及代码 2.1 有机质含量试验数据处理程序整体布置 打开
2、VB6.0，新建一个“标准 EXE”，调整 Form1 的大小。将 Form1属性窗口的“Captain”值改为“有机质含量” ，边框左上角显示“有机质含量” 。在 Form1 中插入 16 个 Label，16 个 Label 的属性窗口的“Captain”值分别设定为“硫酸亚铁标准液浓度” 、 “ mol/L”、 “ 试验次数” 、 “ 1”、 “ 2”、 “ 土样质量（g)” 、 “ 滴定前读数” 、 “ 滴定后读数”、 “ 滴定消耗” 、 “ 滴定前读数” 、 “ 滴定后读数” 、 “ 滴定消耗” 、 “ 有机质(%)” 、 “ 平均有机质(%)” 、 “ 空白标定消耗硫酸亚铁标准液的
3、量（mL)” 、 “ 滴定土样消耗硫酸亚铁标准液的量（mL)” ，16 个 Label 的位置如图 2。 图 2 有机质含量试验数据处理程序大样图 在 Form1 的右上部分插入两个 CommandButton，第一个CommandButton 的窗口属性的“Captain”值设定为“计算” ，第二个CommandButton 的窗口属性的“Captain”值设定为“清空” ，在窗口属性的“Font”中可以更改 CommandButton 字体的样式及大小。两个CommandButton 的位置按照图 2 布置。 图 3 有机质含量试验数据处理程序 TextBox 位置 在 Form1 中插入
4、 18 个文本框（TextBox） ，位置如图 3 布置。第一个文本框至第十七个文本框的作用是存放基础数据，第十二个文本框至第十八个文本框的作用是显示计算结果。用户在前十二个文本框中输入数据，经过计算后，程序将结果显示在后面六个文本框中。 2 有机质含量试验数据处理程序代码 执行计算任务的代码存在“计算”按钮（即 Command1）中，编辑时双击“计算”按钮并输入以下代码： Private Sub Command1_Click() 判断数据是否完整 For a = 1 To 11 If Me.Controls(“text“ & a) = “ Then MsgBox “有机质含量试验基础数据不完
5、整！“, , “提示“ Exit Sub End If Next 计算标定及滴定的消耗量 Text12 = Text4 - Text3 Text13 = Text6 - Text5 Text15 = Text9 - Text8 Text16 = Text11 - Text10 计算有机质含量 Text14 = Format(100 * Text1 * (Text12 - Text13) * 0.003 * 1.724 * 1.1 / Text2, “0.00“) Text17 = Format(100 * Text1 * (Text15 - Text16) * 0.003 * 1.724 *
6、1.1 / Text7, “0.00“) Text18 = Format(Text14 1 + Text17 1) / 2, “0.00“) End Sub 第二个命令按钮（即“清空”按钮）的作用是将所有文本框中的内容清空，并将焦点跳转至第一个单元格，方便用户进行下一个试验的数据处理，其代码如下： Private Sub Command2_Click() For w = 1 To 18 Me.Controls(“Text“ & w).Text = “ Next Text1.SetFocus End Sub 3 有机质含量试验数据处理程序使用方法 打开击实试验数据处理程序，依次在前十二个文本框中输入对应的基础数据，点击“计算”按钮，程序会自动计算“计算标定及滴定的消耗量” 、 “ 有机质含量”及“平均有机质含量” 。当基础数据不完整时，程序会暂停运行，并弹出对话框提示用户完整输入数据。数据补充完整后，重新点击“计算”按钮，程序将完成计算。 4 结论 通过程序的应用，计算效率有较大的提高，同时减小了出错的可能性，使得有机质含量试验的数据处理工作更加轻松。 参考文献 1公茂利,林秀玲,彭放. 粘度法实验数据处理程序设计J. 实验室研究与探索,2008,02:42-45. 2张大伟,付静. 针入度指数计算程序的编写J. 内蒙古科技与经济,2013,08:87.
