Đề tài: " Hỗ trợ chuẩn đoán loại hỏng hóc máy điện thoại " docx

TRƯỜNG……………………… KHOA…………………… ĐỒ ÁN TỐT NGHIỆP: Đề tài: " Hỗ trợ chuẩn đốn loại hỏng hóc máy điện thoại " Giáo viên hướng dẫn-Ts Trần Đình Khang MỤC LỤC LỜI MỞ ĐẦU GIỚI THIỆU BÀI TOÁN CHƯƠNG1: GIỚI THIỆU HỆ THỐNG BÁO VÀ XỬ LÝ MÁY HỎNG TẠI ĐÀI 119 BƯU ĐIỆN TP NHA TRANG HIỆN TẠI, ĐỀ XUẤT HỆ THỐNG MỚI 1.1 Sơ lược mạng viễn thông thành phố Nha Trang 1.2 Tổ chức hoạt động dịch vụ nhận xử lý máy điện thoại hỏng tại: 1.2.1 Hoạt động dịch vụ 119 1.2.2 Ưu nhược điểm hệ thống .8 1.3 Xây dựng hoạt động dịch vụ 119 tự động 1.3.1 Nhu cầu có hệ thống 1.3.2 Giới thiệu hệ thống dịch vụ 119 13.3 Hoạt động dịch vụ 119 tự động 10 1.3.4Vai trò chuyên gia hệ thống 12 Chương 2:THU NHẬN VÀ BIỄU DIỄN TRI THỨC 2.1 Thu nạp tri thức 13 2.2 Biễu diễn tri thức 13 2.2.1 Các dạng tri thức 13 2.2.2 Các phương pháp biễu diễn tri thức 14 Chương 3:LÝ THUYẾT TẬP MỜ VÀ HỆ HỔ TRỢ QUYẾT ĐỊNH 3.1 Tập mờ 3.1.1 Khái niệm tập mờ 16 3.1.2 Các phép toán tập mờ .17 3.1.3 Các tính chất tập mờ .19 3.2 Quan hệ mờ: 3.2.1 Khái niệm quan hệ mờ .19 3.2.2 Các phép toán quan hệ mờ .20 3.2.3 Phép hợp thành quan hệ mờ .20 3.2.4 Khoảng cách hai tập mờ 21 3.3 Tổng qt hóa phép tốn tập mờ 22 3.4 Phương pháp khử mờ 23 3.5 Các hệ trợ giúp định: 3.5.1 Giới thiệu 24 3.5.2 DSS .24 3.5.3 Các đặc tính khả DSS .25 3.5.4 Những lợi ích DSS 26 3.5.5 Các thành phần DSS 27 3.5.6Hệ chuyên gia trợ giúp chẩn đoán loại hỏng máy điện thoại .28 Chương 4: SUY DIỄN MỜ 4.1 Suy diễn mờ: 4.1.1 Mở đầu 30 4.1.2 Suy diễn mờ 30 4.1.3 Suy diễn mờ mở rộng:(Đa biến) 33 4.1.3 Suy diễn mờ tổng quát:(Đa điều kiện) 33 Sinh viên Đỗ Minh Sâm- Lớp Tin 99 -1- Giáo viên hướng dẫn-Ts Trần Đình Khang Chương 5: XÂY DỰNG HỆ HỔ TRỢ QUYẾT ĐỊNH TRẠNG THÁI HỎNG MÁY ĐIỆN THOẠI 5.1 Thực kết nối đo thông số kỹ thuật đường dây th bao 5.1.1 Mơ hình kết nối máy tính tổng đài trung tâm .35 5.1.2 Kỹ thuật kết nối 36 5.1.3 Thực phép đo tự động 36 5.1.4 Phân tích kết quả, cập nhật kho liệu 37 5.2 Xây dựng hệ hổ trợ định 5.2.1 Các tham số suy diễn 37 5.2.2 Định nghĩa mờ hoá biến logic vào .38 5.2.3 Định nghĩa luật mờ 40 5.2.4 Lựa chọn hệ sở liệu ngơn ngữ lập trình 40 Chương 6:PHÂN TÍCH THIẾT KẾ CHƯƠNG TRÌNH 6.1 Đặc tả toán 6.1.1 Giới thiệu chung 42 6.1.2 Đặc tả công việc 43 6.2 Phân tích sơ đồ 6.2.1 Sơ đồ tổ chức 46 6.2.2 Sơ đồ môi trường 47 6.2.3 Sơ đồ chức nghiệp vụ 47 6.2.4 Sơ đồ dòng liệu 50 6.3 Thiết kế chương trình 6.3.1 Xây dựng mơ hình liệu thực thể 55 6.3.2 Xây dựng mơ hình liệu quan hệ 55 6.3.3 Sơ đồ liên kết tập tin sở liệu 61 6.3.4 Giao diện hệ thống chương trình 62 6.3.5 Các chương trình hệ thống 62 6.3.6 Giới thiệu số chương trình 62 NHẬN XÉT VÀ ĐỊNH HƯỚNG .76 PHỤ LỤC 77 TÀI LIỆU THAM KHẢO .119 Sinh viên Đỗ Minh Sâm- Lớp Tin 99 -2- Giáo viên hướng dẫn-Ts Trần Đình Khang Lời Mở đầu  Trong giai đoạn nay, với phát triển vượt bậc ngành Điện tử ,Công nghệ thông tin phát triển nhanh chóng ngành Bưu Điện nhằm tăng nhanh số lượng thuê bao điện thoại chất lượng phục vụ khách hàng.Với phương châm “ Đi tắt , đón đầu cơng nghệ” nghành Bưu điện trọng vấn đề áp dụng kỹ thuật , đặc biệt lĩnh vực Công nghệ thông tin nghành áp dụng triệt để khoa học kỹ thuật ,công tác quản lý , khai thác điều hành sản xuất kinh doanh Tuy nhiên, với phát triển nhanh chóng số lượng thuê bao điện thoại , Bưu điện tỉnh, thành phải đối mặt trước vấn đề khó khăn làm để đảm bảo chất lượng thơng tin trì liên tục thơng tin cho khách hàng Một nghiệp vụ quan trọng đặt việc quản lý, đo thử sửa chữa thuê bao Kết hợp kiến thức thực tế nghiệp vụ Bưu điện có qua thời gian tìm hiểu Đài Tự động Nha Trang Đài đo thử 119 trung tâm với kiến thức Tin Học học, xin mạnh dạn đề xuất xây dựng phương pháp để đo thử đưa định loại hỏng máy điện thoại gọi “ Hệ hổ trợ chẩn đoán loại hỏng máy điện thoại “ cách ứng dụng lý thuyết tập mờ lập luận mờ để chẩn đoán loại hỏng máy điện thoại dựa thông số trạng thái kỹ thuật đường dây thuê bao mà tổng đài đo Lý thuyết tập mờ mở rộng sở lý thuyết tập hợp, cung cấp cho công cụ mạnh xử lý thông tin mang tính chất khơng xác khơng chắn Các hệ hổ trợ định dựa sở lý thuyết mờ áp dụng nhiều lĩnh vực : chẩn đoán, nhận dạng, dự báo, giảng dạy, tự động hóa Hệ hổ trợ chẩn đốn loại hỏng máy điện thoại trình bày luận văn thử nghiệm ứng dụng lý thuyết tập mờ lập luận mờ, góp phần đẩy mạnh cơng tác nghiên cứu khoa học, bước tin học hóa việc khai thác, quản lý điều hành sản xuất kinh doanh dịch vụ Bưu viễn thơng cách có hiệu quả, đặc biệt tự động hóa số dịch vụ để tăng cường tính xác giảm chi phí sản xuất(nhân cơng, cơng cụ) Hệ chương trình cài đặt môi trường Windows, hệ quản trị sở liệu SQL Server ngơn ngữ lập trình Visual Basic Luận văn hoàn thành với giúp đỡ tận tình thầy giáo hướng dẫn TS Trần Đình Khang, Khoa Công nghệ thông tin Trường Đại học Bách Khoa Hà Nội, hợp tác hổ trợ bạn đồng nghiệp công tác Bưu Điện tỉnh Khánh Hòa Tác giả xin chân thành cám ơn thầy Trần Đình Khang, thầy giáo Khoa Cơng nghệ thông tin Trường Đại Học Bách khoa Hà Nội, Trường Đại Học Thủy sản Nha Trang đồng nghiệp, bạn bè Lớp Tin 99 giúp đỡ, cộng tác thực để tơi hồn thành luận văn Nha trang ngày tháng năm 2003 Đỗ Minh Sâm Sinh viên Đỗ Minh Sâm- Lớp Tin 99 -3- Giáo viên hướng dẫn-Ts Trần Đình Khang Giới thiệu toán Lý nghiên cứu đề tài: Bài toán “ Hệ hổ trợ chẩn đoán loại hỏng máy điện thoại “ dựa thông tin thông số kỹ thuật đường dây thuê bao thu nhận từ Tổng đài tốn có ý nghĩa thặc tế, giúp cho cơng nhân dây máy biết thực việc khắc phục máy hỏng khách hàng cách nhanh chóng Việc tiến hành xử lý máy điện thoại hỏng phải tiến hành khoảng thời gian ngắn chủ trương chung Ngành Bưu Điện Để đáp ứng phần yêu cầu nhằm góp phần vào việc phát triển chung Ngành xây dựng niềm tin khách hàng sử dụng dịch vụ Bưu viễn thơng tơi chọn đề tài “ Hệ hổ trợ chẩn đoán loại hỏng máy điện thoại “ nhằm phục vụ tốt cho công tác xử lý máy điện thoại hỏng Bưu Điện thành phố Nha trang cách có hiệu Trong thực tế, cảm nhận người vật tượng xung quanh đóng vai trị quan trọng, cho ta kinh nghiệm quý báu công tác quản lý điều hành Nhưng với phát triển nhanh chóng mạng viễn thơng ngày việc xác định loại hỏng máy điện thoại sở cảm nhận Điện thoại viên không đảm bảo tính xác thường thời gian Ngày nay,Cơng nghệ thơng tin có bước tiến mạnh mẽ đóng vai trị quan trọng lĩnh vực hoạt động người Trong năm qua có nhiều lý thuyết đời bước áp dụng vào thực tế phục vụ cho nhu cầu lợi ích người Để hổ trợ việc định chẩn đoán loại hỏng máy điện thoại dựa nhiều sở lý thuyết khác Với kiến thức Công nghệ thông tin trang bị theo gợi ý thầy giáo hướng dẫn, anh em đồng nghiệp nhận thấy sở lý thuyết mờ hệ chuyên gia công cụ hổ trợ mạnh hiệu cho đề tài 2.Mục tiêu, nhiệm vụ nội dung luận án: 2.1 Mục tiêu: Nghiên cứu phương pháp suy diễn mờ dựa độ đo giá trị tham số kỹ thuật thực tế nhằm giải vấn đề tốn Từ thiết kế xây dựng hệ hổ trợ định chẩn đoán loại hỏng máy điện thoại thuê bao sở lý thuyết đa nghiên cứu 2.2 Nhiệm vụ:  Tìm hiểu nhiệm vụ, trình thực việc nhận xử lý máy hỏng Đài 119 Bưu Điện TP Nha Trang  Nghiên cứu xây dựng lại hệ thống tự động số cơng đoạn mà máy tính đảm nhận  Nghiên cứu lý thuyết mờ, phương pháp suy diễn mờ  Nghiên cứu khả áp dụng lý thuyết mờ công tác hổ trợ định loại hỏng máy điện thoại  Xây dựng mô hình, hệ luật trợ giúp chẩn đốn loại hỏng máy điện thoại dựa lý thuyết mờ  Xây dựng hệ hổ trợ định chẩn đoán loại hỏng máy điện thoại thuê bao Sinh viên Đỗ Minh Sâm- Lớp Tin 99 -4- Giáo viên hướng dẫn-Ts Trần Đình Khang 2.3 Nội dung luận án: Với mục tiêu nhiệm vụ đề cần giải nội dung luận án bao gồm nội dung sau: Chương 1: Giới thiệu hệ thống báo xử lý máy hỏng Đài 119 Bưu Điện TP Nha Trang tại, đề xuất hệ thống Chương 2: Thu nhận biễu diễn tri thức Chương 3: Lý thuyết tập mờ hệ hổ trợ định Chương 4: Suy diễn mờ Chương 5: Xây dựng hệ hổ trợ định trạng thái hỏng máy điện thoại Chương 6: Phân tích thiết kế hệ thống, xây dựng hệ chương trình cài đặt Sinh viên Đỗ Minh Sâm- Lớp Tin 99 -5- Giáo viên hướng dẫn-Ts Trần Đình Khang Chương Giới thiệu hệ thống báo xử lý máy hỏng Đài 119 Bưu Điện TP Nha Trang tại, đề xuất hệ thống 1.1 Sơ lược mạng viễn thông thành phố Nha Trang Sau 10 năm đổi với kế hoạch tăng tốc ngành Bưu Điện , nói chất lượng mạng lưới viễn thông nước ta ngang tầm với nước khu vực bước tiếp cận với nước tiên tiến giới Tại thành phố Nha Trang, năm 1993 có khoảng 3000 máy điện thoại hoạt động với kỹ thuật lạc hậu , dịch vụ hạn chế, với sách đổi thay đổi công nghệ từ kỹ thuật Analog sang Digital làm tốc độ mạng lưới phát triển nhanh chóng kèm dịch vụ gia tăng tổng đài điện tử đem lại nhiều tiện ích cho khách hàng, đến sau gần 10 năm phát triển, tổng số máy có toàn mạng 40000 máy, tăng 13 lần so với năm 1993 tỷ lệ đạt gần 10máy/100 dân Hiện nay, mạng lưới viễn thông thành phố Nha Trang số hoá 100%, kết cấu bao gồm 02 tổng đài trung tâm (OCB : Organization Center Basic) 10 trạm vệ tinh (CSND : Center Satellite Numberic Distance) phân bố rộng khắp toàn địa bàn thành phố có khả phát triển đến 200000 máy điện thoại thuê bao Tốc độ phát triển máy điện thoại thành phố Nha Trang khoảng 5000 máy / năm, với phát triển sở hạ tầng sách đổi thành phố , chắn số lượng máy điện thoại thành phố tiếp tục tăng nhanh năm tới Sinh viên Đỗ Minh Sâm- Lớp Tin 99 -6- Giáo viên hướng dẫn-Ts Trần Đình Khang CẤU HÌNH MẠNG VIỄN THÔNG THÀNH PHỐ NHA TRANG ĐẾN NĂM 2003 Tổng Đài liên tỉnh Hồ Chí Minh OFC CSND Phú Vinh OFC CSND Ngô Gia Tự OFC OCB OFC Tổng Đài liên tỉnh Đà Nẳng OFC CSND Lê Hồng Phong OFC CSND Vĩnh Nguyên OFC CSNT Đồng Đế OFC CSND Hịn Khơ OFC CSND Vĩnh Phương Trung tâm FETEX-150 OFC CSND Phước Đồng OFC CSNR Hòn Rớ OFC CSND Vĩnh Lương OFC OCB Bình Tân Siemen OFC : Optics Fiber Cable - Cáp quang Sinh viên Đỗ Minh Sâm- Lớp Tin 99 -7- Giáo viên hướng dẫn-Ts Trần Đình Khang 1.2 Tổ chức hoạt động dịch vụ nhận xử lý máy điện thoại hỏng tại: 1.2.1 Hoạt động dịch vụ 119 : Khi khách hàng có máy điện thoại bị hỏng gọi số 119 (từ máy điện thoại ) , nhân viên đài 119 tiếp nhận điện thoại ghi lại số máy bị hỏng, sau thực phép đo đồng hồ, đo trực tiếp đường dây thuê bao Căn giá trị điện áp trả qua mạch vòng đường dây thuê bao đồng hồ đo, qua kinh nghiệm thực tế, người khai thác viên phán đoán loại hỏng(đứt, chập dây, hỏng máy ) tiến hành cập nhật máy loại hỏng vào mạng máy tính Cơng ty Các đội sửa chữa dây máy thường xuyên kiểm tra số liệu mạng để xác định số lượng máy hỏng thuộc khu vực phụ trách phân công nhân viên sửa chữa kịp thời Khi khắc phục xong, nhân viên xử lý gọi điện thông báo lại cho đài 119 kiểm tra lại cập nhật số liệu để phục vụ cho công việc báo cáo theo dõi quản lý 1.2.2 Ưu nhược điểm hệ thống : Ưu điểm: - Khi dịch vụ số liệu quản lý tập trung thuận lợi công tác điều hành sản xuất, khách hàng hài lòng với thời gian chất lượng khắc phục máy hỏng - Khách hàng làm quen với số máy 119 để báo hỏng - Trao đổi số liệu đài 119 đội sửa chữa qua mạng máy tính Cơng ty nên thống mặt số liệu, báo cáo thống kê thực cách dể dàng xác, giải khiếu nại khách hàng nhanh chóng xác Nhược điểm : - Nhân viên phán đoán trạng thái hỏng máy điện thoại cịn mang tính thụ động, phụ thuộc vào kinh nghiệm nên kết chưa chắn,nên đôi lúc kéo dài thời gian sửa chữa - Nhân viên đài 119 phải thao tác qua nhiều công đoạn :Tiếp nhận máy hỏng, đo thử, xác định trạng thái hư hỏng, cập nhật vào hệ thống, số lượng máy điện thoại hỏng nhiều khó đáp ứng kịp thời Sinh viên Đỗ Minh Sâm- Lớp Tin 99 -8- Giáo viên hướng dẫn-Ts Trần Đình Khang 1.3 Xây dựng hoạt động dịch vụ 119 tự động 1.3.1 Nhu cầu có hệ thống mới: Do nhu cầu phát triển mạnh hệ thống viễn thông, số lượng máy điện thoại ngày gia tăng nhanh, lỗi thời sai sót hệ thống khai thác quản lý cũ chắn khơng cịn phù hợp Cho nên cần phải xây dựng lại hệ thống khai thác dịch vụ 119 để phục vụ nhu cầu khách hàng với thời gian ngắn điều quan trọng giảm bớt số công đoạn làm việc căng thẳng cho nhân viên Đài 119, tránh sai sót, cáu gắt với khách hàng nhân viên xử lý số lượng máy hỏng nhiều Trong dịch vụ này, khó khăn thực chẩn đốn loại hỏng máy điện thoaị thuê bao thời gian chờ lấy số liệu từ tổng đài lâu (hơn phút cho máy ) , đôi lúc bị nghẽn thực nhanh được, thời gian mưa bão Ngồi cịn phải thực cơng đoạn máy tính tự giao tiếp với tổng đài trung tâm thực phép đo, xây dựng hệ hổ trợ định chẩn đoán loại hỏng máy điện thoại từ kết đo Nếu thực thành công đề tài ứng dụng thực tế tiết kiệm chi phí nhân cơng ( từ 10 người giảm xuống người), giảm thời gian xử lý tăng thêm niềm tin khách hàng với ngành Bưu Điện 1.3.2 Giới thiệu hệ thống dịch vụ 119 mới: Hệ thống cần phải khắc phục nhược điểm hệ thống cũ, tăng suất lao động, giảm chi phí, tạo niềm tin uy tín khách hàng Khi máy điện thoại bị hỏng, khách hàng cần gọi 119 thông báo số máy hỏng, nhân viên đài 119 tiếp nhận thực nhập số máy hỏng vào kho liệu chung Tất công đoạn từ việc kết nối tổng đài thực phép đo định trạng thái hỏng hồn tồn máy tính thực thay cho nhân viên Sinh viên Đỗ Minh Sâm- Lớp Tin 99 -9- Giáo viên hướng dẫn-Ts Trần Đình Khang Fields(4).Value = End If If Me.chkR_a_dat.Value = Then Fields(5).Value = Else Fields(5).Value = End If If Me.chkR_B_dat.Value = Then Fields(6).Value = Else Fields(6).Value = End If If Me.chkR_A_B.Value = Then Fields(7).Value = Else Fields(7).Value = End If If Me.ChkF_AB.Value = Then Fields(8).Value = Else Fields(8).Value = End If If Me.chkLoai_TB.Value = Then Fields(9).Value = Else Fields(9).Value = End If Update Requery End With End If ' Khoa cac nut lenh Me.chkAC_A_dat.Enabled = False Me.ChkAC_B_dat.Enabled = False Me.ChkDc_A_dat.Enabled = False Me.chkDc_B_dat.Enabled = False Me.chkR_a_dat.Enabled = False Me.chkR_B_dat.Enabled = False Me.chkR_A_B.Enabled = False Me.ChkF_AB.Enabled = False Me.chkLoai_TB.Enabled = False Me.cbmKet_luan.Enabled = False Me.txtDo_chinh_xac.Enabled = False Me.cmdThem.Enabled = True Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 109 - Giáo viên hướng dẫn-Ts Trần Đình Khang Me.cmdXoa.Enabled = True Me.cmdSua.Enabled = True Me.cmdFirst.Enabled = True Me.cmdLast.Enabled = True Me.cmdToi.Enabled = True Me.cmdLui.Enabled = True Me.cmdDong_y_them.Enabled = False Me.cmdBo_qua_them.Enabled = False ' Xoa che them hoac sua du lieu Them = False Sua = False End Sub Private Sub cmdFirst_Click() ' Xoa cac checkbox Me.chkAC_A_dat.Value = Me.ChkAC_B_dat.Value = Me.ChkDc_A_dat.Value = Me.chkDc_B_dat.Value = Me.chkR_a_dat.Value = Me.chkR_B_dat.Value = Me.chkR_A_B.Value = Me.ChkF_AB.Value = Me.chkLoai_TB.Value = Luat_suy_dien.MoveFirst ' -Dien gia tri vao cac Checkbox Dim Ma_Loai_hong As String Dim Do_chinh_xac As String Do_chinh_xac = "" If Luat_suy_dien.Fields(1).Value = Then Me.chkAC_A_dat.Value = Do_chinh_xac = "M1*" End If If Luat_suy_dien.Fields(2).Value = Then Me.ChkAC_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M2*" End If If Luat_suy_dien.Fields(3).Value = Then Me.ChkDc_A_dat.Value = Do_chinh_xac = Do_chinh_xac & "M3*" End If If Luat_suy_dien.Fields(4).Value = Then Me.chkDc_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M4*" Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 110 - Giáo viên hướng dẫn-Ts Trần Đình Khang End If If Luat_suy_dien.Fields(5).Value = Then Me.chkR_a_dat.Value = Do_chinh_xac = Do_chinh_xac & "M5*" End If If Luat_suy_dien.Fields(6).Value = Then Me.chkR_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M6*" End If If Luat_suy_dien.Fields(7).Value = Then Me.chkR_A_B.Value = Do_chinh_xac = Do_chinh_xac & "M7*" End If If Luat_suy_dien.Fields(8).Value = Then Me.ChkF_AB.Value = Do_chinh_xac = Do_chinh_xac & "M8*" End If If Luat_suy_dien.Fields(9).Value = Then Me.chkLoai_TB.Value = Do_chinh_xac = Do_chinh_xac & "M9*" End If Do_chinh_xac = Do_chinh_xac & Luat_suy_dien.Fields(11).Value ' -Neu sua thi chi hien so -If Sua Then Do_chinh_xac = Luat_suy_dien.Fields(11).Value End If Me.txtDo_chinh_xac.text = Do_chinh_xac Ma_Loai_hong = Luat_suy_dien.Fields(10).Value ' Tim ket luan -Set Loai_hong = New ADODB.Recordset Loai_hong.Source = "Select Trang_thai_hong from tblLoaihong where Ma_loai_hong='" & Ma_Loai_hong & "'" Loai_hong.ActiveConnection = TL Loai_hong.Open Me.cbmKet_luan.text = Loai_hong.Fields(0).Value Me.lblLuat_thu.Caption = Luat_suy_dien.Fields(0).Value End Sub Private Sub cmdLast_Click() Luat_suy_dien.MoveLast ' Xoa cac checkbox Me.chkAC_A_dat.Value = Me.ChkAC_B_dat.Value = Me.ChkDc_A_dat.Value = Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 111 - Giáo viên hướng dẫn-Ts Trần Đình Khang Me.chkDc_B_dat.Value = Me.chkR_a_dat.Value = Me.chkR_B_dat.Value = Me.chkR_A_B.Value = Me.ChkF_AB.Value = Me.chkLoai_TB.Value = ' -Dien gia tri vao cac Checkbox Dim Ma_Loai_hong As String Dim Do_chinh_xac As String Do_chinh_xac = "" If Luat_suy_dien.Fields(1).Value = Then Me.chkAC_A_dat.Value = Do_chinh_xac = "M1*" End If If Luat_suy_dien.Fields(2).Value = Then Me.ChkAC_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M2*" End If If Luat_suy_dien.Fields(3).Value = Then Me.ChkDc_A_dat.Value = Do_chinh_xac = Do_chinh_xac & "M3*" End If If Luat_suy_dien.Fields(4).Value = Then Me.chkDc_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M4*" End If If Luat_suy_dien.Fields(5).Value = Then Me.chkR_a_dat.Value = Do_chinh_xac = Do_chinh_xac & "M5*" End If If Luat_suy_dien.Fields(6).Value = Then Me.chkR_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M6*" End If If Luat_suy_dien.Fields(7).Value = Then Me.chkR_A_B.Value = Do_chinh_xac = Do_chinh_xac & "M7*" End If If Luat_suy_dien.Fields(8).Value = Then Me.ChkF_AB.Value = Do_chinh_xac = Do_chinh_xac & "M8*" End If If Luat_suy_dien.Fields(9).Value = Then Me.chkLoai_TB.Value = Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 112 - Giáo viên hướng dẫn-Ts Trần Đình Khang Do_chinh_xac = Do_chinh_xac & "M9*" End If Do_chinh_xac = Do_chinh_xac & Luat_suy_dien.Fields(11).Value ' -Neu sua thi chi hien so -If Sua Then Do_chinh_xac = Luat_suy_dien.Fields(11).Value End If Me.txtDo_chinh_xac.text = Do_chinh_xac Ma_Loai_hong = Luat_suy_dien.Fields(10).Value ' Tim ket luan -Set Loai_hong = New ADODB.Recordset Loai_hong.Source = "Select Trang_thai_hong from tblLoaihong where Ma_loai_hong='" & Ma_Loai_hong & "'" Loai_hong.ActiveConnection = TL Loai_hong.Open Me.cbmKet_luan.text = Loai_hong.Fields(0).Value Me.lblLuat_thu.Caption = Luat_suy_dien.Fields(0).Value End Sub Private Sub cmdLui_Click() On Error GoTo thoat If Not (Luat_suy_dien.EOF) Then Luat_suy_dien.MoveNext If Luat_suy_dien.EOF Then Luat_suy_dien.MovePrevious End If ' Xoa cac checkbox Me.chkAC_A_dat.Value = Me.ChkAC_B_dat.Value = Me.ChkDc_A_dat.Value = Me.chkDc_B_dat.Value = Me.chkR_a_dat.Value = Me.chkR_B_dat.Value = Me.chkR_A_B.Value = Me.ChkF_AB.Value = Me.chkLoai_TB.Value = 'If Luat_suy_dien.BOF = False Then 'End If ' -Dien gia tri vao cac Checkbox Dim Ma_Loai_hong As String Dim Do_chinh_xac As String Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 113 - Giáo viên hướng dẫn-Ts Trần Đình Khang Do_chinh_xac = "" If Luat_suy_dien.Fields(1).Value = Then Me.chkAC_A_dat.Value = Do_chinh_xac = "M1*" End If If Luat_suy_dien.Fields(2).Value = Then Me.ChkAC_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M2*" End If If Luat_suy_dien.Fields(3).Value = Then Me.ChkDc_A_dat.Value = Do_chinh_xac = Do_chinh_xac & "M3*" End If If Luat_suy_dien.Fields(4).Value = Then Me.chkDc_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M4*" End If If Luat_suy_dien.Fields(5).Value = Then Me.chkR_a_dat.Value = Do_chinh_xac = Do_chinh_xac & "M5*" End If If Luat_suy_dien.Fields(6).Value = Then Me.chkR_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M6*" End If If Luat_suy_dien.Fields(7).Value = Then Me.chkR_A_B.Value = Do_chinh_xac = Do_chinh_xac & "M7*" End If If Luat_suy_dien.Fields(8).Value = Then Me.ChkF_AB.Value = Do_chinh_xac = Do_chinh_xac & "M8*" End If If Luat_suy_dien.Fields(9).Value = Then Me.chkLoai_TB.Value = Do_chinh_xac = Do_chinh_xac & "M9*" End If Do_chinh_xac = Do_chinh_xac & Luat_suy_dien.Fields(11).Value ' -Neu sua thi chi hien so -If Sua Then Do_chinh_xac = Luat_suy_dien.Fields(11).Value End If Me.txtDo_chinh_xac.text = Do_chinh_xac Ma_Loai_hong = Luat_suy_dien.Fields(10).Value Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 114 - Giáo viên hướng dẫn-Ts Trần Đình Khang ' Tim ket luan -Set Loai_hong = New ADODB.Recordset Loai_hong.Source = "Select Trang_thai_hong from tblLoaihong where Ma_loai_hong='" & Ma_Loai_hong & "'" Loai_hong.ActiveConnection = TL Loai_hong.Open Me.cbmKet_luan.text = Loai_hong.Fields(0).Value Me.lblLuat_thu.Caption = Luat_suy_dien.Fields(0).Value End If thoat: End Sub Private Sub cmdSua_Click() On Error GoTo thoat ' -Bao cho chuong trinh biet dang sua Du lieu -Sua = True Me.txtDo_chinh_xac.text = Luat_suy_dien.Fields(11).Value Me.chkAC_A_dat.Enabled = True Me.ChkAC_B_dat.Enabled = True Me.ChkDc_A_dat.Enabled = True Me.chkDc_B_dat.Enabled = True Me.chkR_a_dat.Enabled = True Me.chkR_B_dat.Enabled = True Me.chkR_A_B.Enabled = True Me.ChkF_AB.Enabled = True Me.chkLoai_TB.Enabled = True Me.cbmKet_luan.Enabled = True Me.txtDo_chinh_xac.Enabled = True Me.cmdDong_y_them.Enabled = True Me.cmdBo_qua_them.Enabled = True ' -Khoa cac nut lenh Me.cmdThem.Enabled = False Me.cmdXoa.Enabled = False Me.cmdSua.Enabled = False ' Bao cho chuong trinh biet dang them luat -Sua = True ' Tao du lieu cho Combobox Ket luan -Dim Loai_hong1 As ADODB.Recordset Set Loai_hong1 = New ADODB.Recordset Loai_hong1.Source = "Select Trang_thai_hong from tblLoaihong " Loai_hong1.ActiveConnection = TL Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 115 - Giáo viên hướng dẫn-Ts Trần Đình Khang Loai_hong1.Open Loai_hong1.MoveFirst Do Until Loai_hong1.EOF Me.cbmKet_luan.AddItem Loai_hong1.Fields(0).Value Loai_hong1.MoveNext Loop Me.cbmKet_luan.ListIndex = -1 thoat: End Sub Private Sub cmdThem_Click() ' -Mo cac checkbox -Me.chkAC_A_dat.Value = Me.ChkAC_B_dat.Value = Me.ChkDc_A_dat.Value = Me.chkDc_B_dat.Value = Me.chkR_a_dat.Value = Me.chkR_B_dat.Value = Me.chkR_A_B.Value = Me.ChkF_AB.Value = Me.chkLoai_TB.Value = Me.cbmKet_luan.text = "" Me.txtDo_chinh_xac.text = "" Me.lblLuat_thu.Caption = "" Me.chkAC_A_dat.Enabled = True Me.ChkAC_B_dat.Enabled = True Me.ChkDc_A_dat.Enabled = True Me.chkDc_B_dat.Enabled = True Me.chkR_a_dat.Enabled = True Me.chkR_B_dat.Enabled = True Me.chkR_A_B.Enabled = True Me.ChkF_AB.Enabled = True Me.chkLoai_TB.Enabled = True Me.cbmKet_luan.Enabled = True Me.txtDo_chinh_xac.Enabled = True Me.cmdDong_y_them.Enabled = True Me.cmdBo_qua_them.Enabled = True ' -Khoa cac nut lenh Me.cmdThem.Enabled = False Me.cmdXoa.Enabled = False Me.cmdSua.Enabled = False Me.cmdFirst.Enabled = False Me.cmdLast.Enabled = False Me.cmdToi.Enabled = False Me.cmdLui.Enabled = False ' Bao cho chuong trinh biet dang them luat Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 116 - Giáo viên hướng dẫn-Ts Trần Đình Khang Them = True ' Tao du lieu cho Combobox Ket luan -Dim Loai_hong1 As ADODB.Recordset Set Loai_hong1 = New ADODB.Recordset Loai_hong1.Source = "Select Trang_thai_hong from tblLoaihong " Loai_hong1.ActiveConnection = TL Loai_hong1.Open Loai_hong1.MoveFirst Do Until Loai_hong1.EOF Me.cbmKet_luan.AddItem Loai_hong1.Fields(0).Value Loai_hong1.MoveNext Loop Me.cbmKet_luan.ListIndex = -1 End Sub Private Sub cmdToi_Click() On Error GoTo thoat If Not (Luat_suy_dien.BOF) Then Luat_suy_dien.MovePrevious If Luat_suy_dien.BOF Then Luat_suy_dien.MoveNext End If ' Xoa cac checkbox Me.chkAC_A_dat.Value = Me.ChkAC_B_dat.Value = Me.ChkDc_A_dat.Value = Me.chkDc_B_dat.Value = Me.chkR_a_dat.Value = Me.chkR_B_dat.Value = Me.chkR_A_B.Value = Me.ChkF_AB.Value = Me.chkLoai_TB.Value = ' -Dien gia tri vao cac Checkbox Dim Ma_Loai_hong As String Dim Do_chinh_xac As String Do_chinh_xac = "" If Luat_suy_dien.Fields(1).Value = Then Me.chkAC_A_dat.Value = Do_chinh_xac = "M1*" End If If Luat_suy_dien.Fields(2).Value = Then Me.ChkAC_B_dat.Value = Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 117 - Giáo viên hướng dẫn-Ts Trần Đình Khang Do_chinh_xac = Do_chinh_xac & "M2*" End If If Luat_suy_dien.Fields(3).Value = Then Me.ChkDc_A_dat.Value = Do_chinh_xac = Do_chinh_xac & "M3*" End If If Luat_suy_dien.Fields(4).Value = Then Me.chkDc_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M4*" End If If Luat_suy_dien.Fields(5).Value = Then Me.chkR_a_dat.Value = Do_chinh_xac = Do_chinh_xac & "M5*" End If If Luat_suy_dien.Fields(6).Value = Then Me.chkR_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M6*" End If If Luat_suy_dien.Fields(7).Value = Then Me.chkR_A_B.Value = Do_chinh_xac = Do_chinh_xac & "M7*" End If If Luat_suy_dien.Fields(8).Value = Then Me.ChkF_AB.Value = Do_chinh_xac = Do_chinh_xac & "M8*" End If If Luat_suy_dien.Fields(9).Value = Then Me.chkLoai_TB.Value = Do_chinh_xac = Do_chinh_xac & "M9*" End If Do_chinh_xac = Do_chinh_xac & Luat_suy_dien.Fields(11).Value ' -Neu sua thi chi hien so -If Sua Then Do_chinh_xac = Luat_suy_dien.Fields(11).Value End If Me.txtDo_chinh_xac.text = Do_chinh_xac Ma_Loai_hong = Luat_suy_dien.Fields(10).Value ' Tim ket luan -Set Loai_hong = New ADODB.Recordset Loai_hong.Source = "Select Trang_thai_hong from tblLoaihong where Ma_loai_hong='" & Ma_Loai_hong & "'" Loai_hong.ActiveConnection = TL Loai_hong.Open Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 118 - Giáo viên hướng dẫn-Ts Trần Đình Khang Me.cbmKet_luan.text = Loai_hong.Fields(0).Value ' -Tim thu tu luat Me.lblLuat_thu.Caption = Luat_suy_dien.Fields(0).Value End If thoat: End Sub Private Sub cmdXoa_Click() If MsgBox("Bạn chắn muốn xóa luật ?", vbCritical + vbYesNo, " Chú ý ") = vbYes Then ' -xoa luat -Luat_suy_dien.Delete Luat_suy_dien.Update ' Sua lai cac Ma Luat Luat_suy_dien.MoveFirst Dim Ma_luat_xoa As Byte Ma_luat_xoa = Do Ma_luat_xoa = Ma_luat_xoa + If Len(Trim(Str(Ma_luat_xoa))) = Then Luat_suy_dien.Fields(0).Value = Trim(0 & Trim(Str(Ma_luat_xoa))) Else Luat_suy_dien.Fields(0).Value = Trim(Str(Ma_luat_xoa)) End If Luat_suy_dien.Update Luat_suy_dien.MoveNext Loop Until Luat_suy_dien.EOF Luat_suy_dien.Requery ' Dien cac gia tri vao form -If Not (Luat_suy_dien.BOF) Then Luat_suy_dien.MovePrevious If Luat_suy_dien.BOF Then Luat_suy_dien.MoveNext End If Me.lblSo_luat.Caption = Luat_suy_dien.RecordCount ' Xoa cac checkbox Me.chkAC_A_dat.Value = Me.ChkAC_B_dat.Value = Me.ChkDc_A_dat.Value = Me.chkDc_B_dat.Value = Me.chkR_a_dat.Value = Me.chkR_B_dat.Value = Me.chkR_A_B.Value = Me.ChkF_AB.Value = Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 119 - Giáo viên hướng dẫn-Ts Trần Đình Khang Me.chkLoai_TB.Value = ' -Dien gia tri vao cac Checkbox Dim Ma_Loai_hong As String Dim Do_chinh_xac As String Do_chinh_xac = "" If Luat_suy_dien.Fields(1).Value = Then Me.chkAC_A_dat.Value = Do_chinh_xac = "M1*" End If If Luat_suy_dien.Fields(2).Value = Then Me.ChkAC_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M2*" End If If Luat_suy_dien.Fields(3).Value = Then Me.ChkDc_A_dat.Value = Do_chinh_xac = Do_chinh_xac & "M3*" End If If Luat_suy_dien.Fields(4).Value = Then Me.chkDc_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M4*" End If If Luat_suy_dien.Fields(5).Value = Then Me.chkR_a_dat.Value = Do_chinh_xac = Do_chinh_xac & "M5*" End If If Luat_suy_dien.Fields(6).Value = Then Me.chkR_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M6*" End If If Luat_suy_dien.Fields(7).Value = Then Me.chkR_A_B.Value = Do_chinh_xac = Do_chinh_xac & "M7*" End If If Luat_suy_dien.Fields(8).Value = Then Me.ChkF_AB.Value = Do_chinh_xac = Do_chinh_xac & "M8*" End If If Luat_suy_dien.Fields(9).Value = Then Me.chkLoai_TB.Value = Do_chinh_xac = Do_chinh_xac & "M9*" End If Do_chinh_xac = Do_chinh_xac & Luat_suy_dien.Fields(11).Value Ma_Loai_hong = Luat_suy_dien.Fields(10).Value ' Tim ket luan -Set Loai_hong = New ADODB.Recordset Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 120 - Giáo viên hướng dẫn-Ts Trần Đình Khang Loai_hong.Source = "Select Trang_thai_hong from tblLoaihong where Ma_loai_hong='" & Ma_Loai_hong & "'" Loai_hong.ActiveConnection = TL Loai_hong.Open Me.cbmKet_luan.text = Loai_hong.Fields(0).Value ' -Tim thu tu luat Me.lblLuat_thu.Caption = Luat_suy_dien.Fields(0).Value End If End If thoat: End Sub Private Sub Form_Load() Them = False Sua = False Set TL = New ADODB.Connection TL.Provider = "SQLOLEDB.1" TL.ConnectionString = "Persist Security Info=False;User ID=sa;Initial Catalog=DULIEU;Data Source=sam" TL.Open Set Luat_suy_dien = New ADODB.Recordset Luat_suy_dien.LockType = adLockOptimistic Luat_suy_dien.CursorType = adOpenKeyset Luat_suy_dien.Source = "Select * from tblTapluat order by Ma_luat" Luat_suy_dien.ActiveConnection = TL Luat_suy_dien.Open Luat_suy_dien.MoveFirst ' -Dien gia tri vao cac Checkbox Dim Ma_Loai_hong As String Dim Do_chinh_xac As String Do_chinh_xac = "" If Luat_suy_dien.Fields(1).Value = Then Me.chkAC_A_dat.Value = Do_chinh_xac = "M1*" End If If Luat_suy_dien.Fields(2).Value = Then Me.ChkAC_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M2*" End If If Luat_suy_dien.Fields(3).Value = Then Me.ChkDc_A_dat.Value = Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 121 - Giáo viên hướng dẫn-Ts Trần Đình Khang Do_chinh_xac = Do_chinh_xac & "M3*" End If If Luat_suy_dien.Fields(4).Value = Then Me.chkDc_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M4*" End If If Luat_suy_dien.Fields(5).Value = Then Me.chkR_a_dat.Value = Do_chinh_xac = Do_chinh_xac & "M5*" End If If Luat_suy_dien.Fields(6).Value = Then Me.chkR_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M6*" End If If Luat_suy_dien.Fields(7).Value = Then Me.chkR_A_B.Value = Do_chinh_xac = Do_chinh_xac & "M7*" End If If Luat_suy_dien.Fields(8).Value = Then Me.ChkF_AB.Value = Do_chinh_xac = Do_chinh_xac & "M8*" End If If Luat_suy_dien.Fields(9).Value = Then Me.chkLoai_TB.Value = Do_chinh_xac = Do_chinh_xac & "M9*" End If Do_chinh_xac = Do_chinh_xac & Luat_suy_dien.Fields(11).Value Me.txtDo_chinh_xac.text = Do_chinh_xac Ma_Loai_hong = Luat_suy_dien.Fields(10).Value ' Tim ket luan -Set Loai_hong = New ADODB.Recordset Loai_hong.Source = "Select Trang_thai_hong from tblLoaihong where Ma_loai_hong='" & Ma_Loai_hong & "'" Loai_hong.ActiveConnection = TL Loai_hong.Open Me.cbmKet_luan.text = Loai_hong.Fields(0).Value Me.lblLuat_thu.Caption = Luat_suy_dien.Fields(0).Value Me.lblSo_luat.Caption = Luat_suy_dien.RecordCount ' -Khoa du lieu Me.chkAC_A_dat.Enabled = False Me.ChkAC_B_dat.Enabled = False Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 122 - Giáo viên hướng dẫn-Ts Trần Đình Khang Me.ChkDc_A_dat.Enabled = False Me.chkDc_B_dat.Enabled = False Me.chkR_a_dat.Enabled = False Me.chkR_B_dat.Enabled = False Me.chkR_A_B.Enabled = False Me.ChkF_AB.Enabled = False Me.chkLoai_TB.Enabled = False Me.cbmKet_luan.Enabled = False Me.txtDo_chinh_xac.Enabled = False Me.cmdDong_y_them.Enabled = False Me.cmdBo_qua_them.Enabled = False Them = False Sua = False End Sub Tài liệu tham khảo 1- Trần Đình Khang , Nguyễn Thanh Thủy - Xây dựng chế suy diễn sở tri thức mờ - 1998 2- Nguyễn Thanh Thủy- Trí tuệ nhân tạo - Nhà xuất giáo dục - 1995 3- Nguyễn Hồng Phưong, Bùi Cơng Cường, Nguyễn Doãn Phước,Phan Xuân Minh, Chu Văn Ký - Hệ mờ ứng dụng - Nhà xuất Khoa học kỹ thuật 4- Trần Đình Khang- Bài giảng Hệ chuên gia - Lớp Tin 99- Đại học Thủy sản Nha Trang 5- Tiêu chuẩn ngành Bưu Điện - Tổng cục Bưu Điện -1998 6- Kỹ thuật Tổng đài Fujisu - 1998 Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 123 - ... lý máy điện thoại hỏng tại: 1.2.1 Hoạt động dịch vụ 119 : Khi khách hàng có máy điện thoại bị hỏng gọi số 119 (từ máy điện thoại ) , nhân viên đài 119 tiếp nhận điện thoại ghi lại số máy bị hỏng, ... hệ hổ trợ định trạng thái hỏng máy điện thoại Thực việc nhận báo hỏng xử lý máy điện thoại thuê bao hỏng nhiệm vụ quan trọng hàng đầu nghành Bưu điện nói chung Cơng ty nói riêng Máy điện thoại. .. loại hỏng máy điện thoại gọi “ Hệ hổ trợ chẩn đoán loại hỏng máy điện thoại “ cách ứng dụng lý thuyết tập mờ lập luận mờ để chẩn đoán loại hỏng máy điện thoại dựa thông số trạng thái kỹ thuật