利用VB編程實(shí)現(xiàn)電子水準(zhǔn)測(cè)量手簿的自動(dòng)檢查

1、利用VB編程實(shí)現(xiàn)電子水準(zhǔn)測(cè)量手簿的自動(dòng)檢查1 引言 水準(zhǔn)測(cè)量是利用水準(zhǔn)儀提供的水平視線測(cè)定兩點(diǎn)間的高差， 進(jìn)而求得測(cè)點(diǎn)高程的方法， 它是高程測(cè)量中最基本、 精度最高的 一種方法， 在國(guó)家高程控制測(cè)量、 工程勘察和施工放樣中得到廣 泛應(yīng)用。電子水準(zhǔn)儀在現(xiàn)今的水準(zhǔn)測(cè)量中發(fā)揮著重要作用， 與傳統(tǒng)光 學(xué)水準(zhǔn)儀相比有以下特點(diǎn)。（1）讀數(shù)客觀：不存在誤記問題，沒有人為讀數(shù)誤差。（2）精度高：視線高和視距讀數(shù)都是采用大量條碼分劃圖 像經(jīng)處理后取平均得出來(lái)的，因此削弱了標(biāo)尺分劃誤差的影響。 多數(shù)儀器都有進(jìn)行多次讀數(shù)取平均的功能， 可以削弱外界條件影 響，不熟練的作業(yè)人員也能進(jìn)行高精度測(cè)量。（3）速度快：由于省

2、去了報(bào)數(shù)、聽記、現(xiàn)場(chǎng)計(jì)算的時(shí)間以 及人為出錯(cuò)的重測(cè)數(shù)量，測(cè)量時(shí)間與傳統(tǒng)儀器相比可以節(jié)省 1/3 左右。（4）效率高：只需調(diào)焦和按鍵就可以自動(dòng)讀數(shù)，減輕了勞 動(dòng)強(qiáng)度。電子水準(zhǔn)儀外業(yè)測(cè)量結(jié)束后， 內(nèi)業(yè)數(shù)據(jù)處理軟件可以將外業(yè) 測(cè)量數(shù)據(jù)處理成規(guī)范的電子水準(zhǔn)測(cè)量記錄手簿。 圖 1 為一段標(biāo)準(zhǔn) 的電子水準(zhǔn)手簿記錄格式， 計(jì)算機(jī)中電子文檔保存為 Excel 軟件 的XLS或XLSX格式。實(shí)際測(cè)量工作中，由于路線較長(zhǎng)，觀測(cè)天數(shù)多，測(cè)站較多， 某些測(cè)站難免會(huì)產(chǎn)生一些超限的讀數(shù)，如視線長(zhǎng)度、視距差、視 距累積差超限等。 在測(cè)站較多的情況下， 內(nèi)業(yè)檢查工作將會(huì)花費(fèi) 較長(zhǎng)的時(shí)間，于是筆者嘗試使用VB編程來(lái)實(shí)現(xiàn)手簿的自

3、動(dòng)檢查。VB是Visual Basic 的簡(jiǎn)稱，是由微軟公司開發(fā)的結(jié)構(gòu)化、 模塊化、面向?qū)ο蟮摹?包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動(dòng)為機(jī)制的可 視化程序設(shè)計(jì)語(yǔ)言。從任何標(biāo)準(zhǔn)來(lái)說(shuō)，VB都是世界上使用人數(shù)最多的語(yǔ)言。它源自于BASIC編程語(yǔ)言，擁有圖形用戶界面（GUI） 和快速應(yīng)用程序開發(fā)（RAD系統(tǒng)，可以輕易地使用 DAO RDO ADC連接數(shù)據(jù)庫(kù)，或者輕松地創(chuàng)建 ActiveX控件。程序員可以輕 松地使用VB提供的組件快速建立一個(gè)應(yīng)用程序。Excel軟件本身提供對(duì) VBA的支持，VBA是Visual Basic 的一種宏語(yǔ)言，主 要能用來(lái)擴(kuò)展 Windows的應(yīng)用程式功能，特別是 Microsoft

