Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa Môc lôc Môc lôc Mở đầu Ch¬ng Tỉng quan vỊ BĐĐH công tác thành lập đồ số địa h×nh 1.1 Bản đồ địa hình 1.2 Nội dung tờ đồ địa hình 1.2.1 §iĨm khống chế trắc địa 1.2.2 Địa vật 1.2.3 Dáng đất 1.3 Bản đồ số địa h×nh 1.3.1 Kh¸i niƯm chung 1.3.2 Nh÷ng đặc điểm đồ số địa hình 1.3.3 Các đối tượng đồ số 1.4 Các phương pháp thành lập đồ địa hình 11 1.4.1 Thành lập đồ địa hình phương pháp đo vẽ trực tiếp 12 1.4.2 Thành lập đồ địa hình phương pháp chụp ảnh 13 1.4.3 Thành lập đồ địa hình phương pháp biên tập sở đồ có tỷ lƯ lín h¬n 14 1.4.4 Quy trình thành lập đồ số địa hình 14 Chương Thành lập đồ số địa hình từ liệu đo máy toàn đạc điện tö 18 2.1 Máy toàn đạc điện tử 18 2.1.1 Giíi thiƯu chung 18 2.1.2 Máy toàn đạc điện tử hÃng Leica - TC 305 19 2.1.3 M¸y toàn đạc điện tử hÃng Nikon 24 Nguyễn Văn Trường Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa 2.2 Thành lập BDDH từ số liệu đo máy toàn đạc điện tử 28 2.2.1 Quy trình thành lập đồ số địa hình từ liệu máy toàn đạc điện tử 28 2.2.2 Cấu trúc liệu sơ đồ thuật toán máy toàn đạc điện tử 29 Chương Ngôn ngữ lập trình Visual basic 6.0 36 3.1 Giíi thiƯu chung 36 3.2 Lµm viƯc víi Visual basic 6.0 38 3.2.1 Thanh tiêu đề (Title bar) 39 3.2.2 Thanh Menu (Menu bar) 39 3.2.3 Thanh c«ng (Tool bar) 39 3.2.4 Hép c«ng cơ(Tool box) 40 3.2.5 Cưa sỉ Properties Window- cưa sỉ thc tÝnh: 41 3.2.6 From Layout Window 42 3.2.7 Project Explorer Window 43 Ch¬ng ThiÕt kế chương trình 45 4.1 ThiÕt kÕ giao diÖn 45 4.1.1 Giao diÖn chương trình 45 4.1.2 Thanh menu 46 4.1.3 Form xö lý sè liÖu 49 4.1.4 Form tÝnh täa ®é ®iĨm chi tiÕt 54 4.1.5 Hiển thị điểm chi tiết đồ họa 58 4.1.6 Biªn tËp đồ 62 KÕt luËn 64 tµi liƯu tham kh¶o 65 phô lôc 66 Nguyễn Văn Trường Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa Mở đầu Trong thời đại ngày việc áp dụng tiến khoa học công nghệ vào sản xuất yêu cầu cấp thiết, nhằm nâng cao suất lao động, giảm sức lao động người góp phần tự động hoá trình sản xuất Ngày nay, công nghệ điện tử-tin học đà ®ỵc øng dơng réng r·i mäi lÜnh vùc cđa ®êi sèng x· héi nãi chung vµ lÜnh vùc nghành trắc địa nói riêng Trong Trắc Địa ứng dụng công nghệ điện tử-tin học sử dụng rộng rÃi công tác ngoại nghiệp lẫn nội nghiệp cách thay dần công cụ đo vẽ cũ thiết bị với công nghệ tiên tiến như: máy toàn đạc điện tử độ xác cao, máy vi tính phần mềm tiện ích, công nghệ GPS v.v Các máy móc phần mềm tiện ích đà thay loại máy quang học cũ phương pháp đo đạc cổ truyền với độ xác không cao mà suất lao động thấp Là sinh viên thuộc nghành Tin học Trắc Địa việc nắm bắt tiến khoa học công nghệ vào công việc tối cần thiết Để làm quen với công nghệ tạo hành trang cho mai sau trường khỏi bỡ ngỡ trước công viêc thực tế, em đà hướng dẫn làm đồ án tốt nghiệp với đề tài là: " ứng dụng công nghệ tin học thành lập đồ sở liệu đo máy toàn đạc điện tử." Mục đích đề tài nghiên cứu tìm hiểu khuôn dạng liệu đo số máy toàn đạc điện tử sử dụng rộng rÃi thực tế Việt Nam hÃng sản xuất như: Lei ca, Nikon, Sokkivà số phần mềm đồ họa Autocad, Microstation để từ thµnh lËp modul xư lý file sè liƯu øng dơng cho công tác thành lập đồ địa hình Nguyễn Văn Trường Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa Sau thời gian nghiên cứu, với giúp đỡ, hướng dẫn tận tình thầy giáo Ts Đinh Công Hoà thầy cô môn, em đà hoàn thành đồ án Nội dung đồ án trình bày sau: Phần Mở đầu Chương Tổng quan đồ địa hình công tác thành lập đồ số địa hình Chương Thành lập đồ số địa hình từ liệu đo máy toàn đạc điện tử Chương Giới thiệu ngôn ngữ lập trình Visual Basic 6.0 Chương Thiết kế chương trình Phần Kết luận Đồ án tốt nghiệp hoàn thành trường đại học Mỏ -Địa chất Có kết em lần chân thành cảm ơn thầy giáo TS Đinh Công Hoà người đà trực tiếp hướng dẫn, đưa gợi ý có giá trị mặt khoa học thực tiễn sản xuất, giúp em hoàn thành đồ án em xin gửi lời cảm ơn tới thầy cô môn đà giúp đỡ em suốt thời gian em học tập trường trình làm đồ án tốt nghiệp Trong trình làm đồ án, đà cố gắng lượng kiến thức hạn hẹp nên đồ án nhiều sai sót mong thầy cô bạn bè thông cảm góp ý Em xin chân thành cảm ơn Sinh viên thực Nguyễn văn Trường Lớp Tin học trắc địa K47 Nguyễn Văn Trường Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa Chương Tổng quan BĐĐH công tác thành lập đồ số địa hình 1.1 Bản đồ địa hình Bản đồ địa hình loại đồ thể khu vực bề mặt trái đất, đồ thể thành phần thiên nhiên kết hoạt động thực tiễn người mà mắt ta cảm nhận Trên đồ địa hình, không đưa lên tất hình ảnh có mặt đất mà thể đối tượng chứa đựng lượng thông tin phụ thuộc vào không gian, thời gian mục đích sử dụng Tính không gian giới hạn (xác định) khu vực tiến hành đo vẽ thành lập đồ Tính thời gian quy định ghi nhận đồ địa hình trạng bề mặt trái đất thời điểm tiến hành đo vẽ Mục đích sử dụng chi phối nội dung độ xác đồ Yếu tố không gian mục đích sử dụng có liên quan đến việc lựa chọn tỉ lệ đồ Các đối tượng địa hình bề mặt trái đất đưa lên đồ thông qua phép chiếu đồ Về chất đồ địa hình nói chung định nghĩa: Là mô hình đồ họa mặt đất, cho ta khả nhận biết bề mặt nhìn bao quát, tổng quát đọc chi tiết đo đếm xác Dựa vào đồ địa hình nhanh chÃng xác đinh tọa độ, độ cao điểm mặt đất, khoảng cách phương hướng hai điểm, chu vi, diện tích, khối lượng vật, vùng, hàng loạt thông số khác Nguyễn Văn Trường Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa 1.2 Nội dung tờ đồ địa hình Nội dung đồ địa hình bao gồm yếu tố điểm khống chế trắc địa, địa vật (địa vật định hướng, điểm dân cư , thuỷ hệ, giao thông, lớp phủ vật, ranh giới.v.v) dáng đất (địa hình) Tất đối tuợng nói thể đồ địa hình cần phải đầy ®đ, chÝnh x¸c Møc ®é tû mØ cđa néi dung đồ phải phù hợp với mục đích sử dụng đồ đặc điểm khu vực 1.2.1 Điểm khống chế trắc địa Các điểm toạ độ độ cao cấp phải biểu thị đầy đủ xác lên đồ Đây yếu tố dạng điểm cần thể xác đến 0.1mm đồ Dùng ký hiệu tương ứng để thể điểm toạ độ nhà nước điểm toạ độ sở Đối với đồ địa hình tỷ lệ lớn, hiển thị điểm khống chế đo vẽ Thông thường điểm khống chế ghi số hiệu độ cao chúng 1.2.2 Địa vật Địa vật định hướng Khi sử dụng đồ địa hình thi việc định hướng có ý nghĩa quan trọng Do vậy, địa vật định hướng yếu tố tất yếu nội dung đồ địa hình Đó đối tượng khu vực, cho phép ta xác định vị trí nhanh chóng xác đồ độc lập, nhà cao, nhà thờ, đình chùa, cột sốCác địa vật định hướng bao gồm số địa vật không nhô cao so với mặt đất dễ dàng nhận biết ngà ba đuờng, ngà ba sông Các điểm dân cư Các điểm dân cư yếu tố quan trọng đồ Nguyễn Văn Trường Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa địa hình Các điểm dân cư đặc trưng bëi kiĨu c tró, sè ngêi vµ ý nghÜa hµnh - trị Khi thể điểm dân cư đồ phải giữ đặc trưng quy hoạch, cấu trúc Trên đồ tỷ lệ lớn biểu thị điểm dân cư tỉ mỉ, phạm vi dân cư phải biểu thị khép kín ký hiệu tương ứng, nhà vùng dân cư phải biểu thị tính chất (chịu lửa, chịu lửa), quy mô (lớn, nhỏ, số tầng) Các công trình công cộng phải biểu thị tính chất kinh tế, xà hội, văn hoá chúng nhà máy, trụ sở uỷ ban, bưu điện Thuỷ hệ công trình phụ thuộc Các yếu tố thuỷ hệ biểu thị tỉ mỉ, đồ địa hình biểu thị đường bờ biển, bờ hồ, sông, ngòi, mương, kênh, rạch,Các đường bờ nước thể đồ theo đặc điểm kiểu đường bờ Đồng thời phải thể thiết bị phụ thuộc thuỷ hệ bến cảng, trạm thuỷ điện, đập Sự biểu thị yếu tố thuỷ hệ bổ sung đặc trưng chất lượng độ mặn nước, độ sâu rộng sông, tốc độ dòng chảy Mạng lưới đường giao thông Trên đồ địa hình mạng lưới đường thể tỉ mỉ khả giao thông trạng thái đường Mạng lưới đường thể chi tiết khái lược tuỳ thuộc vào tỷ lệ đồ, cần phải phản ánh mật độ lưới đường, hướng vị trí đường, chất lượng chúng Khi lựa chọn phải xét đến ý nghĩa đường Phải biểu thị đường đảm bảo mối liên hệ điểm dân cư với nhau, với ga xe lửa, bến tàu, sân bay Trên đồ tỷ lệ lớn phải biểu thị tất đường : đường sắt, đường ô tô, đường rải nhựa, đường đất lớn-nhỏ, đường mòn, ý biểu thị Nguyễn Văn Trường Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa vị trí hạ nâng cấp đường, biển đường, cầu cống, cột số Lớp phủ thực vật Trên đồ địa hình biểu thị loại rừng, vườn cây, đồn điền, ruộng, đồng cỏ, tài nguyên, cát, đất mặn, đầm lầy Ranh giới khu thực phủ loại đất biểu thị đường nét đứt dÃy dấu chấm, diện tích bên đường viền vẽ ký hiệu quy ước đặc trưng cho loại thực vật đất Ranh giới loại thực vật đất cần thể xác phương diện đồ hoạ, thể rõ ràng chỗ ngoặt có ý nghĩa định hướng Ranh giới phân chia hành - trị Ngoài đường biên giới quốc gia, phải thể ranh giới cấp hành Các đường ranh giới phân chia hành - trị đòi hỏi phải thể rõ ràng, xác theo quy định quy phạm 1.2.3 Dáng đất Dáng đất đồ địa hình biểu thị đường bình độ Những yếu tố dáng đất mà đường bình độ biểu thị ký hiệu riêng, đồ địa hình ghi độ cao 1.3 Bản đồ số địa hình 1.3.1 Khái niệm chung Bản đồ số loại đồ thông tin mặt đất toạ độ, độ cao điểm chi tiết, địa vật, địa hình biểu diễn số thuật toán, xử lý chúng để giải nhiệm vụ kỹ thuật - Bản đồ số sản phẩm đồ biên tập, thiết kế, lưu trữ hiển thị hệ thống máy vi tính thiết bị điện tử - Bản đồ số tập hợp có tổ chức liệu đồ thiết bị có khả đọc máy tính thể dạng hình ảnh đồ Nguyễn Văn Trường Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa 1.3.2 Những đặc điểm đồ số địa hình - Bản đồ số chứa đựng thông tin không gian, quy chiếu mặt phẳng thiết kế theo tiêu chuẩn đồ học độ xác toán học, mức độ đầy đủ nội dung theo tỷ lệ, sử dụng phương pháp ký hiệu truyền thống - Dữ liệu đồ thể theo nguyên lý số - Bản đồ số hiển thị dạng đồ truyền thống, thể hình, in giấy vật liệu phẳng - Tính linh hoạt đồ số cao: thông tin thường xuyên cập nhật hiƯn chØnh, cã thĨ in ë c¸c tû lƯ khác nhau, sửa đổi ký hiệu điều chỉnh kích thước mảnh đồ so với kích thước ban đầu, tách lớp chồng xếp thông tin đồ - Cho phép tự động hoá quy trình công nghệ thành lập đồ từ nhập số liệu đến in đồ - Khâu nhập số liệu biên vẽ ban đầu có nhiều khó khăn, phức tạp, khâu sử dụng sau có nhiều thuận lợi mang lại hiệu cao thời gian, kinh phí 1.3.3 Các đối tượng đồ số Dưới dạng đồ số, đối tượng đồ phân biệt làm ba kiểu: kiểu điểm, kiểu đường, kiểu vùng, có thành phần ký tự để thể nhÃn ghi thuyết minh, lưu file đồ hoạ DXF, DGN Mỗi yếu tố riêng biệt bao hàm hai loại liệu: liệu định vị liệu thuộc tính - Dữ liệu định vị cho biết vị trí yếu tố mặt đất đồ bao gồm hình dạng - Dữ liệu thuộc tính bao gồm thông tin đặc điểm cần có yếu Nguyễn Văn Trường Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa tố (ví dụ thuộc tính yếu tố điểm địa danh, tên đường ) Có hai loại thuộc tính thuộc tính định lượng bao gồm kích thước, diện tích, độ nghiêng; thuộc tính định tính gồm phân lớp, kiểu, tên, * Thể đối tượng đồ số File DXF - Về phân lớp đối tượng: File DXF phân lớp đối tượng thể dạng tên lớp (Layer) - Về mô tả kiểu đối tượng: + Đối tượng kiểu điểm thể dạng POINT + Đối tượng kiểu đường thể dạng Line, Polyline + Đối tượng kiểu vùng thể dạng Shape + NhÃn ký tự thể dạng Text * Thể đối tượng đồ số file DGN - Về phân lớp đối tượng: file DGN phân lớp đối tượng thể dạng đối Level, Level bao gồm số tên - Về mô tả kiểu đối tượng: + Đối tượng kiểu điểm thể dạng Cell + Đối tượng kiểu đường thể dạng Line, Line string + Đối tượng kiểu vùng thể dạng Complexchain, Shape + Nh·n vµ ký tù thĨ hiƯn díi dạng Text Theo đặc điểm, cấu trúc file đồ hoạ, đối tượng đồ phân biệt thành kiểu ký hiệu đối tượng: - Các ký hiệu kiểu điểm - Các ký hiệu kiểu đường - Các ký hiệu kiểu vùng Nguyễn Văn Trường 10 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa Hình 4.11 Kết tính toán tọa độ điểm chi tiết Dữ liệu sau xử lý có định dạng sau: Trạm máy T-191 F1 4.580 T-191 T-191 B7 4.491 B7 5.210 B7 4.514 B7 5.168 5.563 5.524 5.568 Nguyễn Văn Trường täa ®é X täa ®é Y ®é cao H 2330491.12 602900.085 12.586 2330525.82 602143.860 2330525.82 602143.860 4.033 2330491.11 602899.924 11.871 2330641.09 601349.665 2330410.51 602938.055 2330641.11 601349.666 2330410.54 602938.057 2330142.93 602124.441 2330145.46 602088.239 2330146.49 602042.059 57 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa Kết thực liệu máy toàn đạcTC-305 có khuôn dạng *.idx: 4.1.5 Hiển thị điểm chi tiết đồ họa Chương trình có chức hiển thị điểm lên dồ họa Để hiển thị điểm chi tiết đồ 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 hiển thị toàn điểm chi tiết điểm địa hình Hình 4.12 Kết hiển thị điểm chi tiết lên hình đồ họa Tệp *.SCR dùng để triển điểm khống chế điểm chi tiết lên nỊn ®å häa cđa AutoCAD LAYER M DiemCT L Continuous C DiemCT _Point 602900.085,2330491.129 _Point 602143.860,2330525.825 Nguyễn Văn Trường 58 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa _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 hiển thị toàn điểm Mỗi điểm chi tiết bao gồm số hiệu điểm, độ cao, vị trí điểm (DiemCT) thể layer khác Nguyễn Văn Trường 59 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa Hình 4.13 Kết hiển thị lên đồ họa AutoCad với layer Kết cho ta điểm địa hình điểm chi tiết Autocad sau: Hình 4.14 Điểm chi tiết hiển thị AutoCad Nguyễn Văn Trường 60 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa 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 NguyÔn Văn Trường 61 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa 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 điểm (Chú ý phải nhập đường dẫn chứa tệp A.MCR) 4.1.6 Biên tập đồ Sau thực xử lý số liệu hiển thị điểm đồ họa, lưu vẽ định dạng *.vec Vecad định dạng *.dwg, *.dxf Autocad Chương trình cho phép sử dụng công cụ có sẵn để tạo vẽ linh động chuyển sang phần mềm đồ họa Autocad, Microstation để hoàn thiện đồ Nguyễn Văn Trường 62 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa Hình 4.15 Bản đồ hiển thị đồ họa chương trình Nguyễn Văn Trường 63 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa Kết luận Ngày nay, với phát triển không ngừng khoa học kỹ thuật, công nghệ thông tin điện tử công tác thành lập đồ phương pháp truyền thống trở nên lạc hậu Nhu cầu thực tế ngày cao, đòi hỏi nghành trắc địa phải có phương pháp tạo đồ đáp ứng nhu cầu thực tiễn Công nghệ công nghệ đồ số Để thực kết nối việc tự động hoá quy trình đo dạc thành lập đồ địa hình máy đo máy tính cần phải có modul chương trình tiện ích, thực dụng phù hợp với thực tế sản xuất Việt Nam Đây công việc cần thiết mà quan sản xuất yêu cầu Đề tài: ứng dụng công nghệ tin học thành lập đồ địa hình sở liệu đo máy toàn đạc điện tử đà phần đáp ứng yêu cầu thực tế sản xuất Nguyễn Văn Trường 64 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa tài liệu tham khảo [1] Tiến sĩ Đinh Công Hòa Nghiên cứu thành lập modul chương trình chuyển đổi liệu từ sổ ghi điện tử máy toàn đạc điện tử để thành lập đồ địa hình mặt cắt Đề tài nghiên cứu cấp 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 San - Vũ Hữu Tường, hiệu đính: PTS Nguyễn Ngọc Phương Kỹ lập trình Visual Basic 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 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 sở liệu Visual Basic 6.0 Nxb Lao động xà hội Nguyễn Văn Trường 65 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa 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 = i = 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 = 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 NguyÔn Văn Trường 67 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa 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 > * Atn(1#)) Then Vz = Vz - * Atn(1#) ".000") dz = Format(Cos((Vz - (4 * Atn(1#)) / 2)) * SD, 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 file *.goc dạng *.xyh: Private Sub cmdxuly_Click() n = Pi = 4# * Atn(1#) Pi2 = 2# * Pi Ro = 190# * 3600# / Pi Id = Open Fash For Input As #1 Tach_dgdan Fash, Fdir, Fname err = Fdir & Fname & ".ERR" Nguyễn Văn Trường 68 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa 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) = 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) Then If StrComp(IDg, xau, vbTextCompare) = n = n + 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) = Then n = n + 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) Nguyễn Văn Trường 69 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa Close (200) Else n = n + Kt = False Id = Id + 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 file *.xyh If chktddc.Value = True Then Fxyh = Fdir & Fname & ".XYH" Open Fxyh For Output As #7 For i = 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 Nguyễn Văn Trường 70 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa Hiển thị điểm chi tiết đồ họa: For i = 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) dCT(i).Ten frmdohoa.Vecad1.PointPutText hEnt(i), frmdohoa.Vecad1.Update frmdohoa.Vecad1.WndRedraw Next i frmdohoa.Vecad1.Update frmdohoa.Vecad1.WndRedraw frmdohoa.Vecad1.Execute 102 Nguyễn Văn Trường 71 Tin học Trắc ®Þa K47 ... với đề tài là: " ứng dụng công nghệ tin học thành lập đồ sở liệu đo máy toàn đạc điện tử. " Mục đích đề tài nghiên cứu tìm hiểu khuôn dạng liệu đo số máy toàn đạc điện tử sử dụng rộng rÃi thực... 27 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa 2.2 Thành lập BDDH từ số liệu đo máy toàn đạc điện tử 2.2.1 Quy trình thành lập đồ số địa hình từ liệu máy toàn đạc điện tử. .. chuyên ngành Tin học Trắc địa Chương Thành lập đồ số địa hình từ liệu đo 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) sử dụng rộng rÃi