安民軍

甘肅省計(jì)量研究院 甘肅蘭州 730050

隨著我國(guó)經(jīng)濟(jì)及社會(huì)的發(fā)展，各行各業(yè)對(duì)電子天平的檢定需求量增多，特別是2017年4月強(qiáng)檢免費(fèi)開始以后，電子天平作為強(qiáng)檢器具，我院的電子天平檢定臺(tái)件數(shù)也猛增，從過(guò)去每年2000臺(tái)件數(shù)增加到現(xiàn)在3000多臺(tái)件數(shù)。我院的原始記錄還是手工填寫，隨著工作量的增加，導(dǎo)致天平檢定項(xiàng)目無(wú)法按時(shí)完成檢定工作，在這種情況下，研發(fā)出電子天平檢定管理系統(tǒng)。本系統(tǒng)主要通過(guò)232、485串口通信接口讀取數(shù)據(jù)或者通過(guò)電腦直接現(xiàn)場(chǎng)手工輸入讀取的數(shù)據(jù)。通過(guò)VB6.0編程將證書號(hào)、委托方、委托單號(hào)、制造廠商、出廠編號(hào)、型號(hào)規(guī)格、檢定日期等信息輸入后通過(guò)選擇電子天平不同模板，選擇保存在Word2007固定位置顯示出來(lái)。

其界面主要包含有信息輸入、模板管理、信息查詢、退出等功能，模板管理主要有添加、刪除、刷新、修改等功能。

通過(guò)輸入委托方、委托單號(hào)、制造廠商、出廠編號(hào)、委托單號(hào)、檢定日期等信息來(lái)查詢對(duì)應(yīng)信息。

在輸入基本信息結(jié)束后，打開對(duì)應(yīng)原始記錄，可以通過(guò)連接串口讀取數(shù)據(jù)或者直接通過(guò)手動(dòng)輸入讀取的電子天平信息。主要是考慮到各種電子天平生產(chǎn)廠家及型號(hào)眾多及各種接口信息不同，本系統(tǒng)前期考慮進(jìn)行手動(dòng)輸入信息。在輸入采集到的信息后，通過(guò)Word的VBA編程生成三個(gè)宏。

其生成的快捷方式如圖3左上角，相對(duì)應(yīng)電子天定有幾個(gè)拐點(diǎn)。電子天平有0個(gè)拐點(diǎn)對(duì)應(yīng)宏1，電子天平有1個(gè)拐點(diǎn)對(duì)應(yīng)宏2，電子天平有2個(gè)拐點(diǎn)對(duì)應(yīng)宏3，點(diǎn)擊對(duì)應(yīng)按鈕，自動(dòng)填寫計(jì)算電子天平的偏載誤差、重復(fù)性和示值誤差。

圖1 信息輸入界面

圖2 信息查詢界面

圖3 Word三個(gè)宏快捷方式

在選擇的模板中，由于對(duì)于模板除了進(jìn)行宏編程外，對(duì)其偏載誤差、重復(fù)性、試驗(yàn)載荷的誤差也進(jìn)行了公式運(yùn)算，通過(guò)點(diǎn)擊宏快捷按鈕，可以進(jìn)行對(duì)宏的更新。及時(shí)發(fā)現(xiàn)手動(dòng)輸入信息是否有錯(cuò)，保證了原始記錄的正確性,減少了我單位過(guò)去手寫的原始記錄經(jīng)常出錯(cuò)的問(wèn)題。

下面程序是自動(dòng)更新宏：

Dim aField As Field

Dim aStory As Range

