鄧?yán)と? 董燕

摘? 要： 建筑物沉降變形數(shù)據(jù)量比較大，只靠人工計(jì)算既費(fèi)時(shí)又費(fèi)力，如果用計(jì)算機(jī)進(jìn)行數(shù)據(jù)處理將會(huì)大大縮短計(jì)算時(shí)間，利用Visual Basic（VB）軟件導(dǎo)入EXCEL數(shù)據(jù)，對(duì)導(dǎo)入的數(shù)據(jù)進(jìn)行數(shù)據(jù)處理，并對(duì)處理數(shù)據(jù)的結(jié)果用圖表表示，設(shè)計(jì)過(guò)程需要解決三個(gè)方面的問(wèn)題，首先讀取Excel文件，把Excel工作表里面的數(shù)據(jù)放到控件ListView里面，按照Excel工作表里面數(shù)據(jù)的格式在相應(yīng)ListView里面排列出來(lái)，使操作者方便校驗(yàn)。其次對(duì)沉降數(shù)據(jù)點(diǎn)進(jìn)行一定的分析，計(jì)算其每段時(shí)間每個(gè)沉降點(diǎn)的沉降量以及累計(jì)沉降量，通過(guò)VB把計(jì)算出來(lái)的數(shù)值在TextBox控件里顯示出來(lái)。三是計(jì)算出來(lái)的結(jié)果把每段時(shí)間沉降點(diǎn)的沉降量趨勢(shì)圖在VB的Picture控件里顯示出來(lái)。

關(guān)鍵詞： VB;Excel;沉降量;變形量

【Abstract】： The amount of building settlement deformation data is relatively large. It is time-consuming and laborious to rely on manual calculation. If the computer uses data processing， the calculation time will be greatly shortened. The EXCEL data will be imported by VB software， and the imported data will be processed and processed. The results are represented by graphs. The design process needs to solve three problems. First， read the Excel file， put the data in the Excel worksheet into the control ListView， and arrange it in the corresponding ListView according to the format of the data in the Excel worksheet. Make the operator easy to verify. Secondly， the settlement data points are analyzed to calculate the settlement and cumulative settlement of each settlement point at each time. The calculated value is displayed in the TextBox control through VB. The third is the calculated result. The settlement trend graph of the settlement point at each time is displayed in the Picture Control of VB.

【Key words】： VB; Excel; Settlement amount; Deformation amount

0? 引言

隨著社會(huì)的發(fā)展，設(shè)計(jì)一個(gè)可以收集數(shù)據(jù)觀測(cè)點(diǎn)的軟件，可以大大地縮短人們的工作時(shí)間，提高工作效率[1-3]。這項(xiàng)軟件的設(shè)計(jì)是通過(guò)建筑物變形監(jiān)測(cè)信息采集和管理系統(tǒng)而實(shí)現(xiàn)，對(duì)收集到的數(shù)據(jù)觀測(cè)點(diǎn)進(jìn)行分析，使得對(duì)高層或大型建筑物的變形情況有實(shí)時(shí)的了解，分析出的結(jié)果用圖表表示出來(lái)，

將信息化技術(shù)和自動(dòng)化監(jiān)測(cè)技術(shù)融入變形監(jiān)測(cè)領(lǐng)域，從而實(shí)現(xiàn)變形監(jiān)測(cè)數(shù)據(jù)獲取的自動(dòng)化，監(jiān)測(cè)設(shè)備集優(yōu)化，變形處理專業(yè)化，管理分析信息化[4]。

1? VB與Excel之間建立聯(lián)系

利用VB軟件在窗體上添加相應(yīng)的Command按鈕，運(yùn)行軟件后點(diǎn)擊Command按鈕可以從電腦中搜索所需要分析的Excel文件，可以把Excel文件中

幾個(gè)工作表中的數(shù)據(jù)分別導(dǎo)入到ListView控件中，顯示出的數(shù)據(jù)的排列跟Excel中的格式一致。

