Điều khiển công suất trong hệ thống thông tin di động thế hệ ba umts

Tr-ờng đại học vinh khoa điện tử viễn thông === === đồ án tốt nghiệp đại học Đề tài: ®iỊu khiĨn c«ng st hƯ thèng th«ng tin di ®éng thÕ hƯ ba umts Sinh viªn thùc hiƯn : lê xuân liêm Lớp : 48K - ĐTVT Giảng viên h-ớng dẫn : ThS Đặng thái sơn nghệ an - 01/2012 ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS MỤC LỤC Trang LỜI NÓI ĐẦU TÓM TẮT ĐỒ ÁN DANH MỤC CÁC HÌNH VẼ CÁC TỪ VIẾT TẮT CHƯƠNG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ UMTS 13 1.1 Giới thiệu chương 13 1.2 Hệ thống thông tin di động hệ IMT-2000 13 1.3 Phân bố tần số cho IMT-2000 14 1.4 Mơ hình tổng qt cho mạng IMT-2000 15 1.5 Công nghệ WCDMA 18 1.6 Hệ thống UMTS 20 1.6.1 Tổng quan 20 1.6.2 Dịch vụ hệ thống UMTS 21 1.6.3 Cấu trúc hệ thống UMTS 23 1.6.4 Mạng lõi CN (Core Network) 25 1.6.5 Truy nhập vô tuyến mặt đất UTRAN (UMTS Terrestrial Radio Acess Network) 27 1.6.6 Thiết bị người sử dụng UE (User Equipment) 28 1.7 Chuyển giao 29 1.7.1 Tổng quan chuyển giao mạng di động 29 1.7.2 Các loại chuyển giao hệ thống 3G WCDMA 29 1.8 Kết luận chương 32 CHƯƠNG CÁC KỸ THUẬT ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ UMTS 33 2.1 Giới thiệu chương 33 2.2 Ý nghĩa điều khiển công suất 33 2.3 Phân loại điều khiển công suất 34 2.3.1 Điều khiển công suất cho đường xuống đường lên 35 2.3.2 Điều khiển công suất phân tán tập trung 35 SVTH: Lê Xuân Liêm 48KĐTVT NHD: THS Đặng Thái Sơn ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS 2.3.3 Phân loại điều khiển công suất theo phương pháp đo 36 2.3.4 Điều khiển công suất vịng kín, điều khiển cơng suất vịng hở 37 2.4 Điều khiển cơng suất vịng hở UMTS 40 2.4.1 Kỹ thuật điều khiển cơng suất vịng hở đường lên 40 2.4.2 Kỹ thuật điều khiển cơng suất vịng hở đường xuống 41 2.5 Điều khiển công suất kênh chung đường xuống 42 2.6 Các thủ tục điều khiển cơng suất vịng 44 2.6.1 Điều khiển công suất vòng đường lên 44 2.6.2 Điều khiển cơng suất vịng đường xuống 47 2.7 Điều khiển cơng suất vịng ngồi 50 2.7.1 Điều khiển công suất vịng ngồi đường lên 51 2.7.2 Điều khiển cơng suất vịng ngồi đường xuống 52 2.8 Kết luận chương 52 CHƯƠNG ĐIỀU KHIỂN CÔNG SUẤT THEO BƯỚC ĐỘNG DSSPC VÀ ĐIỀU KHIỂN CÔNG SUẤT PHÂN TÁN DPC 54 3.1 Giới thiệu chương 54 3.2 Tổng quan 54 3.3 Một số lý thuyết sử dụng thuật toán 56 3.3.1 Nhiễu đồng kênh 56 3.3.2 Nhiễu kênh lân cận 57 3.3.3 Hiện tượng gần xa 58 3.3.4 Tải lưu lượng 59 3.3.6 Hiệu sử dụng kênh 62 3.4 Phương pháp điều khiển công suất theo bước (DSSPC) (Dynamic Stepsize Power Control) 62 3.4.1 Khái niệm lợi ích độ dự trữ, cửa sổ công suất 62 3.4.2 Sự hoạt động mạng 63 3.4.3 Sự hoạt động trạm di động 65 3.4.4 Các cơng thức tính tốn 69 3.5 Phương pháp điều khiển công suất phân tán (DPC - Distributed Power Control) 71 SVTH: Lê Xuân Liêm 48KĐTVT NHD: THS Đặng Thái Sơn ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS 3.5.1 Tổng quan 71 3.5.2 Mơ hình hệ thống 72 3.5.3 Thuật tốn điều khiển cơng suất phân tán DPC 73 3.6 Kết luận chương 74 CHƯƠNG KẾT QUẢ TÍNH TỐN VÀ MƠ PHỎNG 75 4.1 Giới thiệu chương 76 4.2 Quỹ đường truyền vô tuyến tham khảo cho hệ thống UMTS 76 4.3 Phương pháp tính tốn cụ thể 78 4.4 Kết mô 80 4.5 Kết luận chương 83 KẾT LUẬN 84 TÀI LIỆU THAM KHẢO 85 Phụ lụ c 1………………………………………………………………………….87 Phụ lụ c 2………………………………………………………………………….90 SVTH: Lê Xuân Liêm 48KĐTVT NHD: THS Đặng Thái Sơn ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS LỜI NÓI ĐẦU Khả liên lạc thông tin với người di động tiến triển mạnh mẽ kể từ Guglielm Marrconi lần chứng minh khả sóng radio liên lạc liên tục với tàu chạy eo biển Anh, vào năm 1897 Kể từ phương pháp truyền thơng khơng dây dịch vụ người đón nhận tồn giới Đặc biệt năm qua ngành truyền thông vô tuyến di động tăng trưởng cách đáng kể cho phép chế tạo thiết bị cầm tay nhỏ hơn, rẻ hơn, độ tin cậy cao Trong kỷ 21, giới chứng kiến bùng nổ thông tin vô tuyến thơng tin di động đóng vai trị quan trọng Để đáp ứng nhu cầu ngày tăng số lượng lẫn chất lượng dịch vụ đặc biệt dịch vụ truyền số liệu đa phương tiện công nghệ băng rộng đời Với khả tích hợp nhiều dịch vụ, cơng nghệ băng rộng dần chiếm lĩnh thị trường viễn thơng Có nhiều chuẩn thông tin di động hệ ba đề xuất, chuẩn WCDMA ITU chấp nhận triển khai số khu vực Hệ thống UMTS phát triển hệ thống thông tin di động hệ hai sử dụng công nghệ TDMA GSM, PDC, IS-136… UMTS sử dụng công nghệ CDMA mục tiêu hướng tới hệ thống thông tin di động toàn giới, điều cho phép thực tiêu chuẩn hóa giao diện vơ tuyến cơng nghệ truyền thơng khơng dây tồn cầu Điều khiển cơng suất hệ thống thông tin di động khâu quan trọng hệ thống, hạn chế ảnh hưởng hiệu ứng gần xa đến chất lượng dịch vụ thoại, dung lượng hệ thống khả chống lại fading vốn đặc trưng môi trường di động Điều khiển công suất cho hệ thống vô tuyến tế bào nghiên cứu tương đối chi tiết số cơng trình Đối với hệ thống băng hẹp, sơ đồ điều khiển công suất gợi mở cho nhiều nghiên cứu cho hệ thống băng rộng Xuất phát từ suy nghĩ nên em định chọn đề tài: ”Điều khiển công suất hệ thống thông tin di động hệ ba UMTS” Đồ án SVTH: Lê Xuân Liêm 48KĐTVT NHD: THS Đặng Thái Sơn ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS thực nghiên cứu, phân tích kỹ thuật điều khiển cơng suất DSSPC nhằm tối ưu hoạt động mạng đồng thời cải thiện chất lượng hệ thống Đồ án gồm chương sau : Chương 1: Hệ thống thông tin di động hệ ba UMTS Chương 2: Các kỹ thuật điều khiển công suất hệ thống thông tin di động hệ ba UMTS Chương 3: Điều khiển công suất theo bước động DSSPC điều khiển công suất phân tán DPC hệ thống thông tin di động hệ ba UMTS Trong thời gian làm đề tài, em cố gắng nhiều song kiến thức hạn chế, thời gian nghiên cứu đề tài có hạn nguồn tài liệu chủ yếu báo tiếng Anh mạng nên đồ án cịn nhiều sai sót q trình dịch thuật Em mong nhận phê bình, ý kiến đóng góp chân thành thầy bạn để đồ án hoàn thiện Em xin chân thành cảm ơn giúp đỡ tận tình thầy Đặng Thái Sơn thầy cô bạn bè khoa để em hoàn thành đề tài tốt nghiệp Vinh, Ngày tháng .năm 2011 Sinh viên thực LÊ XUÂN LIÊM SVTH: Lê Xuân Liêm 48KĐTVT NHD: THS Đặng Thái Sơn ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS TĨM TẮT ĐỒ ÁN Đồ án tìm hiểu “Điều khiển công suất hệ thống thông tin di động hệ ba UMTS” gồm chương với nội dung chương sau : Chương 1: “Hệ thống thông tin di động hệ ba UMTS” giới thiệu tổng quan vấn đề công nghệ WCDMA, cấu trúc mạng truy nhập vô tuyến UMTS, sơ lược dịch vụ ứng dụng hệ thống hệ thống thông tin di động hệ thứ ba Chương 2: “Các kỹ thuật điều khiển công suất hệ thống thông tin di động hệ ba UMTS” trình bày ý nghĩa phân loại kỹ thuật điều khiển công suất Từ sâu vào phân tích kỹ thuật điều khiển công suất hệ thống thông tin di động hệ ba UMTS Chương 3: “Điều khiển công suất theo bước động DSSPC điều khiển công suất phân tán DPC hệ thống thông tin di động hệ ba UMTS” nhằm nghiên cứu hai mơ hình điều khiển công suất để tối ưu hoạt động mạng SVTH: Lê Xuân Liêm 48KĐTVT NHD: THS Đặng Thái Sơn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS DANH MỤC CÁC HÌNH VẼ Hình 1.1 Hình 1.2 Hình 1.3 Hình 1.4 Hình 1.5 Trang Phân bố tần số cho IMT-2000 số nước 15 Mơ hình tổng qt cho mạng IMT-2000 [3] 16 Các đề xuất mạng truy cập vô tuyến 18 Các phổ tần dùng cho hệ thống UMTS 21 Cấu trúc hệ thống UMTS .24 Hình 1.6 Cấu trúc UTRAN 27 Hình 1.7 Các loại chuyển giao hệ thống 3G 30 Hình 1.8 Hình 1.9 Chuyển giao mềm mềm 31 Các loại chuyển giao khác mạng WCDMA .32 Hình 2.1 Hình 2.2 Hình 2.3 Hình 2.4a Hình 2.4b Cơng suất thu từ th bao trạm gốc 34 Phân loại kỹ thuật điều khiển công suất công suất 36 Ngun lý điều khiển cơng suất vịng kín 38 Điều khiển cơng suất vịng kín bù trừ fading nhanh 39 Điều khiển cơng suất vịng ngồi 40 Hình 2.5 Hình 2.6 Hình 2.7 Hình 2.8 Hình 2.9 Hình 2.10 Hình 2.11 Hình 3.1 Công suất phát kênh S-CCPCH, PO3 PO1 ký hiệu cho dịch 43 Các thủ tục điều khiển cơng suất vịng vịng ngồi 44 UL PC vòng chuyển giao mềm .46 Dịch công suất (PO) để cải thiện chất lượng báo hiệu đường xuống 47 Dải động điều khiển công suất đường xuống .48 DL PC vòng DHO (SHO) .49 Kiến trúc logic chức UL PC vịng ngồi .51 Nhiễu đường lên 56 Hình 3.2 Nhiễu đường xuống 56 Hình 3.3 Hình 3.4 Các loại nhiễu hệ thống .58 Vấn đề gần-xa (điều khiển cơng suất đường lên) 59 Hình 3.5 Hình 3.6 Hình 3.7 Hình 3.9 Hình 3.10 Bù nhiễu kênh lân cận (điều khiển công suất đường xuống) 59 Qúa trình thiết lập gọi 61 Dự trữ SIR chất lượng dịch vụ khác 63 Mơ hình chung DSSPC điều khiển công suất đường lên 68 Lưu đồ thuật tốn điều khiển cơng suất phân tán DPC 74 SVTH: Lê Xuân Liêm 48KĐTVT NHD: THS Đặng Thái Sơn Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS CÁC TỪ VIẾT TẮT 3G Hệ thống thông tin di động Third Generation Cellular hệ thứ ba Third Generation Patnership Project Dự án hợp tác hệ AC Admission Cotrol Điều khiển cho phép AI Acquistion Indicator Chỉ thị bắt AICH Acquistion Indication Channel Kênh thị bắt A-P Access Preamble Tiền tố ATM Asynchoronous Transfer Mode Kiểu truyền di AS Access Slot Khe truy nhập BER Bit Error Rate Tỷ số bit lỗi BCH Broadcast Channel Kênh quảng bá BMC Broadcast/Multicast Control Điều khiển quảng bá / đa GPP A B phương BS Base Station Trạm gốc BSC Base Station Controller Bộ điều khiển trạm gốc BTS Base Transceiver Station Trạm thu phát gốc CC Connecting Management Quản lý kết nối CDMA Code Division Multiple Access Đa truy cập phân chia theo C mã CD-P Collision Detection Preamble Tiền tố phát tranh chấp CN Core Network Mạng lõi CPCH Common Packet Channel Kênh gói chung đường lên CPICH Common Pilot Channel Kênh hoa tiêu chung DC Delicated Control Điều khiển riêng DCH Delicated Channel Kênh riêng DL Down Link Hướng xuống D SVTH: Lê Xuân Liêm 48KĐTVT NHD: THS Đặng Thái Sơn Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS DS-CDMA Direct Sequence Code Division Đa truy nhập phân chia Multiple Access theo mã dãy trực tiếp DSCH Downlink Shared Channel Kênh đường xuống dùng chung DSSPC dynamic step-size power control Điều khiển công suất theo bước động DPCCH Delicated Physical Control Channel Kênh điều khiển vật lý DPDCH Delicated Physical Data Channel Kênh số liệu vật lý riêng European Telecommunications Học viện viễn thông E ETSI Standard Institute Châu Âu F FACH Kênh truy nhập đường Forward Access Channel xuống FBI Feedback Information Thông tin hồi tiếp FER Frame Error Rate Tỷ số khung lỗi FDD Fequency Division Duplex Ghép song công phân chia theo tần số Frequency Division Đa truy cập phân chia theo Multiple Access tần số GC General Control Điều khiển chung GGSN Gateway GPRS Support Node Node dịch vụ GPRS GPRS General Packet Radio Service Dịch vụ chuyển mạch gói FDMA G vô tuyến GoS Grade of Service Cấp độ phục vụ GSM Global System of Mobile Hệ thống thông tin di động Communication toàn cầu HC Handover Control Điều khiển chuyển giao HDLA History Data Logic Analyzer Bộ phân tích liệu gốc H SVTH: Lê Xuân Liêm 48KĐTVT NHD: THS Đặng Thái Sơn Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS Txt5.Text = Txt6.Text = -141.9 Txt7.Text = -7.3 Txt8.Text = -2 Txt9.Text = 0.67 Txt10.Text = 0.65 Txt11.Text = ElseIf cmbRt.Text = 144 Then Txt1.Text = Txt2.Text = -3 Txt3.Text = 26 Txt4.Text = 18 Txt5.Text = Txt6.Text = -133.8 Txt7.Text = -4.2 Txt8.Text = -2 Txt9.Text = Txt10.Text = 0.65 Txt11.Text = Else Txt1.Text = Txt2.Text = -3 Txt3.Text = 18 Txt4.Text = 18 Txt5.Text = Txt6.Text = -139.9 Txt7.Text = -7.3 Txt8.Text = -2 Txt9.Text = Txt10.Text = 0.65 SVTH: Lê Xuân Liêm 48KĐTVT NHD: THS Đặng Thái Sơn Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS Txt11.Text = End If End Sub ************************************************** Private Sub cmdL1KetQua_Click() Grid1.Row = Grid1.Col = Grid1.Text = " SIR(I)" Grid1.Row = Grid1.Col = Grid1.Text = " Kết quả" Call Startva For i = To (Val(TxtN.Text)) Grid1.Rows = i + Grid1.Row = i Grid1.Col = Grid1.Text = "SIR[" & Trim(Str(i - 1)) & "]" & "=" Grid1.Col = Grid1.Text = Round(SIRreal(i), 4) Next i End Sub Private Sub cmdL1Xoa_Click() For i = To (Val(TxtN.Text)) Grid1.Rows = i + Grid1.Row = i Grid1.Col = Grid1.Text = " " Grid1.Col = Grid1.Text = " " SVTH: Lê Xuân Liêm 48KĐTVT NHD: THS Đặng Thái Sơn Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS Next i End Sub ************************************************ Private Sub cmdL2KetQua_Click() Grid2.Row = Grid2.Col = Grid2.Text = " Po(i)" Grid2.Row = Grid2.Col = Grid2.Text = " DSSPC" Grid2.Row = Grid2.Col = Grid2.Text = " DPC" For i = To (Val(TxtN.Text)) Grid2.Rows = i + Grid2.Row = i Grid2.Col = Grid2.Text = " Po[" & Trim(Str(i - 1)) & "]" & "=" Grid2.Col = Grid2.Text = Po(i) Grid2.Col = Grid2.Text = Po(i) Next i End Sub Private Sub cmdL2Xoa_Click() For i = To (Val(TxtN.Text)) Grid2.Rows = i + Grid2.Row = i Grid2.Col = SVTH: Lê Xuân Liêm 48KĐTVT NHD: THS Đặng Thái Sơn Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS Grid2.Text = " " Grid2.Col = Grid2.Text = " " Grid2.Col = Grid2.Text = " " Next i End Sub *********************************************** Private Sub cmdL3KetQua_Click() Grid3.Row = Grid3.Col = Grid3.Text = " Pdk(i) " Grid3.Row = Grid3.Col = Grid3.Text = " DSSPC " Grid3.Row = Grid3.Col = Grid3.Text = " DPC " For i = To (Val(TxtN.Text)) Grid3.Rows = i + Grid3.Row = i Grid3.Col = Grid3.Text = "PDK[" & Trim(Str(i - 1)) & "]" & "= " Grid3.Col = Grid3.Text = Pdk(i) Grid3.Col = Grid3.Text = Round(Pn1(i), 3) Next i End Sub *********************************************** SVTH: Lê Xuân Liêm 48KĐTVT NHD: THS Đặng Thái Sơn Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS Private Sub putPixel1(x, y, mau As Byte) graph.Circle (391, 279), 1.6, RGB(255, 0, 0) graph.Circle (396, 284), 1.6, RGB(255, 0, 0) End Sub Private Sub putPixel(x, y, mau As Byte) Dim CX As Double Dim CY As Double Dim delx As Double Dim dely As Double Dim x1 As Double Dim y1 As Double Dim j As Double CX = CY = delx = dely = x1 = y1 = If (x < 6) Or (y < 22) Then Exit Sub For i = To (x \ 1) - 'vi truc x bat dau tu x1 = x1 + 31.825 Next i CX = x1 + (x - x \ 1) * 31.825 For i = To (y \ 1) - 22 'vi truc y bat dau tu 22 y1 = y1 + 21.407 Next i CY = y1 + (y - y \ 1) * 21.407 SVTH: Lê Xuân Liêm 48KĐTVT NHD: THS Đặng Thái Sơn Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS CY = graph.ScaleHeight * (1#) - CY If mau = Then graph.Circle (CX, CY), 1.6, RGB(255, 0, 0) ElseIf mau = Then graph.Circle (CX, CY), 1.6, RGB(0, 0, 255) Else graph.Circle (CX, CY), 1.6, RGB(0, 255, 0) End If End Sub Private Sub cmdL4BieuDo_Click() picBieuDo.Visible = False graph.Visible = True Dim y As Double For y = To Val(TxtN.Text) Call putPixel(SIRreal(y), Po(y), 1) Call putPixel(SIRreal(y), Pdk(y), 2) Call putPixel(SIRreal(y), Pn1(y), 3) Next y End Sub Private Sub Command10_Click() MGrid1.Row = MGrid1.Col = MGrid1.Text = " SIR_real" MGrid1.Row = MGrid1.Col = MGrid1.Text = " Po" MGrid1.Row = SVTH: Lê Xuân Liêm 48KĐTVT 10 NHD: THS Đặng Thái Sơn Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS MGrid1.Col = MGrid1.Text = " DSSPC" MGrid1.Row = MGrid1.Col = MGrid1.Text = " DPC" For i = To (Val(TxtN.Text)) MGrid1.Rows = i + MGrid1.Row = i MGrid1.Col = MGrid1.Text = Round(SIRreal(i), 4) MGrid1.Col = MGrid1.Text = Po(i) MGrid1.Col = MGrid1.Text = Pdk(i) MGrid1.Col = MGrid1.Text = Round(Pn1(i), 3) Next i End Sub Private Sub command6_Click() For i = To (Val(TxtN.Text)) Grid3.Rows = i + Grid3.Row = i Grid3.Col = Grid3.Text = " " Grid3.Col = Grid3.Text = " " Grid3.Col = Grid3.Text = " " Next i SVTH: Lê Xuân Liêm 48KĐTVT 11 NHD: THS Đặng Thái Sơn Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS End Sub Private Sub cmdL4Thoat_Click() End End Sub Private Sub Command7_Click() For i = To (Val(TxtN.Text)) MGrid1.Rows = i + MGrid1.Row = i MGrid1.Col = MGrid1.Text = " " MGrid1.Col = MGrid1.Text = " " MGrid1.Col = MGrid1.Text = " " MGrid1.Col = MGrid1.Text = " " Next i End Sub Private Sub Command9_Click() End End Sub Private Sub Form_Load() TxtN.Text = " " ReDim t(Val(TxtN.Text)) ReDim a(Val(TxtN.Text)) ReDim Rt(Val(TxtN.Text)) SVTH: Lê Xuân Liêm 48KĐTVT 12 NHD: THS Đặng Thái Sơn Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS ReDim Pme(Val(TxtN.Text)) ReDim Pma(Val(TxtN.Text)) ReDim SF(Val(TxtN.Text)) ReDim Pcu(Val(TxtN.Text)) ReDim Iutr(Val(TxtN.Text)) ReDim Ictr(Val(TxtN.Text)) ReDim Itr(Val(TxtN.Text)) ReDim Io(Val(TxtN.Text)) ReDim SIRreal(Val(TxtN.Text)) ReDim ERL(100) ReDim gamaI(Val(TxtN.Text)) ReDim Pdk(Val(TxtN.Text)) ReDim Po(Val(TxtN.Text)) ReDim Pn(Val(TxtN.Text)) ReDim Pn1(Val(TxtN.Text)) For i = To Val(TxtN.Text) t(i) = CInt(Rnd1(90, 210)) Rt(i) = Rnd1(9.6, 374 + 9.6) Pme(i) = Rnd1(18, 30) Next i Tinh End Sub Private Sub Startva() ReDim t(Val(TxtN.Text)) ReDim a(Val(TxtN.Text)) ReDim Rt(Val(TxtN.Text)) SVTH: Lê Xuân Liêm 48KĐTVT 13 NHD: THS Đặng Thái Sơn Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS ReDim Pme(Val(TxtN.Text)) ReDim Pma(Val(TxtN.Text)) ReDim SF(Val(TxtN.Text)) ReDim Pcu(Val(TxtN.Text)) ReDim Iutr(Val(TxtN.Text)) ReDim Ictr(Val(TxtN.Text)) ReDim Itr(Val(TxtN.Text)) ReDim Io(Val(TxtN.Text)) ReDim SIRreal(Val(TxtN.Text)) ReDim ERL(100) ReDim gamaI(Val(TxtN.Text)) ReDim Pdk(Val(TxtN.Text)) ReDim Po(Val(TxtN.Text)) ReDim Pn(Val(TxtN.Text)) ReDim Pn1(Val(TxtN.Text)) For i = To Val(TxtN.Text) t(i) = CInt(Rnd1(90, 210)) Rt(i) = Rnd1(9.6, 374 + 9.6) Pme(i) = Rnd1(18, 30) Next i Tinh End Sub Private Function getSub1(x As String) As String Dim Index Index = InStr(x, ".") getSub1 = Left(x, Index + 1) End Function Private Sub command1_Click() SVTH: Lê Xuân Liêm 48KĐTVT 14 NHD: THS Đặng Thái Sơn Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS graph.Visible = False picBieuDo.Visible = True picBieuDo.Cls ' Ve bieu do: SIRreal(), Po() Dim MaxHDrawArea As Double, MaxWDrawArea As Double ' rong vung de ve Dim goc As PointType Dim XUnit As Double, YUnit As Double ' don vi = bao nhieu twip Dim countPoint As Double Dim temp, temp0, temp1, temp2 As Double, i As Long MaxHDrawArea = picBieuDo.Height - 480 MaxWDrawArea = picBieuDo.Width - 480 goc.x = 360 goc.y = picBieuDo.Height - 360 ' Ve cac phuong toa picBieuDo.DrawWidth = picBieuDo.Line (goc.x, goc.y)-(goc.x, 120), QBColor(13) 'trucPo picBieuDo.Line (goc.x, goc.y)-(MaxWDrawArea, goc.y), QBColor(13) 'trucsir 've mui ten sir picBieuDo.Line (MaxWDrawArea - 150, goc.y - 40)-(MaxWDrawArea, goc.y), QBColor(12) picBieuDo.Line (MaxWDrawArea - 150, goc.y + 30)-(MaxWDrawArea, goc.y), QBColor(12) 've mui ten Po picBieuDo.Line (goc.x - 30, 270)-(goc.x, 120), QBColor(12) picBieuDo.Line (goc.x + 25, 270)-(goc.x, 120), QBColor(12) SVTH: Lê Xuân Liêm 48KĐTVT 15 NHD: THS Đặng Thái Sơn Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS picBieuDo.CurrentX = 60 picBieuDo.CurrentY = picBieuDo.Print "CONG SUAT" picBieuDo.CurrentX = 1600 picBieuDo.CurrentY = 80 picBieuDo.Print "Po" picBieuDo.CurrentX = 3000 picBieuDo.CurrentY = 80 picBieuDo.Print " PDC" picBieuDo.CurrentX = 4400 picBieuDo.CurrentY = 80 picBieuDo.Print "DSSPC" picBieuDo.CurrentX = 6200 picBieuDo.CurrentY = 5200 picBieuDo.Print "SIR" '******************************************** picBieuDo.DrawWidth = picBieuDo.Line (goc.x + 1200, goc.y - 4850)-(goc.x + 1500, goc.y - 4850), QBColor(9) 'trucPo picBieuDo.Line (goc.x + 2700, goc.y - 4850)-(goc.x + 3000, goc.y - 4850), QBColor(5) 'trucPo picBieuDo.Line (goc.x + 4100, goc.y - 4850)-(goc.x + 4500, goc.y - 4850), QBColor(12) 'trucPo '********************************************ke duong ngang picBieuDo.CurrentX = 60 picBieuDo.CurrentY = 3800 SVTH: Lê Xuân Liêm 48KĐTVT 16 NHD: THS Đặng Thái Sơn Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS picBieuDo.Print "10 -" picBieuDo.CurrentX = 60 picBieuDo.CurrentY = 4400 picBieuDo.Print "5 " picBieuDo.CurrentX = 60 picBieuDo.CurrentY = 3200 picBieuDo.Print "15 -" picBieuDo.CurrentX = 60 picBieuDo.CurrentY = 2600 picBieuDo.Print "20 -" picBieuDo.CurrentX = 60 picBieuDo.CurrentY = 2000 picBieuDo.Print "25 -" picBieuDo.CurrentX = 60 picBieuDo.CurrentY = 1400 picBieuDo.Print "30 -" picBieuDo.CurrentX = 60 picBieuDo.CurrentY = 800 picBieuDo.Print "35 " '******************************************************* countPoint = Val(TxtN.Text) ' Xac dinh XUnit, YUnit SVTH: Lê Xuân Liêm 48KĐTVT 17 NHD: THS Đặng Thái Sơn Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THẾ HỆ BA UMTS temp = For i = To countPoint If temp < SIRreal(i) Then temp = SIRreal(i) Next i XUnit = Round(MaxWDrawArea / (Round(temp) + 4)) 've pdk temp0 = For i = To countPoint If temp0 < Pdk(i) Then temp0 = Pdk(i) Next i YUnit = Round(MaxHDrawArea / (Round(temp0) + 8)) 've pn1 temp1 = For i = To countPoint If temp1 < Pn1(i) Then temp1 = Pn1(i) Next i YUnit = Round(MaxHDrawArea / (Round(temp1) + 8)) 've pn1 temp2 = For i = To countPoint If temp2 < Po(i) Then temp2 = Pn1(i) Next i YUnit = Round(MaxHDrawArea / (Round(temp2) + 8)) ' Ve bieu picBieuDo.DrawWidth = For i = To countPoint picBieuDo.Line (goc.x + Round(SIRreal(i - 1) * XUnit), goc.y Round(Pdk(i - 1) * YUnit))-(goc.x + Round(SIRreal(i) * XUnit), goc.y Round(Pdk(i - 1) * YUnit)), QBColor(12) SVTH: Lê Xuân Liêm 48KĐTVT 18 NHD: THS Đặng Thái Sơn Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn