Ứng dụng công nghệ tin học chuyển đổi cơ sở dữ liệu và biên tập bản đồ biển trong điều kiện việt nam

Bộ giáo dục đào tạo Trờng đại học mỏ - địa chất -*** - nguyễn thị thu hơng ứng dụng công nghệ tin học chuyển đổi sở liệu biên tập đồ biển điều kiện việt nam Chuyên ngành : Kỹ thuật Trắc địa Mà số : 60.52.85 Luận văn thạc sĩ kỹ thuật Ngời hớng dẫn khoa học: TS đinh công hòa Hà Nội 2007 Lời cam đoan Tôi xin cam đoan công trình nghiên cứu riêng Các số liệu, kết nội dung luận văn trung thực cha đợc công bố công trình khác Tác giả đề tài Nguyễn Thị Thu Hơng Mục lục Nội dung Trang Trang bìa phụ Lời cam đoan Mục lục Danh mục bảng, biểu Danh mục hình vẽ, đồ thị Mở đầu Chơng Giới thiệu đồ địa hình biển đồ hàng hải 1.1 Các hệ toạ độ dùng trắc địa công tác thành lập đồ địa hình biển, đồ hàng hải 14 1.2 Phép chiếu đồ hệ quy chiếu dùng cho đồ địa hình biển, đồ hàng hải Việt Nam 17 1.3 Giới thiệu đồ địa hình biển ë ViƯt Nam 28 1.4 Giíi thiƯu vỊ hƯ thèng đồ hàng hải Việt Nam 33 Chơng Công tác thành lập biên tập đồ biển đồ hàng hải 2.1 Công tác thành lập biên tập đồ địa hình biển 45 2.2 Công tác thành lập biên tập đồ hàng hải 58 Chơng Chuyển đổi sở liệu đồ địa hình biển đồ hàng hải (hải đồ) 3.1 Đặt vấn đề 65 3.2 Chuyển đổi tọa độ trắc địa (B,L) tọa độ vuông góc phẳng (x,y) phép chiếu Gauss-Kruger phÐp chiÕu Mercator 66 3.3 C¸c tht to¸n chun đổi sở liệu đồ địa hình biển hải đồ 77 Chơng Xây dựng chơng trình Chuyển đổi sở liệu 4.1 Giới thiệu chung ngôn ngữ lập trình Visual Basic 6.0 84 4.2 Xây dựng chơng trình Chuyển đổi sở liệu đồ địa hình biển hải đồ ngôn ngữ lập trình Visual Basic 6.0 4.3 Thực nghiệm Kết luận kiến nghị 92 103 110 Danh mục bảng, biểu Bảng 1.1: Độ xác đo sâu địa hình đáy biển Bảng 1.2: Độ xác biểu diễn độ sâu hải đồ Bảng 2.1: Khoảng cách hai điểm định vị tơng ứng với tỉ lệ đồ Trang 32 44 51 Danh mục hình vẽ, đồ thị Trang Hình 1.1: Hệ tọa độ địa lý 14 Hình 1.2: Hệ tọa độ trắc địa 15 Hình 1.3: Hệ tọa độ không gian 16 H×nh 1.4: PhÐp chiÕu Gauss-Kruger 18 H×nh 1.5: Hệ tọa độ vuông góc phẳng phép chiếu UTM 20 Hình 1.6: Biểu thị đờng đẳng góc phơng vị 23 Hình 1.7: Đờng tà hành trái đất 24 Hình 2.1: Sơ đồ quy trình công nghệ đo vẽ đồ địa hình biển 47 Hình 2.2: Sơ đồ quy trình công nghệ đo vẽ đồ hàng hải phơng pháp đo vẽ chi tiết 61 Hình 2.3: Sơ đồ quy trình biên tập đồ hàng hải 64 Hình 3.1: Sơ đồ khối modul chuyển đổi từ đồ địa hình biển sang hải đồ Hình 3.2: Sơ đồ khối modul chuyển đổi từ hải đồ sang đồ địa hình biển Hình 3.3: 80 Sơ đồ khối modul chuyển đổi đồ địa hình biển qua múi chiếu Hình 3.4: 78 81 Sơ đồ khối modul chuyển đổi hải đồ qua vĩ tuyến chuẩn 82 Hình 4.1: Cửa sổ làm viƯc cđa VB chän Standard.EXE 85 H×nh 4.2: Cưa sổ làm việc Project 86 Hình 4.3: Thanh công cụ Visual Basic 86 Hình 4.4: Hộp công cụ Toolbox 87 Hình 4.5: Cửa sổ Properties Windows 87 Hình 4.6: Hộp thoại để chọn màu cho Property Fore Color 88 H×nh 4.7: Cưa sỉ viÕt mo lệnh chơng trình 89 Hình 4.8: Cửa sổ Project Explorer Windows 89 Hình 4.9: Cửa sổ làm việc Project chơng trình 93 Hình 4.10: Giao diện chơng trình 93 Hình 4.11: Giao diện thiết kế menu chơng trình 94 Hình 4.12: Menu tệp tin 94 Hình 4.13: Menu soạn thảo 95 Hình 4.14: Menu cửa sổ hiển thị 95 Hình 4.15: Menu công 95 H×nh 4.16: Menu tiƯn Ých 96 H×nh 4.17: Menu liên kết ứng dụng 96 Hình 4.18: Các modul chơng trình menu tiện ích 97 Hình 4.19: Hộp thoại chọn chức chuyển đổi liệu đo thành lập đồ biển Hình 4.20: Giao diện chơng trình thiết kế 99 99 Hình 4.21: Cửa sổ hiển thị menu tiện ích 100 Hình 4.22: Cửa sổ chọn file số liệu thông số 100 Hình 4.23: Cửa sổ chọn đờng dẫn file số liệu 101 Hình 4.24: Cửa sổ thực chơng trình 101 Hình 4.25: Cửa sổ thông báo đo thực xong chơng trình 101 Hình 4.26: Cửa sổ xem file kết 102 Hình 4.27: Cửa sổ liên kết trực tiếp với chơng trình đồ họa 102 Hình 4.28: Bản đồ biển từ Vũng Tàu đến Mũi Cà Mau 103 Hình 4.29: Bản đồ biển vùng Cà Mau 103 Hình 4.30: Phần địa hình biển 104 Hình 4.31: Hải đồ vùng Cà Mau 104 Hình 4.32: Bản đồ địa hình biển hải đồ cha chuyển đổi liệu 104 Hình 4.33: Lới kinh vĩ tuyến đồ địa hình biển 105 Hình 4.34: Kết chuyển đổi liệu đồ địa hình biển qua múi chiếu 106 Hình 4.35: Kết chuyển đổi liệu từ đồ địa hình biển sang hải đồ 106 Hình 4.36: So sánh kết chuyển đổi liệu từ đồ địa hình biển sang hải đồ 107 Hình 4.37: Kết ghép nối đồ địa hình biển sau chuyển đổi liệu hải đồ 107 Hình 4.38: Hải đồ vĩ tuyến chuẩn 200 107 Hình 4.39: So sánh hải đồ vĩ tuyến chuẩn 160 vĩ tuyến chuẩn200 108 Hình 4.40: Kết chuyển đổi liệu từ hải đồ sang đồ địa hình biển 108 Hình 4.41: So sánh kết chuyển đổi liệu từ hải đồ sang đồ địa hình biển 108 Hình 4.42: Kết ghép nối đồ địa hình biển hải đồ sau chuyển đổi liệu từ hải đồ sang đồ địa hình biển 109 mở đầu Tính cấp thiết đề tài Chúng ta đo biết, bề mặt đất bao gồm phần lục địa đại dơng Trong đó, đại dơng chiếm 3/4 tổng diện tích Vì vậy, quốc gia có biển, việc khai thác nguồn lợi từ biển điều cần thiết Song song với nhiệm vụ bảo vệ toàn vẹn lonh thổ quốc gia công tác an ninh quốc phòng Theo thống kê, quốc gia có biển mặt kinh tế tỉnh có biển cao hẳn so với tỉnh biển Các nhà kinh tế giới đoán mức độ tăng trởng kinh tế nhanh quốc gia có biển Vì nớc có nhiều tài nguyên phong phú mà quốc gia biển có đợc Đồng thời, hệ thống giao thông biển huyết mạch, đóng vai trò quan trọng việc giao lu kinh tế, văn hoá, quốc gia giới Việt Nam quốc gia có biển Bờ biển đợc trải dài theo hớng kinh tuyến nối liền từ Móng Cái đến Hà Tiên, với tổng chiều dài 3260 km, có vùng lonh hải rộng 70000 km2 vùng đặc quyền kinh tế rộng khoảng 1000000 km2 có gần 30 tỉnh đặc khu, thành phố tiếp giáp với biển Đây yếu tố đóng vai trò quan trọng việc phát triển kinh tế an ninh quốc phòng quốc gia Để làm đợc điều đó, nhiệm vụ phải tiến hành công tác điều tra, khảo sát cách qui mô tổng thể, toàn diện vùng biển nớc ta Tài liệu điều tra khảo sát cần có t liệu đo đạc đồ biển T liệu vừa sở mở đầu cho công tác điều tra tiếp theo, vừa sở liệu để quản lý tài nguyên môi trờng biển hệ thống thống T liệu đồ biển sở hoạch định xác khu vực lonh hải, thềm lục địa vùng đặc quyền kinh tế biển Mặt khác, t liệu đồ biển phục vụ cho bớc nghiên cứu khả thi công trình kiến trúc khai thác tài nguyên biển Chính vậy, nhiệm vụ đo đạc thành lập đồ biển nói chung đồ hàng hải nói riêng việc làm cấp bách, phù hợp với tình hình nay, góp phần vào việc đẩy mạnh nghiệp công nghiệp hoá, đại hoá đất nớc mà nghị đại hội Đảng VIII Đảng Cộng sản Việt Nam đo đề Đặc biệt quốc phòng, nhiệm vụ đặt cho Hải quân nhân dân Việt Nam phải đo đạc khảo sát thành lập hệ thống đồ biển hải đồ phủ trùm toàn bé vïng biĨn thc qun qu¶n lý cđa n−íc ta, tỷ lệ khác nhau, nhằm đảm bảo cho việc khai thác tài nguyên, xây dựng công trình, cho việc hành trình biển điều tra khảo sát xây dựng tuyến phòng thủ xa bờ Đối với Hải quân nhân dân Việt Nam trớc đo xây dựng đợc hệ thống đồ biển đồ hàng hải tỷ lệ khác Nhng việc thành lập hoàn toàn theo phơng pháp thủ công; nguồn tài liệu chủ yếu t liệu cũ, phơng pháp thành lập chụp lam, cắt dán, lùa chän c¸c u tè, bỉ xung c¸c sè liƯu đo đạc, biên vẽ in Trong năm gần đây, công nghệ tin học phát triển nhanh chóng đo có thành tựu đáng kể nên việc thay đổi công nghệ ứng dụng công nghệ tin học vào việc thành lập đồ biển điều tất yếu Vì vậy, nghiên cứu ứng dụng công nghệ tin học công tác thành lập quản lý đồ biển sở liệu đồ số điều kiện Việt nam việc làm cần thiết, có tính khoa học tính thời cao Chính nên đo chọn đề tài: ứng dụng công nghệ tin học chuyển đổi sở liệu biên tập đồ biển điều kiện Việt Nam cho luận văn tèt nghiƯp cđa m×nh 132 Cut FF, Word, K If (K 3) Then MsgBox ("Bạn nhập sai khuôn d¹ng") TextL1.SelStart = TextL1.SelLength = Len(TextL1.Text) TextL1.SetFocus Exit Sub End If Ld1 = val(Word(1)) Lp1 = val(Word(2)) Lg1 = val(Word(3)) FF = TextSTTsau.Text FF = TextL2.Text Cut FF, Word, K If (K 3) Then MsgBox ("B¹n nhËp sai khuôn dạng") TextL2.SelStart = TextL2.SelLength = Len(TextL2.Text) TextL2.SetFocus Exit Sub End If Ld2 = val(Word(1)) Lp2 = val(Word(2)) Lg2 = val(Word(3)) FF = TextBo.Text End If Bd2 = val(Word(1)) Bp2 = val(Word(2)) Bg2 = val(Word(3)) FF = Textktmui.Text Cut FF, Word, K If (K 1) Then 133 MsgBox ("Bạn nhập sai khuôn dạng") Textktmui.SelStart = Textktmui.SelLength = Len(Textktmui.Text) Textktmui.SetFocus Exit Sub End If KTmui = val(Word(1)) FF = Textkckvtuyen.Text Cut FF, Word, K If (K 1) Then MsgBox ("Bạn nhập sai khuôn dạng") Textkckvtuyen.SelStart = Textkckvtuyen.SelLength = Len(Textkckvtuyen.Text) Textkckvtuyen.SetFocus Exit Sub End If KCkvt = val(Word(1)) FF = TextTylebd.Text Cut FF, Word, K If (K 1) Then MsgBox ("Bạn nhập sai khuôn dạng") TextTylebd.SelStart = TextTylebd.SelLength = Len(TextTylebd.Text) TextTylebd.SetFocus Exit Sub End If TLebd = val(Word(1)) FF = TextBL11.Text Cut FF, Word, K If (K 3) Then MsgBox ("Bạn nhập sai khuôn d¹ng") 134 TextBL11.SelStart = TextBL11.SelLength = Len(TextBL11.Text) TextBL11.SetFocus Exit Sub End If BLd11 = val(Word(1)) BLp11 = val(Word(2)) BLg11 = val(Word(3)) FF = TextBL12.Text Cut FF, Word, K If (K 3) Then MsgBox ("Bạn nhập sai khuôn dạng") TextBL12.SelStart = TextBL12.SelLength = Len(TextBL12.Text) TextBL12.SetFocus Exit Sub End If BLd12 = val(Word(1)) BLp12 = val(Word(2)) BLg12 = val(Word(3)) FF = TextBL21.Text Cut FF, Word, K If (K 3) Then MsgBox ("Bạn nhập sai khuôn dạng") TextBL21.SelStart = TextBL21.SelLength = Len(TextBL21.Text) TextBL21.SetFocus Exit Sub End If 135 BLd21 = val(Word(1)) BLp21 = val(Word(2)) BLg21 = val(Word(3)) FF = TextBL22.Text BLd22 = val(Word(1)) BLp22 = val(Word(2)) BLg22 = val(Word(3)) Hetoado = If Chkhetoado(0).Value = Then Hetoado = End If Loaibd = If Chkloaibando(0).Value = Then Loaibd = End If KVtuyen = If Chkkvtuyen(0).Value = Then KVtuyen = End If R0 = 206264.806247096 tw1 = (Ld1 * 3600# + Lp1 * 60# + Lg1) / R0 tw2 = (Ld2 * 3600# + Lp2 * 60# + Lg2) / R0 tBo = (Bd2 * 3600# + Bp2 * 60# + Bg2) / R0 Bd0 = (BLd11 * 3600# + BLp11 * 60# + BLg11) / R0 Ld0 = (BLd12 * 3600# + BLp12 * 60# + BLg12) / R0 Bt0 = (BLd21 * 3600# + BLp21 * 60# + BLg21) / R0 Lt0 = (BLd22 * 3600# + BLp22 * 60# + BLg22) / R0 tw = tw2 If (Loaibd = 1) Then tw = tw1 End If 136 Open file For Input As #11 sodem = Do While Not EOF(11) If Not EOF(11) Then Line Input #11, Valute1 sodem = sodem + Else Exit Do End If Loop Close #11 If (KVtuyen = 1) Then sodem = sodem + (Bt0 - Bd0) * R0 / KCkv + (Lt0 - Ld0) * R0 / KCkv End If ProgressBar1.Min = ProgressBar1.Max = sodem sodem = Open file For Input As #1 sFileKqua = CreatName(file, ".DXF") Open sFileKqua For Output As #2 ProgressBar1.Visible = True Print #2, " 0" Print #2, "SECTION" Print #2, " 2" Print #2, "ENTITIES" If (KVtuyen = 1) Then Xb = Bd0 4: Print #2, " 0" Print #2, "POLYLINE" Print #2, " 8" Print #2, "V_TUYEN" Print #2, " 66" 137 Print #2, " 1" Print #2, " 10" Print #2, "0.0" Print #2, " 20" Print #2, "0.0" Print #2, " 30" Print #2, "0.0" sodem = sodem + ProgressBar1.Value = sodem Xl = Ld0 Call XYTT(Xb, Xl, X, Y) Print #2, " 0" Print #2, "VERTEX" Print #2, " 8" Print #2, "V_TUYEN" Print #2, " 10" Print #2, Format(Y, "0.000000") Print #2, " 20" Print #2, Format(X, "0.000000") Print #2, " 30" Print #2, "0.0" Print #2, " 0" Print #2, "SEQEND" Print #2, " 8" Print #2, "V_TUYEN" If (Xb > Bt0) Then GoTo GoTo Xl = Ld0 44 Print #2, " 0" Print #2, "POLYLINE" Print #2, " 8" Print #2, "K_TUYEN" 138 Print #2, " 66" Print #2, " 1" Print #2, " 10" Print #2, "0.0" Print #2, " 20" Print #2, "0.0" Print #2, " 30" Print #2, "0.0" sodem = sodem + ProgressBar1.Value = sodem Xb = Bd0 41 Call XYTT(Xb, Xl, X, Y) Print #2, " 0" Print #2, "VERTEX" Print #2, " 8" Print #2, "K_TUYEN" Print #2, " 10" Print #2, Format(Y, "0.000000") Print #2, " 20" Print #2, Format(X, "0.000000") Print #2, " 30" Print #2, "0.0" Xb = Xb + KCkvt / (2# * R0) If (Xb > Bt0) Then GoTo 42 GoTo 41 42: Print #2, " 0" Print #2, "SEQEND" Print #2, " 8" Print #2, "K_TUYEN" Xl = Xl + KCkvt / R0 If (Xl > Lt0) Then GoTo 43 GoTo 44 139 43: End If Print #2, " 0" Print #2, "ENDSEC" Print #2, " 0" Print #2, "EOF" Do While Not EOF(1) If Not EOF(1) Then Line Input #1, FF sodem = sodem + ProgressBar1.Value = sodem Else Exit Do End If Xb = val(Word(2)) Xl = val(Word(3)) XH = val(Word(4)) Call XYTT(Xb, Xl, X, Y) Print #2, Format(X, Y, XH, "0.000") Loop ' If (Valute1 = " 10") Or (Valute1 = " 11") Or (Valute1 = " 12") Or (Valute1 = " 13") Then ' Line Input #1, st1 ' Line Input #1, Valute2 ' Line Input #1, st2 ' sodem = sodem + ' ProgressBar1.Value = sodem ' YOld1 = val(st1) ' ' XOld1 = val(st2) XOld = XOld1 ' YOld = YOld1 ' XLTT XOld, YOld, XNew, YNew ' Print #2, Valute1 140 '' Print #2, Format(YNew, "0.00000") ' Print #2, Valute2 ' Print #2, Format(XNew, "0.00000") ' Else ' Print #2, Valute1 ' Print #2, st1 '' Print #2, Valute2 ' Print #2, st2 ' ' ' ' ' End If Else Print #2, Valute1 End If Loop Close #1 Close #2 ProgressBar1.Visible = False MsgBox "Chơng trình đo thực xong" & vbCrLf & " End Sub Xin chân thành cảm ơn " 141 * Modul chơng trình chuyển đổi liệu từ hải đồ sang đồ địa hình biển: Private Sub dmerutm(ByVal X5#, Y5#, X#, Y#, Xb#, Xl#, tw1#, tw2#, tBo#, loaihe%, ktv%, ktr%, tl1#, tl2#) R0 = 206264.806247096 AW = 6378137# EW = 6.69438000426084E-03 EPW = 6.73949675658691E-03 AK = 6378245# EPK = 0.00673852541468 EGK = 0.00669342162296 If (loaihe = 2) Then GoTo 10 dAHESO AK, EGK, a0, A2, A4, A6 dXYBLme AK, EGK, EPK, Xb, Xl, tw2, tBo, X5, Y5, tlk00, tl dBLXY AK, EGK, EPK, a0, A2, A4, A6, X1, X2, tw1, X, Y, tlk00, tl ' lh1='HN-72_He toa phang Gauss-Kriuger_Elipxoit Kracovski' GoTo 100 10: dAHESO AW, EW, a0, A2, A4, A6 dXYBLme AW, EW, EPW, X1, X2, tw2, tBo, X5, Y5, tlk00, tl1 If (ktr = 3) Then tlk00 = 0.9999 If (ktr = 6) Then tlk00 = 0.9996 dBLXY AW, EW, EPW, a0, A2, A4, A6, Xb, Xl, tw1, X, Y, tlk00, tl1 ' lh1='VN2000_He toa phang UTM quoc te_Elipxoit WGS-84 quoc te' 100: End Sub Private Sub dXYBLme(ByVal A#, e2#, EP2#, phi#, amda#, amda1#, phi0#, X5#, Y5#, tlk00#, tl1#) Dim rop#, e1#, e0#, No#, Po#, amdat#, sinsi#, si#, u#, x0#, deta#, yy5# Pi = 3.14159265358979 Pi2 = 2# * Pi rop = 180# * 60# / Pi Ro = 180# * 3600# / Pi 142 e1 = Sqr(e2) e0 = 2.718280064 No = A / Sqr(1# - e2 * Sin(phi0) * Sin(phi0)) Po = No * Cos(phi0) y5 = Yy5 - 500000# amdat = (yy5 / Po) amda = (amdat + amda1) phi = 0# For K = To 10 Do sinsi = e1 * Sin(phi) si = dasin(sinsi) u = Log(Tan(Pi / 4# + phi / 2#)) - e1 * Log(Tan(Pi / 4# + si / 2#)) x0 = Po * u phi = phi + 1# / (10# ^ K) Loop phi = phi - 1# / (10# ^ K) Next End Sub Private Sub CmdOk_Click(Index As Integer) If (file = "") Then MsgBox "Bạn cần nhập File số liƯu tr−íc" Exit Sub End If FF = TextL1.Text Cut FF, Word, K If (K 3) Then MsgBox ("B¹n nhập sai khuôn dạng") TextL1.SelStart = TextL1.SelLength = Len(TextL1.Text) TextL1.SetFocus Exit Sub 143 End If Ld1 = val(Word(1)) Lp1 = val(Word(2)) Lg1 = val(Word(3)) FF = TextL2.Text Cut FF, Word, K If (K 3) Then MsgBox ("B¹n nhËp sai khuôn dạng") TextL2.SelStart = TextL2.SelLength = Len(TextL2.Text) TextL2.SetFocus Exit Sub End If Ld2 = val(Word(1)) Lp2 = val(Word(2)) Lg2 = val(Word(3)) STT2 = val(Word(1)) FF = TextBo.Text Cut FF, Word, K If (K 3) Then MsgBox ("B¹n nhập sai khuôn dạng") TextBo.SelStart = TextBo.SelLength = Len(TextBo.Text) TextBo.SetFocus Exit Sub End If Bd2 = val(Word(1)) Bp2 = val(Word(2)) Bg2 = val(Word(3)) FF = Textktmui.Text Cut FF, Word, K If (K 1) Then 144 MsgBox ("B¹n nhËp sai khuôn dạng") Textktmui.SelStart = Textktmui.SelLength = Len(Textktmui.Text) Textktmui.SetFocus Exit Sub End If STT4 = val(Word(1)) C4 = If Chkhetoado(0).Value = Then C4 = End If R0 = 206264.806247096 tw1 = (Ld1 * 3600# + Lp1 * 60# + Lg1) / R0 tw2 = (Ld2 * 3600# + Lp2 * 60# + Lg2) / R0 tBo = (Bd2 * 3600# + Bp2 * 60# + Bg2) / R0 loaihe = C4 Open file For Input As #11 sodem = Do While Not EOF(11) If Not EOF(11) Then Line Input #11, Valute1 sodem = sodem + Else Exit Do End If If (Valute1 = " 10") Or (Valute1 = " 11") Or (Valute1 = " 12") Or (Valute1 = " 13") Then Line Input #11, st1 Line Input #11, Valute2 Line Input #11, st2 sodem = sodem + Else 145 End If Loop Close #11 ProgressBar1.Min = ProgressBar1.Max = sodem sodem = Open file For Input As #1 sFileKqua = CreatName(file, "(UTM).DXF") Open sFileKqua For Output As #2 Do While Not EOF(1) If Not EOF(1) Then Line Input #1, Valute1 sodem = sodem + ProgressBar1.Value = sodem Else Exit Do End If If (Valute1 = " 10") Or (Valute1 = " 11") Or (Valute1 = " 12") Or (Valute1 = " 13") Then Line Input #1, st1 Line Input #1, Valute2 Line Input #1, st2 sodem = sodem + ProgressBar1.Value = sodem YOld1 = val(st1) XOld1 = val(st2) XOld = XOld1 YOld = YOld1 XLTT XOld, YOld, XNew, YNew Print #2, Valute1 Print #2, Format(YNew, "0.00000") Print #2, Valute2 146 Print #2, Format(XNew, "0.00000") Else Print #2, Valute1 Print #2, st1 Print #2, Valute2 Print #2, st2 End If Else Print #2, Valute1 End If Loop Close #1 Close #2 ProgressBar1.Visible = False MsgBox "Chơng trình đo thực xong" & vbCrLf & " End Sub Xin chân thành cảm ¬n " ... nên việc thay đổi công nghệ ứng dụng công nghệ tin học vào việc thành lập đồ biển điều tất yếu Vì vậy, nghiên cứu ứng dụng công nghệ tin học công tác thành lập quản lý đồ biển sở liệu ®å sè ®iỊu... thành lập biên tập đồ địa hình biển đồ hàng hải Việt Nam - Nghiên cứu phơng pháp chuyển đổi sở liệu đồ biển Việt Nam - Trên sở đó, nghiên cứu xây dựng chơng trình chuyển đổi sở liệu đồ biển Phơng... ®iỊu kiƯn ViƯt nam lµ mét viƯc làm cần thiết, có tính khoa học tính thời cao Chính nên đo chọn đề tài: ứng dụng công nghệ tin học chuyển đổi sở liệu biên tập đồ biển điều kiện Việt Nam cho luận