Đồ án Ứng dụng công nghệ tin học thành lập bản đồ trên cơ sở dữ liệu đo của máy toàn đạc điện tử

ãc ®øng) hoÆc b»ng to¹ ®é vu«ng gãc (XYH). 1.4.4.3 Thu thËp d÷ liÖu D÷ liÖu ®­îc tù ®éng ghi trong bé nhí cña m¸y toµn ®¹c ®iÖn tö hoÆc d­íi d¹ng sæ ®o ®iÖn tö tõ ®ã t¹o ra c¸c file d÷ liÖu mang c¸c th«ng tin cÇn thiÕt cho viÖc thµnh lËp b¶n ®å trong ®ã chøa ®ùng c¸c chØ thÞ, vÞ trÝ kh«ng gian, m· nhËn d¹ng vµ ph©n lo¹i tõng ®èi t­îng... Sè liÖu tõ v¨n b¶n ®­a vµo m¸y tÝnh th«ng qua bµn phÝm, hoÆc c¸c menu mµn h×nh lµ c¸c th«ng tin thuéc tÝnh thu thËp trùc tiÕp theo thùc tÕ : lo¹i ®Êt, thùc vËt, ®Þa danh, d¸ng ®Þa h×nh, thèng kª, chñ së h÷u..... 1.4.4.4 Xö lý d÷ liÖu Sö dông c¸c phÇn mÒm tr¾c ®Þa ®Ó thùc hiÖn c¸c thao t¸c thµnh lËp b¶n ®å, söa ch÷a c¸c lçi, thay ®æi cÊu tróc, t¹o ra c¸c cÊu tróc míi ®Ó ®­a vµ hiÖn lªn mµn h×nh ®å häa. C¸c d÷ liÖu ®ã ®­îc biÓu diÔn d­íi d¹ng c¸c ký hiÖu, ®­êng nÐt vµ m· ho ¸thµnh d¹ng vector lªn mµn h×nh th«ng qua c¸c phÇn mÒm ®å häa. Tõ ®ã thùc hiÖn c«ng t¸ c biªn tËp, söa ch÷a,... ®Ó in b¶n ®å giÊy. Néi dung biÓu diÔn bao gåm c¸c d÷ liÖu kh«ng gian, d÷ liÖu thuéc tÝnh, d¸ng ®Þa h×nh vµ c¸c ký hiÖu mang th«ng tin thuéc tÝnh ®­îc liªn kÕt víi nhau ®Ó biÓu thÞ theo quy ®Þnh cña hÖ thèng ký hiÖu b¶n ®å ®Þa h×nh do Bé Tµi nguyªn vµ M«i tr­êng ban hµnh. §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 17 Tin häc Tr¾c ®Þa K47 1.4.4.5 In, kiÓm tra, ®èi so¸t vµ bæ sung thùc ®Þa C«ng ®o¹n nµy ®­îc thùc hiÖn sau khi ®· cã b¶n ®å giÊy víi d÷ liÖu th« (ch­a biªn tËp). B¶n ®å giÊy ®­îc mang ra thùc ®Þa ®Ó ®èi so¸t vµ bæ xung nh÷ng ®èi t­îng cßn thiÕu, d¸ng ®Þa h×nh ch­a ®óng... vµ hoµn chØnh c¸c th«ng tin cÇn thiÕt. 1.4.4.6 Biªn tËp vµ hoµn thiÖn b¶n ®å B¶n ®å ®· ®­îc bæ sung c¸c yÕu tè cÇn thiÕt cÇn ®­îc cËp nhËt vµo m¸y tÝnh vµ tiÕn hµnh biªn tËp hoµn chØnh b¶n ®å theo ®óng quy tr×nh quy ph¹m, sau ®ã tiÕn hµnh in ®Ó kiÓm tra néi nghiÖp. Sau khi ®· kiÓm tra néi nghiÖp tiÕn hµnh chØnh söa nh÷ng lçi biªn tËp vµ in chÝnh thøc b¶n ®å. 1.4.4.7 Giao nép s¶n phÈm S¶n phÈm giao nép lµ b¶n ®å ®Þa h×nh, l­íi khèng chÕ tr¾c ®Þa c¸c cÊp ®· ®­îc b×nh sai ®¹t yªu cÇu kü thuËt, c¸c tµi liÖu liªn quan nh­ s¬ häa mèc, sæ ®o, b¸o c¸o tæng kÕt kü thuËt... §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 18 Tin häc Tr¾c ®Þa K47 Ch­¬ng 2 Thµnh lËp b¶n ®å sè ®Þa h×nh tõ d÷ liÖu ®o cña c¸c m¸y toµn ®¹c ®iÖn tö 2.1 M¸y toµn ®¹c ®iÖn tö 2.1.1 Giíi thiÖu chung M¸y toµn ®¹c ®iÖn tö (Total Station) hiÖn ®ang ®­îc sö dông réng r·i trªn thÕ giíi vµ ë n­íc ta. CÊu t¹o mét m¸y toµn ®¹c ®iÖn tö bao gåm 3 khèi chÝnh: M¸y toµn ®¹c ®iÖn tö gåm 3 khèi chøc n¨ng: H×nh 2.1 S¬ ®å tæng qu¸t m¸y toµn ®¹n ®iÖn tö Khèi 1: Bé ®o xa ®iÖn quang (Electronic Distance Meter viÕt t¾t EDM) lµ khèi ®o xa ®iÖn tö. KÕt qu¶ ®o ®­îc hiÓn thÞ trªn mµn h×nh tinh thÓ láng LCD. Khèi 2: Khèi kinh vÜ sè (Digital Theodolite viÕt t¾t DT) cã cÊu t¹o t­¬ng tù nh­ m¸y kinh vÜ cæ ®iÓn, ®iÓm kh¸c nhau c¬ b¶n lµ khi thùc hiÖn ®o gãc kh«ng ph¶i thùc hiÖn c¸c thao t¸c th«ng th­êng nh­ chËp v¹ch, ®äc sè trªn thang sè mµ sè ®äc tù ®éng hiÓn thÞ trùc tiÕp trªn mµn h×nh cña m¸y nhê mét trong hai ph­¬ng ph¸p m· ho¸ bµn ®é vµ ph­¬ng ph¸p xung. Khèi 3: Trong khèi nµy cµi ®Æt c¸c ch­¬ng tr×nh tiÖn Ých ®Ó xö lý mét sè bµi to¸n tr¾c ®Þa nh­ c¶i chÝnh kho¶ng c¸ch nghiªng vÒ kho¶ng c¸ch b»ng, §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 19 Tin häc Tr¾c ®Þa K47 tÝnh l­îng hiÖu chØnh kho¶ng c¸ch do c¸c yÕu tè khÝ t­îng, hiÖu chØnh do chiÕt quang vµ ®é cong tr¸i ®Êt, tÝnh chªnh cao gi÷a 2 ®iÓm theo c«ng thøc cña ®o cao l­îng gi¸c. TÝnh to¹ ®é cña c¸c ®iÓm theo chiÒu dµi c¹nh vµ ph­¬ng vÞ, tõ c¸c ®¹i l­îng to¹ ®é ®· tÝnh ®­îc ®em ¸p dông ®Ó gi¶i c¸c bµi to¸n nh­ giao héi, tÝnh diÖn tÝch, khèi l­îng, ®o gi¸n tiÕp ... vv. Ngoµi ra bé ch­¬ng tr×nh cßn cho phÐp kÕt nèi vµ trao ®æi d÷ liÖu víi m¸y tÝnh ®iÖn tö. KÕt hîp 3 khèi trªn víi nhau thu ®­îc mét m¸y toµn ®¹c ®iÖn tö ®a chøc n¨ng cã thÓ ®o ®¹c, tÝnh to¸n c¸c ®¹i l­îng cÇn thiÕt vµ cho kÕt qu¶ tin cËy víi hÇu hÕt c¸c bµi to¸n tr¾c ®Þa th«ng th­êng. 2.1.2 M¸y toµn ®¹c ®iÖn tö cña h·ng Leica - TC 305 2.1.2.1 C¸c th«ng sè kü thuËt cña m¸y H×nh 2.2 H×nh ¶nh m¸y TC - 305 §é chÝnh x¸c ®o gãc : m =  5” §é chÝnh x¸c ®o c¹nh : mD = 2mm+2mm/km §é phãng ®¹i èng kÝnh : Vx = 30x §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 20 Tin häc Tr¾c ®Þa K47 2.1.2.2 TruyÒn sè liÖu a. ThiÕt lËp c¸c th«ng sè H×nh 2.3 Menu ®Æt chÕ ®é truyÒn d÷ liÖu §Ó trao ®æi d÷ liÖu gi÷a m¸y tÝnh PC vµ m¸y ®o, cÇn thiÕt ®Æt c¸c th«ng sè ho¹t ®éng cho giao diÖn nèi tiÕp RS232. C¸c th«ng sè chuÈn cña m¸y h·ng Leica: 19200 Baud, 7 Databit, Parity Even, 1 Stopbit, CRLF. Baudrate: Tèc ®é truyÒn cã thÓ ®Æt: 2400, 4800, 9600, 19200 (bits/gi©y) Databits : +7: TruyÒn d÷ liÖu ®­îc thùc hiÖn víi 7 bÝt d÷ liÖu, ®­îc ®Æt tù ®éng nÕu parity lµ “Even” hoÆc “Odd” +8: TruyÒn d÷ liÖu thùc hiÖn víi 8 bit d÷ liÖu, ®­îc ®Æt tù ®éng nÕu parity lµ “None”. Parity : Even: KiÓm tra ch½n lÎ kiÓu ch½n Odd : KiÓm tra ch½n lÎ kiÓu lÎ None : Kh«ng kiÓm tra (nÕu Databits ®­îc ®Æt lµ 8) Endmark: CRLF Carriage Return (ký tù 13 trong b¶ng m· ASCI) ; Line feed CR Carriage Return COMMUNICATION Baudrate: 9600◄► Databits: 7◄► Parity : Even◄► Endmark : CRLF◄► Stopbits: 1◄► §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 21 Tin häc Tr¾c ®Þa K47 Stopbits: Tuú thuéc vµo viÖc ®Æt cho sè bit d÷ liÖu (Databits) vµ kiÓm tra ch½n lÎ (Parity) mµ sè bit dõng cã thÓ lµ 0, 1 hay 2. b. Chän chøc n¨ng truyÒn d÷ liÖu §Ó truyÒn sè liÖu tõ m¸y toµn ®¹c ®iÖn tö TC sang m¸y tÝnh ta cã thÓ dïng ch­¬ng tr×nh cã tªn lµ Leica Survey Office. Khi truyÒn d÷ liÖu th× víi m¸y toµn ®¹c ®iÖn tö TC, vµo môc Data Dowloand, môc nµy cho phÐp truyÒn d÷ liÖu ®o theo cæng giao diÖn nèi tiÕp víi thiÕt bÞ nhËn (m¸y tÝnh). Sö dông c¸ch truyÒn nµy cho phÐp truyÒn d÷ liÖu kh«ng cã kiÓm tra trong qu¸ tr×nh truyÒn. H×nh 2.4 Menu truyÒn d÷ liÖu   : Lùa chän c¸c th«ng sè cô thÓ. : TruyÒn d÷ liÖu theo cæng giao diÖn. Jop : Lùa chän Jop ®Ó truyÒn. Data : Chän kiÓu d÷ liÖu truyÒn. Cã thÓ truyÒn c¸c ®iÓm to¹ ®é hay c¸c sè ®o mét c¸ch riªng lÎ. Format : Lùa chän ®Þnh d¹ng d÷ liÖu. C¸c ®Þnh d¹ng cã thÓ lùa chän phô thuéc vµo c¸c Format ®· n¹p vµo m¸y. C¸c ®Þnh d¹ng míi cã thÓ ®­îc n¹p vµo khi sö dông ch­¬ng tr×nh Leica Survey Office (môc Data Exchange Manager). 2.1.2.3 Khu«n d¹ng d÷ liÖu §Þnh d¹ng chuÈn cña Leica lµ *.gsi vµ *.idx cã cÊu tróc sau: Khu«n d¹ng d÷ liÖu sau khi ®· chuyÒn sang m¸y tÝnh cã khu«n d¹ng to¹ ®é cùc cã d¹ng nh­ sau: DATA DOWNLOAD Jop : Präect_04B ◄ ► Data: Coord ◄ ► Format: APA ◄ ► §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 22 Tin häc Tr¾c ®Þa K47 a. Khu«n d¹ng file *.gsi : 110001+000T-191 21.024+00000050 22.024+08928020 31...0+00756860 51....+0014+030 87...0+00001300 88...0+00001553 110002+000000B7 21.024+18537530 22.024+09001280 31...0+00802517 51....+0014+030 87...0+00001300 88...0+00001553 110003+000000B7 21.024+00538020 22.024+26958230 31...0+00802522 51....+0014+030 87...0+00001300 88...0+00001553 110004+000000B7 21.024+18537590 22.024+09001220 31...0+00802519 51....+0014+030 87...0+00001300 88...0+00001553 110005+000000B7 21.024+00537550 22.024+26958330 31...0+00802520 51....+0014+030 87...0+00001300 88...0+00001553 110006+00000001 21.024+09016350 22.024+08946170 31...0+00383384 51....+0014+030 87...0+00002100 88...0+00001553 110007+00000002 21.024+09541340 22.024+08946400 31...0+00384401 51....+0014+030 87...0+00002100 88...0+00001553 110008+00000003 21.024+10223440 22.024+08946340 31...0+00392755 51....+0014+030 87...0+00002100 88...0+00001553 110009+00000004 21.024+32324190 22.024+09007060 31...0+00332753 51....+0014+030 87...0+00002100 88...0+00001553 110010+00000005 21.024+32715010 22.024+09006470 31...0+00349123 51....+0014+030 87...0+00002100 88...0+00001553 110011+00000006 21.024+33146420 22.024+09005170 31...0+00373088 51....+0014+030 87...0+00002100 88...0+00001553 110012+00000007 21.024+19702260 22.024+09002400 31...0+00777074 51....+0014+030 87...0+00002100 88...0+00001553 110013+00000008 21.024+11105170 22.024+08951110 31...0+00405832 51....+0014+030 87...0+00002100 88...0+00001553 110014+00000009 21.024+33519070 22.024+09005430 31...0+00396203 51....+0014+030 87...0+00002100 88...0+00001553 110015+00000010 21.024+11724190 22.024+08951030 31...0+00421923 51....+0014+030 87...0+00002100 88...0+00001553 110016+00000011 21.024+19724470 22.024+09003340 31...0+00744428 51....+0014+030 87...0+00002100 88...0+00001553 110017+00000012 21.024+12400190 22.024+08952000 31...0+00446236 51....+0014+030 87...0+00002100 88...0+00001553 110018+00000013 21.024+33926300 22.024+09005130 31...0+00429909 51....+0014+030 87...0+00002100 88...0+00001553 110019+00000014 21.024+08012580 22.024+08956550 31...0+00257943 51....+0014+030 87...0+00002100 88...0+00001553 110020+00000015 21.024+19745470 22.024+09003170 31...0+00709122 51....+0014+030 87...0+00002100 88...0+00001553 110021+00000016 21.024+12947460 22.024+08951160 31...0+00474573 51....+0014+030 87...0+00002100 88...0+00001553 110022+00000017 21.024+07226450 22.024+08958200 31...0+00269085 51....+0014+030 87...0+00002100 88...0+00001553 110023+00000018 21.024+34150060 22.024+09005200 31...0+00410471 51....+0014+030 87...0+00002100 88...0+00001553 110024+00000019 21.024+13457450 22.024+08951390 31...0+00508698 51....+0014+030 87...0+00002100 88...0+00001553 §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 23 Tin häc Tr¾c ®Þa K47 b. Khu«n d¹ng file *.idx : 200006,"T-191", 0.017833, 756.826960, 7.328048, "", 10-07-2004/07:18:32.0 , MEAS; 200007,"B7", -78.751666, -798.643712, -0.045345, "", 10-07-2004/07:22:21.0 , MEAS; 200008,"B7", -78.785717, -798.644964, -0.081426, "", 10-07-2004/07:24:06.0 , MEAS; 200009,"B7", -78.772533, -798.643971, -0.023937, "", 10-07-2004/07:25:57.0 , MEAS; 200010,"B7", -78.758768, -798.645927, -0.039249, "", 10-07-2004/07:27:41.0 , MEAS; 200011,"1", 383.375990, -1.850079, 0.992906, "", 10-07-2004/07:36:12.0 , MEAS; 200012,"2", 382.502336, -38.130850, 0.954364, "", 10-07-2004/07:37:16.0 , MEAS; 200013,"3", 383.596424, -84.307226, 0.998254, "", 10-07-2004/07:38:37.0 , MEAS; 200014,"4", -198.370236, 267.157545, -1.227040, "", 10-07-2004/07:41:51.0 , MEAS; 200015,"5", -188.865100, 293.626661, -1.227845, "", 10-07-2004/07:44:05.0 , MEAS; 200016,"6", -176.426488, 328.736761, -1.110821, "", 10-07-2004/07:47:26.0 , MEAS; 200017,"7", -227.719024, -742.959042, -1.110260, "", 10-07-2004/07:47:50.0 , MEAS; 200018,"8", 378.652087, -146.018218, 0.505304, "", 10-07-2004/07:49:32.0 , MEAS; 200019,"9", -165.442665, 360.006772, -1.194991, "", 10-07-2004/07:49:46.0 , MEAS; 200020,"10", 374.570681, -194.202635, 0.563690, "", 10-07-2004/07:50:34.0 , MEAS; 200021,"11", -222.774419, -710.312359, -1.283221, "", 10-07-2004/07:51:36.0 , MEAS; 200022,"12", 369.921987, -249.565145, 0.503974, "", 10-07-2004/07:52:24.0 , MEAS; 200023,"13", -150.966483, 402.529600, -1.186831, "", 10-07-2004/07:53:10.0 , MEAS; 200024,"14", 254.191275, 43.833321, -0.311132, "", 10-07-2004/07:53:30.0 , MEAS; 200025,"15", -216.341462, -675.314746, -1.189683, "", 10-07-2004/07:53:55.0 , MEAS; 200026,"16", 364.626178, -303.752390, 0.673457, "", 10-07-2004/07:54:10.0 , MEAS; 200027,"17", 256.554783, 81.157771, -0.411816, "", 10-07-2004/07:54:19.0 , MEAS; 200028,"18", -127.966161, 390.014140, -1.172942, "", 10-07-2004/07:54:35.0 , MEAS; 200029,"19", 359.938260, -359.466265, 0.706742, "", 10-07-2004/07:55:48.0 , MEAS; §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 24 Tin häc Tr¾c ®Þa K47 2.1.3 M¸y toµn ®¹c ®iÖn tö cña h·ng Nikon 2.1.3.1 C¸c th«ng sè kü thuËt cña m¸y H×nh 2.5 H×nh d¹ng m¸y cña h·ng Nikon - DTM330 §é chÝnh x¸c ®o gãc cña m¸y: m = 5” §é chÝnh x¸c ®o c¹nh cña m¸y:  (3+2ppm x D)mm Kho¶ng c¸ch ®o xa nhÊt b»ng g­¬ng ®¬n: 2400m 2.1.3.2 ThiÕt lËp d÷ liÖu cho b¶n ®å ®Þa h×nh T¹i mét tr¹m m¸y, nhËp to¹ ®é c¸c ®iÓm tr¹m ®o vµ ®iÓm ®Þnh h­íng vµo m¸y b»ng c¸c phÝm chøc n¨ng hiÓn thÞ trªn mµn h×nh cña m¸y ®o. H×nh ¶nh hiÓn thÞ c¸c th«ng sè cÇn thiÕt trong qu¸ tr×nh ®o nh­ sau: H×nh 2.6 C¸c th«ng sè ®o Ên phÝm MSR hoÆc TRK ®Ó ®o tíi c¸c ®iÓm tiÕp theo. NÕu muèn ghi l¹i d÷ liÖu ®· ®o Ên REC mµn h×nh hiÓn thÞ th«ng b¸o nhËp chiÒu cao g­¬ng, HA: 1420 29’ 30’’ VA: 40 44’ 56’’ SD : 2355.555 m §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 25 Tin häc Tr¾c ®Þa K47 m· ®Þa vËt ®iÓm ®o, sau ®ã Ên ENT. H×nh 2.7 §Æt m· ®iÓm ®Þa vËt 2.1.3.3 Trót d÷ liÖu Tõ mµn h×nh c¬ b¶n Ên phÝm Menu mµn h×nh hiÓn thÞ : §Ó lùa chän néi dung truyÒn d÷ liÖu, chóng ta chän “5: Comm “ khi ®ã mµn h×nh hiÓn thÞ nh­ sau: H×nh 2.9 Chän kiÓu giao tiÕp Chän “1: Down load “ mµn h×nh hiÓn thÞ: H×nh 2.10 Lo¹i d÷ liÖu trót Sö dông phÝm ,  c¸c d÷ liÖu ,  dÞch chuyÓn ®Õn ®Þnh d¹ng yªu PT :20 HT : 1.5 CD : Goc_Nha 1: J0B 5: com m 2: Cogo 6: Time 3: sett 7: calible 4: Data Communication 1:Down load 2:Upload Data 3:Upload list Select Format Format: NiKON Data : RAW H×nh 2.8 Chän chÕ ®é truyÒn d÷ liÖu §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 26 Tin häc Tr¾c ®Þa K47 cÇu vµ chuyÓn ®æi ®Þnh d¹ng c¸c d÷ liÖu ®ã . Format: NiKON / SDR2x/SDR33 Data: RAW/ Coordinate Sau ®ã Ên ENT, mµn h×nh hiÓn thÞ chÕ ®é kÕt nèi nh­ sau: H×nh 2.11 ChÕ ®é kÕt nèi Nèi c¸p RS tíi cæng Com cña m¸y tÝnh sau ®ã Ên ENT mµn h×nh hiÓn thÞ: H×nh 2.12 Trót d÷ liÖu Sau khi m¸y DTM - 330 truyÒn hÕt d÷ liÖu vµo m¸y tÝnh, mµn h×nh hiÓn thÞ th«ng b¸o kÕt thóc: H×nh 2.13 Hoµn thµnh viÖc trót d÷ liÖu M¸y hái cã xo¸ c«ng viÖc võa trót d÷ liÖu kh«ng. NÕu kh«ng ta Ên ESC. NÕu cã ta Ên ENT, mµn h×nh hiÓn thÞ : H×nh 2.14 Xo¸ d÷ liÖu trong m¸y ®o Please conect RS 232C Cable Press ENT Send point: 122 Job =KHAOSAT SENDING 1.1.1.1.1 Record : 100 Complete Delete Job? No Yes Delete Job KHAOSAT Are you sure Abrt Del §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 27 Tin häc Tr¾c ®Þa K47 M¸y hái cã ch¾c ch¾n xo¸ kh«ng nÕu kh«ng xo¸ Ên ESC ®Ó trë l¹i cßn nÕu xo¸ ta Ên ENT. 2.1.3.4 Khu«n d¹ng d÷ liÖu Sau khi truyÒn d÷ liÖu cña m¸y DTM 332 vµo m¸y tÝnh, chóng ta cã c¸c d¹ng sau (*.nrw) Khu«n d¹ng to¹ ®é cùc : CO,Nikon Raw Data Format V2.00 CO,B:\DOMCDTC4 CO,Description: CO,Client: CO,Comments: CTTDNGOIPHAT CO,Software: Pre-Installed Software V1.22 CO,Instrument: Nikon DTM-851 CO,Dist Units: Metres CO,Angle Units: DDDMMSS CO,Zero azimuth: North CO,Zero VA: Zenith CO,Coord Order: NEZ CO,HA Raw data: Azimuth CO, DOMCDTC4 Created 18-Feb-2005 19:17:01 CO,Tilt Correction = OFF MP,C1,,2498544.2770,373906.3130,408.6870, MP,C2,,2498372.0180,373694.8920,455.0220, MP,C3,,2498420.4060,373739.4090,441.7860, MP,C5,,2498337.1780,373591.2450,444.1490, MP,C6,,2498351.3470,373462.1200,442.0320, MP,C7,,2498358.8550,373305.4290,436.9400, MP,A10,,2498098.2290,373126.5600,405.9780, MP,A11,,2498105.6680,373121.7210,405.5650, MP,A12,,2498166.2730,373151.5860,417.7720, MP,A13,,2498206.2800,373165.7360,429.7720, MP,A14,,2498013.3670,373118.0840,422.6100, MP,A15,,2498213.3170,373185.4330,436.5590, MP,0,,2498503.7709,374087.3092,0.0000, MP,1,,2498511.2960,374077.3656,0.0000, §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 28 Tin häc Tr¾c ®Þa K47 2.2 Thµnh lËp BDDH tõ sè liÖu ®o cña m¸y toµn ®¹c ®iÖn tö 2.2.1 Quy tr×nh thµnh lËp b¶n ®å sè ®Þa h×nh tõ d÷ liÖu m¸y toµn ®¹c ®iÖn tö. H×nh 2.15 Quy tr×nh thµnh lËp b¶n ®å sè ®Þa h×nh tõ d÷ liÖu m¸y toµn ®¹c ®iÖn tö. §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 29 Tin häc Tr¾c ®Þa K47 2.2.2 CÊu tróc d÷ liÖu vµ s¬ ®å thuËt to¸n cña c¸c m¸y toµn ®¹c ®iÖn tö §Ó thùc hiÖn viÖc tù ®éng thµnh lËp b¶n ®å ®Þa h×nh b»ng ph­¬ng ph¸p sè tõ d÷ liÖu ®o ®­îc cña c¸c m¸y toµn ®¹c ®iÖn tö, chóng ta cÇn ph¶i chuyÓn vÒ mét khu«n d¹ng nhÊt ®Þnh. C¸c khu«n d¹ng chÝnh cña d÷ liÖu ®o chi tiÕt lµ to¹ ®é vu«ng gãc x, y, H vµ to¹ ®é cùc. D÷ liÖu nhËn ®­îc cña c¸c m¸y toµn ®¹c ®iÖn tö còng ®­îc l­u d÷ d­íi hai d¹ng c¬ b¶n ®ã lµ d¹ng to¹ ®é cùc vµ d¹ng to¹ ®é vu«ng gãc. §èi víi d¹ng d÷ liÖu to¹ ®é vu«ng gãc chóng ta chuyÓn ngay vÒ quy c¸ch d÷ liÖu x, y, H ®Ó thùc hiÖn viÖc sè ho¸ b¶n ®å ®Þa h×nh. §èi víi d÷ liÖu to¹ ®é cùc th× cÇn ph©n tÝch cÊu tróc d÷ liÖu ®o ®¹c cña tõng lo¹i m¸y, tõ ®ã chuyÓn ®æi vÒ mét d¹ng chung nhÊt, sau ®ã tÝnh to¸n ®Ó ®­a vÒ d¹ng X, Y vµ H theo mét quy chuÈn chung. §èi víi d÷ liÖu to¹ ®é cùc, khu«n d¹ng d÷ liÖu trong tÖp tin sau khi chuyÓn ®æi ®­îc thèng nhÊt nh­ sau: Thø tù, Kh_c¸ch_nghiªng, Gãc_b»ng, Chªnh_cao, Cao_mia, Ghi_chó §èi víi d÷ liÖu to¹ ®é vu«ng gãc, khu«n d¹ng d÷ liÖu trong tÖp tin sau khi chuyÓn ®æi trùc tiÕp tõ d÷ liÖu ®o ngoµi thùc ®Þa hoÆc tõ tÖp d÷ liÖu to¹ ®é cùc ®­îc thèng nhÊt nh­ sau: Thø tù, To¹ ®é_X, To¹_®é_Y, §é_Cao_H, Ghi_chó §Ó cã c¬ së cho viÖc x©y dùng c¸c modul ch­¬ng tr×nh, ph¶i thùc hiÖn viÖc ph©n tÝch c¸c khu«n d¹ng d÷ liÖu cô thÓ ®èi víi tõng m¸y toµn ®¹c ®iÖn tö. 2.2.2.1 M¸y toµn ®¹c ®iÖn tö h·ng Nikon (DTM - 330) CÊu tróc d÷ liÖu - D÷ liÖu d¹ng täa ®é cùc CO,Nikon RAW data format V2.00 Format tÖp d÷ liÖu *.raw CO,Dist Units: Metres §¬n vÞ ®o chiÒu dµi: MÐt §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 30 Tin häc Tr¾c ®Þa K47 CO,Angle Units: Degrees §¬n vÞ ®o gãc: §é, Phót, Gi©y CO,Zero azimuth: North H­íng khëi ®Çu: H­íng B¾c CO,Scale Factor: 1.0000 Tû sè tû lÖ: 1.000 CO,DHMo §Þa danh khu ®o: DHmo CO,Downloaded 08-Mar-2004 10:57:08 Thêi gian trót d÷ liÖu: CO,Instrument: Nikon DTM-330 Tªn m¸y ®o: Nikon DTM-330 MP,1,,2373000.0000,567000.0000,0.0000, To¹ ®é ®iÓm ®Æt m¸y. MP,2,,2373500.0000,577000.0000,0.0000,BAC To¹ ®é ®iÓm ®Þnh h­íng. CO,Temp:22C Press:760mmHg Prism:30 §iÒu kiÖn m«i tr­êng. ST,1,,2,,1.5000,0.00000,0.00000 Tr¹m m¸y 1 §Þnh h­íng 2, chiÒu cao m¸y SS,3,1.5300,67.8550,71.25340,90.08290,08:43:03, SS,4,1.5300,67.4790,68.58460,91.18580,08:44:05, ... Trong ®ã d÷ liÖu tõng ®iÓm ®o ®­îc ghi trªn mét b¶n ghi, bao gåm: SS_M· hiÖu ®iÓm chi tiÕt, 3_sè thø tù cña ®iÓm ®o, 1.5300_chiÒu cao g­¬ng, 67.8550_kho¶ng c¸ch nghiªng (m), 71.25340_gãc b»ng (®é, phót, gi©y), 90.08290_gãc thiªn ®Ønh (®é, phót, gi©y), 08:42:10_thêi gian ®o. Qu¸ tr×nh ®o ghi ®­îc thùc hiÖn t­¬ng tù ®èi víi tÊt c¶ c¸c ®iÓm chi tiÕt trong mét tr¹m ®o, c¸c tr¹m ®o kh¸c t­¬ng tù. 2.2.2.2 M¸y toµn ®¹c ®iÖn tö h·ng Leica _ TC-305 a. CÊu tróc d÷ liÖu Khu«n d¹ng d÷ liÖu m¸y toµn ®¹c ®iÖn tö h·ng Leica nh­ TC-600, TC- 605, TC-1100, TC-305, ®Òu ®­îc l­u tr÷ theo cïng mét nguyªn t¾c. Mçi ®iÓm ®o ®­îc l­u l¹i nh÷ng th«ng tin cÇn thiÕt, mçi th«ng tin bao gåm m· sè cña th«ng tin ®ã vµ gi¸ trÞ kÌm theo. Cô thÓ nh­ sau: §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 31 Tin häc Tr¾c ®Þa K47 11 M· sè sè thø tù ®iÓm 21 M· sè gi¸ trÞ gãc b»ng 22 M· sè gi¸ trÞ gãc thiªn ®Ønh 31 M· sè kho¶ng c¸ch nghiªng 51 M· sè h»ng sè g­¬ng 87 M· sè chiÒu cao g­¬ng 81 M· sè to¹ ®é X 82 M· sè to¹ ®é Y 83 M· sè ®é cao H ... Trong qu¸ tr×nh ®o, chóng ta l­u d÷ liÖu hoÆc chÕ ®é to¹ ®é cùc hoÆc ®ång thêi to¹ ®é cùc vµ to¹ ®é vu«ng gãc - To¹ ®é cùc cña file *.gsi: 110001+000T-191 21.024+00000050 22.024+08928020 31...0+00756860 51....+0014+030 87...0+00001300 88...0+00001553 110002+000000B7 21.024+18537530 22.024+09001280 31...0+00802517 51....+0014+030 87...0+00001300 88...0+00001553 110003+000000B7 21.024+00538020 22.024+26958230 31...0+00802522 51....+0014+030 87...0+00001300 88...0+00001553 110004+000000B7 21.024+18537590 22.024+09001220 31...0+00802519 51....+0014+030 87...0+00001300 88...0+00001553 110005+000000B7 21.024+00537550 22.024+26958330 31...0+00802520 51....+0014+030 87...0+00001300 88...0+00001553 110006+00000001 21.024+09016350 22.024+08946170 31...0+00383384 51....+0014+030 87...0+00002100 88...0+00001553 110007+00000002 21.024+09541340 22.024+08946400 31...0+00384401 51....+0014+030 87...0+00002100 88...0+00001553 §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 32 Tin häc Tr¾c ®Þa K47 110008+00000003 21.024+10223440 22.024+08946340 31...0+00392755 51....+0014+030 87...0+00002100 88...0+00001553 110009+00000004 21.024+32324190 22.024+09007060 31...0+00332753 51....+0014+030 87...0+00002100 88...0+00001553 110010+00000005 21.024+32715010 22.024+09006470 31...0+00349123 51....+0014+030 87...0+00002100 88...0+00001553 110011+00000006 21.024+33146420 22.024+09005170 31...0+00373088 51....+0014+030 87...0+00002100 88...0+00001553 110012+00000007 21.024+19702260 22.024+09002400 31...0+00777074 51....+0014+030 87...0+00002100 88...0+00001553 110013+00000008 21.024+11105170 22.024+08951110 31...0+00405832 51....+0014+030 87...0+00002100 88...0+00001553 110014+00000009 21.024+33519070 22.024+09005430 31...0+00396203 51....+0014+030 87...0+00002100 88...0+00001553 110015+00000010 21.024+11724190 22.024+08951030 31...0+00421923 51....+0014+030 87...0+00002100 88...0+00001553 110016+00000011 21.024+19724470 22.024+09003340 31...0+00744428 51....+0014+030 87...0+00002100 88...0+00001553 110017+00000012 21.024+12400190 22.024+08952000 31...0+00446236 51....+0014+030 87...0+00002100 88...0+00001553 Trong ®ã : 110001+000T-191: 11: M· thø tù ®iÓm; T-191: M· tªn ®iÓm 21.024+00000050: 21: M· gãc b»ng; 00000050: Gi¸ trÞ gãc b»ng (5”) 22.024+08928020: 22: M· gãc ®øng; 08928020: Gi¸ trÞ gãc ®øng (®é/phót/gi©y) 31...0+00756860: 31:M· sè kho¶ng c¸ch nghiªng; 00756860:kho¶ng c¸ch nghiªng (756.86 m) 51....+0014+030: 51: M· sè h»ng sè g­¬ng; 0014+030: h»ng sè g­¬ng 88...0+00001553: 88: M· sè chiÒu cao m¸y; 00001553: chiÒu cao m¸y(1.553 m) §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 33 Tin häc Tr¾c ®Þa K47 87...0+00001300: 87: M· sè chiÒu cao g­¬ng; 00001300: gi¸ trÞ chiÒu cao g­¬ng(1.30m). - D¹ng täa ®é cùc cña file *.idx : 200004, "T-191", , , ,"", 10-07-2004/07:17:38.0 , MEAS; 200006,"T-191", 0.017833, 756.826960, 7.328048, "", 10-07-2004/07:18:32.0 , MEAS; 200007, "B7", -78.751666, -798.643712, -0.045345, "", 10-07- 2004/07:22:21.0 , MEAS; 200008, "B7", -78.785717, -798.644964, -0.081426, "", 10-07- 2004/07:24:06.0 , MEAS; 200009, "B7", -78.772533, -798.643971, -0.023937, "", 10-07- 2004/07:25:57.0 , MEAS; 200010, "B7", -78.758768, -798.645927, -0.039249, "", 10-07- 2004/07:27:41.0 , MEAS; 200011, "1", 383.375990, -1.850079, 0.992906, "", 10-07- 2004/07:36:12.0 , MEAS; 200012, "2", 382.502336, -38.130850, 0.954364, "", 10-07- 2004/07:37:16.0 , MEAS; 200013, "3", 383.596424, -84.307226, 0.998254, "", 10-07- 2004/07:38:37.0 , MEAS; 200014, "4", -198.370236, 267.157545, -1.227040, "", 10-07- 2004/07:41:51.0 , MEAS; 200015, "5", -188.865100, 293.626661, -1.227845, "", 10-07- 2004/07:44:05.0 , MEAS; 200016, "6", -176.426488, 328.736761, -1.110821, "", 10-07- 2004/07:47:26.0 , MEAS; 200017, "7", -227.719024, -742.959042, -1.110260, "", 10-07- 2004/07:47:50.0 , MEAS; 200018, "8", 378.652087, -146.018218, 0.505304, "", 10-07- 2004/07:49:32.0 , MEAS; 200019,"9", -165.442665, 360.006772, -1.194991, "", 10-07- 2004/07:49:46.0 , MEAS; 200020, "10", 374.570681, -194.202635, 0.563690, "", 10-07- 2004/07:50:34.0 , MEAS; 200021, "11", -222.774419, -710.312359, -1.283221, "", 10-07- 2004/07:51:36.0 , MEAS; 200022, "12", 369.921987, -249.565145, 0.503974, "", 10-07- 2004/07:52:24.0 , MEAS; 200023, "13", -150.966483, 402.529600, -1.186831, "", 10-07- 2004/07:53:10.0 , MEAS; 200024, "14", 254.191275, 43.833321, -0.311132, "", 10-07- 2004/07:53:30.0 , MEAS; §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 34 Tin häc Tr¾c ®Þa K47 200025, "15", -216.341462, -675.314746, -1.189683, "", 10-07- 2004/07:53:55.0 , MEAS; 200026, "16", 364.626178, -303.752390, 0.673457, "", 10-07- 2004/07:54:10.0 , MEAS; 200027, "17", 256.554783, 81.157771, -0.411816, "", 10-07- 2004/07:54:19.0 , MEAS; 200028, "18", -127.966161, 390.014140, -1.172942, "", 10-07- 2004/07:54:35.0 , MEAS; 200029, "19", 359.938260, -359.466265, 0.706742, "", 10-07- 2004/07:55:48.0 , MEAS; 200030, "20", -211.489741, -640.755240, -1.285331, "", 10-07- 2004/07:56:00.0 , MEAS; 200031, "21", 259.178827, 118.465420, -0.259619, "", 10-07- 2004/07:56:29.0 , MEAS; 200032, "22", -144.232297, 347.457960, -1.156772, "", 10-07- 2004/07:56:59.0 , MEAS; 200033, "23", 354.585830, -416.080790, 0.681942, "", 10-07- 2004/07:57:27.0 , MEAS; Trong ®ã: 2007: M· sè thø tù ®iÓm; B7: tªn ®iÓm; 185.375350 : gi¸ trÞ gãc b»ng (Phót); 90.012790 :gi¸ trÞ gãc ®øng (Phót); 802.517079 : kho¶ng c¸ch nghiªng (m); 1.300000 : cao g­¬ng (m); 10-07-2004/07:22:21.0: ngµy ®o §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 35 Tin häc Tr¾c ®Þa K47 b. S¬ ®å thuËt to¸n H×nh 2.16 §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 36 Tin häc Tr¾c ®Þa K47 Ch­¬ng 3 Ng«n ng÷ lËp tr×nh Visual basic 6.0 3.1 Giíi thiÖu chung Visual basic lµ mét ng«n ng÷ lËp tr×nh ®­îc ph¸t triÓn bëi h·ng Microsoft nh»m cung cÊp cho ng­êi lËp tr×nh mét m«i tr­êng ph¸t triÓn c¸c øng dông trªn Windows mét c¸ch nhanh chãng vµ dÔ dµng. Visual Basic ®· tr¶i qua nhiÒu phiªn b¶n vµ hiÖn nay lµ phiªn b¶n Visual basic 6.0 Enterprise Edition ®ang ®­îc ­a chuéng nhÊt. Visual Basic cung cÊp cho ng­êi lËp tr×nh mét m«i tr­êng tÝch hîp, n¬i mµ ng­êi lËp tr×nh cã thÓ sö dông c¸c c«ng cô cã s½n ®Ó t¹o ra giao diÖn ng­êi sö dông mét c¸ch nhanh chãng vµ dÔ dµng t¹o ra m· lÖnh ®Ó ®¸p øng c¸c t¸c ®éng tõ phÝa ng­êi sö dông. Visual Basic cung cÊp cho ng­êi lËp tr×nh c¶ kü thuËt lËp tr×nh h­íng sù kiÖn vµ lËp tr×nh h­íng ®èi t­îng. M«i tr­êng ph¸t triÓn cña Visual Basic chøa nh÷ng c«ng cô so¹n th¶o vµ gì rèi tinh vi, cho phÐp ng­êi lËp tr×nh g¾n m· lÖnh víi giao diÖn mét c¸ch nhanh chãng ®¸p øng cho tõng sù kiÖn. “Basic” ®Ò cËp ®Õn ng«n ng÷ Basic (Beginner all – purpose Symbolic Introduction Code) mét ng«n ng÷ lËp tr×nh ®­îc sö dông phæ biÕn ®Çu tiªn vµo ®Çu thËp niªn 60. Sau mét thêi gian v¾ng bãng do c¸c ng«n ng÷ kh¸c chiÕm h÷u thÞ tr­êng nh­: ng«n ng÷ lËp tr×nh Pascal, Database/Foxbase…Basic trá l¹i víi mét c¸i tªn míi lµ Visual Basic. “Visual” ®Ò cËp tíi ph­¬ng ph¸p ®­îc dïng ®Ó t¹o giao diÖn ®å häa víi ng­êi sö dông (GUI – Graphical User Interface). H¬n thÕ n÷a ta cã thÓ ®­a vµo trong kh«ng gian mµn h×nh c¸c ®èi t­îng mét c¸ch dÔ dµng. Nh­ vËy, Visual Basic b¾t nguån tõ ng«n ng÷ BASIC. Vissual Basic cung cÊp hµng tr¨m t×nh huèng, c¸c tõ khãa th«ng dông vµ mét bé c¸c c«ng cô ®­îc §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 37 Tin häc Tr¾c ®Þa K47 thiÕt lËp s½n nh»m lµm ®¬n gi¶n hãa c¸c chøc n¨ng ph¸t triÓn c¸c øng dông vµ gióp ng­êi lËp tr×nh triÓn khai c¸c øng dông Windows mét c¸ch dÔ dµng. Sö dông Visual Basic, ta dÔ dµng t¹o ra ®­îc nh÷ng form giao diÖn (Interface) øng dông th«ng qua nh÷ng thao t¸c kÐo th¶ ®¬n gi¶n. b»ng c¸ch kÐo th¶ c¸c ®èi t­îng s½n cã nh­: Frame, Label, Command button, Picturebox…Nh÷ng ®èi t­îng nµy sÏ mang nh÷ng thuéc tÝnh (Properties) riªng biÖt nh­: font ch÷, mµu s¾c, ®é réng, chiÒu cao, kÝch th­íc…®­îc g¸n trong b¶ng danh s¸ch thuéc tÝnh. Yªu cÇu tèi thiÓu hÖ thèng: - Visual Basic lµ ch­¬ng tr×nh 32 bit nªn nã ch¹y trªn m«i tr­êng Window tõ phiªn b¶n Windows 95 trë lªn, kh«ng thÓ ch¹y hoÆc x©y dùng c¸c øng dông Windows 3.1. - 50 MB kh«ng gian ®Üa cøng cßn trèng. - Chip yªu cÇu Pentium 166 MHz - RAM 32 MB §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 38 Tin häc Tr¾c ®Þa K47 3.2 Lµm viÖc víi Visual basic 6.0  Chän Standard.exe Project ®Ó má mét Project míi.  Chän Tab Existing nÕu muèn më mét øng dông cã s½n.  Chän Tab Recent nÕu muèn më c¸c øng dông gÇn nhÊt. §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 39 Tin häc Tr¾c ®Þa K47 Cöa sæ lµm viÖc cña VB khi chän STANDARD.EXE H×nh 3.1 Cöa sæ lµm viÖc chÝnh cña Visual Basic 3.2.1 Thanh tiªu ®Ò (Title bar) Th«ng b¸o tªn cña Project ®ang lµm viÖc. 3.2.2 Thanh Menu (Menu bar) Chøa ®Çy ®ñ c¸c commands mµ b¹n sö dông ®Ó lµm viÖc víi VB6, kÓ c¶ c¸c menu ®Ó truy cËp c¸c chøc n¨ng ®Æc biÖt dµnh cho viÖc lËp tr×nh ch¼ng h¹n nh­ Project, Format, hoÆc Debug. Trong Menu Add-Ins cã Add-Ins Manager cho phÐp b¹n g¾n thªm nh÷ng menu con ®Ó ch¹y c¸c ch­¬ng tr×nh lîi Ých cho viÖc lËp tr×nh. 3.2.3 Thanh c«ng cô (Tool bar) §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 40 Tin häc Tr¾c ®Þa K47 C¸c toolbars cã h×nh c¸c icons cho phÐp b¹n click ®Ó thùc hiÖn c«ng viÖc t­¬ng ®­¬ng víi dïng mét menu command, nh­ng nhanh vµ tiÖn h¬n. B¹n dïng menu command View | Toolbars (click lªn menu command View cho popupmenu hiÖn ra råi click command con Toolbars) ®Ó lµm cho c¸c toolbars hiÖn ra hay biÕn mÊt ®i. B¹n cã thÓ thay ®æi vÞ trÝ mét toolbar b»ng c¸ch n¾m vµo hai g¹ch vertical n»m bªn tr¸i toolbar råi dêi toolbar ®i chç kh¸c (n¾m ë ®©y nghÜa lµ ®Ó pointer cña mouse lªn chç chÊm ®á trong h×nh phÝa d­íi råi bÊm xuèng vµ gi÷ nót bªn tr¸i cña mouse, trong khi kÐo pointer ®i n¬i kh¸c). 3.2.4 Hép c«ng cô(Tool box) H×nh 3.2 Hép c«ng cô Toolbox §©y lµ hép ®å nghÒ víi c¸c c«ng cô, gäi lµ controls, mµ b¹n cã thÓ ®Æt lªn c¸c form trong lóc thiÕt kÕ (design). NÕu Toolbox biÕn mÊt, b¹n cã thÓ display nã trë l¹i b»ng c¸ch dïng menu command View | Toolbox. B¹n cã thÓ khiÕn toolbox display nhiÒu controls h¬n b»ng c¸ch chän Components... tõ context menu (chän Toolbox råi bÊm nót ph¶i cña mouse ®Ó display context menu) hay dïng menu command Project | Components. Ngoµi viÖc tr×nh bµy Toolbox mÆc ®Þnh, b¹n cã thÓ t¹o c¸ch tr×nh bµy kh¸c b»ng c¸ch chän Add Tab... tõ context menu vµ bæ sung c¸c control cho tab tõ kÕt qu¶. Tïy vµo tõng ®å ¸n mµ hép c«ng cô cã c¸c giao diÖn kh¸c nhau tïy thuéc vµo yªu cÇu cña project vµ cßn tïy thuéc vµo c¸ch sö dông cña mçi ng­êi lËp tr×nh. §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 41 Tin häc Tr¾c ®Þa K47 3.2.5 Cöa sæ Properties Window- cöa sæ thuéc tÝnh: H×nh 3.3 Cöa sæ Properties Windows LiÖt kª c¸c thuéc tÝnh cña c¸c biÓu mÉu hoÆc ®iÒu kiÓm ®­îc chän. Mét property lµ mét ®Æc tÝnh cña mét ®èi t­îng ch¼ng h¹n nh­ size, caption, hoÆc color. Khi b¹n söa ®æi mét property b¹n sÏ thÊy hiÖu qu¶ ngay lËp tøc, thÝ dô thay ®æi property Font cña mét Label sÏ thÊy Label Êy ®­îc hiÓn thÞ b»ng Font ch÷ míi. Khi b¹n chän mét Property cña control hay form trong cöa sæ thuéc tÝnh, phÝa bªn ph¶i ë chç value cña property cã thÓ display ba chÊm (. . .) hay mét tam gi¸c chØa xuèng. BÊm vµo ®ã ®Ó hiÓn thÞ mét hép tho¹i cho b¹n chän gi¸ trÞ. ThÝ dô d­íi ®©y lµ hép tho¹i ®Ó chän mµu cho property ForeColor cña control Label1. §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 42 Tin häc Tr¾c ®Þa K47 3.2.6 From Layout Window B¹n dïng form Layout ®Ó chØnh vÞ trÝ cña c¸c forms khi form hiÖn ra lÇn ®Çu lóc ch­¬ng tr×nh ch¹y. Dïng context command Resolution Guides ®Ó thÊy nÕu dïng mét mµn ¶nh víi ®é mÞn (resolution) tÖ h¬n, thÝ dô nh­ 640 X 480, th× nã sÏ nhá nh­ thÕ nµo. Khi ta b¾t ®Çu ch¹y ch­¬ng tr×nh th× biÓu mÉu sÏ n»m ë gãc trªn bªn tr¸i, thay v× dïng chuét ®Ó kÐo Form ®Õn vÞ trÝ tïy ý, Form Layout sÏ gióp b¹n lµm ®iÒu nµy: + Trá chuét vµo Form trong mµn h×nh form layout window, lóc nµy con trá sÏ cã h×nh d¹ng lµ mòi tªn bèn h­íng. + Rª Form ®Õn vÞ trÝ muèn Form xuÊt hiÖn råi th¶ chuét. Khi ch¹y ch­¬ng tr×nh Form sÏ n»m ë ®óng vÞ trÝ mong muèn. §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 43 Tin häc Tr¾c ®Þa K47 3.2.7 Project Explorer Window H×nh 3.4 Cöa sæ Project Explorer Windows Cöa sæ nµy qu¶n lý toµn bé dù ¸n mµ ®ang thiÕt kÕ, trong cöa sæ nµy sÏ liÖt kª tªn dù ¸n vµ toµn bé tÊt c¶ c¸c form, c¸c modul cña dù ¸n. §Ó më mét form hoÆc mét modul nµo ®ã ta sö dông chuét ®Ó chän, sau ®ã kÝch vµo tab cã tªn View Object. H×nh 3.5 Giao diÖn thiÕt kÕ §Ó xem cöa sæ viÕt m· lÖnh cña form hoÆc modul nµo ®ã ta còng lµm nh­ trªn råi sau ®ã kÝch vµo tab cã tªn View code. §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 44 Tin häc Tr¾c ®Þa K47 H×nh 3.6 cöa sæ viÕt m· lÖnh §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 45 Tin häc Tr¾c ®Þa K47 Ch­¬ng 4 ThiÕt kÕ ch­¬ng tr×nh 4.1 ThiÕt kÕ giao diÖn Ch­¬ng tr×nh ®­îc thiÕt kÕ theo chøc n¨ng cña ®Ò tµi tèt nghiÖp ®ã lµ: “øng dông c«ng nghÖ tin häc thµnh lËp b¶n ®å ®Þa h×nh trªn c¬ së d÷ liÖu ®o cña m¸y toµn ®¹c ®iÖn tö”. 4.1.1 Giao diÖn chÝnh cña ch­¬ng tr×nh H×nh 4.1 Giao diÖn ch­¬ng tr×nh B­íc ®Çu tiªn lµ khëi t¹o mét project míi. Tõ cöa sæ lµm viÖc chÝnh cña Visual Basic vµo File\New Project (phÝm t¾t Ctrl + N) ®Ó t¹o míi mét Project. ë cöa sæ hiÖn ra ta tiÕn hµnh ®­a c¸c ®iÒu kiÓm cÇn thiÕt vµo trong biÓu mÉu b»ng c¸c ®éng t¸c kÐo th¶ chuét ®Ó chän c¸c c¸c ®èi t­îng trong hép c«ng cô Toolbox. §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 46 Tin häc Tr¾c ®Þa K47 Thªm mét biÓu mÉu míi, modul, líp míi vµo trong project hiÖn hµnh b»ng c¸ch chän nót 4.1.2 Thanh menu Sö dông menu Editor ®Ó x©y dùng thanh menu theo c¸c chøc n¨ng cña ch­¬ng tr×nh. H×nh 4.2 Giao diÖn thiÕt kÕt menu ch­¬ng tr×nh Thanh menu cña ch­¬ng tr×nh ®­îc thiÕt kÕ gåm cã c¸c menu con nh­: TÖp tin, so¹n th¶o, cöa sæ, c«ng cô... §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 47 Tin häc Tr¾c ®Þa K47 Menu tÖp tin Menu so¹n th¶o Khi lµm viÖc víi cöa sæ ®å ho¹ nh­ sao chÐp, c¾t, d¸n c¸c ®èi t­îng b¶n ®å ta sö dông menu so¹n th¶o. Menu cöa sæ hiÓn thÞ Bao gåm c¸c chÕ ®é thu phãng mµn h×nh cho phÐp xem b¶n vÏ ë c¸c chÕ ®é kh¸c nhau. §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 48 Tin häc Tr¾c ®Þa K47 Menu c«ng cô §­îc thiÕt kÕ víi môc ®Ých lµ vÏ c¸c ®èi t­îng nh­: Line, Polyline, Ellipse, Rectangle, circle...trùc tiÕp trªn nÒn ®å häa cña vecad. Cho phÐp thiÕt lËp c¸c thuéc tÝnh cho c¸c ®èi t­îng b¶n ®å. Menu tiÖn Ých Xö lý sè liÖu tõ m¸y toµn ®¹c ®iÖn tö vµ hiÓn thÞ ®iÓm chi tiÕt trªn nÒn ®å häa ta sö dông menu tiÖn Ých. Menu liªn kÕt øng dông Cho phÐp gäi c¸c ch­¬ng tr×nh ®å häa øng dông trùc tiÕp tõ biÓu mÉu chÝnh cña ch­¬ng tr×nh phôc vô cho c«ng t¸c thµnh lËp b¶n ®å ®Þa h×nh. §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 49 Tin häc Tr¾c ®Þa K47 4.1.3 Form xö lý sè liÖu 4.1.3.1 S¬ ®å thuËt to¸n: H×nh 4.3 ThuËt to¸n xö lý sè liÖu ®o chi tiÕt §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 50 Tin häc Tr¾c ®Þa K47 4.1.3.2 ThiÕt kÕ form H×nh 4.4 Giao diÖn xö lý s« liÖu Form xö lý sè liÖu gåm cã 4 ®iÒu kiÓm Option, 2 ®iÒu kiÓm label, 4 ®iÒu kiÓm command button, 2 hép textbox. C¸c ®èi t­îng option lµ c¸c tïy chän cho phÐp chän ®Þnh d¹ng file sè liÖu nhËp vµo. C¸c button xö lý, kÕt qu¶, tho¸t cã chøc n¨ng ®óng nh­ tªn gäi cña nã. Khi click vµo button ch­¬ng tr×nh sÏ gäi thñ tôc Private Sub cmdxuly_Click() ®Ó xö lý file sè liÖu võa ®­îc chän. Click vµo button thñ tôc Private Sub cmdketqua_Click() ®­îc gäi vµ kÕt qu¶ sau khi xö lý sÏ ®­îc hiÓn thÞ lªn form. Click vµo button thñ tôc Private Sub cmdthoat_Click() ®­îc thùc thi tho¸t khái form xö lý. §èi t­îng command button cho phÐp lùa chän ®­êng dÉn chøa file sè liÖu. Chän ®­êng dÉn Chän ®Þnh d¹ng tÖp sè liÖu §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 51 Tin häc Tr¾c ®Þa K47 Th«ng qua menu tiÖn Ých --> xö lý sè liÖu MT§§T ta tiÕn hµnh xö lý d÷ liÖu, ®­a d÷ liÖu vÒ d¹ng *.ash. Click vµo sÏ hiÖn ra hép tho¹i sau: H×nh 4.5 Giao diÖn hép tho¹i chän tÖp tin sè liÖu xö lý Sau khi chän ®­êng dÉn chøa file sè liÖu, tªn cña file sè liÖu ®­îc hiÓn thÞ trong hép ®iÒu kiÓm textbox thø nhÊt vµ tªn file sau xö lý ®­îc lÊy theo tªn cña file sè liÖu nhËp vµo ®­îc hiÓn thÞ trong hép textbox thø hai nh­ h×nh H×nh 4.6 Tªn tÖp tin sè liÖu sau khi chän tÖp NÕu chän sai ®Þnh d¹ng file sè liÖu sÏ cã th«ng b¸o lçi vµ ph¶i nhËp l¹i ®óng ®Þnh d¹ng cña tÖp sè liÖu. §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 52 Tin häc Tr¾c ®Þa K47 H×nh 4.7 Hép tho¹i th«ng b¸o lçi më tÖp sai ®Þnh d¹ng Xö lý thµnh c«ng xuÊt hiÖn th«ng b¸o H×nh 4.8 Hép tho¹i th«ng b¸o thµnh c«ng D÷ liÖu ®­îc xö lý biªn tËp theo tõng tr¹m ®o râ rµng h¬n, trùc quan h¬n. Ng­êi tÝnh to¸n xem xÐt, kiÓm tra tõng tr¹m ®o so víi sæ nhËt ký ®o. NÕu ®o qui kh«ng h­íng khëi ®Çu th× ph¶i nhËp tªn ®iÓm tr¹m m¸y vµ ®iÓm ®Þnh h­íng vµo vÞ trÝ dßng ký hiÖu TRAM. Chó ý tªn ®iÓm tr¹m m¸y vµ ®iÓm ®Þnh h­íng ph¶i ®óng nh­ tªn ®iÓm trong file täa ®é gèc. KýHiÖuTr¹m TªnTr¹mM¸y Tªn§ÞnhH­íng TªnCT GãcB»ng C¹nhB»ng ChªnhCao TªnCT GãcB»ng C¹nhB»ng ChªnhCao TRAM F1 T-191 T-191 0 0 0 .000 -0.547 T-191 0 0 5 756.860 7.291 B7 185 37 54 802.517 -0.089 B7 5 38 2 802.522 0.63 B7 185 37 59 802.519 -0.066 B7 5 37 55 802.520 0.588 1 90 16 35 383.384 0.983 §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 53 Tin häc Tr¾c ®Þa K47 2 95 41 34 384.401 0.944 3 102 23 44 392.755 0.988 4 323 24 19 332.753 -1.234 5 327 15 1 349.123 -1.236 F1 : M· tr¹m m¸y T-191 : M· ®iÓm ®Þnh h­íng 1 : Sè thø tù ®iÓm ®o 90 16 35 : Gi¸ trÞ gãc b»ng 383.384 : Kho¶ng c¸ch ngang 0.983 : Chªnh cao §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 54 Tin häc Tr¾c ®Þa K47 4.1.4 Form tÝnh täa ®é ®iÓm chi tiÕt 4.1.4.1 S¬ ®å thuËt to¸n H×nh 4.9 S¬ ®å thuËt to¸n tÝnh täa ®é ®iÓm chi tiÕt §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 55 Tin häc Tr¾c ®Þa K47 4.1.4.2 ThiÕt kÕ form H×nh 4.10 Giao diÖn tÝnh täa ®é ®iÓm chi tiÕt Form tÝnh täa ®é ®iÓm chi tiÕt vÒ giao diÖn ®­îc thiÕt kÕ t­¬ng tù nh­ form xö lý sè liÖu ë trªn. Form tÝnh täa ®é ®iÓm chi tiÕt thiÕt kÕ 2 command button lùa chän ®­êng dÉn ®Õn th­ môc chøa tÖp sè liÖu cÇn xö lý. C¸c ®èi t­îng checkbox lµ c¸c tïy chän cho phÐp ch­¬ng tr×nh xuÊt ra c¸c ®Þnh d¹ng *.xyh, *.scr, *.mcr ®Ó hiÓn thÞ ®iÓm lªn nÒn ®å häa cña c¸c phÇn mÒm ®å häa nh­ : Vecad, Auto cad2004, Micro station. C¸c textbox dïng ®Ó hiÓn thÞ tªn cña c¸c file sè liÖu nhËp vµo còng nh­ tªn cña c¸c file kÕt qu¶ ®­îc xuÊt ra. C¸c command button cßn l¹i ®­îc dïng ®Ó gäi c¸c thñ tôc xö lý sè liÖu nh­ trong form xö lý sè liÖu. Tõ form chÝnh th«ng qua menu -->TÝnh täa ®é ®iÓm chi tiÕt tÝnh täa ®é ®iÓm chi tiÕt, ta tiÕn hµnh lùa chän file sè liÖu th«ng qua 2 button . Hép tho¹i më ra, lùa chä file sè liÖu cÇn tÝnh to¸n. Chän ®­êng dÉn tÖp *.ASH Chän ®­êng dÉn tÖp gèc:*.GOC §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 56 Tin häc Tr¾c ®Þa K47 NÕu ®Þnh d¹ng file kh«ng ®óng sÏ xuÊt hiÖn th«ng b¸o lçi Sau khi lùa chän file sè liÖu, click button ®Ó gäi thñ tôc xö lý ®iÓm chi tiÕt. Sè liÖu sau khi ®­îc tÝnh to¸n xong sÏ xuÊt hiÖn th«ng b¸o Click chän button ®Ó xem kÕt qu¶ tÝnh to¸n §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 57 Tin häc Tr¾c ®Þa K47 H×nh 4.11 KÕt qu¶ tÝnh to¸n täa ®é ®iÓm chi tiÕt D÷ liÖu sau khi ®­îc xö lý cã ®Þnh d¹ng nh­ sau: Tr¹m m¸y täa ®é X täa ®é Y ®é cao H T-191 2330491.12 602900.085 12.586 F1 2330525.82 602143.860 4.580 T-191 2330525.82 602143.860 4.033 T-191 2330491.11 602899.924 11.871 B7 2330641.09 601349.665 4.491 B7 2330410.51 602938.055 5.210 B7 2330641.11 601349.666 4.514 B7 2330410.54 602938.057 5.168 1 2330142.93 602124.441 5.563 2 2330145.46 602088.239 5.524 3 2330146.49 602042.059 5.568 §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 58 Tin häc Tr¾c ®Þa K47 KÕt qu¶ trªn ®­îc thùc hiÖn ®èi víi d÷ liÖu cña m¸y toµn ®¹cTC-305 cã khu«n d¹ng *.idx: 4.1.5 HiÓn thÞ ®iÓm chi tiÕt trªn nÒn ®å häa Ch­¬ng tr×nh cã chøc n¨ng hiÓn thÞ ®iÓm lªn nÒn då häa. §Ó hiÓn thÞ ®iÓm chi tiÕt trªn nÒn ®å häa th«ng qua Menu hiÓn thÞ ®iÓm chi tiÕt.Tõ menu tiÖn Ých --> hiÓn thÞ ®iÓm chi tiÕt ch­¬ng tr×nh sÏ hiÓn thÞ toµn bé c¸c ®iÓm chi tiÕt vµ ®iÓm ®Þa h×nh. H×nh 4.12 KÕt qu¶ hiÓn thÞ ®iÓm chi tiÕt lªn mµn h×nh ®å häa TÖp *.SCR dïng ®Ó triÓn ®iÓm khèng chÕ vµ ®iÓm chi tiÕt lªn nÒn ®å häa cña AutoCAD. LAYER M DiemCT L Continuous C 2 DiemCT _Point 602900.085,2330491.129 _Point 602143.860,2330525.825 §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 59 Tin häc Tr¾c ®Þa K47 _Point 602143.860,2330525.825 _Point 602899.924,2330491.118 _Point 601349.665,2330641.099 _Point 602938.055,2330410.519 _Point 601349.666,2330641.119 _Point 602938.057,2330410.546 _Point 602124.441,2330142.933 _Point 602088.239,2330145.469 _Point 602042.059,2330146.493 _Point 602419.829,2330711.743 _Point 602445.835,2330701.034 _Point 602480.338,2330687.000 _Point 601412.119,2330787.358 _Point 601980.640,2330154.262 _Point 602511.072,2330674.594 _Point 601932.693,2330160.548 _Point 601444.504,2330780.922 _Point 601877.602,2330167.729 _Point 602552.886,2330658.185 Ch¹y AutoCAD\gâ lÖnh SCR\chän ®­êng dÉn ®Õn th­ môc chøa tÖp *.SCR\AutoCAD sÏ tù ®éng ph©n líp vµ hiÓn thÞ toµn bé c¸c ®iÓm. Mçi ®iÓm chi tiÕt bao gåm sè hiÖu ®iÓm, ®é cao, vÞ trÝ ®iÓm (DiemCT) ®­îc thÓ hiÖn trªn 3 layer kh¸c nhau. §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 60 Tin häc Tr¾c ®Þa K47 H×nh 4.13 KÕt qu¶ hiÓn thÞ lªn nÒn ®å häa AutoCad víi c¸c layer KÕt qu¶ cho ta ®iÓm ®Þa h×nh vµ ®iÓm chi tiÕt trªn nÒn Autocad nh­ sau: H×nh 4.14 §iÓm chi tiÕt ®­îc hiÓn thÞ trªn nÒn AutoCad §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 61 Tin häc Tr¾c ®Þa K47 TÖp *.MCR dïng ®Ó triÓn ®iÓm lªn Microstation. LV=1 CO=0 WT=0 Place Point XY=602900.085,2330491.129 Place Active Cell XY=602143.860,2330525.825 Place Active Cell XY=602143.860,2330525.825 Place Active Cell XY=602899.924,2330491.118 Place Active Cell XY=601349.665,2330641.099 Place Active Cell XY=602938.055,2330410.519 Place Active Cell XY=601349.666,2330641.119 Place Active Cell XY=602938.057,2330410.546 Place Active Cell XY=602124.441,2330142.933 Place Active Cell §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 62 Tin häc Tr¾c ®Þa K47 XY=602088.239,2330145.469 Place Active Cell XY=602042.059,2330146.493 Place Active Cell XY=602419.829,2330711.743 Place Active Cell XY=602445.835,2330701.034 Ch¹y Microstation\gâ lÖnh @...\th­ môc\A.MCR\ Microstation sÏ tù ®éng hiÓn thÞ toµn bé c¸c ®iÓm. (Chó ý ph¶i nhËp ®óng ®­êng dÉn chøa tÖp A.MCR) 4.1.6 Biªn tËp b¶n ®å Sau khi thùc hiÖn xö lý sè liÖu vµ hiÓn thÞ ®iÓm trªn nÒn ®å häa, cã thÓ l­u b¶n vÏ d­íi ®Þnh d¹ng *.vec cña Vecad hoÆc ®Þnh d¹ng *.dwg, *.dxf cña Autocad. Ch­¬ng tr×nh cho phÐp sö dông c¸c c«ng cô cã s½n ®Ó t¹o b¶n vÏ vµ cã thÓ linh ®éng chuyÓn sang phÇn mÒm ®å häa Autocad, Microstation ®Ó hoµn thiÖn b¶n ®å. §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 63 Tin häc Tr¾c ®Þa K47 H×nh 4.15 B¶n ®å ®­îc hiÓn thÞ trªn nÒn ®å häa ch­¬ng tr×nh §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 64 Tin häc Tr¾c ®Þa K47 KÕt luËn Ngµy nay, víi sù ph¸t triÓn kh«ng ngõng cña khoa häc kü thuËt, c«ng nghÖ th«ng tin vµ ®iÖn tö th× c«ng t¸c thµnh lËp b¶n ®å b»ng c¸c ph­¬ng ph¸p truyÒn thèng trë nªn l¹c hËu. Nhu cÇu thùc tÕ ngµy cµng cao, ®ßi hái nghµnh tr¾c ®Þa ph¶i cã ph­¬ng ph¸p míi t¹o ra b¶n ®å ®¸p øng ®­îc nhu cÇu thùc tiÔn. C«ng nghÖ ®ã lµ c«ng nghÖ b¶n ®å sè. §Ó thùc hiÖn kÕt nèi viÖc tù ®éng ho¸ quy tr×nh ®o d¹c vµ thµnh lËp b¶n ®å ®Þa h×nh gi÷a m¸y ®o vµ m¸y tÝnh th× chóng ta cÇn ph¶i cã nh÷ng modul ch­¬ng tr×nh tiÖn Ých, thùc dông vµ phï hîp víi thùc tÕ s¶n xuÊt cña ViÖt Nam. §©y lµ c«ng viÖc cÇn thiÕt mµ c¸c c¬ quan s¶n xuÊt ®ang yªu cÇu. §Ò tµi: “øng dông c«ng nghÖ tin häc thµnh lËp b¶n ®å ®Þa h×nh trªn c¬ së d÷ liÖu ®o cña m¸y toµn ®¹c ®iÖn tö” ®· phÇn nµo ®¸p øng ®­îc yªu cÇu cña thùc tÕ s¶n xuÊt hiÖn nay. §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 65 Tin häc Tr¾c ®Þa K47 tµi liÖu tham kh¶o [1]. TiÕn sÜ §inh C«ng Hßa. Nghiªn cøu vµ thµnh lËp c¸c modul ch­¬ng tr×nh chuyÓn ®æi d÷ liÖu tõ sæ ghi ®iÖn tö c¸c m¸y toµn ®¹c ®iÖn tö ®Ó thµnh lËp b¶n ®å ®Þa h×nh vµ mÆt c¾t. §Ò tµi nghiªn cøu cÊp bé. Tr­êng §¹i häc Má §Þa ChÊt [2]. Chñ biªn: PTS NguyÔn TiÕn Dòng, biªn dÞch: TrÇn thÕ San - Vò H÷u T­êng, hiÖu ®Ýnh: PTS NguyÔn Ngäc Ph­¬ng. Kü n¨ng lËp tr×nh Visual Basic 6. Nxb Thèng kª. [3]. NguyÔn Träng San, §µo Quang HiÕu, §inh C«ng Hßa. Gi¸o tr×nh Tr¾c ®Þa c¬ së tËp (1+2). Nxb X©y Dùng. Hµ Néi 2002 [4]. NguyÔn ThÞ Ngäc Mai, NguyÔn H÷u Anh. LËp tr×nh c¬ së d÷ liÖu Visual Basic 6.0. Nxb Lao ®éng x· héi. §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 66 Tin häc Tr¾c ®Þa K47 phô lôc  Module xö lý chuçi sè liÖu: - T¸ch chuçi sè liÖu Public Sub Tach_chuoi(chuoi As String, arrchuoi() As String) Dim i%, NumStr% NumStr = 0 i = 1 Do Do While (Mid$(chuoi, i, 1) = " ") Or (Mid$(chuoi, i, 1) = ",") _ Or (Mid$(chuoi, i, 1) = Chr(32)) Or (Mid$(chuoi, i, 1) = ";") _ Or (Mid$(chuoi, i, 1) = Chr(34)) Or (Mid$(chuoi, i, 1) = Chr(9)) Or (Mid$(chuoi, i, 1) = ":") And (i <= Len(chuoi)) i = i + 1 Loop If i <= Len(chuoi) Then NumStr = NumStr + 1 ReDim Preserve arrchuoi(NumStr) As String arrchuoi(NumStr) = "" End If Do While (i <= Len(chuoi)) And (Mid$(chuoi, i, 1) " ") And (Mid$(chuoi, i, 1) ",") And (Mid$(chuoi, i, 1) Chr(32)) And (Mid$(chuoi, i, 1) ";") And (Mid$(chuoi, i, 1) Chr(34)) And (Mid$(chuoi, i, 1) Chr(9)) And (Mid$(chuoi, i, 1) ":") arrchuoi(NumStr) = arrchuoi(NumStr) + Mid$(chuoi, i, 1) i = i + 1 Loop Loop Until i > Len(chuoi) End Sub §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 67 Tin häc Tr¾c ®Þa K47 - Hµm in chuçi sè liÖu Function In_chuoi(ByVal Str As String, ByVal n As Long, Optional Justify As Long) As String If IsMissing(Justify) Then Justify = 0 Str = Trim$(Str) If Justify = 0 Then If Len(Str) > n Then Str = Mid$(Str, 1, n) Str = Space$(n \ 2 - Len(Str) \ 2) & Str & Space$(n \ 2 - Len(Str) \ 2) & Space$(5) In_chuoi = Mid$(Str, 1, n) End If If Justify = -1 Then In_chuoi = Space(n) & Str End If If Justify = 1 Then In_chuoi = Str & Space(n) End If If Justify = 2 Then In_chuoi = Mid$(Str, 1, n) If Len(Str) >= n Then Else In_chuoi = Space$(n - Len(Str)) & Str End If End If If Justify = -2 Then In_chuoi = Str & Space$(Abs(n - Len(Str))) In_chuoi = Mid$(In_chuoi, 1, n) End If End Function - Xö lý file *.gsi vÒ d¹ng *.ash: Fgsi = Me.lblthumuc.Caption & txtfiletrut.Text Open Fgsi For Input As #1 Tach_dgdan Fgsi, Fdir, Fname Fash = Me.lblthumuc.Caption & txtketqua.Text Open Fash For Output As #2 Dim xau1 As String, xau2 As String, xau3 As String §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 68 Tin häc Tr¾c ®Þa K47 Do While Not EOF(1) Line Input #1, str1 Tach_chuoi str1, SSp tdiem = val(Right(SSp(1), 10)) lgiz = val(Right(SSp(2), 3)) / 10 lphz = val(Mid(SSp(2), (Len(SSp(2)) - 4), 2)) ldz = val(Mid(SSp(2), (Len(SSp(2)) - 7), 3)) lgiv = val(Right(SSp(3), 3)) / 10 lphv = val(Mid(SSp(3), (Len(SSp(3)) - 4), 2)) ldv = val(Mid(SSp(3), (Len(SSp(3)) - 7), 3)) SD = val(Right(SSp(4), 8)) / 1000# Ht = val(Right(SSp(6), 5)) / 1000# Hi = val(Right(SSp(7), 5)) / 1000# Vz = Rad(ldv, lphv, lgiv) If (Vz > 4 * Atn(1#)) Then Vz = Vz - 4 * Atn(1#) dz = Format(Cos((Vz - (4 * Atn(1#)) / 2)) * SD, ".000") H = Format(dz / Tan(Vz) + Hi - Ht, ".000") Print #2, In_chuoi(In_chuoi(tdiem, 8, -2) & In_chuoi(ldz, 5, 2) & In_chuoi(lphz, 5, 2) & _ In_chuoi(val(lgiz), 5, 2) & In_chuoi(Format(SD, "#.000"), 12, 2) & In_chuoi(H, 10, 2), 90, -2) Loop Close #1 Close #2 - Hµm xö lý file *.ash vµ file *.goc vÒ d¹ng *.xyh: Private Sub cmdxuly_Click() n = 0 Pi = 4# * Atn(1#) Pi2 = 2# * Pi Ro = 190# * 3600# / Pi Id = 0 Open Fash For Input As #1 Tach_dgdan Fash, Fdir, Fname err = Fdir & Fname & ".ERR" §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 69 Tin häc Tr¾c ®Þa K47 Open err For Output As #4 Do Line Input #1, Strf1 Tach_chuoi Strf1, SSp Dim xau, xau1 xau = SSp(1) If StrComp(xau, "TRAM", vbTextCompare) = 0 Then IDg = SSp(2): IDh = SSp(3) Open Fgoc For Input As #200 Line Input #200, strf2 Do While Not EOF(200) Tach_chuoi strf2, SSp xau = SSp(1) If StrComp(IDg, xau, vbTextCompare) = 0 Then n = n + 1 ReDim Preserve dCT(n) Xg = SSp(2) Yg = SSp(3) Zg = SSp(4) dCT(n).Ten = IDg: dCT(n).X = Xg: dCT(n).Y = Yg: dCT(n).H = Zg ElseIf StrComp(IDh, xau, vbTextCompare) = 0 Then n = n + 1 ReDim Preserve dCT(n) Xdh = SSp(2) Ydh = SSp(3) Zdh = SSp(4) dCT(n).Ten = IDh: dCT(n).X = Xdh: dCT(n).Y = Ydh: dCT(n).H = Zdh End If Line Input #200, strf2 Loop dx = Xdh - Xg dy = Ydh - Yg afa = Pvi(dx, dy) Call dR_GOC(afa, gd, gph, ggi) §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 70 Tin häc Tr¾c ®Þa K47 Close (200) Else n = n + 1 Kt = False Id = Id + 1 IDtd = SSp(1) gd = SSp(2) gph = SSp(3) ggi = SSp(4) beta = Rad(gd, gph, ggi) Pvd = afa + beta Xtd = Xg + SSp(5) * Cos(afa + beta) Ytd = Yg + SSp(5) * Sin(afa + beta) Ztd = Zg + val(SSp(6)) ReDim Preserve dCT(n) dCT(n).Ten = IDtd: dCT(n).X = Xtd: dCT(n).Y = Ytd: dCT(n).H = Ztd Call dR_GOC(Pvd, dpv, phpv, gpv) gpv = Fix(gpv) End If Loop While Not EOF(1) Close (1) ‘ Xuat ra file *.xyh If chktddc.Value = True Then Fxyh = Fdir & Fname & ".XYH" Open Fxyh For Output As #7 For i = 1 To n Print #7, In_chuoi(dCT(i).Ten, 10, -2) & In_chuoi(Format(dCT(i).X, "0.000"), 10, 2) & _ In_chuoi(Format(dCT(i).Y, "0.000"), 20, 2) & In_chuoi(Format(dCT(i).H, "0.000"), 10, 2) Next i Close #7 End If End Sub §å ¸n tèt nghiÖp chuyªn ngµnh Tin häc Tr¾c ®Þa NguyÔn V¨n Tr­êng 71 Tin häc Tr¾c ®Þa K47  HiÓn thÞ ®iÓm chi tiÕt trªn nÒn ®å häa: For i = 1 To Tongdiem ReDim Preserve hEnt(i) As Long frmdohoa.Vecad1.PutPointMode CAD_PNT_CIRCLE frmdohoa.Vecad1.PutPointSize 10 frmdohoa.Vecad1.PntStylePutDrawMode Pointht, CAD_PS_DRAW_ALL hEnt(i) = frmdohoa.Vecad1.AddPoint(dCT(i).Y, dCT(i).X, dCT(i).H) frmdohoa.Vecad1.PointPutText hEnt(i), dCT(i).Ten frmdohoa.Vecad1.Update frmdohoa.Vecad1.WndRedraw Next i frmdohoa.Vecad1.Update frmdohoa.Vecad1.WndRedraw frmdohoa.Vecad1.Execute 102