Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống
1
/ 84 trang
THÔNG TIN TÀI LIỆU
Thông tin cơ bản
Định dạng
Số trang
84
Dung lượng
1,7 MB
Nội dung
ĐẠI HỌC QUỐC GIA HÀ NỘI TRƯỜNG ĐẠI HỌC CÔNG NGHỆ …………… NGUYỄN TIẾN ĐỨC ỨNG DỤNG TÍCH PHÂN MỜ TRONG XỬ LÝ THƠNG TIN Ngành: Cơng nghệ thơng tin Mã số: 1.01.10 LUẬN VĂN THẠC SỸ Người hướng dẫn khoa học: PGS TSKH Bùi Công Cường Hà Nội, 2007 TIEU LUAN MOI download : skknchat@gmail.com MỤC LỤC CHƢƠNG I: TỔNG QUAN .1 1.MỤC TIÊU, NỘI DUNG VÀ PHƢƠNG PHÁP NGHIÊN CỨU 2.TÓM TẮT NỘI DUNG CÁC CHƢƠNG CHƢƠNG II: ĐỘ ĐO LEBESGUE VÀ TÍCH PHÂN LEBESGUE ĐỘ ĐO LEBESGUE 1.1 NHẬN XÉT…… … 1.2 ĐỘ ĐO TRÊN MỘT ĐẠI SỐ TẬP HỢP .5 1.2.1 Đại số tập hợp 1.2.2 Hàm tập hợp… 1.2.3 Các tính chất 1.3 KHUẾCH ĐỘ ĐO…… .10 1.3.1 Độ đo ngoài… 10 1.3.2 Định lý khuếch: 10 1.4 ĐỘ ĐO TRONG Rk 12 1.4.1 Độ đo đƣờng thẳng: 12 1.4.2 Độ đo không gian Euclide k chiều .13 1.5 HÀM SỐ ĐO ĐƢỢC 14 1.5.1 Định nghĩa: 15 1.5.2 Các phép toán hàm số đo đƣợc 16 1.5.3 Cấu trúc hàm số đo đƣợc: .16 1.5.4 Hàm số tƣơng đƣơng 17 1.5.5 Sự hội tụ theo độ đo .17 1.5.6 Hai định lý cấu trúc hàm đo đƣợc 18 1.6* ĐỘ ĐO VÀ THỨ NGUYÊN HAUSDORFF 19 1.6.1 Độ đo Hausdorff 19 1.6.2 Thứ nguyên Hausdorff: .20 1.6.3 Thứ nguyên Kolmogorov: 21 TÍCH PHÂN LEBESGUE 23 2.1 SỰ HẠN CHẾ CỦA TÍCH PHÂN RIEMANN 23 2.1.1 Tích phân Riemann Rk 23 2.1.2 Dao động hàm số: 24 2.1.3 Tiêu chuẩn khả tích (R) 24 2.1.4 Tích phân Riemann tâp hợp: 26 2.2 TÍCH PHÂN LEBESGUE .28 2.2.1 Tích phân hàm đơn giản 28 2.2.2 Tích phân hàm đo đƣợc 30 2.2.3 Các tính chất sơ cấp: .31 2.3 QUA GIỚI HẠN DƢỚI DẤU TÍCH PHÂN .36 2.3.1 Hội tụ đơn điệu 36 2.3.2 Hội tụ chặn 36 2.3.3 Tích phân coi nhƣ hàm tập 37 2.4 TÍCH ĐỘ ĐO VÀ TÍCH PHÂN LẶP 38 2.4.1 Độ đo khơng gian tích 38 2.4.2 Tích phân lặp 39 TIEU LUAN MOI download : skknchat@gmail.com 2.5 TÍCH PHÂN VÀ ĐẠO HÀM TRONG R 39 2.5.1 Đạo hàm hàm số đơn điệu 40 2.5.2 Đạo hàm tích phân bất định 41 5.3 Hàm số có biến phân bị chặn hàm số tuyệt đối liên tục 41 2.5.4 Vấn đề tìm lại nguyên hàm .43 2.6 TÍCH PHÂN STIELJÈS .43 2.6.1 Độ đo L.S .43 2.6.2 Tích phân R.S 46 CHƢƠNG III: ĐỘ ĐO MỜ VÀ TÍCH PHÂN MỜ ĐỘ ĐO MỜ (fuzzy measures) 48 1.1 ĐỊNH NGHĨA ĐỘ ĐO MỜ 48 1.2 MỘT VÀI VÍ DỤ QUAN TRỌNG VỀ ĐỘ ĐO MỜ .49 1.2.1 Hàm lòng tin (belief function) hàm hợp lẽ (plausibility function) 49 1.2.2 Độ đo khả (Possibility theory) 50 1.2.3 Độ đo cực đại (maxitive measures, Shilkret 1971) [13] 51 TÍCH PHÂN MỜ (Fuzzy Intergrals) 52 2.1 TÍCH PHÂN CHOQUET 52 2.1.1 Định nghĩa tích phân Choquet 52 2.1.2 Các tính chất 54 CHƢƠNG IV: ỨNG DỤNG 57 Bài toán 57 Bài toán 60 KẾT LUẬN .61 TÀI LIỆU THAM KHẢO 62 PHỤ LỤC 1: MÃ NGUỒN CHƢƠNG TRÌNH 63 PHỤ LỤC 2: MÔ TẢ DỮ LIỆU 78 TIEU LUAN MOI download : skknchat@gmail.com CHƢƠNG I: TỔNG QUAN MỤC TIÊU, NỘI DUNG VÀ PHƢƠNG PHÁP NGHIÊN CỨU Mục tiêu luận văn Nắm sở lý thuyết độ đo mờ tích phân mờ, đưa phương hướng giải cho toán áp dụng vào thực tế Nội dung luận văn Luận văn có nội dung sau: - Tìm hiểu sở lý thuyết độ đo mờ tích phân mờ - Trình bày độ đo mờ, tích phân mờ ví dụ - Xây dựng chương chình cho số tốn Phƣơng pháp nghiên cứu - Kết hợp lý thuyết, thực nghiệm thực tế đưa đánh giá, kết luận - Học hỏi, nghiên cứu, phân tích lý thuyết lĩnh vực có liên quan luận văn, từ nguồn: thầy giáo, cô giáo, nhà khao học, chuyên gia, đồng nghiệp, sách báo, tài liệu, internet,… - Tìm hiểu thực tế yêu cầu, tiêu chuẩn đánh giá hệ thống - Đưa kết luận từ kết nghiên cứu TÓM TẮT NỘI DUNG CÁC CHƢƠNG Luận văn có chương phần mở đầu, kết luận Phần mở đầu Phần nêu lên cần thiết tích phân mờ độ đo mờ áp dụng vào toán thực tế Chƣơng I: Tổng quan Chương nêu lên mục tiêu, nội dung phương pháp nghiên cứu để hoan thành luận văn Chƣơng II: Độ đo Lebesgue tích phân Lebesgue Chương nêu lên định nghĩa, định lý, tính chất chứng minh số định lý quan trọng độ đo Lebesgue tích phân Lebesgue TIEU LUAN MOI download : skknchat@gmail.com Chƣơng III: Độ đo mờ tích phân mờ Chương nêu lên định nghĩa, định lý, tính chất chứng minh, ví dụ độ đo mờ tích phân mờ Chƣơng IV: Ứng dụng tích phân mờ Chương giới thiệu ứng dụng tích phân mờ thơng qua hai toán cụ thể Bài toán 1: Giá điện Bài toán 2: Giá đất Phần kết luận Phần nêu kết luận văn định hướng phát triển tương lai Phụ lục mã nguồn chƣơng trình TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10 CHƢƠNG II: ĐỘ ĐO LEBESGUE VÀ TÍCH PHÂN LEBESGUE ĐỘ ĐO LEBESGUE (Hoàng Tụy 2006, [3]) 1.1 NHẬN XÉT Trên đường thẳng R có tập điểm gán số khơng đổi mà ta gọi “độ dài”, ví dụ độ dài đoạn ∆ = [a;b] = ׀∆׀b-a; tập phân tách thành số hữu hạn đoạn rời ∆1, ∆2,…, ∆n độ dài dĩ nhiên ∆׀1 ׀+∆ ׀2 ׀+ …+ ∆׀n ׀ Nhưng có tập mà trực quan không cho ta thấy rõ nên xác định độ dài nào, hẳng hạn tập điểm hữu tỉ đoạn [0;1] Do nảy vấn đề: làm mở rộng khái niệm độ dài cho tập phức tạp đoạn thẳng hợp số hữu hạn đoạn thẳng Trong mặt phẳng R2 không gian R3 có vấn đề tương tự Trong mặt phẳng, ta biết đo diện tích hình chữ nhật, làm để đo diện tích tập phức tạp hơn? Trong không gian R3, ta biết đo thể tích hình hộp tập phân tích thành số hữu hạn hình hộp, làm để đo thể tích tập phức tạp hơn? Để thống phát biểu vấn đề, ta qui ước gọi chung danh từ “đoạn Rk” đoạn thẳng k = 1, hình chữ nhật k = 2, hình hộp k = Hình chữ nhật hiểu theo nghĩa tập điểm x = ( ξ 1, ξ2 ) cho α1 ≤ ξi ≤ βi (i=1,2); hình hộp tập điểm x = (ξ1, ξ2, ξ3) cho αi ≤ ξi ≤ βi (i=1,2,3) Ta gọi chung “độ đo” đoạn ∆ dùng ký hiệu ׀∆׀để biểu thị độ dài ∆ ∆ đoạn thơng thường, diện tích ∆ hình chữ nhật, thể tích ∆ hình hộp Vấn đề đặt là: tìm lớp tập Mk Rk để gán cho tập AMk số m(A), gọi độ đo nó, cho: a, 0≤ m(A) ≤+ ∞ b, đoạn ∆ thuộc lớp Mk m(∆) = ׀∆׀ c, A,B Mk rời m(A B) = m(A) + m(B) Peano Jordan giải vấn đề sau: Cho trước tập bị chặn A Rk, ta gọi “độ đo ngoài” số (LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10 TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10 n n m* inf i : i , i 1 i 1 Trong ∆i đoạn Nếu A nằm đoạn ∆0 ta gọi “độ đo trong” số m = – ׀∆׀m* (∆0\A) Tập hợp A gọi đo m*(A) = m Lúc đó, giá trị chung m*(A) m gọi độ đo A ký hiệu m(A) Cho Mk lớp tập đo theo nghĩa Peano-Jordan Có thể chứng minh lớp Mk thoả mãn điều kiện a), b), ) nêu trên, đồng thời lớp Mk kín phép toán: hợp, giao, trừ, tức A, B Mk A B Mk , A B Mk, A\B Mk Lớp Mk (gồm tập đo theo nghĩa Peano-Jordan) rộng: chứng minh bao gồm phần lớn tập hình học sơ cấp giải tích cổ điển Cụ thể, hàm số ƒ không âm, giới nội đoạn ∆ Rk khả tích Riemann tập: 1 , , , k , k 1 : k 1 f 1 , , k R k 1 đo theo nghĩa Peano-Jordan (và ngược lại đúng) Tuy nhiên lớp Mk chưa bao gồm nhiều tập tương đối đơn giản: khơng chứa hết tập mở đóng, trường hợp k = tập điểm hữu tỉ đoạn [0;1] khơng đo theo nghĩa Peano-Jordan, thấy dễ dàng độ đo ngồi 1, độ đo Vì vấn đề đặt tiếp tục mở rộng khái niệm độ đo để tập thường gặp đo Để giải vấn đề này, Lebesgue có sáng kiến thay định nghĩa (1) độ đo m inf i : i i 1 i 1 nghĩa cho phép dãy đoạn ∆i phủ lên A vơ hạn Độ đo tính đo được định nghĩa trước tập bị chặn, sau mở rộng cho tập khơng bị chặn Bằng cách xây dựng lớp tập Lk Rk độ đo μk Lk thoả mãn điều kiện a), b) (trong Mk, m thay Lk, μk ) điều kiện c‟) đây, tổng hoá điều kiện ): * c‟) Nếu Ai (i=1,2,3,… ) Lk đôi rời (LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10 TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10 k i i i 1 i 1 k chứng minh rằng: d) Lớp Lk -đại số Các tập thuộc Lk gọi đo theo nghĩa Lebesgue Rk μk gọi độ đo Lebesgue k thứ nguyên Dễ thấy Lk Mk b), d) nên Lk bao hàm σ-đại số Borel Rk; nói riêng tập điểm hữu tỉ đoạn [0;1] thuộc Lk; độ đo 0, độ đo đọ đo ngồi Nói chung, lớp Lk bao gồm tất tập R k cần thiết cho toán học đại người ta phải dựa vào “tiên đề chọn” xây dựng tập khơng thuộc lớp Độ đo Lebesgue sở khái niệm tích phân tổng qt có hiệu lực tích tích phân Riemann giải tích cổ điển: tích phân Lebesgue, cơng cụ chủ yếu nhiều nghành toán học đại (chẳng hạn xác suất) Vì giải tích đại thay tồn độ đo Peano-Jordan (cơ sở tích phân Riemann) 1.2 ĐỘ ĐO TRÊN MỘT ĐẠI SỐ TẬP HỢP 1.2.1 Đại số tập hợp a) Một lớp tập gọi kín phép toán kết thực phép toán tập lớp cho tập lớp Một đại số (hay trường) lớp chứa X, kín phép toán hữu hạn tập (phép hợp phép giao số hữu hạn tập, phép trừ phép trừ đối xứng hai tập) b) Một -đại số (hay -trường) lớp tập chứa X, kín phép tốn hữu hạn hay đếm tập Dĩ nhiên -đại số đại số 1.2.2 Hàm tập hợp Cho X tập tuỳ ý, mà sau gọi không gian, M lớp tập X Một hàm số μ xác định lớp M gọi hàm tập hợp, hay gọn hàm tập Hàm tập cộng tính nếu: A, B M, A B = Ø, A B M μ(A B) = μ(A) + μ(B) (LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10 TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10 Bằng qui lạp ta thấy μ cộng tính “hữu hạn cộng tính”, nghĩa Ai M (i=1,2,…,n) n n Ai Aj =Ø(i j) i i i 1 n i M i 1 i 1 Hàm tập μ -cộng tính Ai M (i=1,2,…) Ai Aj =Ø(i j) M i i i 1 i 1 i i 1 Dĩ nhiên hàm -cộng tính cộng tính ngược lại khơng thiết Một hàm tập μ gọi độ đo xác định đại số C; a) μ(A) ≥0 với A C; b) μ(Ø) =0 c) μ -cộng tính Điều kiện b) thay bằng: b‟) μ ≠ + ∞ C, nghĩa μ(A) < + ∞ với A C Thật đương nhiên b) → b‟) Ngược lại có b‟ μ(AØ ) = μ(A) + μ(Ø) từ đó, μ(A) < +∞ ta suy (tức μ(A) hữu hạn) μ(Ø) = μ(A) - μ(A) = (do μ(A) xác định) b‟)→b), nghĩa b) b‟) tương đương Ví dụ: 1) C đại số μ(A) số phần tử A (dễ dàng kiểm tra điều kiện thoả mãn) 2) C đại số, x0 điểm cho trước X, với AC: 1 0 x0 x Một độ đo μ gọi hữu hạn μ(X) < +∞; -hữu hạn (LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10 TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10 i , Xi C, i i 1 1.2.3 Các tính chất Định lý Nếu μ độ đo đại số C i) A, B C , B A, μ(B) ≤ μ(A) ii) A, B C , B A, μ(B) < + ∞ μ(A\B) = μ(A) - μ(B) Ai C , (i=1,2,…) iii) A C , A Ai i i 1 i 1 Ai C (i=1,2,…) Ai Aj = IV) A C , A A i i 1 i i 1 Chứng minh i) Vì B A nên A = (A\B) B μ(A) = μ(A\B) + μ(B) ≥ μ(B); ii) Nếu μ(B) < ∞ từ μ(A) = μ(A\B) + μ(B) suy μ(A\B) Trước hết để ý tập Bi iii) chọn để có / i , / i i i 1 đồng thời i/ rời (tường đôi một), i 1 i/ i , i C i/ C Thật vậy, cần đặt n 1 i/ 1 , 2/ \ 1 , 3/ \ 1 , … n/ n \ i , … i 1 ta thấy có tính chất nêu / i Bây ta chứng minh điểm iii) i , với i i C (do Vì i nên i i i 1 i 1 i 1 i 1 i , C) theo nhận xét i 1 i 1 i i/ , Trong i/ C, i/ i i nên theo (i) / i/ rời nên theo tính chất -cộng tính (LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10 TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10 Case 'Next MoveNext If EOF Then MoveLast End If Case 'Last MoveLast End Select 'Me.Caption = "DienSH Tester (" & AbsolutePosition & " of " & RecordCount & ")" End With mMove = True LoadControls End Sub Public Sub DimNav(cString As String) 'Routine to disable / enable the navigational buttons 'Same as dimcontrol 'Both can be combined as a single routine, 'taking cString and the control name as arguments Dim jcStr() As String Dim i As Integer jcStr = Split(cString, ",") For i = LBound(jcStr) To UBound(jcStr) cmdNavigate(i).Enabled = Val(jcStr(i)) Next End Sub Private Sub Command1_Click() Call ClearControls End Sub Private Sub Command2_Click() 'Thang If Text1.Text = "" Then MsgBox "Hay nhap so dien cho thang 1" Exit Sub End If If Not IsNumeric(Text1.Text) Then MsgBox "So dien cua thang phai la so" Exit Sub End If (LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10 TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10 If Val(Text1.Text) < Then MsgBox "So dien thang phai duong " Exit Sub End If ……… „tương tự cho tháng 2, 3, 4, 5, 6, 7, 8, 9,10, 11 12 dlgConfirmSH.Show End Sub Private Sub Command3_Click() Unload frmSinhHoat End Sub Private Sub Form_Load() Set cnAP = New ADODB.Connection 'Creates a new connection object Set rsDienSH = New ADODB.Recordset 'Creates a new Recordset object rsDienSH.CursorLocation = adUseClient cnAP.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ "Dbq=" & App.Path & "\mydb.mdb;" & _ "Uid=admin;" & _ "Pwd=" 'opens mydb.mdb which is located in the application path cnAP.CursorLocation = adUseClient rsDienSH.Open "SELECT * FROM DienSH;", cnAP, adOpenDynamic, adLockPessimistic 'Opens the record set LoadControls 'Call the procedure to read data from recordset and display it in text boxes Me.Caption = "DienSH Tester (" & rsDienSH.AbsolutePosition & " of " & rsDienSH.RecordCount & ")" 'Display the position and the total number of records in the Title Window (LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10 TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10(LUAN.VAN.THAC.SI).Ung.dung.tich.phan.mo.trong.xu.ly.thong.tin.Luan.van.ThS.Cong.Nghe.thong.tin.1.01.10 bBookMarkable = IIf(rsDienSH.Supports(adBookmark), True, False) 'All recordsets does not support bookmarking, so make sure that 'our recordset supports it, and if it does, then set bBookMarkable to True 'We are using iif function here aswell (this has nothing to with ADO though!) 'iif is a short form of the if else endif block 'the above statement can be written also as ' If rsDienSH.Supports(adBookmark) Then ' bBookMarkable = True ' Else ' bBookMarkable = False ' End If End Sub Private Sub LoadControls() With rsDienSH If RecordCount