论文部分内容阅读
摘要：本文根据“土工规范”中的“比重瓶法” ，介绍一种利用“VB6.0”编写有机质含量试验数据处理程序的设计方案，力求寻找一种有效提高有机质含量试验结果计算效率及准确性的方法。
关键词：比重试验；数据处理；程序
中图分类号：C37 文献标识码：A
1 比重试验数据处理程序设计流程
图1比重试验数据处理程序设计流程
2 比重试验数据处理程序设计步骤及代码
2.1 比重试验数据处理程序整体布置
打开VB6.0，新建一个“标准EXE”，可在Form1的属性中调整Form1的大小，也可直接用鼠标拉伸Form1，使其呈上下窄、左右宽的长方形。将Form1属性窗口的“Captain”值改为“比重”，边框左上角显示“比重”。在Form1中插入十一个Label，十一个Label的属性窗口的“Captain”值分别设定为“比重瓶号”、“ 温度”、“ 液体比重”、“ 比重瓶质量”、“ 瓶、干土总质量”、“ 干土质量”、“ 瓶、液总质量”、“ 瓶、液、土总质量”、“ 与干土同体积的液体质量”、“ 比重”、“ 平均比重值”，11个Label的位置如图2。
图2比重试验数据处理程序大样图
在Form1的右上部分插入两个CommandButton，第一个CommandButton的窗口属性的“Captain”值设定为“计算”，第二个CommandButton的窗口属性的“Captain”值设定为“清空”，在窗口属性的“Font”中可以更改CommandButton字体的样式及大小。两个CommandButton的位置按照图2布置。
在Form1中插入二十一个文本框（TextBox），位置如图3布置。第一个文本框至第十四个文本框的作用是存放基础数据，第十五个文本框至第二十一个文本框的作用是显示计算结果。用户在前十四个文本框中输入数据，经过计算后，程序将结果显示在后面七个文本框中。
图3比重试验数据处理程序TextBox位置
2.2 比重试验数据处理程序代码
执行计算任务的代码存在“计算”按钮（即Command1）中，编辑时双击“计算”按钮并输入以下代码：
Private Sub Command1_Click()
'判断数据是否完整
For a = 3 To 7
If Me.Controls("text" & a) = "" Then
MsgBox "比重试验基础数据不完整！", , "提示"
Exit Sub
End If
Next
For a = 10 To 14
If Me.Controls("text" & a) = "" Then
MsgBox "比重试验基础数据不完整！", , "提示"
Exit Sub
End If
Next
'计算干土质量
Text15 = Text5 - Text4
Text18 = Text12 - Text11
'计算比重
Text16 = Text15 ^ 1 + Text6 ^ 1 - Text7
Text19 = Text18 ^ 1 + Text13 ^ 1 - Text14
Text17 = Format(Text3 * Text15 / Text16, "0.000")
Text20 = Format(Text10 * Text18 / Text19, "0.000")
Text21 = Format((Text17 ^ 1 + Text20 ^ 1) / 2, "0.00")
End Sub
第二個命令按钮（即“清空”按钮）的作用是将所有文本框中的内容清空，并将焦点跳转至第一个单元格，方便用户进行下一个试验的数据处理，其代码如下：
Private Sub Command2_Click()
For w = 1 To 21
Me.Controls("Text" & w).Text = ""
Next
Text1.SetFocus
End Sub
3 比重试验数据处理程序使用方法
打开击实试验数据处理程序，依次在前十四个文本框中输入对应的基础数据，点击“计算”按钮，程序会自动计算“干土质量”、“ 比重”及“平均比重值”。当基础数据不完整时，程序会暂停运行，并弹出对话框提示用户完整输入数据。数据补充完整后，重新点击“计算”按钮，程序将完成计算。与前面几张不同，本例的“数据完整”是指参与计算的十个数据，所以当Text1、Text2、Text8、Text9四个文本框未填入数据时，不会影响程序的执行。
参考文献
[1]张大伟,付静. 针入度指数计算程序的编写[J]. 内蒙古科技与经济,2013,08:87.
[2]公茂利,林秀玲,彭放. 粘度法实验数据处理程序设计[J]. 实验室研究与探索,2008,02:42-45.
关键词：比重试验；数据处理；程序
中图分类号：C37 文献标识码：A
1 比重试验数据处理程序设计流程
图1比重试验数据处理程序设计流程
2 比重试验数据处理程序设计步骤及代码
2.1 比重试验数据处理程序整体布置
打开VB6.0，新建一个“标准EXE”，可在Form1的属性中调整Form1的大小，也可直接用鼠标拉伸Form1，使其呈上下窄、左右宽的长方形。将Form1属性窗口的“Captain”值改为“比重”，边框左上角显示“比重”。在Form1中插入十一个Label，十一个Label的属性窗口的“Captain”值分别设定为“比重瓶号”、“ 温度”、“ 液体比重”、“ 比重瓶质量”、“ 瓶、干土总质量”、“ 干土质量”、“ 瓶、液总质量”、“ 瓶、液、土总质量”、“ 与干土同体积的液体质量”、“ 比重”、“ 平均比重值”，11个Label的位置如图2。
图2比重试验数据处理程序大样图
在Form1的右上部分插入两个CommandButton，第一个CommandButton的窗口属性的“Captain”值设定为“计算”，第二个CommandButton的窗口属性的“Captain”值设定为“清空”，在窗口属性的“Font”中可以更改CommandButton字体的样式及大小。两个CommandButton的位置按照图2布置。
在Form1中插入二十一个文本框（TextBox），位置如图3布置。第一个文本框至第十四个文本框的作用是存放基础数据，第十五个文本框至第二十一个文本框的作用是显示计算结果。用户在前十四个文本框中输入数据，经过计算后，程序将结果显示在后面七个文本框中。
图3比重试验数据处理程序TextBox位置
2.2 比重试验数据处理程序代码
执行计算任务的代码存在“计算”按钮（即Command1）中，编辑时双击“计算”按钮并输入以下代码：
Private Sub Command1_Click()
'判断数据是否完整
For a = 3 To 7
If Me.Controls("text" & a) = "" Then
MsgBox "比重试验基础数据不完整！", , "提示"
Exit Sub
End If
Next
For a = 10 To 14
If Me.Controls("text" & a) = "" Then
MsgBox "比重试验基础数据不完整！", , "提示"
Exit Sub
End If
Next
'计算干土质量
Text15 = Text5 - Text4
Text18 = Text12 - Text11
'计算比重
Text16 = Text15 ^ 1 + Text6 ^ 1 - Text7
Text19 = Text18 ^ 1 + Text13 ^ 1 - Text14
Text17 = Format(Text3 * Text15 / Text16, "0.000")
Text20 = Format(Text10 * Text18 / Text19, "0.000")
Text21 = Format((Text17 ^ 1 + Text20 ^ 1) / 2, "0.00")
End Sub
第二個命令按钮（即“清空”按钮）的作用是将所有文本框中的内容清空，并将焦点跳转至第一个单元格，方便用户进行下一个试验的数据处理，其代码如下：
Private Sub Command2_Click()
For w = 1 To 21
Me.Controls("Text" & w).Text = ""
Next
Text1.SetFocus
End Sub
3 比重试验数据处理程序使用方法
打开击实试验数据处理程序，依次在前十四个文本框中输入对应的基础数据，点击“计算”按钮，程序会自动计算“干土质量”、“ 比重”及“平均比重值”。当基础数据不完整时，程序会暂停运行，并弹出对话框提示用户完整输入数据。数据补充完整后，重新点击“计算”按钮，程序将完成计算。与前面几张不同，本例的“数据完整”是指参与计算的十个数据，所以当Text1、Text2、Text8、Text9四个文本框未填入数据时，不会影响程序的执行。
参考文献
[1]张大伟,付静. 针入度指数计算程序的编写[J]. 内蒙古科技与经济,2013,08:87.
[2]公茂利,林秀玲,彭放. 粘度法实验数据处理程序设计[J]. 实验室研究与探索,2008,02:42-45.