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

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

　　一、前言

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

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

　　此文只簡(jiǎn)單介紹Visual Basic 6.0在水準(zhǔn)測(cè)量中的應(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è)計(jì)算的步棸：

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

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

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

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

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

　　圖1 附合水準(zhǔn)路線計(jì)算數(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測(cè)—(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) '通過高差改正后的值與已知點(diǎn)的高程之和算出未知點(diǎn)的高程

　　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、從運(yùn)行結(jié)果來看，此程序是正確的。

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

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

　　參考文獻(xiàn)：

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

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