Thiết kế tuyến vi ba số tp hà tĩnh tx hồng lĩnh

621.382 TRƢỜNG ĐẠI HỌC VINH KHOA ĐIỆN TỬ VIỄN THÔNG N TT NGHIP I HC Đề tài: THIT K TUYẾN VI BA SỐ TP HÀ TĨNH - TX HỒNG LĨNH Giảng viên hướng dẫn : ThS Nguyễn Thị Minh Sinh viên thực : Trần Đăng Ước Mã số sinh viên : 0951080298 Lớp : 50K1 - ĐTVT Nghệ An, tháng 01 năm 2014 LỜI NÓI ĐẦU Trong thời đại bùng nổ thông tin phát triển xã hội việc giao lưu mặt quốc gia giới, khu vực hay đơn giản vùng lãnh thổ cần thiết Việc giao lưu diễn nhiều phương thức như: thông tin vệ tinh, thông tin quang, hay thông tin vi ba số Song truyền sóng vơ tuyến đường vi ba giữ vai trò quan trọng, đựơc sử dụng nhiều lĩnh vực khác nhau: phát thanh, truyền tin, an ninh, đồng hay dự phòng… Ưu điểm bật hình thức thơng tin sóng ngắn hay vi ba số đơn giản chất lượng đảm bảo…Nhưng nhược điểm hình thức thơng tin khơng ổn định chịu nhiều ảnh hưởng môi trường, đặc biệt tượng fading Do mà việc thiết kế tuyến vi ba đòi hỏi phải cụ thể xác Là sinh viên, việc thiết kế tuyến truyền vi ba số giúp cho em có thêm kỹ tư kỹ thực tế, từ giúp chúng em củng cố mở rộng kiến thức chuyên ngành, đặc biệt khả tính tốn, phân tích xử lý số liệu phù hợp với thực tế Bài thiết kế chia làm phần sau : - Tổng quan hệ thống vi ba số - Nêu lên yêu cầu thiết kế trình tự thực thiết kế tuyến - Nêu tính tốn thực tế - Xây dựng chương trình mơ Bài thiết kế thực hiển thời gian ngắn, hiểu biết cịn hạn chế Do khơng thể tránh khỏi sai sót Qua đây,em xin gửi lời cảm ơn chân thành đến giảng viên Ths Nguyễn Thị Minh hướng dẫn em hoàn thành đồ án TÓM TẮT ĐỒ ÁN Với đồ án này, em xin trình bày tổng quan hệ thống vi ba số sâu vào nghiên cứu thiết kế tuyến vi ba số thực tế từ thành phố Hà Tĩnh đến thị xã Hồng Lĩnh Tuy đề tài mang nặng tính lý thuyết đạt kết khả quan, đề xuất để lắp đặt thiết bị đưa vào sử dụng Sau tính tốn em sử dụng phần mềm visuabasic 2010 để tiến hành mô đạt kết mong muốn Nội dung đồ án bao gồm:  Chương 1: Tổng quan hệ thống vi ba số  Chương 2: Cơ sở truyền dẫn tín hiệu viba số  Chương 3: Thiết kế tuyến vi ba số thực tế từ thành phố Hà Tĩnh đến thị xã Hồng Lĩnh ABSTRACK With all these projects, I would like to present an overview of digital microwave system and go deep into the research and design of digital microwave actual line from Ha Tinh province to Hong Linh town But the subject fraught with theoretical but also have achieved positive results, may propose to install equipment and put into use After you have used computational software visuabasic 2010 to conduct simulations and achieve the desired results The contents of the scheme include:  Chapter 1: Overview of digital microwave systems  Chapter 2: Background digital microwave transmission signals  Chapter 3: Designing the actual number of microwave links from Ha Tinh province to Hong Linh town MỤC LỤC Trang LỜI NÓI ĐẦU TÓM TẮT ĐỒ ÁN MỤC LỤC DANH MỤC HÌNH VẼ DANH MỤC BẢNG BIỂU DANH MỤC TỪ VIẾT TẮT CHƢƠNG I TỔNG QUAN VỀ HỆ THỐNG VI BA SỐ 1.1 Sơ lược q trình phát triển thơng tin vi ba số 1.1.1 Vi ba số gi? 1.1.2 Mơ hình hệ thống vi ba số 1.1.3 Vi ba số điểm nối điểm 1.1.4 Vi ba số điểm nối nhiều điểm 1.2 Điều chế số 1.2.1 Khái niệm chung 1.2.2 Các phương pháp điều chế số 1.3 Cấu hình thiết bị vơ tuyến 1.3.1 Anten phi 1.3.2 Cấu hình máy phát 1.3.3 Cấu hình máy thu 1.4 Phân loại 1.5 Các sở sóng vơ tuyến - fading 1.5.1 Khái niệm sóng vơ tuyến 1.5.2 Sự truyền lan sóng vơ tuyến 1.5.3 Các nhân tố ảnh hưởng đến truyền lan sóng 12 1.6 Hiện Tượng Fading viba số 16 1.6.1 Các kỹ thuật giảm ảnh hưởng fading nhiều tia 17 1.7 Một số ưu, nhược điểm hệ thống vi ba số 18 1.7.1 Ưu điểm 18 1.7.2 Khuyết điểm 19 CHƢƠNG II CƠ SỞ TRUYỀN DẪN TÍN HIỆU VI BA SỐ 20 2.1 Lý thuyết sóng vơ tuyến 20 2.1.1 Sóng bề mặt 20 2.1.2 Sóng khơng gian 20 2.1.3 Phân loại tần số vô tuyến 22 2.2 Các nhân tố ảnh hưởng đến truyền lan sóng vơ tuyến 23 2.2.1 Phadinh mưa 23 2.2.3 Sự can nhiễu sóng vơ tuyến 24 2.3 Các tiêu kỹ thuật Vi ba số 24 2.3.1 Phân bố tần số luồng cao tần 24 2.3.2 Công suất phát 25 2.3.4 Tỉ số bit lỗi BER 25 2.3.5 Thiết bị Vi ba số - Thu phát tín hiệu vi ba 25 2.3.6 Trở kháng vào máy thu trở kháng máy phát 25 2.3.7 Tốc độ băng tần gốc 26 2.3.8 Kênh nghiệp vụ 26 2.3.9 Kênh giám sát điều khiển từ xa 26 2.4 Thiết bị anten 26 2.4.1 Anten 26 2.4.2 Biểu đồ xạ 28 2.4.3 Điều chế số Giải điều chế số 29 2.4.4 Các phương thức điều chế giải điều chế 29 2.4.5.2 Giảm độ rộng băng tần truyền phương pháp điều chế nhiều mức 34 CHƢƠNG III THIẾT KẾ TUYẾN VI BA SỐ TP HÀ TĨNH - TX HỒNG LĨNH 36 A LÝ THUYẾT THIẾT KẾ TUYẾN VI BA SÔ 36 3.1 Nghiên cứu dung lượng kênh truyền 36 3.2 Bằng tần số vô tuyến sử dụng xếp kênh RF 37 3.2.1 Chọn băng tần số vô tuyến 37 3.2.2 Sự xếp kênh RF 38 3.3 Vị trí trạm đồ khảo sát vị trí đặt trạm 39 3.3.1 Xác định tuyến đồ 39 3.3.2 Tạo nên vẽ mặt cắt nghiêng tuyến 40 3.4 Dựng mặt cắt đường truyền tính thông số liên quan 41 3.4.1 Dựng mặt cắt đường truyền cho tuyến 41 3.4.2 Tính khoảng cách tia truyền phía vật chắn 42 3.5 Xác định độ caio anten 43 3.6 Tính tốn đường truyền 47 3.6.1 Các tổn hao 47 3.6.2 Độ lợi 49 3.7 Các tiêu chuẩn kỷ thuật 53 3.7.1 Độ không sử dụng đường cho phép 53 3.7.2 Độ không sử dụng mạng nội hạt 53 3.7.3 Độ không sử dụng hành trình ngược 53 3.8 Đánh giá chất lượng tuyến, lắp đặt thiết bị đưa vào hoạt động 54 B THIẾT KẾ TUYẾN VI BA SỐ THỰC TẾ TP HÀ TĨNH - TX HỒNG LĨNH 55 3.9 Nghiên cứu dung lượng yêu cầu 55 3.10 Lựa chọn thiết bị, băng tần vô tuyến kênh RF 57 3.11 Tìm trạm đồ 57 3.12 Dựng mặt cắt đường truyền cho hop 60 3.13 Phần tính tốn 60 3.14 Tính toán độ dự trữ Fading 61 3.15 Phần mô visual basic 2010 65 KẾT LUẬN 68 TÀI LIỆU THAM KHẢO 69 PHỤ LỤC 70 DANH MỤC HÌNH VẼ Hình 1.1 Mơ hình hệ thống vi ba số Hình 1.2 Mơ hình hệ thống vi ba số điểm nối điểm tiêu biểu Hình 1.3 Mơ hinh hệ thống vi ba số điểm nối điểm tiêu biểu Hình 1.4 Sơ đồ điều chế số Hình 1.5 Các phương pháp điều chế số Hình 1.6 Tín hiệu ASK hai mức Hình 1.7 Tín hiệu ASK hai mức Hình 1.8 Tín hiệu FSK hai mức Hình 1.9 So sánh ba loại điều chế Hình 1.10 Cấu hình thiết bị vô tuyến Hình 1.11 Cấu hình máy phát Hình 1.13 Các phương thức truyền sóng vơ tuyến 10 Hình 1.14 Các phương thức truyền sóng vơ tuyến 12 Hình 1.15 Sự khúc xạ 14 Hình 1.16 Hiệu ứng ống dẫn 14 Hình 1.18 Sự phản xạ mặt đất 15 Hình 1.19 Miền Fresnel 16 Hình 1.20 Miền Fresnel không 16 Hình 1.21 Phân tập khơng gian 17 Hình 1.22 Phân tập tần số 18 Hình 2.1 Ăng-ten Parabol 27 Hình 2.2 Biểu đồ xạ anten Parabol 29 Hình 2.3 Điều chấ số giải điều chế số 29 Hình 2.4 Sơ đồ nguyên lý điều chế tín hiệu QPSK 30 Hình 2.5 Tín hiệu 4PSK 31 Hình 2.6 Biểu đồ vector điều chế QPSK 31 Hình 2.7 Sơ đồ nguyên lý giải điều chế pha QPSK 31 Hình 2.8 Sơ đồ nguyên lý điều chế tín hiệu M-QAM 32 Hình 2.10 Biểu đồ khơng gian tín hiệu 33 Hình 2.11 Sơ đồ xếp chịm phương pháp điều chế số 33 Hình 2.12 Sơ đồ nguyên lý giải điều chế M-QAM 34 Hình 3.1 Mặt cắt đường truyền hai trạm A B 40 Hình 3.2 Vẽ mặt cắt đường truyền cho tuyến 42 Hình 3.3 Mặt cắt nghiêng đường truyền miền Fresnel thứ 43 Hình 3.4 Xác định độ cao tia B để làm hở vật chắn 45 Hình 3.5 Minh hoạ việc tính độ cao anten biết độ cao anten 47 Hình 3.6 Vật chắn hình nêm tổn hao nhiễu xạ vật chắn cong 48 Hình 3.7 Thiết bị vi ba số RMD 1504 (KASATI) 57 Hình 3.8 Vị trí trạm A đồ vệ tinh (theo google earth) 58 Hình 3.9 Vị trí trạm B đồ vệ tinh (theo google earth) 58 Hình 3.10 Khoảng cách hai trạm (theo google earth) 59 Hình 3.11 Mặt cắt đường truyền trạm 60 Hình 3.12 Lưu đồ thuật tốn thiết kế tuyến vi ba số 65 Hình 3.13 Giao diện mở đầu 66 Hình 3.15 Thiết kế theo tham số tuyến 67 DANH MỤC BẢNG BIỂU Bảng 1.1 Kết thực nghiệm suy hao nước-khí hậu theo tần số sóng vơ tuyến Alcatel 15 Bảng 2.1 Phân loại tần số vô tuyến 22 Bảng 2.2 Kết thực nghiệm suy hao nước - khí hậu theo tần số sóng vô tuyến Alcatel 23 Bảng 2.3 Độ lợi anten theo hiệu suất tần số 28 Bảng 2.4 Góc phát xạ theo đường kính anten 28 Bảng 3.1: Các băng tần số cấp phát FCC cho hệ thống Viba số 38 Bảng 3.2 Các đề nghị CCIR xếp kênh RF 39 Bảng3.3 tóm tắt kết 64 DANH MỤC TỪ VIẾT TẮT TDMA Time Division Multiple Access PCM Pusle Code Modulation FCC Federal Communication Đa truy nhập (đa người dùng) phân chia theo thời gian Một phương pháp điều chế tín hiệu Analog sang Digital Uỷ ban Truyền thông Liên bang Commission CCITT CCIR Consultative Committee for International Telephone and Telegraph Consultive Committee for International Radio Programable Logic Cotrol Supervisory Control And SCADA/EMS Data Acquisition/Energy Management System Bộ điều khiển Logic lập trình để điều khiển thiết bị máy móc, dây chuyền sản xuất, thang máy… Một hệ thống điều khiển giám sát thu thập liệu/Hệ thống quản lý lượng cung cấp cho Trung tâm Điều độ phương tiện để điều khiển vận hành cách tối ưu HTĐ Trung tâm Điều độ hệ thống điện miền Nam HTĐ GPS System Uỷ ban Tư vấn Quốc tế Vơ tuyến Tổng cơng ty Bưu viễn thơng Việt Nam BCVT PLC Liên minh Viễn thông Quốc tế Global Positioning Là hệ thống xác định vị trí dựa vị trí vệ tinh nhân tạo Pb  10  FMb 10  10  52,92 10  5,1.106 k) Khoảng thời gian pha đinh Ta Tb ứng với FMa FMb Ta  C2 10   FMa 10 2 f Ta  10, 3.27,8.10 Tb  C2 10   FMb 10 f  10,3d 10  2 Tb  10, 3.27,8.10  0,5.56,92 10  f  0,5 0,5  0,154  10,3d 10 0,5.52,92 10 , FM a 10  0, FMb 10 f  0, 0,5  0, 245 l) Xác suất pha đinh phẳng dài 10 s 60 s P(Ta10)=P(10)=0,5 [1-erf(Za)] = 0,5 erfc(Za) P(Tb10)=P(10)=0,5 [1-erf(Zb)] = 0,5 erfc(Zb) Trong đó: Erfc(Z) hàm xác suất lỗi tích chập có cho phần phụ lục Các giá trị Za Zb tính tốn theo biểu thức: Za = 0,548 ln(10/Ta) = 0,548* ln(10/0.585) = 1.6 Zb = 0,548 ln(10/Tb) = 0,548* ln(10/0.927) = 1.3 Tra theo hàm ercf(Z) phần phụ lục ta có xác suất fading dài 10s 60s là: P(Ta10)=P(10)=0,5 [1-erf(Za)] = 0,5 erfc(1.6) = 0,12 P(Tb60)=P(60)=0,5 [1-erf(Zb)] = 0,5 erfc(1.3) = 0,33 m) Xác suất BER ≥ 10-3 = P0.Pa = 45.10-3 × 2, 03.106 = 9,135.10-8 n) Xác suất tuyến sử dụng pha đinh phẳng Pu = P0.Pa.P(10) = 9,135.10-8 × 0,12= 1,096.10-8 o) Khả sử dụng tuyến (%) Av = 100(1 – Pu) = 100(1 – 3.10-8) = 99,9999 % p) Xác suất tuyến có BER ≥ 10-6 = P0.Pb = 45.10-3 × 5,1.106 = 2,295.10-7 63 q) Xác suất tuyến có BER ≥ 10-6 60 s = P0.Pb.P(60) = 2,295.10-7.0,33 = 7,57.10-7 r) Độ không sử dụng đường truyền cho phép (tuyến đường trục) Với L = 27,8 km < 600 km Ta có: Pucf = 0,06.L/600 % =0,06.27,8/600 % = 0,003% Bảng3.3 Tóm tắt kết Tần số làm việc f Ghz Khoảng cách trạm d 27,8 km Độ cao trạm so với mực nước biển  Trạm A: 11 + 15 = 26 m  Trạm B: 18 + 16 = 34 m Chiều cao tháp anten:  Trạm A: 11 m  Trạm B: 18 m Độ cao lớn vật chắn đường m truyền Đường kính anten D 2,4 m Suy hao lọc phân nhánh dB Công suất phát Pt +28 dBm Ngưỡng thu máy thu Pth -89 dBm Suy hao không gian tự Lfs 138,28 dB Suy hao ống dẫn sóng (feeder) Lf 9,45 dB Độ lợi anten G 42,5 dB Tổng suy hao tăng ích L 147,08 dB Mức đầu vào máy thu Pr - 42,15 dBm Độ dự trữ Fading thực tế FMtt 45.65 dBm Độ dự trữ Fading yêu cầu FMyc 15.366 dBm 64 3.15 Phần mô visual basic 2010 a) Lưu đồ thuật tốn chương trình + Lưu đồ thuật tốn thiết kế tuyến vi ba số mô tả Hình 3.6 Bắt đầu Nhập thơng số cho tuyến Tính tốn tham số tuyến kiểm tra xem tuyến có hoạt động hay khơng khơng Sai Đúng Tính tốn chấtlượng tuyến kiểm tra xem tuyến có hoạt động tốt khơng Sai Đúng Kết thúc Hình 3.12 Lưu đồ thuật toán thiết kế tuyến vi ba số b) Kết mô + Thiết kế giao diện 65 Hình 3.13 Giao diện mở đầu Hình 3.14 Thiết kế tính độ cao anten 66 Hình 3.15 Thiết kế theo tham số tuyến Hình 3.16 Thiết kế theo chất lượng tuyến 67 KẾT LUẬN Qua trình nghiên cứu tìm hiểu đề tài em nghiên cứu vấn đề sau :  Tổng quan hệ thống vi ba số bước thiết kế tuyến vi ba số  Các bước thiết kế tính tốn tuyến truyền dẫn vi ba số thực tế  Xây dựng chương trình mơ  Đánh giá chất lượng tuyến thông qua tiêu Qua đồ án “Thiết kế tuyến Vi ba số TP Hà Tĩnh - TX Hồng Lĩnh” em hiểu thêm bước thiết kế tuyến Vi ba, cách lựa chọn thiết bị vi ba cho phù hợp với tuyến truyền dẫn, chọn thiết bị có dung lượng truyền lớn gây lãng phí, khơng có tính kinh tế, bên cạnh thiết bị chọn phải phù hợp với băng tần vô tuyến kênh RF Bên cạnh cịn số vấn đề hạn chế :  Chưa sâu vào vấn đề hạn chế kiến thức  Còn nặng lý thuyết, chưa có điều kiện để triễn khai thực tế, để đánh giá phương pháp mình, chưa đánh giá tiêu chuẩn kỹ thuật đánh giá chất lượng tuyến thực tế Mặc dù cố gắng hẳn đề tài em cịn nhiều thiếu sót, mong góp ý nhiệt tình đến từ thầy bạn Vinh, tháng 01 năm 2014 Sinh viên thực 68 TÀI LIỆU THAM KHẢO [1] Nguyễn Phạm Anh Dũng, Vô Tuyến Chuyển Tiếp, Nhà xuất khoa học kỹ thuật Hà Nội, 1993 [2] Nhóm Cán Bộ Kỹ Thuật Logic, Hệ Thống Thông Tin Vô Tuyến, Nhà xuất Thanh Niên, 1996 [3] Bùi Thiện Minh, Vi ba - Tập 2, Nhà xuất bưu điện, - 2000 [4] Nguyễn Sơn Hải, Lập trình với Microsoft Visual basic 6.0, Nhà xuất Bộ Giáo Dục Đào Tạo, 06 - 2006 Trang Web [5] http://www.google.com/earth/ 69 PHỤ LỤC Phụ lục I Code phần mô - Giao diện mở đầu Public Class Form1 Private Sub ĐộCaoAntenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ĐộCaoAntenToolStripMenuItem.Click Form2.Show() Form3.Hide() Form4.Hide() End Sub Private Sub CôngSuấtToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CôngSuấtToolStripMenuItem.Click Form2.Hide() Form3.Show() Form4.Hide() End Sub Private Sub ChấtLượngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChấtLượngToolStripMenuItem.Click Form2.Hide() Form3.Hide() Form4.Show() End Sub Private Sub ThoátToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThoátToolStripMenuItem.Click End End Sub End Class 70 - Thiết kế tính độ cao anten Public Class Form2 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Form3.Show() Form3.TextBox1.Text = TextBox1.Text Form3.TextBox2.Text = TextBox2.Text Form3.TextBox3.Text = TextBox3.Text Form3.TextBox4.Text = TextBox4.Text Form3.TextBox5.Text = TextBox5.Text Form3.TextBox6.Text = TextBox6.Text Form3.TextBox7.Text = TextBox7.Text Form3.TextBox8.Text = TextBox8.Text Form3.TextBox9.Text = TextBox9.Text Form3.TextBox10.Text = TextBox10.Text Form3.TextBox13.Text = TextBox11.Text End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11 As Double Dim ha2, har2, h, F1, B As Double a1 = CDbl(TextBox1.Text) a2 = CDbl(TextBox2.Text) a3 = CDbl(TextBox3.Text) a4 = CDbl(TextBox4.Text) a5 = CDbl(TextBox5.Text) a6 = CDbl(TextBox6.Text) a7 = CDbl(TextBox7.Text) a8 = CDbl(TextBox8.Text) a9 = CDbl(TextBox9.Text) a10 = CDbl(TextBox10.Text) a11 = CDbl(TextBox11.Text) h = (4 / 51) * a5 * (a1 - a5) / a9 F1 = 17.32 * (a5 * (a1 - a5) / (a1 * a11)) ^ (1 / 2) B = h + a4 + (a10 * F1) ha2 = a2 + a6 + (B - (a2 + a6)) * (a1 / a5) - a3 har2 = ha2 + a8 TextBox12.Text = CStr(har2) End Sub End Class 71 - Thiết kế theo tham số tuyến Public Class Form3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13 As Double Dim a14, a15, a16, a17, a18, a19 As Double Dim ha2, har1, har2, h, F1, B, Ls, Lp1, Lp2, Lsp, G, Lt, Pr As Double a1 = CDbl(TextBox1.Text) a2 = CDbl(TextBox2.Text) a3 = CDbl(TextBox3.Text) a4 = CDbl(TextBox4.Text) a5 = CDbl(TextBox5.Text) a6 = CDbl(TextBox6.Text) a7 = CDbl(TextBox7.Text) a8 = CDbl(TextBox8.Text) a9 = CDbl(TextBox9.Text) a10 = CDbl(TextBox10.Text) a11 = CDbl(TextBox11.Text) a12 = CDbl(TextBox12.Text) a13 = CDbl(TextBox13.Text) a14 = CDbl(TextBox14.Text) a15 = CDbl(TextBox15.Text) a16 = CDbl(TextBox16.Text) a17 = CDbl(TextBox17.Text) a18 = CDbl(TextBox18.Text) a19 = CDbl(TextBox19.Text) h = (4 / 51) * a5 * (a1 - a5) / a9 F1 = 17.32 * (a5 * (a1 - a5) / (a1 * a13)) ^ (1 / 2) B = h + a4 + (a10 * F1) ha2 = a2 + a6 + (B - (a2 + a6)) * (a1 / a5) - a3 har1 = a6 + a7 har2 = ha2 + a8 Ls = 141.132 Lp1 = 1.5 * har1 * a19 + 0.3 Lp2 = 1.5 * har2 * a19 + 0.3 Lsp = Lt = Ls + Lp1 + Lp2 + + G = a12 + a16 Pr = a11 + G - Lt TextBox20.Text = CStr(Pr) If (Pr >= a14) Then TextBox21.Text = "Tuyến có hoạt động" Else 72 TextBox21.Text = "Tuyến không hoạt động" End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Form4.Show() Form4.TextBox1.Text = TextBox20.Text Form4.TextBox5.Text = TextBox15.Text Form4.TextBox4.Text = TextBox14.Text Form4.TextBox2.Text = TextBox1.Text Form4.TextBox3.Text = TextBox13.Text End Sub End Class - Thiết kế theo chất lượng tuyến Public Class Form4 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10 As Double Dim a11, a12, a13, a14, a15, a16, a17, a18, a19 As Double a1 = CDbl(TextBox1.Text) a2 = CDbl(TextBox2.Text) a3 = CDbl(TextBox3.Text) a4 = CDbl(TextBox4.Text) a5 = CDbl(TextBox5.Text) a6 = a1 - a4 TextBox6.Text = CStr(a6) a7 = a1 - a5 TextBox7.Text = CStr(a7) a8 = 1.4 * 10 ^ -8 * a3 * a2 ^ 3.5 TextBox8.Text = CStr(a8) a9 = 10 ^ (-a6 / 10) TextBox9.Text = CStr(a9) a10 = 10 ^ (-a7 / 10) TextBox10.Text = CStr(a10) a11 = 10.3 * a2 * 10 ^ ((-0.5 * a6) / 10) * a3 ^ (-0.5) TextBox11.Text = CStr(a11) a12 = 10.3 * a2 * 10 ^ ((-0.5 * a7) / 10) * a3 ^ (-0.5) TextBox12.Text = CStr(a12) a13 = 0.5 * 0.0072096 TextBox13.Text = CStr(a13) a14 = 0.5 * 0.019624 73 TextBox14.Text = CStr(a14) a15 = a9 * a8 TextBox15.Text = CStr(a15) a16 = a10 * a8 TextBox16.Text = CStr(a16) a17 = a8 * a10 * a14 TextBox17.Text = CStr(a17) a18 = a8 * a9 * a13 TextBox18.Text = CStr(a18) a19 = 100 * (1 - a18) TextBox19.Text = CStr(a19) If (a18 / 10 > 0.006) Then TextBox20.Text = "Tuyến không hoạt động" Else If (a17