''' Update all fields in the document

For Each aStory In ActiveDocument.StoryRanges

For Each aField In aStory.Fields

aField.Update

Next aField

Next aStory

Set adoc=ActiveDocument

下面程序是求電子天平偏載誤差程序：

With adoc

Set tb2=.Tables(2)

maxValue=0

maxValue=(Replace(tb2.Rows(2).Cells(5).Range.Text，Chr(7)，""))

For i=3 To tb2.Rows.Count

If Abs(maxValue)< Abs(Replace(tb2.Rows(i).Cells(5).Range.Text，Chr(7)，""))Then

maxValue=(Replace(tb2.Rows(i).Cells(5).Range.Text，Chr(7)，""))

End If

Next

a=Val(tb2.Cell(2，1))

.Tables(5).Cell(5，2)=Format(maxValue / a，"0.0")& "e"

.Tables(5).Cell(5，2).Range.Characters(.Tables(5).Cell(5，2).Range.Characters.Count-1).Font.Italic=True

Set tb2=.Tables(3)

下面程序是求重復(fù)性程序：

Set tb1=.Tables(2)

minV=(Replace(tb2.Rows(2).Cells(5).Range.Text，Chr(7)，""))

maxV=(Replace(tb2.Rows(2).Cells(5).Range.Text，Chr(7)，""))

For i=2 To tb2.Rows.Count

If minV > Replace(tb2.Rows(i).Cells(5).Range.Text，Chr(7)，"")Then

minV=Replace(tb2.Rows(i).Cells(5).Range.Text，Chr(7)，"")

End If

If maxV < Replace(tb2.Rows(i).Cells(5).Range.Text，Chr(7)，"")Then

maxV=Replace(tb2.Rows(i).Cells(5).Range.Text，Chr(7)，""

End If

Next

b=Val(tb1.Cell(2，1))

.Tables(5).Cell(6，2)=Format(Abs((maxV-minV)/ b)，"0.0")& "e"

.Tables(5).Cell(6，2).Range.Characters(.Tables(5).Cell(6，2).Range.Characters.Count-1).Font.Italic =True

Set tb2=.Tables(2)

maxValue=0

maxValue=(Replace(tb2.Rows(2).Cells(5).Range.Text，Chr(7)，""))

For i=3 To tb2.Rows.Count

If Abs(maxValue)< Abs(Replace(tb2.Rows(i).Cells(5).Range.Text，Chr(7)，""))Then

maxValue=(Replace(tb2.Rows(i).Cells(5).Range.Text，Chr(7)，""))

End If

Next

a=Val(tb2.Cell(2，1))

.Tables(5).Cell(5，2)=Format(maxValue / a，"0.0")& "e"

.Tables(5).Cell(5，2).Range.Characters(.Tables(5).Cell(5，2).Range.Characters.Count-1).Font.Italic=True

在原始記錄管理中應(yīng)用百度云同步盤將原始記錄定期將存在百度云中，防止因電腦等外部原因丟失原始記錄。

同時(shí)為了滿足我省地縣對(duì)電子天平檢定的需求，在上述的基礎(chǔ)上開發(fā)出生成其記錄的功能，其VB中添加了如下代碼：

Private Sub Command2_Click()

Dim fso1 As New FileSystemObject

Dim StrDoc1 As String

StrDoc1=App.Path & "" & Cmb證書號(hào).Text & "證書" & ".doc"

fso1.CopyFile App.Path & "證書模板.doc"，StrDoc1，True

Call EditWord(StrDoc1)

End Sub

在word宏中加入如下代碼：

Sub zhengshu()

Dim myPath As String

myPath=ActiveDocument.Name

Selection.Copy

myDoc=Left(myPath，Len(myPath)-4)

myDoc1=Word.Application.Documents.Open("E：天平地縣檢定" & "" & myDoc & "證書" & ".doc")

Selection.Find.ClearFormatting

With Selection.Find

.Text="檢 定 結(jié) 果"

.Replacement.Text=""

.Forward=True

.Wrap=wdFindContinue

.Format=False

.MatchCase=False

.MatchWholeWord=False

.MatchByte=True

.MatchWildcards=False

.MatchSoundsLike=False

.MatchAllWordForms=False

End With

Selection.Find.Execute

Selection.GoTo What：=wdGoToLine，Which：=wdGoToNext，Count：=1，Name：=""

Selection.PasteAndFormat(wdPasteDefault)

Selection.Tables(1).AutoFitBehavior(wdAutoFitWindow)

End Sub

電子天平檢定管理系統(tǒng)的研發(fā)及應(yīng)用節(jié)省了大量的人力和物力，實(shí)現(xiàn)了記錄和證書的自動(dòng)化和錯(cuò)誤率的下降，為我省的計(jì)量檢定工作做出了一定貢獻(xiàn)。