http://kilobooks.com THệ VIEN ẹIEN Tệ TRệẽC TUYEN Giáo viên hớng dẫn-Ts Trần Đình Khang mục lục KIL OBO OK S CO M Lời mở đầu giới thiệu toán chơng1: Giới thiệu hệ thống báo xử lý máy hỏng Đài 119 Bu Đ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 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 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ờ hệ hổ trợ đị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 quát hóa phép toá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- http://kilobooks.com THệ VIEN ẹIEN Tệ TRệẽC TUYEN Giáo viên hớng dẫn-Ts Trần Đình Khang KIL OBO OKS CO M Chơng 5: Xây dựng hệ hổ trợ đị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 thuê 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 đị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- http://kilobooks.com THệ VIEN ẹIEN Tệ TRệẽC TUYEN Giáo viên hớng dẫn-Ts Trần Đình Khang KIL OBO OKS CO M 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 Bu Điện nhằm tăng nhanh số lợng thuê bao điện thoại nh 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 Bu đ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 đợc 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 , Bu đ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ụ Bu điện có đợ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 đợc Lý thuyết tập mờ đợc 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ờ đợc á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 đoá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ụ Bu 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 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 đợc 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 Bu Đ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 cô 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 để hoà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- http://kilobooks.com THệ VIEN ẹIEN Tệ TRệẽC TUYEN Giáo viên hớng dẫn-Ts Trần Đình Khang Giới thiệu toán KIL OBO OKS CO M 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 đợc từ Tổng đài toá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 đợc tiến hành khoảng thời gian ngắn đợc chủ trơng chung Ngành Bu Điện Để đáp ứng đợc 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ụ Bu viễn thông 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 Bu Đ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 Nhng 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 đợc áp dụng vào thực tế phục vụ cho nhu cầu lợi ích ngời Để hổ trợ đợc 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 đợc 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 đề toá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 Bu Đ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 đoá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- http://kilobooks.com THệ VIEN ẹIEN Tệ TRệẽC TUYEN Giáo viên hớng dẫn-Ts Trần Đình Khang KIL OBO OKS CO M 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 Bu Đ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- http://kilobooks.com THệ VIEN ẹIEN Tệ TRệẽC TUYEN Giáo viên hớng dẫn-Ts Trần Đình Khang KIL OBO OKS CO M Chơng Giới thiệu hệ thống báo xử lý máy hỏng Đài 119 Bu Đ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 Bu Đ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 đợc 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) đợc 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- http://kilobooks.com THệ VIEN ẹIEN Tệ TRệẽC TUYEN Giáo viên hớng dẫn-Ts Trần Đình Khang KIL OBO OKS CO M 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 CSND Phú Vinh CSND Ngô Gia Tự OFC OFC OFC OCB 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 OFC CSND Phớc Đồng OFC OCB CSNR Hòn Rớ CSND Vĩnh Lơng OFC Bình Tân Siemen OFC OFC : Optics Fiber Cable - Cáp quang Sinh viên Đỗ Minh Sâm- Lớp Tin 99 -7- http://kilobooks.com THệ VIEN ẹIEN Tệ TRệẽC TUYEN Giáo viên hớng dẫn-Ts Trần Đình Khang KIL OBO OKS CO M 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ồ, đợc đ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ê đợc thực cách dể dàng xác, giải khiếu nại khách hàng đợc 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 mang tính thụ động, phụ thuộc vào kinh nghiệm nên kết cha 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- http://kilobooks.com THệ VIEN ẹIEN Tệ TRệẽC TUYEN 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: KIL OBO OKS CO M 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 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 đợc đ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 đoá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 ma bão Ngoài 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 đợc ứng dụng thực tế tiết kiệm đợc 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 Bu Đ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 đợc nhợc điểm hệ thống cũ, tăng đợc suất lao động, giảm chi phí, tạo đợc 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 hoàn toàn máy tính thực thay cho nhân viên Sinh viên Đỗ Minh Sâm- Lớp Tin 99 -9- http://kilobooks.com THệ VIEN ẹIEN Tệ TRệẽC TUYEN Giáo viên hớng dẫn-Ts Trần Đình Khang MÔ HìNH Hệ THốNG BáO Và Xử Lý MáY HỏNG Tự ĐộNG 119 CSDN KIL OBO OKS CO M OCB Trung tâm CSDN OFC OCB Bình Tân RS 232C Máy tính liên kết Đài 119 Máy tính liên kết HUB Máy tính đơn vị Mạng Máy tính Công ty Máy tính đội sửa chữa Máy tính lãnh đạo 1.3.3 Hoạt động dịch vụ 119 tự động: Khi máy hỏng ,ở đâu hay lúc khách hàng cần gọi 119 có nhân viên trực tiếp nhận gọi đa thông tin số máy hỏng vào máy tính (số liệu báo hỏng cập nhật vào kho liệu) Máy tính giao tiếp với tổng đài trung tâm bắt đầu thực phép đo lấy thông số kỹ thuật ,đồng thời kết hợp với thông tin lu trữ thực suy diễn ,chẩn đoán loại hỏng máy điện thoại cập nhật kho thông tin Nhiệm vụ thực tiếp nhận số liệu, thực đo hệ hổ trợ định máy tiếp giao tiếp với tổng đài trung tâm thực Số liệu đợc lu trữ kho thông tin chung mạng máy tính công ty Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 10 - http://kilobooks.com Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRệẽC TUYEN KIL OBO OKS CO M Do_chinh_xac = Do_chinh_xac & "M3*" Else Fields(9).Value = End If Update Requery ' -Dien cac gia tri vao form -Me.lblSo_luat.Caption = RecordCount MoveLast Me.lblLuat_thu.Caption = Fields(0).Value Do_chinh_xac = Do_chinh_xac & Fields(11).Value Me.txtDo_chinh_xac.text = Do_chinh_xac End With End If ' -Neu dang sua luat If Sua Then ' -Cap nhat cac gia tri -With Luat_suy_dien Fields(10).Value = Loai_hong2.Fields(0).Value Fields(11).Value = Me.txtDo_chinh_xac.text If Me.chkAC_A_dat.Value = Then Fields(1).Value = Else Fields(1).Value = End If If Me.ChkAC_B_dat.Value = Then Fields(2).Value = Else Fields(2).Value = End If If Me.ChkDc_A_dat.Value = Then Fields(3).Value = Else Fields(3).Value = End If If Me.chkDc_B_dat.Value = Then Fields(4).Value = Else 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 = Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 105 - http://kilobooks.com Giáo viên hớng dẫn-Ts Trần Đình Khang KIL OBO OKS CO M 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 THệ VIEN ẹIEN Tệ TRệẽC TUYEN 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 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 Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 106 - http://kilobooks.com Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRệẽC TUYEN End Sub KIL OBO OKS CO M 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*" 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 Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 107 - http://kilobooks.com Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRệẽC TUYEN KIL OBO OKS CO M 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 = 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*" Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 108 - http://kilobooks.com Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRệẽC TUYEN KIL OBO OKS CO M 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 ' 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 Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 109 - http://kilobooks.com Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRệẽC TUYEN Me.lblLuat_thu.Caption = Luat_suy_dien.Fields(0).Value End Sub KIL OBO OKS CO M 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 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 = Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 110 - http://kilobooks.com Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRệẽC TUYEN KIL OBO OKS CO M 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 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 Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 111 - http://kilobooks.com Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRệẽC TUYEN KIL OBO OKS CO M 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 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 = "" Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 112 - http://kilobooks.com Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRệẽC TUYEN KIL OBO OKS CO M 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 -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 - Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 113 - http://kilobooks.com Giáo viên hớng dẫn-Ts Trần Đình Khang KIL OBO OKS CO M 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 = THệ VIEN ẹIEN Tệ TRệẽC TUYEN ' -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 Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 114 - http://kilobooks.com Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRệẽC TUYEN KIL OBO OKS CO M 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 ' -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 Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 115 - http://kilobooks.com Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRệẽC TUYEN ' Dien cac gia tri vao form KIL OBO OKS CO M 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 = 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 Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 116 - http://kilobooks.com Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRệẽC TUYEN KIL OBO OKS CO M 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 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 - Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 117 - http://kilobooks.com Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRệẽC TUYEN KIL OBO OKS CO M 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 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 Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 118 - http://kilobooks.com Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRệẽC TUYEN Loai_hong.Source = "Select Trang_thai_hong from tblLoaihong where Ma_loai_hong='" & Ma_Loai_hong & "'" KIL OBO OKS CO M 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 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 Hoàng Phong, 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 Bu Điện - Tổng cục Bu Điện -1998 6- Kỹ thuật Tổng đài Fujisu - 1998 Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 119 - [...]... điểm của phần mềm 3.5.6 Hệ chuyên gia trợ giúp chẩn đoán loại hỏng máy điện thoại: áp dụng tin học vào việc giải quyết các bài toán thực tế là mục đích phấn đấu không ngừng của ngành Công nghệ thông tin.Tuy nhiên thông tin nhận đợc từ thực tế phần lớn là không rõ ràng,bất định, đòi hỏi phải sử dụng các kỹ thuật nhân tạo Trớc đây, công tác hổ trợ quyết định loại hỏng máy điện thoại đợc tiến hành dựa... Tệ TRệẽC TUYEN Giáo viên hớng dẫn-Ts Trần Đình Khang Chơng 5 KIL OBO OKS CO M Xây dựng hệ hổ trợ quyết định trạng thái hỏng máy điện thoại Thực hiện việc nhận báo hỏng và xử lý máy điện thoại thuê bao hỏng là một trong những nhiệm vụ quan trọng hàng đầu của nghành Bu điện nói chung và Công ty nói riêng Máy điện thoại hoat động tốt, băng thông cao thì khách hàng sử dụng các dịch vụ viễn thông gia tăng... CủA Hệ THốNG Khách hàng báo hỏng Nhận báo hỏng Lọc máy hỏng Đo thử Hợp lệ Suy diễn Đi sửa Báo kết quả Báo sửa Hỏng Tình trạng hỏng Tốt Nhận kết quả Kết thúc Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 11 - http://kilobooks.com THệ VIEN ẹIEN Tệ TRệẽC TUYEN Giáo viên hớng dẫn-Ts Trần Đình Khang 1.3.4 Vai trò của chuyên gia trong hệ thống KIL OBO OKS CO M Trong hệ thống hoạt động của dịch vụ báo và xử lý máy hỏng. .. thông tin mang tính định lợng và mô phỏng quá trình phán đoán của chuyên gia mang tính định tính ,chẳng hạn :máy thuê bao 822540 có lẽ đứt ,có thể máy 512345 bị hỏng máy Cơ sở tri thức của hệ thống nay có thể là rõ, chính xác , chắc chắn,nhng kết luận lại có thể không chắc chắn và không chính xác Theo ngôn ngữ lý thuyết mờ ,thông tin đánh giá loại hỏng của máy điện thoại thuê bao tuân theo ngữ nghĩa... hiện nay chuyên gia đóng vai trò rất quan trọng sẽ quyết định loại hỏng của số máy điện thoại thuê bao, nó góp phần việc xử lý hỏng nhanh hay chậm của công nhân kỹ thuật dây máy Vai trò của chuyên gia trong hệ thống này là từ các thông số kỹ thuật từ tổng đài trung tâm đa ra, qua kinh nghiệm thực tế quyết định trạng thái hỏng của máy điện thoại thuê bao và tiến hành gởi thông tin cho công nhân đờng... L7 - Điện dung trên đôi dây A và B qua thiết bị đầu cuối : L8 (Máy điện thoại, Fax, Trung kế Tổng đài nội bộ, Internet ) Những trạng thái hỏng của máy điện thoại có thể là: - Dây A chập đất - Dây B chập đất - Hai dây A và B chập nhau - Hỏng thiết bị đầu cuối - Hỏng thiết bị tổng đài - Đứt ( hai dây không thông nhau) - Không xác định Sinh viên Đỗ Minh Sâm- Lớp Tin 99 - 12 - http://kilobooks.com THệ VIEN... sự cố Trong thực tế, khi đa ra quyết định loại hỏng của máy điện thoại thuê bao, các chuyên gia thờng sử dụng những đánh giá chủ quan hay trực giác ,đôi khi họ không thể giải thích đợc vì sao họ đa ra kết luận nh vậy Nếu chuyên gia có nhiều kinh nghiệm thì phán đoán chính xác hơn và ngợc lại chuyên gia ít kinh nghiệm thì phán đoán dễ bị sai hơn Một máy điện thoại thuê bao kết nối với tổng đài địa phơng... nhất).Trạng thái hoạt động của máy điện thoại này dựa vào các thông số kỹ thuật sau : - Điện áp xoay chiều giữa dây A và đất ( V) : L1 (Ký hiệu) - Điện áp xoay chiều giữa dây B và đất ( V) : L2 - Điện áp một chiều giữa dây A và đất ( V) : L3 - Điện áp một chiều giữa dây B và đất ( V) : L4 - Điện trở kháng giữa dây A và đất ( Kohm) : L5 - Điện trở kháng giữa dây B và đất ( Kohm) : L6 - Điện trở kháng giữa dây... thao tác của hệ thống bao gồm nhiều hoạt động có ràng buộc qua lại - Có nhiều yếu tố phức tạp ảnh hởng đến hệ thống - Quan hệ giữa hệ thống và các yếu tố tác động là quá phức tạp Trong thực tế, một hệ DSS bao gồm không chỉ một hệ máy tính hóa mà gồm bốn thành phần cơ bản tơng tác chặt chẻ với nhau: Con ngời Thông tin Các ứng dụng DSS Các qui trình Bộ phận tự động hóa Các thành phần của hệ hổ trợ quyết... thông tin không chắc chắn và không chính xác .Hệ chuyên gia mờ có sự tích hợp chặt chẽ lý thuyết mờ vào trong quá trình lập luận và sơ đồ biểu diễn tri thức, mở ra cho chúng ta một hớng giải quyết vấn đề, cho phếp mô tả tốt thế giới tự nhiên và kết quả hợp lý ,mềm dẻo Nhằm thực hiện hổ trợ quyết định loại hỏng các máy điện thoại, chúng ta sử dụng hệ chuyên gia trợ giúp trên cơ sở lý thuyết tập mờ Phạm ... a+b) N1= 1-a T1.5= a*b/( 2-( a+b-a*b)) S1.5= a*b/(1+a*b) N1.5= 1-a T2= a*b S2= a+b-a*b N2= 1-a T2.5= a*b/(a+b-a*b) S2.5= (a+b-a*b)/(1-a*b) N2.5= 1-a T3= min(a , b) S3= max(a , b) N3= 1-a Qui luật... 200 2-1 0-2 6 KIL OBO OKS CO M Kết phép đo thành công: < TES TER:SLN,DN=811100; 22:30:26 # START SUBSCRIBER LINE TEST (SEQ=017) # 200 3-8 -2 6 LL=0020 2-0 -2 1-0 0 DN=811100 AC:A-G=0.50 B-G=0.50 DC:A-G=0.50... là: - Dây A chập đất - Dây B chập đất - Hai dây A B chập - Hỏng thiết bị đầu cuối - Hỏng thiết bị tổng đài - Đứt ( hai dây không thông nhau) - Không xác định Sinh viên Đỗ Minh Sâm- Lớp Tin 99 -