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 tại Bưu điện thành phố Nha Trang một cách có hiệu quả

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 tại Bưu điện thành phố Nha Trang một cách có hiệu quả

THệ VIEN ẹIEN Tệ TRệẽC TUYEN 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 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 hiƯn t¹i 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 míi 1.3.2 Giíi thiƯu hƯ thèng dÞch vơ 119 míi 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 vỊ 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 cđa tËp mê .19 3.2 Quan hƯ mê: 3.2.1 Kh¸i niƯm vỊ 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 cđa 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- THệ VIEN ẹIEN Tệ TRệẽC TUYEN Giáo viên hớng dẫn-Ts Trần Đình Khang 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 hiƯn 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 mét 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- THệ VIEN ẹIEN Tệ TRệẽC TUYEN 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 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ý thut tËp mê vµ lËp ln 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- 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 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- THệ VIEN ẹIEN Tệ TRệẽC TUYEN 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 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- THƯ VIỆN ĐIỆN TỬ TRỰC TUYEN 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 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- THệ VIEN ẹIEN Tệ TRệẽC TUYEN 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 OCB OFC CSND Ngô Gia Tự OFC 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- THệ VIEN ẹIEN Tệ TRệẽC TUYEN 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ồ, đợ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- 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ã mét 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 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 chØ tiÕp nhËn vµ thùc hiƯn 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- 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 OCB Trung tâm CSDN OCB Bình Tân OFC 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 hiƯn tiÕp nhËn sè liƯu, thùc hiƯn đ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 - Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRệẽC TUYEN 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 - Giáo viên hớng dẫn-Ts Trần Đình Khang 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 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 - THƯ VIỆN ĐIỆN TỬ TRệẽC TUYEN Giáo viên hớng dẫn-Ts Trần Đình Khang 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*" 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 - THƯ VIỆN ẹIEN Tệ TRệẽC TUYEN Giáo viên hớng dẫn-Ts Trần Đình Khang THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN 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 - Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRỰC TUYẾN 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 - 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 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 - Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRệẽC TUYEN 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 - Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRệẽC TUYEN 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 - Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ĐIỆN TỬ TRỰC TUYẾN 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 - Giáo viên hớng dẫn-Ts Trần Đình Khang 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 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 - THệ VIEN ẹIEN Tệ TRệẽC TUYEN Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRệẽC TUYEN 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 - Giáo viên hớng dẫn-Ts Trần Đình Khang ' 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 = 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 - THƯ VIỆN ĐIỆN TỬ TRỰC TUYEN Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ĐIỆN TỬ TRỰC TUYẾN 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 - Giáo viên hớng dẫn-Ts Trần Đình Khang THệ VIEN ẹIEN Tệ TRệẽC TUYEN 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 - 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 & "'" 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ê vµ øng dơng - Nhµ xt 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 B−u §iƯn -1998 6- Kü tht Tổng đài Fujisu - 1998 Sinh viên Đỗ Minh Sâm- Líp Tin 99 - 119 - ... 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. .. đ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... đ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ý thut tËp mê vµ lËp ln mê để chẩn đoán loại hỏng máy điện thoại dựa thông số trạng thái