4、Office 軟件套裝。通過 Excel 的錄制宏功能就可以查看到 VBA 代碼，VBA代碼通過簡(jiǎn)單的修改就可以應(yīng)用于VB編程中來(lái)，為軟件的編制帶來(lái)很大的便利。2 軟件設(shè)計(jì)思路內(nèi)業(yè)需要進(jìn)行檢查的數(shù)據(jù)包括視線長(zhǎng)度、 前后視距差、 前后 視距累積差、視線高度、高差較差和路線長(zhǎng)度。其中視線長(zhǎng)度與 視線高度即為水準(zhǔn)手簿中視距讀數(shù)和標(biāo)尺讀數(shù)， 此兩項(xiàng)數(shù)據(jù)是外 業(yè)觀測(cè)獲得， 其余 4 項(xiàng)均根據(jù)視距讀數(shù)與標(biāo)尺讀數(shù)計(jì)算得來(lái)。 因此軟件運(yùn)行時(shí)，首先計(jì)算前后視距差、前后視距累積差、高差較 差和路線長(zhǎng)度， 然后再判斷每個(gè)測(cè)站有無(wú)超限的數(shù)據(jù)， 如果有則 彈出提示等待用戶檢查，如果沒有則結(jié)束程序（見圖2）。3 軟件設(shè)計(jì)

5、3.1 軟件界面軟件界面分別放置 3個(gè)下拉列表框， 讓用戶選擇所引用的規(guī) 范、水準(zhǔn)等級(jí)和水準(zhǔn)儀型號(hào)， 選擇完成后在表格中顯示對(duì)應(yīng)的水 準(zhǔn)測(cè)量觀測(cè)技術(shù)要求數(shù)據(jù)，以這些數(shù)據(jù)作為檢查的依據(jù)。點(diǎn)擊 “開始檢查”按鈕即可開始檢查手簿。3.2 軟件代碼由于文章篇幅限制，這里僅列出部分代碼：分別定儀EXCEL軟件對(duì)象、工作簿和工作表Dim Xlapp As Excel.ApplicationDim Xlbook As Excel.WorkbookDim Xlsheet As Excel.Worksheet視線長(zhǎng)度前后視距差前后視距累積差視線高度高差較差路線長(zhǎng)度定 ?x6 個(gè)變量，分別獲取軟件中設(shè)置的各項(xiàng)限差

6、Dim GdSxcd As Single Dim GdSjc As Single Dim GdSjljc As Single Dim GdSxgd As Single Dim GdGcjc As Single Dim GdLxcd As SingleGdSxcd= Val（ Lable1.Caption ）GdSjc =Val （Lable2.Caption ）GdSjljc =Val（ Lable3.Caption ）GdSxgd= Val（ Lable4.Caption ）GdGcjc= Val（ Lable5.Caption ）GdLxcd= Val（ Lable6.Caption ）檢

7、查各項(xiàng)數(shù)據(jù)是否符合水準(zhǔn)觀測(cè)技術(shù)要求，如不符合要 求，則把此單元格顏色設(shè)為紅色 （單元格的 Font.ColorIndex 設(shè) 為 3）For i = 1 To ZongCeZhan 檢查視線長(zhǎng)度If Xlsheet.Cells（6 + i * 3 ， 3 ） > GdSxcd ThenXlsheet.Cells （ 6 + i * 3 ， 3 ） .Font.ColorIndex = 3End If 檢查前后視距差I(lǐng)f Abs （ Xlsheet.Cells （8 + i * 3 ， 3 ） > GdSjc Then Xlsheet.Cells （ 8 + i * 3 ， 3 ）.

8、Font.ColorIndex = 3 End If檢查前后視距累積差I(lǐng)f Abs（Xlsheet.Cells （8 + i * 3， 4） > GdSjljc ThenXlsheet.Cells （ 8 + i * 3 ， 4 ）.Font.ColorIndex = 3End If視線高度If Xlsheet.Cells(6 + i * 3 ， 5 ) GdGcjc ThenXlsheet.Cells ( 6 + i * 3 ， 7 ).Font.ColorIndex = 3 End IfNext i' 檢查路線長(zhǎng)度If Xlsheet.Cells(ZongCeZhan * 3 + 11 ， 4 ) > GdLxcdThenXlsheet.Cells ( ZongCeZhan* 3 + 11，4 ).Font