Tài liệu Bao cao Các hệ cơ sở tri thức

LÔØI CAÛM ÔN Lời đầu tiên tôi xin chân thành cám ơn thầy Hoàng Văn Kiếm đã giảng dạy cho tôi những kiến thức quan trọng của môn Công Nghệ Tri Thức và đã hướng dẫn tôi hoàn thành được đồ án môn học này . Sau đó tôi chân thành cảm ơn anh Thức giám đốc kinh doanh Cty tư vấn CNTT Travis đã cho tôi những thông tin bổ ích và quan trọng để tôi hoàn thành đồ án. Trong quá trình làm tiểu luận, tôi không thể tránh được những thiếu sót, mong nhận được những ý kiến đóng góp chân thành và những lời nhận xét của quý thầy cô cùng bạn bè để giúp tôi có thể tiếp tục nghiên cứu sâu hơn, phát triển và hoàn thiện đề tài này. NHÓM SINH VIÊN THỰC HIỆN GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử MỤC LỤC LỜI CẢM ƠN MỤC LỤC 2 CHƯƠNG I: PHẦN MỞ ĐẦU I. LÝ DO HÌNH THÀNH ĐỀ TÀI 3 II. PHẠM VI NGHIÊN CỨU VÀ GIỚI HẠN CỦA ĐỀ TÀI III. MÔI TRƯỜNG THỰC HIỆN ĐỀ 3 3 TÀI 3 NÀY CHƯƠNG II: LÝ THUYẾT CƠ SỞ I. TỔNG QUAN VỀ HỆ CHUYÊN GIA 4 1. Các khái niệm: 2 .Các nguyên nhân để xây dựng hệ chuyên gia: 3. Các thành phần của hệ chuyên gia: II. SUY DIỄN LÙI VÀ THUẬT TOÁN CÀI ĐẶT 5 1. Cơ chế suy diễn lùi: 2. Ưu điểm của suy diễn lùi: 3. Nhược điểm của suy diễn lùi: 4 CHƯƠNG III: LÝ THUYẾT CƠ SỞ I . THỰC HIỆN CHƯƠNG TRÌNH 1. Sơ đồ kiến trúc chương trình. 2. Giao diện chương trình. II. TỐ CHỨC CHƯƠNG TRÌNH 1. Xây dựng hệ chuyên gia 2. Cơ chế hoạt động của chương trình III. CHƯƠNG TRÌNH IV. HẠN CHẾ CỦA CHƯƠNG TRÌNH V. HƯỚNG PHÁT TRIỂN. TÀI LIỆU THAM KHẢO 6 7 7 8 11 11 13 14 33 34 34 2 4 4 5 5 6 6 GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử CHƯƠNG I PHẦN MỞ ĐẦU I. LÝ DO HÌNH THÀNH ĐỀ TÀI: Trong những năm gần đây, nhà nước đã đầu tư phát triển mạnh về công nghệ thông tin và ngành bưu chính viễn thông, xem đây là một trong những bàn đạp chủ lực để những ngành hàng chủ lực khác phát triển theo. Nó đóng góp không nhỏ trong sự phát triển chung của kinh tế, tạo ra không ít những ứng dụng quan trọng để trong các lĩnh vực của cuộc sống. Vì thế hầu hết các doanh nghiệp ở Thành phố Hồ Chí Minh ngày nay đều ứng dụng công nghệ thông tin trong kinh doanh, đặc biệt là ứng dụng thương mại điện tử trong việc quảng bá thương hiệu, bán dịch vụ & sản phẩm qua mạng, giao dịch qua mạng và xúc tiến thương mại, để thu hút thị trường tiềm năng như Mỹ, các nước Tây Âu, Nhật Bản. Do đó nhu cầu tư vấn để xây dựng chiến lược thương mại điện tử hoàn hảo, những hệ thống website hiệu quả ngày càng cao. Để kết hợp ý tưởng trên và kiến thức đã học về môn công nghệ tri thức và thương mại điện tử, nên nhóm chúng tôi đã viết một hệ chuyên gia tư vấn về thương mại điện tử với quy mô nhỏ hi vọng sẽ giúp cho các doanh nghiệp có thể tự tham khảo và tư vấn thông qua hệ chuyên gia này nhằm định hướng phát triển cho doanh nghiệp của mình. Hi vọng trong tương lai gần có thể phát triển thành hệ chuyên gia hoàn thiện để ứng dụng vào hệ thống giao dịch thương mại điện tử. Hệ chuyên gia này là một chương trình nhỏ gọn ứng dụng cơ chế suy diễn lùi mà chúng tôi đã học môn học công nghệ tri thức, để áp dụng trong thương mại điện tử hình thành một chuyên gia ảo để tư vấn chiến lược thương mại của các công ty, doanh nhiệp tại Thành Phố Hồ Chí Minh. II. PHẠM VI NGHIÊN CỨU VÀ GIỚI HẠN CỦA ĐỀ TÀI: Trong quy mô nhỏ, bài viết không có tham vọng giúp các doanh nghiệp tự đi sâu vào nghiên cứu, chỉ đặc vấn đề tư vấn lên hàng đầu để doanh nghiệp tự tham khảo tự tư vấn cho, cảnh báo và tìm tìm hướng phát triển cho doanh nghiệp của mình. Đó cũng chính là phạm vi và giới hạn của đề tài. III. MÔI TRƯỜNG THỰC HIỆN ĐỀ TÀI NÀY : Để thực hiện đề tài này nhóm chúng tôi đã chọn Visual Basic làm công cụ xây dựng giao diện của chương trình. 3 GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử CHƯƠNG II LÝ THUYẾT CƠ SỞ I. TỔNG QUAN VỀ HỆ CHUYÊN GIA: 1. Các khái niệm: Hệ chuyên gia hay hệ cơ sở tri thức (Knowledge Base System) là các phần mềm máy tính làm việc giống như một chuyên gia (Human Expert) trong một lĩnh vực cụ thể. Hệ chuyên gia còn được định nghĩa như sau: hệ chuyên gia là hệ thống dựa trên tri thức, cho phép mô hình hóa các tri thức của các chuyên gia có chất lương, chuyên gia được huấn luyện đối với các lĩnh vực cụ thể, cho phép dùng tri thức để giải quyết các vấn đề phức tạp thuộc lĩnh vực này. Hai yếu tố quan trọng trong hệ chuyên gia là tri thức và lập luận, và hệ thống có hai khối chính là cơ sở tri thức và môtơ suy luận. Cơ sở tri thức chứa các tri thức chuyên sâu về lĩnh vực như chuyên gia. Cơ sở này gồm các sự kiện, các luật, các khái niệm, các quan hệ. Người ta cần thể hiện các tri thức này dưới dạng thích hợp. Môtơ suy luận là bộ xử lý tri thức được mô hình hóa theo cách lập luận của chuyên gia. Mô tơ hoạt động thông tin về vấn đang xét, so sánh với tri thức lưu trong cơ sở tri thức rồi rút ra kết luận hay bình luận. Thuật ngữ "môtơ" được dùng với nghĩa bộ phận quan trọng trong hệ thống tự động. 2. Các nguyên nhân để xây dựng hệ chuyên gia: - Hệ chuyên gia đầu tư tối thiểu nhưng phục được nhiều người trong lĩnh vực công nghệ thông tin - Hệ chuyên gia có thể hoạt động như một chuyên gia trong truy tìm thông tin từ nhiều nguồn, từ nhiều chuyên gia. - Hệ chuyên gia lưu trữ lâu dài các tri thức của các chuyên gia ngay cả khi chuyên gia mất đi. - Hệ chuyên gia cho kết quả bền vững, không bị cảm tính và thất thường như con người. - Tốc độ của hệ chuyên gia rất ưu việt, nhất là khi xử lý các vấn đề cùng một lúc. 4 GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử 3. Các thành phần của hệ chuyên gia: Hệ chuyên gia bao gồm các thành phần sau: Bộ xử lý ngôn ngữ tự nhiên Động cơ suy diễn Tìm kiếm Cơ chế giải thích Cơ sở tri thức Điều khiển Vùng nhớ làm việc Sự kiện Luật Tiếp nhận tri thức Người chuyên gia Hình: Các thành phần của hệ chuyên gia II. SUY DIỄN LÙI VÀ THUẬT TOÁN CÀI ĐẶT: 1. Cơ chế suy diễn lùi: Hệ thống suy diễn lùi bắt đầu từ một kết luận (đích) cần chứng minh: - Trước hết nó kiểm tra trong bộ nhớ làm việc xem kết luận đã được chứng minh hay chưa (có giá trị hay chưa). Bước này cần thiết vì cơ sở tri thức có thể đã có kết luận này rồi. - Nếu kết luận chưa được chứng minh, nó tìm các luật có phần THEN (phần kết luận) chứa kết luận. Các luật này gọi là luật đích (có phần kết luận chức đích). - Hệ thống phần giả thuyết của các luật đích này có trong bộ nhớ làm việc hay không (có giá trị hay chưa). Các giả thiết không được liệt kê trong bộ nhớ gọi là các nút trung gian (kết luận trung gian). Các nút trung gian này được giải (xác định giá trị) nhờ các luật khác. 5 GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử - Quá trình này tiếp tục đệ quy theo cơ chế tìm kiếm theo chiều sâu, cho đến khi thấy giả thiết là nút tận cùng. - Khi thấy nút tận cùng, hệ thống yêu cầu người dùng cung cấp thông tin về nút tận cùng này. Hệ thống sử dụng thông tin này để giải (xác định giá trị) của các nút trung gian và nút kết luận ban đầu. 2. Ưu điểm của suy diễn lùi: - Một trong các ưu điểm chính của cơ chế suy diễn lùi là phù hợp với bài toán đưa ra kết luận rồi xem liệu kết luận đó có đúng không. - Suy diễn lùi tập trung vào kết luận đã cho. Nó tạo ra một loạt các câu hỏi liên quan đến vần đề đang xét, rất thuận tiện đối với người dùng. - Khi suy diễn muốn diễn giải cái gì đó từ thông tin đã biết, nó tìm trên một phần cơ sở tri thức, phần tri thức này liên quan đến bài toán đang xét. - Suy diễn lùi được đánh giá cao trong các bài toán chẩn đoán, dự đoán, tìm lỗi. 3. Nhược điểm của suy diễn lùi: - Nhược điểm cơ bản của suy diễn lùi là nó thường tiếp theo dòng suy nghĩ, thay vì đúng ra phải dừng ở nhánh đó và sang nhánh khác. - Tuy nhiên có thể khắc phục nhược điểm này bằng cách dùng nhân tố tin cậy và các luật meta (giới hạn không gian trạng thái). 6 GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử CHƯƠNG III ÖÙNG DUÏNG CÔ CHEÁ SUY DIEÃN LUØI XAÂY DÖÏNG HEÄ CHUYEÂN GIA TÖ VAÁN VEÀ THÖÔNG MAÏI ÑIEÄN TÖÛ I. THỰC HIỆN CHƯƠNG TRÌNH 1. Sô ñoà caáu truùc chöông trình: bao goàm caùc forms Menu Tiếp thị website Thanh toán qua mang Phân tích website Tác giả Quản lý giao dịch qua mạng Dịch vụ khách hàng qua mạng Quản lý nhân sự qua mang Thoát 2. Giao dieän của chương trình: 7 GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử 1.1 Maøn hình chính : 1.2 Tiếp thị website : 1.3 . Tư vấn dịch vụ chăm sóc khách hàng qua mạng : 8 GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử 1.4 . Tư vấn quản lý nhân sự qua mạng : 9 GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử 1.5 . Tư vấn thanh toán qua mạng : 1.6 . Tư vấn thông tin truy cập website : 10 GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử 1.7 . Tư vấn quản lý giao dịch khách hàng qua mạng : II. Toå chöùc döõ lieäu: 1. Xaây döïng tri thöùc cho heä chuyeân gia: 1.1. Taäp caùc söï kieän: Caùc söï kieän veà thöông maïi ñieän töû goàm coù : 1.1.1 Chieán löôïc tieáp thò web site toát: a: Thoâng tin websites haáp daãn vaø mieãn phí. b: websites cho taûi caùc phaàn meàm mieãn phí c: Taïo caùc keywords chieán löôïc cho caùc trang web d: Söû duïng phaàn meàm Top Ranking Submision, dynamics ranking submisions,…ñeå phaân tích caùc keywords roài submit leân caùc search engine nhö : google, yahoo, MSN, lystos,… e: Trao ñoåi links, logos vôùi websites ñoái taùc f: E-mail cho khaùch haøng, ñoái taùc…veà thoâng tin, ñòa chæ website g: Taïo partner robot.txt nhuùng vaøo website ñeå töông taùc vôùi spiders vaø robots.txt cuûa caùc search engine, giuùp vieäc tìm kieám vaø xeáp haïng hieäu quaû hôn. 1.1.2 Dòch vuï chaêm soùc khaùch haøng qua maïng: h: Heä thoáng website töï ñoäng gôûi mail cho khaùch haøng, ñoái taùc…vaøo nhöõng ngaøy ñaëc bieät nhö: sinh nhaät, thaønh laäp coâng ty, caùc ngaøy leã lôùn. i: Heä thoáng websites töï ñoäng gôûi newsletters veà thoâng tin khuyeán maõi , saûn phaåm môùi ñeán khaùch haøng, ñoái taùc ñònh kyø 11 GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử k:Websites coù xaây döïng moät heä chuyeân gia ñeå tö vaán 24/24 cho khaùch haøng veà thoâng tin dòch vuï, saûn phaåm cuûa coâng ty 1.1.3 Phaân tích truy caäp websites: l: Duøng phaàn meàm web analyzer ñeå phaân tích file log.zip ñöôïc taøi töø server (log.zip ghi cheùp laïi taát caû thao taùc cuûa visitors khi hoï löôùt websites 1.1.4 Quaûn lyù nhaân söï qua websites: m: Quaûn lyù thoâng tin nhaân vieân cuûa coâng ty qua website n: Caùc phoøng ban trong coâng ty meeting qua maïng o: Huaán luyeän nhaân söï qua websites p: Laøm vieäc nhoùm qua maïng 1.1.5 Thanh toaùn qua maïng : q: Chuyeån tieàn qua taøi khoaûn r: Thanh toaùn buø töø qua heä thoáng lieân ngaân haøng theá giôùi e-banking. s: Thanh toaùn baèng theû tín duïng credit card . Taäp F={a,b,c,d,e,f,g,h,I,k,l,m,n,o,p,q,r,s} ( F: taäp hôïp caùc söï kieän ) 1.2 .Taäp luaät: Qui luaät ñeå coù moät chieán löôïc e-commerce hieäu quaû R1: Neáu thoâng tin websites haáp daãn vaø mieãn phí. Vaø websites cho taûi caùc phaàn meàm mieãn phí Va taïo caùc keywords chieán löôïc cho caùc trang web Vaø söû duïng phaàn meàm Top Ranking Submision, dynamics ranking submisions,…ñeå phaân tích caùc keywords roài submit leân caùc search engine nhö google, yahoo, MSN, lystos,… Vaø Website trao ñoåi links, logos vôùi websites ñoái taùc Vaø thöôøng e-mail cho khaùch haøng, ñoái taùc…veà thoâng tin, ñòa chæ website Vaø taïo partner robot.txt nhuùng vaøo website ñeå töông taùc vôùi spiders vaø robots.txt cuûa caùc search engine, giuùp vieäc tìm kieám vaø xeáp haïng hieäu quaû hôn Thì coù moät chieán löôïc web-marketing toát R2: Neáu heä thoáng website töï ñoäng gôûi mail cho khaùch haøng, ñoái taùc…vaøo nhöõng ngaøy ñaëc bieät nhö: sinh nhaät, thaønh laäp coâng ty, caùc ngaøy leã lôùn. Vaø heä thoáng websites töï ñoäng gôûi newsletters veà thoâng tin khuyeán maõi , saûn phaåm môùi ñeán khaùch haøng, ñoái taùc ñònh kyø Vaø websites coù xaây döïng moät heä chuyeân gia ñeå tö vaán 24/24 cho khaùch haøng veà thoâng tin dòch vuï, saûn phaåm cuûa coâng ty thì coù chieán löôïc chaêm soùc khaùch haøng maïng toát R3: Neáu duøng phaàn meàm web analyzer ñeå phaân tích file log.zip ñöôïc taøi töø server (log.zip ghi cheùp laïi taát caû thao taùc cuûa visitors khi hoï löôùt websites thì bieát ñöôïc thoâng tin truy caäp websites cuûa visitors R4: Neáu quaûn lyù thoâng tin nhaân vieân cuûa coâng ty qua website Vaø caùc phoøng ban trong coâng ty coù theå meeting qua website hieäu quaû 12 GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử Vaø huaán luyeän nhaân söï qua websites Vaø chæ ñaïo nhaân vieân caáp döôøi qua website Vaø laøm vieäc nhoùm qua website thì coù moät heä thoâng quan trò nhaân söï qua websiteis toát. R5: Neáu chuyeån tieàn qua taøi khoaûn Vaø thanh toaùn buø töø qua heä thoáng lieân ngaân haøng theá giôùi e-banking. Vaø thanh toaùn baèng theû tín duïng credit card thì coù theå thanh toaùn qua maïng Taäp R={R1,R2,R3,R4,R5} (R: laø taäp caùc luaät ) 1.2.1 Cô sôû döõ lieâu : - 2. Döõ lieäu ñöôïc nhuùng trong code. Ñöôïc truy xuaát nhanh. Ñöôïc xaây döïng töø taäp caùc söï kieän vaø taäp caùc luaät treân. Cô cheá hoaït ñoäng cuûa chöông trình : 2.1 Sô doà hoaït ñoäng : 2.1.1 Caáu truùc cuûa heä chuyeân gia : Explaination System User interface Inference engine User (f rom Use Case View) Knowledge base editor 13 Case specific data Knowledge base GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử 2.1.2 Chöông trình hoaït ñoâng: User Input Data Error Checked Data Messagebox Ok Processing data Output Data 2.1.3. Giaûi thích: - Tröôùc heát user ñöa ra vaán ñeà trôû ngaïi ñeå heä chuyeân gia chaån ñoùn Sau ñoù heä chuyeân gia tö vaân cho user baèng caùch phoûng vaán user. Cuoái cuøng heä chuyeân gia nhaän ñònh laïi vaán ñeà chaån ñoùn roài ñöa ra giaûi phaùp cho user. III. Chöông trình : bao goàm caùc forms sau : 1. Form flash: giôùi thieäu chöông trình Option Explicit Private Sub Form_Load() Picture2.Width = 0 Timer1.Interval = 200 End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Unload Me End Sub Private Sub Form_Unload(Cancel As Integer) 14 GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử Load MDIFrmMenu MDIFrmMenu.Show End Sub Private Sub Frame1_Click() Unload Me End Sub Private Sub Timer1_Timer() If Picture2.Width < Picture1.Width Then Picture2.Width = Picture2.Width + Picture1.Width \ 20 Else Timer1.Interval = 0 Unload Me End If End Sub 2. Form Maøn hình chính: lieät keâ muïc luïc chöông trình ñeå user choïn ‘ Hieän thò form Tu Van sales Skills khi user click choïn Private Sub MDIForm_Load() mnuSales.Enabled = False End Sub ‘ Hieän thò form Tu Van Phaân tích thoâng tin truy caäp website khi user click choïn Private Sub mnuAnalyse_Click() frmPhantich.Show 1 End Sub ‘ Hieän thò form Tu Van Dòch vuï chaêm soùc khaùch haøng qua maïng khi user click choïn Private Sub mnuCustomer_Click() frmCustomerSer.Show 1 End Sub ‘ Thoaùt khoûi chöông trình Private Sub mnuExit_Click() Unload Me End Sub ‘ Hieän thò form Tu Van quaûn trò nhaân söï qua maïng khi user click choïn Private Sub mnuHuman_Click() frmHumanMa.Show 1 End Sub ‘ Hieän thò form Tu Van thanh toaùn qua maïng khi user click choïn Private Sub mnuPayment_Click() frmPayment.Show 1 End Sub 15 GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử ‘ Hieän thò form Tu Van giao dòch qua maïng khi user click choïn Private Sub mnuTransaction_Click() frmGiaodich.Show 1 End Sub ‘ Hieän thò form Tu Van web-amrketing khi user click choïn Private Sub mnuWeb_Click() frmWebmarketing.Show 1 End Sub 3. Form Web-marketing: ' Khai baùo bieán toaøn cuïc Dim m_count As Integer Dim str_Thongbao As String ' Ñeám soá caâu hoûi cuûa heä chuyeân gia ‘ Thoâng baùo cuûa heä chuyeân gia ' Khi user muoán expert system tö vaán thì nuùt ñöôïc kích hoaït Private Sub btntuvan_Click() ‘ Expert System ñaët caâu hoûi vôùi user txthoi = "Thoâng tin website cuûa baïn coù haáp daãn vaø mieãn phí hay khoâng?" btnTuvan.Enabled = False OptCo.Enabled = True OptKhong.Enabled = True End Sub ' Thoaùt khoûi form Private Sub btnthoat_Click() Unload Me End Sub ' Xem keát quaû tö vaán Private Sub btnxemketqua_Click() 'Khai baùo bieán Dim xh As String Dim ch As String ' xuoáng haøng xh = Chr(13) & Chr(10) ch = " + Muoán coù chieán löôïc web-marketing toát vaø hieäu quaû thì : " ch = ch & xh & " - Thoâng tin websites haáp daãn vaø mieãn phí. " ch = ch & xh & " - Websites cho taûi caùc phaàn meàm mieãn phí. " ch = ch & xh & " - Taïo caùc keywords chieán löôïc cho caùc trang web. " ch = ch & xh & " - Söû duïng phaàn meàm Top Ranking Submision, dynamics ranking submisions,…ñeå phaân tích caùc keywords roài submit leân caùc search engine nhö : google, yahoo, MSN, lystos,… " ch = ch & xh & " - Website trao ñoåi links, logos vôùi websites ñoái taùc ." 16 GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử ch = ch & xh & " - Thöôøng e-mail cho khaùch haøng, ñoái taùc…veà thoâng tin, ñòa chæ website" ch = ch & xh & " - Taïo partner robot.txt nhuùng vaøo website ñeå töông taùc vôùi spiders vaø robots.txt cuûa caùc search engine, giuùp vieäc t?m kieám vaø xeáp haïng hieäu quaû hôn." txtketqua = ch btnTuvan.Enabled = False btnTtuc.Enabled = False btnBosung.Enabled = False End Sub ‘ User ñöa ra vaán ñeà ñeå chuyeân gia tö vaán Private Sub chkvande_Click() 'Kiem tra khi user check vao de bat dau chuan doan If chkvande.Value = 1 Then txtchandon = "Chieán löôïc web-marketing cuûa coâng ty baïn khoâng toát " btnTuvan.Enabled = True OptCo.Enabled = False OptKhong.Enabled = False Else txtchandon = "" txthoi = "" btnTuvan.Enabled = False btnXemketqua.Enabled = False btnTtuc.Enabled = False End If End Sub Private Sub Form_Load() m_count = 1 'Bien de dem so lan hoi btnTuvan.Enabled = False btnTtuc.Enabled = False btnXemketqua.Enabled = False btnBosung.Enabled = False End Sub ‘ User vaø expert sytem cuøng trao ñoåi vaán ñeà Private Sub OptCo_Click() m_count = m_count + 1 'Moi khi chon option thi bien nay se tang len 1 Select Case m_count Case 2: ' Cau hoi 2 txthoi = "Website cuûa baïn coù cho taûi phaàn meàm mieãn phí hay khoâng ?" OptCo.Value = False OptKhong.Value = False 17 GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử Case 3: ' Cau hoi 3 txthoi = "Baïn coù taïo caùc keywords chieán löôïc cho caùc trang web hay khoâng?" OptCo.Value = False OptKhong.Value = False Case 4: ' Cau hoi 4 txthoi = "Baïn coù söû duïng phaàn meàm Top Ranking Submision, dynamics ranking submisions,…ñeå phaân tích caùc keywords roài submit leân caùc search engine nhö : google, yahoo, MSN, lystos,… hay khoâng?" OptCo.Value = False OptKhong.Value = False Case 5: ' Cau hoi 5 txthoi = "Website cuûa baïn coù trao ñoåi links, logos vôùi websites ñoái taùc hay khoâng ?" OptCo.Value = False OptKhong.Value = False Case 6: ' Cau hoi 6 txthoi = "Baïn coù thöôøng e-mail cho khaùch haøng, ñoái taùc…veà thoâng tin, ñòa chæ website hay khoâng ?" OptCo.Value = False OptKhong.Value = False Case 7: ' Cau hoi 7 txthoi = "Baïn coù taïo partner robot.txt nhuùng vaøo website ñeå töông taùc vôùi spiders vaø robots.txt cuûa caùc search engine, giuùp vieäc tìm kieám vaø xeáp haïng hieäu quaû hôn hay khoâng ?" OptCo.Value = False OptKhong.Value = False Case Else: ' Ket thuc cau hoi If OptCo.Value = True Then MsgBox "Cuoc phong van ket thuc. De biet ket qua, nhan nut xem ket qua tu van", vbOKOnly + vbExclamation, "Thong bao" OptKhong.Value = False OptKhong.Enabled = False btnXemketqua.Enabled = True btnXemketqua.SetFocus End If End Select End Sub ‘ Expert system vaø user cuøng trao ñoåi vaán ñeà 18 GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử Private Sub OptKhong_Click() m_count = m_count + 1 'Moi khi chon option thi bien nay se tang len 1 Select Case m_count Case 2: ' Cau hoi 2 txthoi = "Website cuûa baïn coù cho taûi phaàn meàm mieãn phí hay khoâng ?" OptCo.Value = False OptKhong.Value = False Case 3: ' Cau hoi 3 txthoi = "Baïn coù taïo caùc keywords chieán löôïc cho caùc trang web hay khoâng?" OptCo.Value = False OptKhong.Value = False Case 4: ' Cau hoi 4 txthoi = "Baïn coù söû duïng phaàn meàm Top Ranking Submision, dynamics ranking submisions,…ñeå phaân tích caùc keywords roài submit leân caùc search engine nhö : google, yahoo, MSN, lystos,… hay khoâng?" OptCo.Value = False OptKhong.Value = False Case 5: ' Cau hoi 5 txthoi = "Website cuûa baïn coù trao ñoåi links, logos vôùi websites ñoái taùc hay khoâng ?" OptCo.Value = False OptKhong.Value = False Case 6: ' Cau hoi 6 txthoi = "Baïn coù thöôøng e-mail cho khaùch haøng, ñoái taùc…veà thoâng tin, ñòa chæ website hay khoâng ?" OptCo.Value = False OptKhong.Value = False Case 7: ' Cau hoi 7 txthoi = "Baïn coù taïo partner robot.txt nhuùng vaøo website ñeå töông taùc vôùi spiders vaø robots.txt cuûa caùc search engine, giuùp vieäc tìm kieám vaø xeáp haïng hieäu quaû hôn hay khoâng ?" OptCo.Value = False OptKhong.Value = False Case Else: ' Ket thuc cau hoi If OptKhong.Value = True Then MsgBox "Cuoc phong van ket thuc. De biet ket qua, nhan nut xem ket qua tu van ", vbOKOnly + vbExclamation, "Thong bao" OptCo.Value = False OptCo.Enabled = False btnXemketqua.Enabled = True btnXemketqua.SetFocus End If 19 GVHD: GS.TSKH Hoàng Văn Kiếm Hệ chuyên gia về thương mại điện tử End Select End Sub 4. Form Dòch vuï khaùch haøng qua maïng : tö vaán cho user dòch duï chaêm soùc khaùch haøng qua maïng ' Khai baùo bieán toaøn cuïc Dim m_count1 As Integer ' Dem so cau hoi cua he chuyen gia Dim str_Thongbao As String ‘ Thoâng baùo cuûa heä chuyeân gia ‘ Expert system baét ñaàu tö vaán khi nuùt ñöôïc kích hoaït Private Sub btntuvan_Click() txthoi = "Heä thoáng website cuûa baïn coù töï ñoäng göûi mail cho khaùch haøng, ñoái taùc… vaøo nhöõng ngaøy ñaëc bieät nhö: sinh nhaät, thaønh laäp coâng ty, caùc ngaøy leã lôùn… hay khoâng?" btnTuvan.Enabled = False OptCo.Enabled = True OptKhong.Enabled = True End Sub ' Thoat khoi form Private Sub btnThoat_Click() Unload Me End Sub ' Xem keát quaû tö vaân khi nuùt ñöôïc kích hoaït Private Sub btnxemketqua_Click() ' Khai bao bien Dim xh As String Dim ch As String ' Xuong hang xh = Chr(13) & Chr(10) ch = " + Baïn muoán coù dòch vuï chaêm soùc khaùch haøng qua maïng hieäu quaû thì: " ch = ch & xh & " - Heä thoáng website töï ñoäng göûi mail cho khaùch haøng, ñoái taùc… vaøo nhöõng ngaøy ñaëc bieät nhö: sinh nhaät, thaønh laäp coâng ty, caùc ngaøy leã lôùn. " ch = ch & xh & " - Heä thoáng websites töï ñoäng göûi newsletters veà thoâng tin khuyeán maõi, saûn phaåm môùi ñeán khaùch haøng, ñoái taùc ñònh kyø" ch = ch & xh & " - Websites coù xaây döïng moät heä chuyeân gia ñeå tö vaán 24/24 cho khaùch haøng veà thoâng tin dòch vuï, saûn phaåm cuûa coâng ty" txtketqua = ch btnTuvan.Enabled = False End Sub ‘ User ñöa ra vaán ñeà caàn chuyeân gia tö vaán Private Sub chkvande_Click() 'Kiem tra khi user check vao de bat dau chuan doan If chkvande.Value = 1 Then 20