應用VB_MapInfo開發(fā)的地震定位程序

1、第 18卷 第 4期東 北 地 震 研 究 Vol 118 No 14 2002年 12月 SEISMOLO GICAL RESEARCH OF NORTHEAST CHINA Sep 12002應用 VB +Map Info 開發(fā)的地震定位程序李 克 , 邵喜彬(吉林省地震局 , 吉林 長春 130022摘 要 :利用 OL E 自動化方法 , 將 Map Info 集成在 VB 中 , 在手工地震交切定位的基礎上 , 開發(fā)了計算機定位程序 。 該程序與傳統(tǒng)的定位方法相比 , 精度和效率都有較大幅度的提高 , 并在地震應急中發(fā)揮了作用 。關(guān)鍵詞 :地震定位程序 ; Visual Basic

2、; Map Info中圖分類號 :P315164 文獻標識碼 :A :2 收稿日期 :2002207作者簡介 :李克 (1952207 , 男 , 漢族 , 吉林省長春市人 11977年畢業(yè)于武漢測繪學院 , 高級工程師 , 現(xiàn)從事分析預報研究工作 10 引 言。 地震定位的快與慢及準確性如何 , 直接關(guān)系到地震應 。 目前吉林省尚未建成數(shù)字化地震臺網(wǎng) , 地震初定位仍依靠人工交 切方法進行 。 該法雖簡單易行 , 但也存在諸多弊端 。 特別是其定位速度慢及準確性差 ,已成為制約 地震應急響應的瓶頸 , 很難滿足現(xiàn)代化的防震減災工作的需要 。為改變手工地震定位的落后狀態(tài) , 就需要依托先進的地

3、理信息平臺 , 利用計算機技術(shù) , 開發(fā)研制具有空間查詢和分析功能的智能化地 震定位系統(tǒng) , 并盡可能的同地震快速應急響應系統(tǒng)整合成為有機的一體 。 基于上述目標 , 我們選擇 Map Info 作為系統(tǒng)運行平臺 , 采用 Visual Basic (VB 作為開發(fā)工具 , 開發(fā)了交互式計算機地震定 位程度 。1 運行平臺傳統(tǒng)的人工交切定位方法較為簡單 , 主要是在地圖上量取震中距做圓 交匯震中 確定震中經(jīng) 緯度 查找地名等步驟 。 用計算機模擬人工定位時 , 需要將震中距按某種地圖投影轉(zhuǎn)化為橢球面距 離 , 計算震中位置并以經(jīng)緯度方式表達 , 然后搜索距震中最近的居民點位置并顯示 。 在這一

4、系列過 程中 , 涉及到了地圖投影 , 地球坐標的正算反算 , 空間位置的確定及空間數(shù)據(jù)的搜索查詢等問題 , 這對于一般開發(fā)工具而言 , 是較為復雜和困難的 。然而 , 隨著地理信息系統(tǒng) (GIS 的應運而生 , 這些看似十分復雜的問題已變得相對簡單了 。面向地理實體的 GIS 長于對空間數(shù)據(jù)進行采集 、儲 存 、 管理 、 運算 、 分析及顯示 , 在地學及相關(guān)領域中的應用愈來愈廣泛 。 Map Info 是目前廣為流傳 的桌面 GIS 系統(tǒng) , 盡管其空間分析功能稍差 , 但以其系統(tǒng)開銷小 , 靈活易用而占據(jù)了大部分 GIS 低端市場 。 該系統(tǒng)自帶的 MapBasic 功能完備 , 可作

5、為系統(tǒng)二次開發(fā)的工具 ; 也可通過 OL E 自動化 或 DDE , 將其集成到其它開發(fā)系統(tǒng)中去 。根據(jù)要解決問題的實際 , 采用 Map Info 作為運行平臺是 較理想的選擇 。2 開發(fā)工具作為面向?qū)ο蟮拈_發(fā)工具 , VB 具有操作容易 , 編程簡明 , 開發(fā)效率較高的優(yōu)點 , 特別是 VB610以上版本 , 為編程人員提供了一整套功能完備的開發(fā)工具 。其中除常用的 ActiveX 控件外 , 還包括了 Internet Information Server Application Designer 、 集成的 Visual Database Tools 和 Data En 2vironm

6、ent 、 Active Data Objects 和 Dynamic HTML Page Designer 、 SQL Server Microsoft Transaction Server 、 Internet Information Server 等 。將 VB 和 Map Info 進行有機的結(jié)合 , 可較好地發(fā)揮各自特 點 , 從而使系統(tǒng)的整體功能更趨完善 。3 OL E 自動化OL E 自動化是 VB 強有力的一個特征 , 接使用其它應用程序說明的對象和方法 E 程度中向 Map Info 對象發(fā)送 一系列命令字符來重父化 VB 和 Map Info 的集成 , 其工作 流程如下

7、:圖 1 VB 通過 OL E 自動化集成 Map Info 示意圖Fig 11 Sketch of VB integrating Map Info by OL E automation4 系統(tǒng)功能及使用本程序是基于 Map Info 的地震定位系統(tǒng) , 用戶必須先安裝 Map Info 系統(tǒng) , 并且至少運行一次 , 系統(tǒng)需要 Map Info610或更高版本的支持 。安裝基本需求 :P 以上的機型 ; 64MB 以上的內(nèi)存空間 ; 300MB 以上的硬空間 ; 800×600或 更高分辨率的顯示器 ; Windows95/98/Me/2000。該程序已被打包做成安裝文件 , 用戶

8、只須在 Windows 下 , 點擊安裝程序圖標即可按提示進行 安裝 。本程序采用交互式人機對話方式進行地震定位 。 系統(tǒng)主菜單見圖 2, 主要有數(shù)據(jù)輸入 、定位處 理 、 查看圖層 、 結(jié)果輸出等功能 。系統(tǒng)具有地圖任意放大或縮小 、漫游 , 顯示圖上任意點地理坐 標 , 顯示臺站 、 斷裂 、 縣界 、 居民地名等不同地圖要素的功能 。 系統(tǒng)已預存了東北地理底圖 、 東北 縣界 、 東北鄉(xiāng)鎮(zhèn)一級地名 、 東北斷裂等基本地理信息供瀏覽檢索 , 無須用戶干預 。 由于地震臺站會 隨時間推移而所變化 , 因此臺站文件被做成文本 (TXT 文件 , 用戶可隨時進行增添或刪改 。144期 李 克等

9、:應用 VB +Map Info 開發(fā)的地震定位程序 圖12main 2menu window圖 3 數(shù)據(jù)輸入窗口Fig 13 Data enter window , 用戶可根據(jù)輸入菜單 (圖3 , 然后輸入時間 、 各地震臺初定震級 、震中距 。 在數(shù)據(jù)輸入時 , 用戶可隨時進行刪除 、 增添或修改 , 待準確無誤后點擊完畢命令即可返回主菜單進行定位處理 。 當用戶點擊定位處理菜單項后 , 程序根據(jù)已輸入的各地震臺震中距劃圓并顯示 , 然后選擇震中圖標 , 再點交切位置即可顯示震中經(jīng)緯度 、 震級及距震中位置最近的鄉(xiāng)鎮(zhèn)居民地名 (圖 4 。如對定位結(jié)果不滿意 , 如某地震臺震中距有誤 , 可

10、返回輸入菜單重新進行處理 , 直至達到滿意的結(jié)果為止 。最后 , 用戶根據(jù)需要 , 將地震定位結(jié)果形成的圖象打印或存盤 。該程序于 2002年 2月完成后 , 即為吉林省地震局震情值班室所使用 , 在吉林省內(nèi)地震定位中發(fā)揮了明顯的作用 。 與傳統(tǒng)的手工定位方法相比 , 該程序具有明顯的優(yōu)越性 , 定位的速度和準確性都有提高 , 可為地震應急響應爭取更多的時間 , 這對于地震應急指揮并采取相關(guān)措施是十分有意義的 。24東 北 地 震 研 究 18卷 圖 4 14of result5 , 其在防震減災領域中的應用也日漸廣泛 , 無論 是在地震的預測預報 , 還是在震災預防 , 以至在工程地震中均大

11、有用武之地 。 本文僅在地震定位方 面進行了初步的嘗試 , 但取得的效果是明顯的 。 VB +Map Info (VC +Map Info 、 Delphi +Map Info 已成為在 Map Info 平臺上開發(fā)較大型應用軟件的主要模式 , 盡管本文涉及的問題比較單一 , 但主要 的技術(shù)方法對今后從事相關(guān)的開發(fā)研究可能會有所裨益 。參考文獻1地理信息系統(tǒng)教程 M 1北京 :北京大學出版社 , 19942GIS Map Info 與 MapBasic 學習教程 M 1北京 :北京大學出版社 , 2000DEV ELOPIN G PRO GRAM OF SEISMICLOCA TION APP

12、L YED VB +MAPINFOL I KE , SHAO Xi -bin(Seismological B ureau of jili n Provi nce , Changchun 130022Abstract This paper introduced the program of seismic location , which is developed by OL E automa 2tion means to integrate map Info into VB development environment 1The precision and efficiency of seis 2mic location is superior to tradit