摘　要：《測量學(xué)》是測繪工程專業(yè)入門的基礎(chǔ)課程，初學(xué)者在其學(xué)習(xí)當(dāng)中會遇到大量的計算，比如說水準(zhǔn)測量成果整理、導(dǎo)線測量成果整理、碎步測量成果整理等等。如何把這些繁瑣的計算簡單化，是當(dāng)代大學(xué)生需要加強的能力。

　　關(guān)鍵詞：期刊論文網(wǎng),測繪工程,水準(zhǔn)測量,大學(xué)生

　　一、前言

　　學(xué)科交叉在現(xiàn)在看來是一件再也普遍的不過的事情了，但是如何有效的利用自己學(xué)過的知識來處理另一門學(xué)科的問題，是我們要重視的環(huán)節(jié)。在這個大數(shù)據(jù)時代，計算機早已成為這個時代的主流，我們曾經(jīng)學(xué)習(xí)過的《大學(xué)物理》、《高等數(shù)學(xué)》中的計算問題，純手工的計算方法應(yīng)該不再是當(dāng)代大學(xué)生得以提倡的了，很多時候，我們需要“更快”、“更準(zhǔn)”，那么我們就可以利用自己學(xué)過的編程語言(Visual Basic)來處理這些繁瑣的計算。當(dāng)然，在此基礎(chǔ)上，需要我們比較熟練地掌握Visual Basic的各種控件和命令，只有這樣我們才能達(dá)到事半功倍的效果!

　　二、VB編程語言在《測量學(xué)》中應(yīng)用舉例

　　此文只簡單介紹Visual Basic 6.0在水準(zhǔn)測量中的應(yīng)用。根據(jù)水準(zhǔn)路線構(gòu)成的圖形結(jié)構(gòu)劃分，大體上可以分為單一水準(zhǔn)路線和水準(zhǔn)網(wǎng)兩類。單一水準(zhǔn)路線又可分為閉合水準(zhǔn)路線、附合水準(zhǔn)路線、支水準(zhǔn)路線，在這里只討論附合水準(zhǔn)路線這種情況。

　　1、附合水準(zhǔn)路線的內(nèi)業(yè)計算的步棸：

　　(1)水準(zhǔn)測量內(nèi)業(yè)的主要任務(wù)就是進(jìn)行高差改正，因此在次之前，必須進(jìn)行高差閉合差的和容許閉合差誤差的計算，即fh=∑h測—(H終—H起)，fh容=20√L。

　　(2)對于計算出來的高差閉合差進(jìn)行分析，如果小于或等于容許閉合差，則進(jìn)行近似平差，求得高差改正數(shù)，即Vi=-fh/∑L*Li或Vi=-fh/∑n*ni。其中∑L為水準(zhǔn)路線的總長度，Li為每測段的長度，∑n為總的測站數(shù)，ni為每測段的測站數(shù)。

　　(3)高差閉合差計算完后，應(yīng)滿足以下條件：∑Vi=-fh。準(zhǔn)確無誤之后，改正后的高差hi改=hi+Vi和正高HA=HB+h也就隨之計算出來。

　　2、Visual Basic 6.0編寫的計算界面及相關(guān)程序

　　(1)Visual Basic 6.0編寫的計算界面

　　圖1 附合水準(zhǔn)路線計算數(shù)據(jù)結(jié)果截圖

　　(2)程序源代碼

　　Private Sub Command1_Click()

　　Dim a1 As Double, a2 As Double, a3 As Double, a4 As Double, a5 As Double, a6 As Double, a7 As Double, a8 As Double, a9 As Double, a10 As Double, f1 As Integer, v As Double, a11 As Integer, a12 As Integer, a13 As Integer, a14 As Integer, a15 As Integer

　　a1 = Val(Text1.Text):a2 = Val(Text2.Text):a3 = Val(Text3.Text):a4 = Val(Text4.Text)

　　a5 = Val(Text6.Text):a6 = Val(Text7.Text):a7 = Val(Text8.Text):a8 = Val(Text9.Text)

　　a9 = Val(Text21.Text):a10 = Val(Text25.Text)

　　f1 = (a5 + a6 + a7 + a8 - (a10 - a9)) * 1000 '角度閉合差即：fh=∑h測—(H終—H起),單位是mm

　　If f1 > 20 * (a1 + a2 + a3 + a4) ^ (1 / 2) Or f1 < -20 * (a1 + a2 + a3 + a4) ^ (1 / 2) Then

　　x = MsgBox("閉合差超限", 2, 提示信息)

　　End If

　　v = (Fix(((-1 * f1 / (a1 + a2 + a3 + a4)) * 100 + 0.5)) / 100) '每公里的改正數(shù),四舍五入保留兩位小數(shù)

　　If v > 0 Then

　　a11 = Fix(v * a1 + 0.5) '改正數(shù)四舍五入取整,單位為mm

　　a12 = Fix(v * a2 + 0.5):a13 = Fix(v * a3 + 0.5):a14 = Fix(v * a4 + 0.5)

　　Else

　　a11 = Fix(v * a1 - 0.5):a12 = Fix(v * a2 - 0.5):a13 = Fix(v * a3 - 0.5):a14 = Fix(v * a4 - 0.5)

　　End If

　　a15 = a11 + a12 + a13 + a14 '改正數(shù)的和的相反數(shù)要與閉合差相等,即∑Vi=-fh

　　If v < 0 And (-1 * a15) < f1 Then Text14.Text = a14 - (f1 + a15) '消除湊整誤差

　　If v < 0 And (-1 * a15) > f1 Then Text14.Text = a14 - (f1 + a15)

　　If v > 0 And (-1 * a15) < f1 Then Text14.Text = a14 - (f1 + a15)

　　If v > 0 And (-1 * a15) < f1 Then Text14.Text = a14 - (f1 + a15)

　　a15 = a11 + a12 + a13 + Val(Text14.Text) '消除湊整誤差后的改正數(shù)之和

　　Text16.Text = a11 / 1000 + a5 '改正后的高差,單位要統(tǒng)一為m

　　Text17.Text = a12 / 1000 + a6:Text18.Text = a13 / 1000 + a7

　　Text19.Text = Val(Text14.Text) / 1000 + a8:Text11.Text = a11

　　Text12.Text = a12:Text13.Text = a13:Text15.Text = a15

　　Text20.Text = Val(Text16.Text) + Val(Text17.Text) + Val(Text18.Text) + Val(Text19.Text)

　　Text22.Text = a9 + Val(Text16.Text) '通過高差改正后的值與已知點的高程之和算出未知點的高程

　　Text23.Text = Val(Text22.Text) + Val(Text17.Text)

　　Text24.Text = Val(Text23.Text) + Val(Text18.Text):Text5.Text = a1 + a2 + a3 + a4

　　Text10.Text = a6 + a7 + a8 + a5

　　End Sub

　　三、結(jié)論

　　1、從運行結(jié)果來看，此程序是正確的。

　　2、相比于純手工計算，這個程序相對來說提高了效率，達(dá)到了“更快”、“更準(zhǔn)”的要求。

　　3、作為當(dāng)代大學(xué)生，我們要做到舉一隅能與三隅反，不要只僅僅局限于課本上的方法，我們要嘗試著用新的方法、新的理念來解決一些問題，即使我們的方法不是最優(yōu)，但是我們可以肯定的說：“我們嘗試過!”

　　參考文獻(xiàn)：

　　[1] 李玉寶.測量學(xué).西南交通大學(xué)出版社

　　[2] 黎明.Visual basic程序設(shè)計基礎(chǔ).四川科學(xué)技術(shù)出版社