水利測繪斷面內業處理對Visual Basic 6.0開發語言的應用

【摘 要】近年來，隨著科學技術的發展，很多水利測繪工作都投入了數字化和自動化處理數據，雖然工作效率得到了提升，但一些細致數據仍不能用目前的數據處理軟件和制圖軟件完成，還需要大量的人工統計。本文主要以Visual Basic 6.0開發語言為切入點，探究其在水利測繪斷面內業處理中的應用，并結合相關水利案例分析其應用效果。

【關鍵詞】Visual Basic 6.0；水利測繪；斷面內業處理；應用

工程測量指工程建設中所有測繪工作，服務于各種建設項目的勘測、設計、施工及監測。斷面測量是其中一個主要內容，電力、交通及水利等設計部門會根據斷面測量所提供的斷面資料進行設計。盡管先進的處理軟件和測量儀器提高了工作效率，但每個步驟數據接口需要對轉換數據，為此，本文結合生產實際特將Visual Basic 6.0開發語言應用至水利測繪斷面內業處理當中，滿足不同工作步驟需求，提高需要統計數據效率。

一、Visual Basic 6.0開發語言相關概述

Visual Basic是一種包含協助開發環境的事件驅動編程語言，它源自于BASIC編程語言，擁有快速應用程序開發系統和圖形用戶界面，程序員可以輕松的創建ActiveX控件并使用VB提供的組件構建一個應用程序。VB程序是一種基于窗體的可視化組件安排的聯合，指定組件的屬性和方法通過增加代碼的方式便可實現。由于在組件內有一部分默認的屬性和方法，程序員不用編寫過多的代碼便可完成一個簡單的程序。VB語言具有除了能進行是科學計算和數據處理外，還適用于科學計算、計算機輔助教學或游戲編程等方面。

VB窗體控件的增加和改變可實現拖放技術，可通過一個排列滿控件的工具箱顯示一些如文本框或按鈕等可用控件，這些控件都有自身屬性。相關默認的屬性值會在創建控件時自動顯示并提供給程序員，但程序員也可以對系統對提供的默認屬性值進行修改，隨著用戶修改的動作很多時候默認屬性值會有所改動，在改動的過程中形成動態程序。目前，水利斷面測量外業使用的測繪軟件為GPSRTK，采集野外數據后還需進一步處理內業計算，才能達到成團軟件所需的數據格式，除此之外，還需統計和分析數據處理之后的數據。Visual Basic 6.0開發語言可以實現測量成果數據庫管理，測量數據采集自動化，把水利測繪的各項處理數據設置在系統中，實時自動檢查，保證了原始觀測數據的質量，降低測量人員的勞動強度。

二、Visual Basic 6.0 開發語言程序實現步驟部分如下

Public str As String

Public WorkName As String

Public WorkPath As String

…………

Public fso As New FileSystemObject，ts As，TextStream

Private Sub Command1 _Click ( ) 選取文件按鈕

str = cdltxt. FileName

cdltxt. InitDir = WorkPath

cdltxt. FileName =

cdltxt. ShowOpen

End Sub

Name As String讀取文件按鈕

Dim fil As String，str As String

Dim i As Integer，j As Integer，m As Integer

…………

Dim maxh As Double最高點

逐漸減少文件名

zi = zi－pi

pi = Len( WorkPath)

ts2. WriteLine（文件名、左端點、右斷點、零點、最低點……）

End If

str = ts. ＲeadLine 讀取樁號或開始行

If str ＜ ＞ “END”And str ＜ ＞Then

If h ＞ maxh Then maxh = h

If s = 0 Then h0 = h

…………

…………

ts2. Close

MsgBox 橫斷數據統計完畢

StatusBar1. Panels( 1) . Text =統計左、右端點、最高點、最低點、端面長

End Sub

三、Visual Basic 6.0開發語言在水利測繪斷面內業處理中的應用

（一）工程放樣：本文所采用程序通過運用Visual Basic 6.0開發語言編寫具有以下功能：線放樣和公里樁放樣，前者是在實地放出根據兩點坐標位于延長線上任意一點，后者在實地位置放置任意里程樁號。

（二）數據處理系統：本文所采用的VB.6.0語言程序中包括數據預預處理、數據轉換及成果輸出等。如數據轉換，將斷面轉換數據傳輸到計算機里并轉換成標準的數據格式。標準斷面數據文本格式如下：

1：1600.000①，0.000②，0.000③；

2：，1800，000④，2002，1102⑤………

…………

5，-0.500，-15.000，-0.790

其中①，②，③，④，⑤等指樁號、樁點代碼、樁點高程等，其斷面數據文件后綴為*.TXP。

（三）數據預處理：點擊“數據檢查”菜單打開設置按鈕，在對話框中設置允許最大高差，最大點距，斷面的縱比例尺，橫比例尺。把需要檢查的斷面數據文件通過“斷面圖形檢查”視窗界面來檢查其斷面數據，之后把錯誤的數據輸出可選擇保存或不保存的記事本文件里（具體操作見圖1）。

（四）成果輸出：斷面成果輸出有以下幾種，①斷面圖的磁盤文件和生成；②生產斷面結果；③打印斷面圖及成果表；斷面圖中還包括縱、橫斷面圖，具體的項目名稱、施測單位、施測日期及縱、橫比例尺都可以對話框的形式輸入，信息輸入完畢后調用CAD生成橫斷面圖。（如圖2所示）。

（五）實例應用：灤河流域，是河北省北部東部的主要水源，有著名的引灤入津工程，沿途接納了眾多支流，其中流域面積大于1000平方公里的有9條，即小灤河、興洲河、伊遜河、武烈河、老牛河、柳河、瀑河、潵河及青龍河，近期對其規劃測量中，需要檢查其大斷面及統計內業工作量，本文則采用Visual Basic 6.0開發語言進行計算。具體如（圖3，圖4）

圖3 選擇3個斷面數據文件進行計算，計算結果如圖4，完全正確。

圖4 計算結果

四、結語

總之，Visual Basic 6.0開發語言解決了常規數據處理軟件統計困難問題，在水利測繪斷面內業處理發揮了積極的作用，有效的縮短了工程設計工期，尤其是針對一些緊急處理任務，通過網絡郵件的方式便可將斷面結果直接發送相關部門，提高了工作效率。同時還避免了人工干預錯誤的發生幾率，對后續報告的完成和任務量統計起到了關鍵的作用，值得在水利測繪中應用和推廣。

【參考文獻】

[1]許兆華，李紅.Visual Basic 6.0開發語言在水利測繪斷面內業處理中的應用[J].黑龍江水利科技，2013，(12):14-16

[2]陳海兵，李文格，尹欣等.信息化測繪成果在水利工程設計中的應用[J].水利規劃與設計，2013，(3):36-37，43

[3]姜鳳和，呂勝賓.從河道橫斷面測繪看測繪技術在水利行業的發展[J].水利科技與經濟，2012，18(1):44-45