對(duì)導(dǎo)入VB控件ListView中工作表的數(shù)據(jù)進(jìn)行相應(yīng)的數(shù)據(jù)分析，可以計(jì)算出每一個(gè)沉降點(diǎn)的每次沉降量以及累計(jì)沉降量。

本設(shè)計(jì)所實(shí)現(xiàn)的基本功能就是可以讀取Excel文件，把Excel工作表里面的數(shù)據(jù)放到控件ListView里面，按照Excel工作表里面數(shù)據(jù)的格式在ListView里面排列出來(lái)，簡(jiǎn)潔方便。

通過(guò)對(duì)沉降數(shù)據(jù)點(diǎn)進(jìn)行一定的分析，計(jì)算其每段時(shí)間每個(gè)沉降點(diǎn)的變形量以及累計(jì)變形量，通過(guò)VB程序把計(jì)算出來(lái)的數(shù)值在TextBox控件里顯示出來(lái)，計(jì)算出來(lái)的結(jié)果可以清楚的看出每段時(shí)間沉降點(diǎn)的變形量及累計(jì)變形量。

通過(guò)計(jì)算可以看出每段時(shí)間沉降點(diǎn)的變形量及累計(jì)變形量，如果能通過(guò)圖形把每段時(shí)間沉降點(diǎn)的變形量在VB程序中的Picture控件里顯示出來(lái)，那么就會(huì)更為直觀的看出每段時(shí)間沉降點(diǎn)的變形量，這樣可以使數(shù)據(jù)的分析顯得直觀有效[5-8]。

2? 對(duì)觀測(cè)的高程數(shù)據(jù)點(diǎn)進(jìn)行分析

由于VB與Excel分別屬于不同的應(yīng)用系統(tǒng)，Excel是一個(gè)數(shù)據(jù)處理功能十分強(qiáng)大的電子表格和數(shù)據(jù)庫(kù)，一些用戶使用了Excel宏錄制或Excel宏編程的方法對(duì)其進(jìn)行二次開(kāi)發(fā)，取得一定成效[9-10]。但是，一般會(huì)存在代碼冗余過(guò)多、表達(dá)式太長(zhǎng)等不足。所以本程序設(shè)計(jì)的主要思想就是實(shí)現(xiàn)VB與Excel的連接。VB與EXCEL可以比作數(shù)據(jù)庫(kù)主輔平臺(tái)，兩個(gè)平臺(tái)各模塊之間的關(guān)系可用方框圖表示如下[11-12]：

3? 程序使用說(shuō)明書(shū)及編程代碼

啟動(dòng)軟件后，如圖2所示。首先點(diǎn)擊界面上方的“從Excel文件導(dǎo)入”按鈕，然后就會(huì)彈出一個(gè)打開(kāi)窗口，從電腦中選擇需要進(jìn)行分析的Excel文件。

選擇需要導(dǎo)入的Excel文件，導(dǎo)入Excel文件完成后，可以看到界面上名稱為“工作表1”、“工作表2”、

“工作表3”的按鈕名稱相應(yīng)的改為Excel工作簿的名稱。點(diǎn)擊其中的工作表按鈕則把Excel中相應(yīng)工作表的數(shù)據(jù)導(dǎo)入到ListView1控件里面，其格式按照Excel工作表中數(shù)據(jù)的格式導(dǎo)入。效果如圖3所示。

此時(shí)就可以對(duì)Excel工作表中每個(gè)點(diǎn)的數(shù)據(jù)進(jìn)行數(shù)據(jù)的分析，在進(jìn)行數(shù)據(jù)分析之前需要在小的文本框中輸入需要分析的第幾個(gè)點(diǎn)，輸入完成后，點(diǎn)擊其中的一個(gè)工作表按鈕，效果如圖4所示。

在文本框內(nèi)輸入需要分析的第幾個(gè)點(diǎn)，依次點(diǎn)擊不同的工作表按鈕、數(shù)據(jù)分析工作表按鈕，就可以得到Excel工作表中每個(gè)數(shù)據(jù)點(diǎn)的數(shù)據(jù)分析，顯示在TextBox控件中。點(diǎn)擊界面左下的“顯示圖”按鈕，可以簡(jiǎn)單的顯示出Excel工作表中每個(gè)數(shù)據(jù)點(diǎn)的沉降趨勢(shì)圖。效果如圖5所示。

