【正文】 在將來的生活工作中，我將會(huì)以他們?yōu)榘駱优ぷ鳎\(chéng)實(shí)做人。感謝測(cè)繪工程專業(yè)同屆的所有同學(xué)，他們?cè)o過我許許多多的幫助，和他們相處的日子令我終生難忘。感謝老師在百忙之中一絲不茍、不厭其煩的孜孜教誨，感謝老師在我懈怠之時(shí)給予我的鞭策和激勵(lì)。首先，感謝系里的各位領(lǐng)導(dǎo)、各位老師，他們?yōu)榱宋覀冞@些來自全國(guó)各地的同學(xué)在學(xué)校里安心學(xué)習(xí)、生活，做了大量的工作，正是由于他們面面俱到的工作，才使我順利完成學(xué)業(yè)，走向社會(huì)。采用布爾莎模型進(jìn)行求解。詳細(xì)方法見第三類。對(duì)于這種轉(zhuǎn)換由于量較大，有條件的話，一般都采用 GPS 聯(lián)測(cè)已知點(diǎn)，應(yīng)用 GPS 軟件自動(dòng)完成坐標(biāo)的轉(zhuǎn)換。其中北京 54 坐標(biāo)系，屬三心坐標(biāo)系，大地原點(diǎn)在蘇聯(lián)的普而科沃，長(zhǎng)軸6378245m，短軸 6356863，扁率 1/；西安 80 坐標(biāo)系，屬三心坐標(biāo)系，大地原點(diǎn)在陜西省徑陽縣永樂鎮(zhèn)，長(zhǎng)軸 6378140m，短軸 6356755，扁率261/；WGS84 坐標(biāo)系，長(zhǎng)軸 ，短軸 ，扁率 1/。確定參數(shù)之后，可以用軟件進(jìn)行轉(zhuǎn)換，以下提供坐標(biāo)轉(zhuǎn)換的程序下載。另一種方法是根據(jù)大地坐標(biāo)經(jīng)度，如果經(jīng)度是在 ~度之間，那么對(duì)應(yīng)的中央子午線的經(jīng)度=（+）/2=117 度，其他情況可以據(jù)此 3 度類推。對(duì)于中央子午線的確定有兩種方法，一是取平面直角坐標(biāo)系中 Y 坐標(biāo)的前兩位*3，即可得到對(duì)應(yīng)的中央子午線的經(jīng)度。橢球參數(shù)就是指平面直角坐標(biāo)系采用什么樣的橢球基準(zhǔn)，對(duì)應(yīng)有不同的長(zhǎng)短軸及扁率。常用的方法有三參數(shù)法、四參數(shù)法和七參數(shù)法。其中第 2 類可歸入第三類中。25第五章 結(jié)論工程施工過程中，常常會(huì)遇到不同坐標(biāo)系統(tǒng)間，坐標(biāo)轉(zhuǎn)換的問題。空間直角坐標(biāo)系轉(zhuǎn)換空間大地坐標(biāo)系(迭代法)Dim e2 As Double, N As Double21Dim tB As Double, tH As Double, Lb As Double, lH As Doublee2 = GetE2(a, b)If = 0 Then = PI / 2Else = Atn( / )End IfIf = 0 And = 0 Then = PI / 2N = GetN(a, b, ) = / Sin() N * (1 e2)ElsetB = Atn( / Sqr( ^ 2 + ^ 2))mGoTo:N = GetN(a, b, tB)tH = Sqr( ^ 2 + ^ 2) / Cos(tB) NLb = Atn(( + N * e2 * Sin(tB)) / Sqr( ^ 2 + ^ 2))If Abs(Lb tB) 1E99 ThentB = LbGoTo mGoToElse = LbN = GetN(a, b, ) = Sqr( ^ 2 + ^ 2) / Cos() NEnd IfEnd IfEnd Sub根據(jù)上述的設(shè)計(jì)語句，我們可以通過調(diào)用函數(shù)的方法實(shí)現(xiàn)坐標(biāo)轉(zhuǎn)換的操作，代22碼如下：Public BtoX As New XYZPublic XtoB As New BLHPublic pi As DoublePublic Sub Command1_Click()Dim a As Double, b As Doublea = 6378245b = 6354950pi = Dim pBLH As New BLHDim pXYZ As New XYZIf = True Then = Val() = Val() = Val()Call BLH_XYZ(pBLH, a, b) = = = = Str() = Str() = Str()End IfIf = True Then = Val() = Val() = Val()Call XYZ_BLH(BtoX, a, b)Dim w As Double23 = Radian_Angular() = Angular_DMS() = Radian_Angular() = Angular_DMS() = = = = Format(, .00000000 ) = Format(, .00000000 ) = Format(, .00000000 ) = Str() = Str() = Str()End IfEnd Sub程序設(shè)計(jì)好之后就是要檢驗(yàn)坐標(biāo)轉(zhuǎn)換是否成功了，我們找來了一個(gè)已知點(diǎn)。空間大地坐標(biāo)系轉(zhuǎn)換空間直角坐標(biāo)系(a 為地球長(zhǎng)半軸,b 為地球短半軸)Dim e2 As Double, N As Double39。計(jì)算卯酉圈半徑 NDim e2 As Doublee2 = GetE2(a, b)GetN = a / Sqr(1 e2 * (Sin(RB) ^ 2))End Function計(jì)算 公式如下：2ePublic Function GetE2(a As Double, b As Double) As Double 39。度分秒化度小數(shù)Dim D As Double, M As Double, S As DoubleDim tDMS As Double, tS As DoubleIf DMS = 0 Then DMS_Angular = 0: Exit FunctiontDMS = DMS * 10000S = Val(Right(CStr(Int(tDMS)), 2)) + tDMS Int(tDMS)M = Val(Left(Right(CStr(Int(tDMS)), 4), 2))D = Val(Left(Int(tDMS), Len(CStr(Int(tDMS))) 4))DMS_Angular = D + M / 60 + S / 3600End FunctionPublic Function Angular_DMS(Angular As Double) As Double 39。度小數(shù)化弧度Angular_Radian = Angular * PI / 180End FunctionPublic Function Radian_Angular(Radian As Double) As Double 39?？臻g大地坐標(biāo)系 Public b As Double Public l As Double Public H As Double空間直角坐標(biāo)系代碼如下：39。首先，打開 ，進(jìn)入 的主界面，選擇”標(biāo)準(zhǔn) EXE”（如圖 41） 。VB 幫助窗口中顯示了有關(guān)的示例代碼，通過復(fù)制、粘貼操作可獲取大量的示例代碼，為用戶的學(xué)習(xí)和使用提供方便。通過動(dòng)態(tài)鏈接庫(kù)技術(shù)，在 VB 程序中可方便地調(diào)用用 C 語言或匯編語言編寫的函數(shù)，也可調(diào)用 Windows 的應(yīng)用程序接口(．API)函數(shù)。 （8）多個(gè)應(yīng)用程序向?qū)B 提供了多種向?qū)?，如?yīng)用程序向?qū)?、安裝向?qū)А?shù)據(jù)對(duì)象向?qū)Ш蛿?shù)據(jù)窗體向?qū)?，通過它們可以快速地創(chuàng)建不同類型、不同功能的應(yīng)用程序。（7）網(wǎng)絡(luò)功能 VB 提供了網(wǎng)絡(luò)設(shè)計(jì)工具。 （6）支持對(duì)象的鏈接與嵌入技術(shù) VB 的核心是對(duì)對(duì)象的鏈接與嵌入(OLE)技術(shù)的支持，它是訪問所有對(duì)象的一種方法。此外作為一種程序設(shè)計(jì)語言，VB 還有許多獨(dú)到之處。VB 的集成開發(fā)環(huán)境為編程者提供了很大的方便。（3）軟件的集成式開發(fā) VB 為編程提供了一個(gè)集成開發(fā)環(huán)境。若用戶未進(jìn)行任何操作(未觸發(fā)事件)，則程序就處于等待狀態(tài)。事件可由用戶的操作觸發(fā)，也可以由系統(tǒng)或應(yīng)用程序觸發(fā)。（2）事件驅(qū)動(dòng) 16 在 Windows 環(huán)境下，程序是以事件驅(qū)動(dòng)方式運(yùn)行的，每個(gè)對(duì)象都能響應(yīng)多個(gè)不同的事件，每個(gè)事件都能驅(qū)動(dòng)一段代碼——事件過程，該代碼決定了對(duì)象的功能。它的基本思路是把復(fù)雜的程序設(shè)計(jì)問題分解為一個(gè)個(gè)能夠完成獨(dú)立功能的相對(duì)簡(jiǎn)單的對(duì)象集合，所謂“對(duì)象”就是一個(gè)可操作的實(shí)體，如窗體、窗體中的命令按鈕、標(biāo)簽、文本框等。這兒的開放性是指在開發(fā)環(huán)境的選擇上可以有 VBA、VB、 、VC++ 、DELPHI 、JAVA 等多種支持 COM 標(biāo)準(zhǔn)的開發(fā)語言。該版本包括專業(yè)版的全部功能以及 Back Office 工具。企業(yè)版。為專業(yè)編程人員提供了一整套功能完備的開發(fā)工具，包括學(xué)習(xí)版的全部功能以及 Activex 控件、Inter 控件等。學(xué)習(xí)版。極大地降低了開發(fā) Windows 應(yīng)用程序的難度，使程序開發(fā)的效率大大提高。15第四章 基于 VB 的坐標(biāo)轉(zhuǎn)換 VB 簡(jiǎn)介VB 是 Microsoft 公司于 1991 年推出的基于窗口的可視化程序設(shè)計(jì)語言。上式適用于任意兩個(gè)空間直角坐標(biāo)系統(tǒng)間的相