Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa Đề tài: “Ứng dụng công nghệ thông tin thành lập đồ sở liệu đo máy toàn đạc điện tử” 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ỤC LỤC MỤC LỤC MỞ ĐẦU CHƯƠNG TỔNG QUAN VỀ BĐĐH VÀ CÔNG TÁC THÀNH LẬP BẢN ĐỒ 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 10 1.3.1 Khái niệm chung 10 1.3.2 Những đặc điểm đồ số địa hình 10 1.3.3 Các đối tượng đồ số 11 1.4 Các phương pháp thành lập đồ địa hình 12 1.4.1 Thành lập đồ địa hình phương pháp đo vẽ trực tiếp 13 1.4.2 Thành lập đồ địa hình phương pháp chụp ảnh 15 1.4.3 Thành lập đồ địa hình phương pháp biên tập sở đồ có tỷ lệ lớn 16 1.4.4 Quy trình thành lập đồ số địa hình 16 CHƯƠNG 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Ử 20 2.1 Máy toàn đạc điện tử 20 2.1.1 Giới thiệu chung 20 2.1.2 Máy toàn đạc điện tử hãng Leica - TC 305 21 2.1.3 Máy toàn đạc điện tử hãng Nikon 27 2.2 Thành lập BDDH từ số liệu đo máy toàn đạc điện tử 31 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.1 Quy trình thành lập đồ số địa hình từ liệu máy toàn đạc điện tử 31 2.2.2 Cấu trúc liệu sơ đồ thuật toán máy tồn đạc điện tử 32 CHƯƠNG NGƠN NGỮ LẬP TRÌNH VISUAL BASIC 6.0 40 3.1 Giới thiệu chung 40 3.2 Làm việc với Visual basic 6.0 42 3.2.1 Thanh tiêu đề (Title bar) 43 3.2.2 Thanh Menu (Menu bar) 43 3.2.3 Thanh công cụ (Tool bar) 43 3.2.4 Hộp công cụ(Tool box) 44 3.2.5 Cửa sổ Properties Window- cửa sổ thuộc tính: 45 3.2.6 From Layout Window 46 3.2.7 Project Explorer Window 47 CHƯƠNG THIẾT KẾ CHƯƠNG TRÌNH 49 4.1 Thiết kế giao diện 49 4.1.1 Giao diện chương trình 49 4.1.2 Thanh menu 50 4.1.3 Form xử lý số liệu 53 4.1.4 Form tính tọa độ điểm chi tiết 58 4.1.5 Hiển thị điểm chi tiết đồ họa 62 4.1.6 Biên tập đồ 66 KẾT LUẬN 68 TÀI LIỆU THAM KHẢO 69 PHỤ LỤC 70 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 hố q trình sản xuất Ngày nay, công nghệ điện tử-tin học ứng dụng rộng rãi lĩnh vực đời sống xã hội nói chung 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 khn 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, Sokki…và 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 Hồ thầy mơn, em hồ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 tồ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 Hồ 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 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 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 Lớp Tin học trắc địa K47 Ch­¬ng TỔNG QUAN VỀ BĐĐH VÀ CƠNG TÁC THÀNH LẬP BẢN ĐỒ 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 cịn đị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 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, 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 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 đủ, xác Mức độ tỷ mỉ 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 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ậ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 đồ địa hình Các điểm dân cư đặc trưng kiểu cư trú, số người ý 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 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ậ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ị 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ị Ngồi đường biên giới quốc gia, cịn 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 độ khơng thể biểu thị ký hiệu riêng, đồ địa hình cịn ghi độ cao 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 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 tố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 đồ 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 chỉnh, in 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 hố 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, 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 tốn tọa độ điểm chi tiết Dữ liệu sau xử lý có định dạng sau: Trạm máy tọa độ X T-191 F1 T-191 T-191 B7 B7 B7 B7 2330491.12 2330525.82 2330525.82 2330491.11 2330641.09 2330410.51 2330641.11 2330410.54 2330142.93 2330145.46 2330146.49 tọa độ Y độ cao H 602900.085 12.586 602143.860 4.580 602143.860 4.033 602899.924 11.871 601349.665 4.491 602938.055 5.210 601349.666 4.514 602938.057 5.168 602124.441 5.563 602088.239 5.524 602042.059 5.568 Kết thực liệu máy tồn đạcTC-305 có khn dạng *.idx: 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 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 đồ họa AutoCAD LAYER M DiemCT L Continuous C DiemCT _Point 602900.085,2330491.129 _Point 602143.860,2330525.825 _Point 602143.860,2330525.825 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 _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 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 63 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 64 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 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 Place Active Cell 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 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 66 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 67 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 hố 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 68 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 69 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=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)) (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 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 Nguyễn Văn Trường 71 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa Open Fash For Output As #2 Dim xau1 As String, xau2 As String, xau3 As String 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#) 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 file *.goc dạng *.xyh: Private Sub cmdxuly_Click() n=0 Pi = 4# * Atn(1#) Pi2 = 2# * Pi Ro = 190# * 3600# / Pi Id = Open Fash For Input As #1 Nguyễn Văn Trường 72 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa Tach_dgdan Fash, Fdir, Fname err = Fdir & Fname & ".ERR" 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) If StrComp(IDg, xau, vbTextCompare) = Then 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+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 Nguyễn Văn Trường 73 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa dx = Xdh - Xg dy = Ydh - Yg afa = Pvi(dx, dy) Call dR_GOC(afa, gd, gph, ggi) Close (200) Else n=n+1 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) & _ Nguyễn Văn Trường 74 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa 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  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) 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 Nguyễn Văn Trường 75 Tin học Trắc địa K47 ... 1.4.3 Thành lập đồ địa hình phương pháp biên tập sở đồ có tỷ lệ lớn 16 1.4.4 Quy trình thành lập đồ số địa hình 16 CHƯƠNG THÀNH LẬP BẢN ĐỒ SỐ ĐỊA HÌNH TỪ DỮ LIỆU ĐO CỦA CÁC MÁY TOÀN ĐẠC... 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 khn dạng liệu. .. Văn Trường 19 Tin học Trắc địa K47 Đồ án tốt nghiệp chuyên ngành Tin học Trắc địa Ch­¬ng THÀNH LẬP BẢN ĐỒ SỐ ĐỊA HÌNH TỪ DỮ LIỆU ĐO CỦA CÁC MÁY TỒN ĐẠC ĐIỆN TỬ 2.1 Máy toàn đạc điện tử 2.1.1