張利，鄧麗，郭和新

(內(nèi)蒙古北方重工業(yè)集團(tuán)有限公司計量檢測技術(shù)研究院，內(nèi)蒙古 包頭014033)

0 引言

力傳感器的檢定與校準(zhǔn)依據(jù)JJG391 －2009 《力傳感器檢定規(guī)程》，使用的標(biāo)準(zhǔn)設(shè)備為標(biāo)準(zhǔn)測力機(jī)。從檢定或校準(zhǔn)中獲得的原始數(shù)據(jù)較多，規(guī)程要求計算的指標(biāo)較多，包括靈敏度、直線度、重復(fù)性、滯后、長期穩(wěn)定性、零點漂移等數(shù)項指標(biāo)，各指標(biāo)的計算大多比較復(fù)雜容易出錯，為此我們使用VB 語言按照力傳感器檢定規(guī)程將力傳感器原始數(shù)據(jù)的處理編制成計算機(jī)程序。用此程序，檢定人員或校準(zhǔn)人員只要按照程序提示輸入原始數(shù)據(jù)即可獲得各指標(biāo)值，這樣大大減輕了檢定或校準(zhǔn)人員的勞動強(qiáng)度并且提高了結(jié)果的準(zhǔn)確度。

1 力傳感器的數(shù)據(jù)處理程序及界面

原始數(shù)據(jù)輸入，編輯及數(shù)據(jù)處理最終結(jié)果顯示界面如圖1 所示。

啟動程序后先顯示提示信息，要求先輸入檢定點數(shù)(5 ～10 點，包括零點在內(nèi))，之后選擇有無回程，默認(rèn)為有回程。之后才可輸入數(shù)據(jù)。實現(xiàn)此功能的代碼如下:

圖1 結(jié)果顯示界面

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“本程序依據(jù)JJG391 －2009 力傳感器檢定規(guī)程而編制，先輸入檢定點數(shù)，選擇有無回程，再輸入數(shù)據(jù)”

End Sub

輸入完檢定點數(shù)及有無回程后，在輸入數(shù)據(jù)文本框中依次輸入原始數(shù)據(jù)，注意在輸入過程中編輯鍵是不能使用的，只有數(shù)據(jù)全部輸完后才可使用編輯鍵對原始數(shù)據(jù)進(jìn)行修改和編輯。實現(xiàn)這些功能的代碼為:

Private Sub zlCommand1_ Click ()

zlq = Val (zlText13. Text)

If zlq ＜5 Or zlq ＞10 Then

MsgBox " 數(shù)據(jù)輸入錯誤或無數(shù)據(jù)或沒有輸入檢定點數(shù)，請重輸!!!"

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

輸入全部數(shù)據(jù)后，可使用編輯鍵對所輸入的原始數(shù)據(jù)進(jìn)行編輯和修改。按“上一點”返回上一組數(shù)據(jù)，對這一組數(shù)據(jù)進(jìn)行修改，修改完后按“存入”即可。按“下一點”進(jìn)入下一組數(shù)據(jù)，對下一組數(shù)據(jù)可進(jìn)行修改，修改完后，按“存入”即可保存數(shù)據(jù)(程序略)。

輸入所有原始數(shù)據(jù)并對原始數(shù)據(jù)進(jìn)行修改編輯，確保所有數(shù)據(jù)正確無誤后，按動“計算”按鈕后，軟件會自動計算并在“計算結(jié)果”框中顯示各指標(biāo)值(程序略)。

處理完一組數(shù)據(jù)后，如要計算下一組數(shù)據(jù)，可按“繼續(xù)”按鈕，這時各文本框均要清屏，方便輸入數(shù)據(jù)(程序略)。

全部處理工作結(jié)束后，按“退出”即可退出該程序。

2 結(jié)束語

程序全部編制完成后經(jīng)編譯成為可執(zhí)行文件，選取五組原始數(shù)據(jù)，分別用人工方法和該程序進(jìn)行計算，計算結(jié)果非常吻合。