张利，邓丽，郭和新

(内蒙古北方重工业集团有限公司计量检测技术研究院，内蒙古 包头014033)

0 引言

力传感器的检定与校准依据JJG391 －2009 《力传感器检定规程》，使用的标准设备为标准测力机。从检定或校准中获得的原始数据较多，规程要求计算的指标较多，包括灵敏度、直线度、重复性、滞后、长期稳定性、零点漂移等数项指标，各指标的计算大多比较复杂容易出错，为此我们使用VB 语言按照力传感器检定规程将力传感器原始数据的处理编制成计算机程序。用此程序，检定人员或校准人员只要按照程序提示输入原始数据即可获得各指标值，这样大大减轻了检定或校准人员的劳动强度并且提高了结果的准确度。

1 力传感器的数据处理程序及界面

原始数据输入，编辑及数据处理最终结果显示界面如图1 所示。

启动程序后先显示提示信息，要求先输入检定点数(5 ～10 点，包括零点在内)，之后选择有无回程，默认为有回程。之后才可输入数据。实现此功能的代码如下:

图1 结果显示界面

Private Sub Form_ Load ()

zlOption1. Value = True

Frame1. Enabled = False

zln = 1

zlLabel11 = zln

zlCommand4. Enabled = False

zlCommand3. Enabled = False

End Sub

Private Sub form_ resize ()

Frame2. Visible = False

MsgBox“本程序依据JJG391 －2009 力传感器检定规程而编制，先输入检定点数，选择有无回程，再输入数据”

End Sub

输入完检定点数及有无回程后，在输入数据文本框中依次输入原始数据，注意在输入过程中编辑键是不能使用的，只有数据全部输完后才可使用编辑键对原始数据进行修改和编辑。实现这些功能的代码为:

Private Sub zlCommand1_ Click ()

zlq = Val (zlText13. Text)

If zlq ＜5 Or zlq ＞10 Then

MsgBox " 数据输入错误或无数据或没有输入检定点数，请重输!!!"

Exit Sub

End If

zlText13. Locked = True

zljc (zln，1)= Val (zlText1. Text)

zljc (zln，2)= Val (zlText2. Text)

zljc (zln，3)= Val (zlText3. Text)

zlhc (zln，1)= Val (zlText4. Text)

zlhc (zln，2)= Val (zlText5. Text)

zlhc (zln，3)= Val (zlText6. Text)

zlzh (zln)= Val (zlText8. Text)

jldy1 = Val (zlText7. Text)

jldy2 = Val (zlText9. Text)

ldmax = Val (zlText10. Text)

ldmin = Val (zlText11. Text)

sc = Val (zlText12. Text)

If zln = zlq Then

zlCommand1. Enabled = False

Frame1. Enabled = True

zlCommand4. Enabled = True

zlCommand3. Enabled = True

Exit Sub

End If

zlText1. Text = ""

zlText2. Text = ""

zlText3. Text = ""

zlText4. Text = ""

zlText5. Text = ""

zlText6. Text = ""

zlText8. Text = ""

zln = zln + 1

zlLabel11 = zln

End Sub

输入全部数据后，可使用编辑键对所输入的原始数据进行编辑和修改。按“上一点”返回上一组数据，对这一组数据进行修改，修改完后按“存入”即可。按“下一点”进入下一组数据，对下一组数据可进行修改，修改完后，按“存入”即可保存数据(程序略)。

输入所有原始数据并对原始数据进行修改编辑，确保所有数据正确无误后，按动“计算”按钮后，软件会自动计算并在“计算结果”框中显示各指标值(程序略)。

处理完一组数据后，如要计算下一组数据，可按“继续”按钮，这时各文本框均要清屏，方便输入数据(程序略)。

全部处理工作结束后，按“退出”即可退出该程序。

2 结束语

程序全部编制完成后经编译成为可执行文件，选取五组原始数据，分别用人工方法和该程序进行计算，计算结果非常吻合。