5? 結(jié)論

對(duì)于高層和大型復(fù)雜建筑物沉降觀測(cè)的數(shù)據(jù)可以通過(guò)此程序快速高效的進(jìn)行分析，隨著信息化、數(shù)字化的迅速發(fā)展，設(shè)計(jì)一個(gè)可以快速收集數(shù)據(jù)并進(jìn)行分析的軟件，具有一定的使用價(jià)值。

通過(guò)這種程序設(shè)計(jì)的軟件實(shí)現(xiàn)了以下幾個(gè)功能：

（1）利用VB讀取Excel文件，把Excel工作表中的數(shù)據(jù)按照相同的格式讀取到ListView控件里。

（2）對(duì)沉降數(shù)據(jù)點(diǎn)進(jìn)行分析，計(jì)算其每段時(shí)間每個(gè)沉降點(diǎn)的變形量以及累計(jì)變形量，通過(guò)VB把計(jì)算出來(lái)的數(shù)值在TextBox控件里顯示出來(lái)，通過(guò)計(jì)算出來(lái)的結(jié)果可以看出每段時(shí)間沉降點(diǎn)的變形量及累計(jì)變形量。

（3）通過(guò)圖形把每段時(shí)間沉降點(diǎn)的變形量在VB的Picture控件里顯示出來(lái)，可以直觀的看出每段時(shí)間沉降點(diǎn)的變形量，使數(shù)據(jù)分析更為直觀。

參考文獻(xiàn)

梅文勝， 張正祿， 黃全義. 測(cè)量機(jī)器人在變形監(jiān)測(cè)中的應(yīng)用研究[J]. 大壩與安全， 2005， （5）： 21-23.

劉祖強(qiáng)， 劉艷杰. 清江庫(kù)區(qū)丹水扯洪渠邊坡變形監(jiān)測(cè)與變形分析[J]. 地理空間信息，2007， （3）： 89-92.

楊柳. 變形監(jiān)測(cè)技術(shù)的發(fā)展與應(yīng)用[J]. 山西建筑， 2008， （26）： 52-53.

Martin Ross， Michel Parent， Rene Lefebvre. 3D geologic framework models for regional hydmgeology and land use management： a case study from a Quaternary basin of Southwestern Quebec， Canada[J] . Hydrogeology journal， 2005， 13（5）： 690-707.

杜淑穎. 基于大型數(shù)據(jù)集的聚類算法研究[J]. 軟件， 2016， 37（01）： 132-135.

陳曉燕， 張?chǎng)H. 數(shù)據(jù)庫(kù)系統(tǒng)原理課程教學(xué)改革探索[J]. 軟件， 2018， 39（3）： 102-105.

白長(zhǎng)清， 劉敏. MongoDB 在氣象傳感器數(shù)據(jù)處理中的應(yīng)用[J]. 軟件， 2015， 36（11）： 34-37.

吳江， 孫劍偉. 一種基于云模型的數(shù)據(jù)預(yù)測(cè)算法[J]. 軟件， 2015， 36（12）： 212-215.

徐治. Visual C++調(diào)用MATLAB 函數(shù)庫(kù)的混合編程技術(shù)[J]. 軟件， 2015， 36（2）： 55-58.

衛(wèi)建東. 現(xiàn)代變形檢測(cè)技術(shù)的發(fā)展現(xiàn)狀與展望[J]. 測(cè)繪科學(xué)， 2007（6）： 32-34.

柳青， 劉渝妍等編. Visual Basic程序設(shè)計(jì)教程[M]. 北京： 高等教育出版社， 2002.

劉鋼， 楊崇禮等編著. Visual Basic 6.0程序設(shè)計(jì)實(shí)用教程[M]. 北京： 中國(guó)民航出版社， 2000.