›
›

Giáo trình PowerPoint - Tương tác bằng VBA - Võ Tấn Dũng

pdf 42 trang hoanguyen 3780
Download
Bạn đang xem 20 trang mẫu của tài liệu "Giáo trình PowerPoint - Tương tác bằng VBA - Võ Tấn Dũng", để tải tài liệu gốc về máy bạn click vào nút DOWNLOAD ở trên

Tài liệu đính kèm:

  • pdfgiao_trinh_powerpoint_tuong_tac_bang_vba_vo_tan_dung.pdf

Nội dung text: Giáo trình PowerPoint - Tương tác bằng VBA - Võ Tấn Dũng

  1. Mục lục Xây dựng bài trình chiếu tương tác bằng Powerpoint MỤC LỤC MỤC LỤC 1 BÀI 1. TỔNG QUAN 2 Mục tiêu 2 Giới thiệu 2 Thiết lập ban đầu 2 Cách sử dụng chung 3 Tóm tắt 5 BÀI 2. CÁC ĐỐI TƢỢNG CƠ BẢN 6 Mục tiêu 6 Giới thiệu 6 LABLE (nhãn)/ BUTTON (nút) 8 OPTION BOX/CHECK BOX 12 TEXT BOX 14 IMAGE 17 SPIN BUTTON 20 Tóm tắt 22 BÀI 3. CÁC ĐỐI TƢỢNG NÂNG CAO 23 Mục tiêu 23 Giới thiệu 23 WINDOWS MEDIA PLAYER (WMP) 24 SHOCKWAVE FLASH (SWF) 26 SPREADSHEET 11 (SPS) 28 Tóm tắt 31 BÀI 4. THỜI GIAN TRONG VBA 32 Mục tiêu 32 Giới thiệu 32 Nguyên tắc quản lý thời gian bằng VBA 32 Xây dựng đồng hồ 32 Tóm tắt 34 BÀI 5. SLIDE & SHAPE 35 Mục tiêu 35 Giới thiệu 35 Đọc/đổi tên Slide/Shape 36 Truy xuất đến Slide/Shape 36 Viết Macro cho Shape 37 Điều hướng Slide 37 Thay đổi nội dung Text bên trong Shape 37 Các ứng dụng thực tiễn của shape 38 Tóm tắt 40 TÀI LIỆU THAM KHẢO 41 Võ Tấn Dũng (onceclick@yahoo.com - 1
  2. Bài 01: Tổng quan Xây dựng bài trình chiếu tương tác bằng Powerpoint BÀI 1. TỔNG QUAN Mục tiêu Sau bài này bạn có thể:  Khởi tạo môi trường làm việc với Visual Basic trong Powerpoint  Trình bày được các bước cơ bản làm việc trong môi trường Visual Basic. Giới thiệu Trong thời gian gần đây việc thiết kế bài giảng tương tác với sự hỗ trợ của máy tính đang là vấn đề quan tâm của nhiều giáo viên. Có rất nhiều phần mềm máy tính hỗ trợ thiết kế tương tác chuyên nghiệp như Director, Flash. Tuy nhiên đa số các giáo viên ưa thích dùng Powerpoint hơn vì họ đã quen thuộc với phần mềm này từ trước. Với Powerpoint truyền thống giáo viên thường sử dụng các hiệu ứng (effect), Hình 1.1: Ví dụ về Powerpoint tƣơng tác hoạt cảnh (animation) cùng các thành phần multimedia như hình ảnh, âm thanh, siêu liên kết (Hyperlink), video nhúng trực tiếp vào Powerpoint. Những bài trình chiếu này chỉ mang tính minh họa (người xem chỉ nghe và tiếp nhận) chứ không tương tác với người dùng (người nghe tác động lên bài trình chiếu và bài trình chiếu trả về kết quả tương ứng). Bằng cách sử dụng ngôn ngữ VBA (Visual Basic for Application) tích hợp sẵn trong Powerpoint ta có thể tạo ra tương tác trong các bài trình chiếu. Những bài viết trong phần này sẽ hướng dẫn từng bước xây dựng các tương tác cơ bản diễn ra trong lớp học (Trắc nghiệm phản hồi, mô phỏng, điều khiển video, hình ảnh, Shockwave flash, thu thập ý kiến, xây dựng bài kiểm tra vv). Thiết lập ban đầu Thiết lập chế độ bảo mật Mặc định Powerpoint không cho phép chạy các macro vì các lý do về bảo mật. Để thuận tiện trong quá trình sử dụng VBA hãy thực hiện các bước sau để thiết lập lại chế độ bảo mật cho Powerpoint. Hình 1.2: Bảo mật trong PP 2007 Võ Tấn Dũng (onceclick@yahoo.com - 2
  3. Bài 01: Tổng quan Xây dựng bài trình chiếu tương tác bằng Powerpoint Đối với Microsoft Powerpoint 2003, Từ menu Tools, chọn Macro, chọn Security. Trong tab Security Level chọn mức Medium hoặc Low (tôi thường chọn Low để cho phép tất cả các Macro). Đối với Microsoft Powerpoint 2007, Click nút Microsoft Office (nút tròn ở góc trái trên màn hình), chọn Powerpoint Options, chọn ngăn Trust Center, click nút Trust Center Settings, chọn tab Macro Settings, và chọn Enable all Macros. Hình 1.3: Bảo mật trong PP 2003 Bật thanh công cụ VBA Mặt định thì bộ công cụ hỗ trợ làm việc trên VBA không được bật. Hãy làm các bước sau để hiển thị thanh công cụ này: Đối với Microsoft Powerpoint 2003, Click phải vào vị trí bất kỳ trên Toolbar, chọn Control Toolbox. Đối với Microsoft Powerpoint 2007, Click nút Microsoft Office, chọn Powerpoint Options, chọn ngăn Popular, nhấp chọn mục Show Developer Tab in Ribbon. Khi Hình 1.4: Toolbox trong PP 2003 & 2007 đó sẽ có thêm 1 ngăn Developer trên thanh Toolbar của Powerpoint 2007. Cách sử dụng chung Mỗi thành phần trên thanh Toolbox được gọi là một đối tượng, mỗi đối tượng này sẽ có một nhóm thuộc tính và phương thức tương ứng. Có thể đơn giản hiểu thuộc tính là những đặc điểm của đối tượng như chiều cao (Height), chiều rộng (Width), màu nền (BackColor), font chữ (Font), ẩn hiện (Visible), nội dung (Caption/Text), kiểu đường viền (Border Style) vv. Phương thức là những hoạt động sẽ diễn ra của đối tượng khi bị tác động chẳng hạn như khi click chuột vào sẽ xuất hiện thông báo (ta sẽ tạo ra tương tác bằng chức năng này). Những tác động vào đối tượng như click chuột, rê chuột qua vv gọi là các sự kiện (Event). Ví dụ 1.1: hãy chọn đối tượng label (hình chữ A) và vẽ lên slide. Tương tự cho các đối tượng khác. Để xem thuộc tính hãy click phải vào label vừa vẽ, chọn Properties, khi đó bảng thuộc tính của đối tượng này sẽ xuất hiện. Ta có thể thay đổi giá trị các thuộc tính này. Hình 1.5: Thuộc tính và kết quả tƣơng ứng Võ Tấn Dũng (onceclick@yahoo.com - 3
  4. Bài 01: Tổng quan Xây dựng bài trình chiếu tương tác bằng Powerpoint Ví dụ 1.2: Đặt tên cho label này bằng cách gán thuộc tính Name bằng lblA, chọn thuộc tính Font là Vni-Avo, thay đổi nội dung hiển thị trên label bằng cách đổi thuộc tính Caption thành “Ví dụ”, gán thuộc tính TextAlign thành 2-frmTextAlignCenter để canh giữa text trong label. Tạo viền bằng cách gán thuộc tính BorderStyle giá trị 1-fmBorderStyleSingle. Để tạo hoạt động cho 1 đối tượng hãy click đúp vào đối tượng đó. Khi đó cửa sổ Microsoft Visual Basic sẽ xuất hiện và cho phép ta viết các hoạt động cho sự kiện mặc định của đối tượng. Ví dụ 1.3: click đúp vào label ở trên, đối với nhãn sự kiện mặc định là click chuột chính vì vậy ta có cửa sổ VBA như sau: Hình 1.6: Cửa số Visual Basic Hãy viết thử đoạn lệnh sau: Private Sub lblA_Click() 'Xuat hien hop thoai thong bao MsgBox "Welcome to onceclick blog", , "Hello" End Sub Đoạn lệnh trên nhằm mục đích sẽ xuất hộp thoại với lời chào "Welcome to onceclick blog" ( tiêu đề hộp thoại có chữ "Hello") khi người dùng click vào label lblA. Hãy trình chiếu tập tin Powerpoint đang thiết kế và click vào lable trên slide 1 ta sẽ có kết quả như hình bên. Những điểm cần chú ý: Ngoài cách click đúp vào đối tượng để mở của sổ Visual Basic có thể dùng tổ hợp phím ALT + F11. Có thể thay đổi đối tượng và sự kiện xảy ra trên đối tượng thông qua 2 combobox trong cửa sổ Visual Basic. Tóm tắt các bƣớc sử dụng VBA trong Powerpoint B1. Chọn và vẽ một đối tượng lên slide. B2. Thay đổi thuộc tính của đối tượng thông qua hộp thoại Properties (Click phải vào đối tượng và chọn Properties) B3. Viết hoạt động cho các sự kiện xảy ra trên đối tượng bằng cách click đúp vào đối tượng. Võ Tấn Dũng (onceclick@yahoo.com - 4
  5. Bài 01: Tổng quan Xây dựng bài trình chiếu tương tác bằng Powerpoint B4. Có thể viết hoạt động cho nhiều sự kiện xảy ra trên cùng một đối tượng bằng cách chọn sự kiện ở combox trong của sổ Visual Basic. (Ví dụ có thể cùng viết hoạt động cho sự kiện click, click đúp, ) Tóm tắt Trước khi làm việc với VBA trong Powerpoint ta thường thiết lập lại chế độ bảo mật, bật thanh công cụ Toolbox. Mỗi thanh đối tượng có thuộc tính và phương thức đặc trưng. Có thể xem các thuộc tính các đối tượng thông qua hộp thoại Properties. Thay đổi thuộc tính của đối tượng sẽ làm thay đổi cách hiển thị của đối tượng. Có thể mở nhanh của số Visual Basic thông qua tổ hợp phím ALT + F11 hoặc click đúp vào đối tượng bất kỳ. Nên đặt tên các đối tượng theo quy tắc chung để dễ dàng nhận biết kiểu đối tượng khi sử dụng VBA. Võ Tấn Dũng (onceclick@yahoo.com - 5
  6. Bài 02: Các đối tượng cơ bản Xây dựng bài trình chiếu tương tác bằng Powerpoint BÀI 2. CÁC ĐỐI TƢỢNG CƠ BẢN Mục tiêu Sau bài này bạn có thể:  Trình bày được các thuộc tính và phương thức cơ bản của các đối tượng Label, Button, Option Box, Check Box, Text Box, Image, Spin Button.  Sử dụng được 2 hàm nhập xuất cơ bản: InputBox và MsgBox.  Vận dụng làm các dạng câu điền khuyết, đúng sai, nhiều lựa chọn, mô phỏng các cổng logic, trò chơi ghép hình. Giới thiệu Để vận dụng tốt VBA chỉ cần nhớ duy nhất một điều: “mỗi đối tượng có những thuộc tính và phương thức cơ bản” đa số các thuộc tính còn lại đều giống nhau ở các đội tượng như chiều cao (Height), chiều rộng (Width), màu nền (BackColor), font chữ (Font), ẩn hiện (Visible) vv. Thay đổi những thuộc tính của đối tượng dẫn đến sự thay đổi của đối tượng trên màn hình. Cần chú ý rằng các đối tượng của VBA trong Powerpoint không hỗ trợ đầy đủ font Unicode, chính vì vậy nên chọn thuộc tính font cho các đối tượng này là Vni hoặc ABC. Hình 2.1: Các thành phần trên ToolBox Loại đối tƣợng Chuỗi đại diện Label lbl Button btn Text Box txt Picture Box pic Spin Button spn Check Box chk Option Box opt Bảng 2.1: Chuỗi đại diện cho từng loại đối tƣợng Võ Tấn Dũng (onceclick@yahoo.com - 6
  7. Bài 02: Các đối tượng cơ bản Xây dựng bài trình chiếu tương tác bằng Powerpoint Mỗi đối tượng đều có một tên duy nhất. Để tiện cho quá trình viết code sau này nên đặt tên theo quy ước để khi nhìn tên có thể biết đối tượng đó thuộc loại nào. Quy ước: tên bắt đầu bằng chuỗi đại diện cho loại đối tượng, theo sau là chuỗi có nghĩa chữ đầu từ viết hoa. Ví dụ 2.1: Tên Label: lblCauHoi, lblLuaChon1, lblLuaChon2, lblLuaChon3, lblLuaChon4, lblDapAn vv Tên Text Box: txtNoiDung, txtCauHoi, txtGopY, vv Tên Check Box: chkLuaChon1, chkLuaChon2, chkLuaChon3, chkLuaChon4, vv Tên Picture Box: picMinhHoa, picChanDung, picGioiThieu, vv Khi học về các đối tƣợng cơ bản, giáo trình có sử dụng một số toán tử và cấu trúc sau: Toán tử: & (nối chuỗi), Then Cấu trúc if đầy đủ nếu điều kiện đúng thì thực hiện 1 hoặc nhiều câu lệnh, ngược lại nếu thực hiện 1 hoặc nhiều câu lệnh khác. If Then Else End If Hai hàm nhập xuất cơ bản: Để xuất hiện hộp thoại thông báo cho người dùng ta dùng hàm MsgBox với mẫu MsgBox "Noi dung thong bao", , "Tieu de hop thoai" Để yêu cầu người dùng nhập vào một giá trị ta dùng hàm InputBox với mẫu InputBox "Nhap vao gia tri cho x", "Nhap x" Võ Tấn Dũng (onceclick@yahoo.com - 7
  8. Bài 02: Các đối tượng cơ bản – Label/Button Xây dựng bài trình chiếu tương tác bằng Powerpoint LABLE (nhãn)/ BUTTON (nút) Label/Button thông thường được dùng để hiển thị thông tin text đơn giản. Cho phép người dùng tác động lên thông qua các sự kiện như click, click đúp. Thuộc tính Mô tả Caption Nội dung hiển thị trên label/button Enable Kích hoạt hay không kích hoạt. Nếu mang giá trị False người dùng không thể tác động lên label/button. Visible Ân nếu mang giá trị False, hiện nếu mang giá trị True WordWrap Cho phép text nằm trên nhiều dòng nếu mang giá trị True, ngược lại text nằm trên 1 dòng Bảng 2.2: Các thuộc tính cơ bản của Label Sự kiện cơ bản của label/button là Click nghĩa là ta sẽ viết những hoạt động xảy ra khi người dùng click chuột vào chúng. Ví dụ 2.2: Dùng nhãn để xây dựng câu hỏi dạng điền vào chổ trống với những từ cho trước như hình 2.2. Kết quả của ví dụ này là một slide trên đó có 5 chổ trống cần điền và 5 cụm từ cho trước. Người học sẽ điền vào chổ trống bằng cách click vào cụm từ cho sẵn sau đó click vào một ô trống. Người học có quyền làm lại bằng cách nhấn vào nhãn “Làm lại”. Sau khi làm xong người học click vào nút chấm điểm để xem điểm. Ý tƣởng: Sử dụng 5 label dành cho ô trống, 5 label dành cho cụm từ cho trước, 3 label lần lượt cho “Chấm điểm”, “Làm lại”, và điểm trả về. Ngoài ra còn có 1 label ẩn dùng để làm trung gian. Khi người dùng click vào cụm từ cho sẵn sẽ gán caption của label này cho label tạm. Khi người dùng click vào ô trống ta thực hiện gán caption của label tạm cho label ô trống. Hình 2.2: Điền vào ô trống với từ cho trƣớc làm bằng Label Võ Tấn Dũng (onceclick@yahoo.com - 8
  9. Bài 02: Các đối tượng cơ bản – Label/Button Xây dựng bài trình chiếu tương tác bằng Powerpoint Lƣu ý Nếu có nhiều label, đầu tiên ta tạo một label, gán các thuộc tính cần thiết cho label này như Font (Vni-Avo), canh lề vv. Sau đó dùng CTRL + di chuyển đối tƣợng để copy nhanh đối tượng. Có thể cùng lúc gán thuộc tính cho nhiều đối tượng cùng lúc bằng cách dùng phím SHIFT + click để chọn nhiều đối tượng và thay đổi thuộc tính trong cửa sổ Properties. Những nội dung cố định chỉ cần dùng Text Box bình thường của thanh công cụ Drawing. Hƣớng dẫn chi tiết: Bước 1: Tạo một label, gán thuộc tính font = Vni-Avo, Text Align =2. Sau đó copy ra thành 14 label. Bước 2: Lần lượt đặt tên các đối tượng như sau: lblO1, lblO2, lblO3, lblO4, lblO5 (dành cho các ô trống), lblAnswer1, lblAnswer2, lblAnswer3, lblAnswer4, lblAnswer5 (dành cho các cụm từ cho trước), lblChamDiem, lblReset, lblDiem (dành cho “Chấm điểm” , “Làm lại” và chứa điểm khi người dùng click vào “Chấm điểm”), lblTemp (dùng làm label trung gian để chuyển caption từ cụm từ cho trước sang ô trống) riêng label này có thuộc tính visible=0 để không hiển thị lên slide. Bƣớc 3: Thực hiện đoạn code giúp người dùng chuyển caption từ cụm từ cho trước sang ô trống. Ở đây ta dùng label trung gian. Khi người dùng click vào cụm từ cho trước ta sẽ gán caption của lable trung gian bằng với caption của cụm từ này. 'Khi nguoi dung click vao cum tu 1 (Chu Nhat) Private Sub lblAnswer1_Click() lblTemp.Caption = lblAnswer1.Caption End Sub 'Khi nguoi dung click vao cum tu 2 (25) Private Sub lblAnswer2_Click() lblTemp.Caption = lblAnswer2.Caption End Sub 'Khi nguoi dung click vao cum tu 3 (Dong) Private Sub lblAnswer3_Click() lblTemp.Caption = lblAnswer3.Caption End Sub 'Khi nguoi dung click vao cum tu 4 (Tay) Private Sub lblAnswer4_Click() lblTemp.Caption = lblAnswer4.Caption End Sub 'Khi nguoi dung click vao cum tu 5 (24) Private Sub lblAnswer5_Click() lblTemp.Caption = lblAnswer5.Caption End Sub Võ Tấn Dũng (onceclick@yahoo.com - 9
  10. Bài 02: Các đối tượng cơ bản – Label/Button Xây dựng bài trình chiếu tương tác bằng Powerpoint Bước 4: Khi người dùng click vào ô trống, ta gán caption của label tạm cho ô trống. 'Khi nguoi dung click vao o trong 1 (Chu Nhat) Private Sub lblO1_Click() lblO1.Caption = lblTemp.Caption End Sub 'Khi nguoi dung click vao o trong 2 (25) Private Sub lblO2_Click() lblO2.Caption = lblTemp.Caption End Sub 'Khi nguoi dung click vao o trong 3 (Dong) Private Sub lblO3_Click() lblO3.Caption = lblTemp.Caption End Sub 'Khi nguoi dung click vao o trong 4 (Tay) Private Sub lblO4_Click() lblO4.Caption = lblTemp.Caption End Sub 'Khi nguoi dung click vao o trong 5 (24) Private Sub lblO5_Click() lblO5.Caption = lblTemp.Caption End Sub Bước 5: Khi người dùng muốn làm lại ta gán caption các ô trống về rỗng Private Sub lblReset_Click() lblO1.Caption = "" lblO2.Caption = "" lblO3.Caption = "" lblO4.Caption = "" lblO5.Caption = "" lblDiem.Caption = "" End Sub Bước 6: Khi người dùng click vào “chấm điểm” ta lần lượt so sánh nội dung của ô trống và cụm từ cho trước, nếu giống nhau (đúng) ta cộng dồn caption của label điểm với 1. Private Sub lblChamDiem_Click() lblDiem.Caption = "0" If lblO1.Caption = lblAnswer1.Caption Then lblDiem.Caption = lblDiem.Caption + 1 If lblO2.Caption = lblAnswer2.Caption Then lblDiem.Caption = lblDiem.Caption + 1 If lblO3.Caption = lblAnswer3.Caption Then lblDiem.Caption = lblDiem.Caption + 1 If lblO4.Caption = lblAnswer4.Caption Then lblDiem.Caption = lblDiem.Caption + 1 If lblO5.Caption = lblAnswer5.Caption Then lblDiem.Caption = lblDiem.Caption + 1 End Sub Ví dụ 2.3: Thay hai label “Chấm điểm” và “Làm lại” trên bằng button. Tương tự như trên ta xóa 2 label này, tạo 2 button mới đặt tên lần lượt là btnChamDiem, btnReset. Nội dung code bên trong không thay đổi so với trường hợp trên. Chỉ khác là nút có giao diện 3D. Võ Tấn Dũng (onceclick@yahoo.com - 10
  11. Bài 02: Các đối tượng cơ bản – Label/Button Xây dựng bài trình chiếu tương tác bằng Powerpoint Private Sub btnReset_Click() lblO1.Caption = "" lblO2.Caption = "" lblO3.Caption = "" lblO4.Caption = "" lblO5.Caption = "" lblDiem.Caption = "" End Sub Private Sub btnChamDiem_Click() lblDiem.Caption = "0" If lblO1.Caption = lblAnswer1.Caption Then lblDiem.Caption = lblDiem.Caption + 1 If lblO2.Caption = lblAnswer2.Caption Then lblDiem.Caption = lblDiem.Caption + 1 If lblO3.Caption = lblAnswer3.Caption Then lblDiem.Caption = lblDiem.Caption + 1 If lblO4.Caption = lblAnswer4.Caption Then lblDiem.Caption = lblDiem.Caption + 1 If lblO5.Caption = lblAnswer5.Caption Then lblDiem.Caption = lblDiem.Caption + 1 End Sub Võ Tấn Dũng (onceclick@yahoo.com - 11
  12. Bài 02: Các đối tượng cơ bản – Option/Check Xây dựng bài trình chiếu tương tác bằng Powerpoint OPTION BOX/CHECK BOX Thuộc tính Mô tả Value Giá trị của đối tượng, True nếu được check ngược lại mang giá trị False. GroupName Phân nhóm. Những đối tượng cùng GroupName sẽ thuộc cùng 1 nhóm. Ví dụ có 2 câu hỏi nhiều lựa chọn nằm trên cùng 1 trang thì bốn lựa chọn a-b-c-d của câu một sẽ thuộc 1 nhóm, a-b-c-d của câu 2 sẽ thuộc 1 nhóm. Tên nhóm do người dùng tự đặt. Bảng 2.3: Những thuộc tính cơ bản của Option Box/Check Box Option Box/Check Box thông thường được dùng để cung cấp cho người dùng những lựa chọn. Option Box chỉ cho phép người dùng chọn 1 trong số nhiều lựa chọn (thường dùng trong trắc nghiệm nhiều lựa chọn). Check Box cho phép người dùng chọn nhiều lựa chọn (dùng để thu thập thông tin người dùng như sở thích chẳng hạn). Ngoài những thuộc tính như Label/Button hai thành phần này có một số thuộc tính quan trọng như trong bảng 2.3. Ví dụ 2.4: Sử dụng Option Box để tạo câu hỏi nhiều lựa chọn (hình 2.3). Kết quả của ví dụ này là slide gồm 2 câu hỏi 4 lựa chọn, cho phép người dùng làm lại và chấm điểm. Hình 2.3: Câu hỏi nhiều lựa chọn với Option Box Ý tƣởng: Vì câu hỏi chỉ có 1 kết quả đúng nên ta dùng Option Box để làm các lựa chọn. Vì Option Box chỉ cho phép chọn 1 trong cùng nhóm, chính vì vậy ta tách Option Box thành 2 nhóm (nhóm cau1 và cau2). Hƣớng dẫn chi tiết: Bước 1: Tạo nội dung cố định gồm câu hỏi và tiêu đề slide bằng Powerpoint thông thường. Tạo 8 Option Box lần lượt đặt tên là opt1A, opt1B, opt1C, opt1D (dùng cho 4 lựa chọn của câu 1), opt2A, opt2B, opt2C, opt2D (dùng cho 4 lựa chọn của câu 2). Các nút “Chấm điểm”, “Làm lại” tương tự như ví dụ 2.2. Võ Tấn Dũng (onceclick@yahoo.com - 12
  13. Bài 02: Các đối tượng cơ bản – Option/Check Xây dựng bài trình chiếu tương tác bằng Powerpoint Bước 2: Tách thành 2 nhóm bằng cách gán thuộc tính GroupName=cau1 cho 4 lựa chọn của câu 1 và GroupName=cau2 cho 4 lựa chọn còn lại. Bước 3: Khi người dùng muốn làm lại ta sẽ gán giá trị False cho các lựa chọn và đưa điểm về giá trị rỗng. Private Sub lblReset_Click() opt1A.Value = False opt1B.Value = False opt1C.Value = False opt1D.Value = False opt2A.Value = False opt2B.Value = False opt2C.Value = False opt2D.Value = False lblDiem.Caption = "" End Sub Bước 4: Khi người dùng click vào “Chấm điểm” sẽ đưa điểm về 0, nếu opt1B được chọn ta nâng điểm lên 1, tương tự nếu opt2C được chọn ta nâng điểm lên 1. Private Sub lblChamDiem_Click() lblDiem.Caption = "0" If opt1B.Value = True Then lblDiem.Caption = lblDiem.Caption + 1 If opt2C.Value = True Then lblDiem.Caption = lblDiem.Caption + 1 End Sub Võ Tấn Dũng (onceclick@yahoo.com - 13
  14. Bài 02: Các đối tượng cơ bản – Text Box Xây dựng bài trình chiếu tương tác bằng Powerpoint TEXT BOX TextBox được sử dụng để người dùng nhập dữ liệu vào. TextBox KHÔNG có thuộc tính Caption như các thành phần trên. Thuộc tính quan trọng nhất của Text Box là Text. Dưới đây là các thuộc tính hay dùng. Thuộc tính Mô tả Text/Value Nội dung có trong Text Box. Text và Value thường có giá trị giống nhau. Tuy nhiên khi thực hiện phép tính trên số ta thường dùng value, khi thực hiện các phép trên chuỗi ta dùng thuộc tính Text. MultiLine Nếu True sẽ cho phép người dùng nhập trên nhiều dòng. Để xuống dòng trong Text Box ta nhấn SHIFT + ENTER. ScrollBars Hiển thị thanh cuộn trong trường hợp nội dung trong Text Box quá dài Bảng 2.4: Các thuộc tính hay dùng của Text Box Sự kiện mặc định của Text Box là change xảy ra khi người dung thay đổi nội dung trong Text Box. Ví dụ 2.5: Sử dụng Text Box để làm câu hỏi dạng điền khuyết. Kết quả của ví dụ này là một slide trên đó có 5 ô điền khuyết. Người dùng sẽ nhập giá trị thích hợp theo yêu của đề. Chương trình cho phép tính điểm và làm lại. Hình 2.4: Câu hỏi điền khuyết dùng Text Box Hƣớng dẫn chi tiết: Bước 1: Soạn đề, tạo ra 5 Text Box lần lượt đặt tên là txt1, txt2, txt3, txt4, txt5 tương ứng với năm vị trí cần điền. Có thể thay đổi màu nền (BackColor), Font chữ cho phù hợp. Các Label khác tương tự như các ví dụ trên. Võ Tấn Dũng (onceclick@yahoo.com - 14
  15. Bài 02: Các đối tượng cơ bản – Text Box Xây dựng bài trình chiếu tương tác bằng Powerpoint Bước 2: Khi người dùng chọn “Làm lại” ta làm rỗng các Text Box nhờ thuộc tính Text. Private Sub lblReset_Click() txt1.Text = "" txt2.Text = "" txt3.Text = "" txt4.Text = "" txt5.Text = "" lblDiem.Caption = "" End Sub Bước 3: So sánh các Text Box với kết quả để cộng dồn điểm. Private Sub lblChamDiem_Click() lblDiem.Caption = "0" If txt1.Text = "FALSE" Then lblDiem.Caption = lblDiem.Caption + 1 If txt2.Text = "FALSE" Then lblDiem.Caption = lblDiem.Caption + 1 If txt3.Text = "TRUE" Then lblDiem.Caption = lblDiem.Caption + 1 If txt4.Text = "TRUE" Then lblDiem.Caption = lblDiem.Caption + 1 If txt5.Text = "FALSE" Then lblDiem.Caption = lblDiem.Caption + 1 End Sub Ví dụ 2.6: Xây dựng mô phỏng bằng Text Box. Kết quả của ví dụ này là slide cho phép người dùng thực hiện thí nghiệm trên cổng AND và ghi nhận lại kết quả từ đó rút ra nhận xét về cổng AND. Hình 2.5: Tạo mô phỏng cổng AND bằng Text Box Ý tƣởng: Cổng AND có 2 đầu vào và một đầu ra. Ở đây ta qui định 0 là False và 1 là True. Ta sẽ viết hoạt động cho sự kiện change ở 2 Text Box đầu vào. Võ Tấn Dũng (onceclick@yahoo.com - 15
  16. Bài 02: Các đối tượng cơ bản – Text Box Xây dựng bài trình chiếu tương tác bằng Powerpoint Hƣớng dẫn chi tiết: Bước 1: Vẽ hình, tạo đề bằng các thành phần thông thường trong Powerpoint. Tạo 8 Text Box lần lượt đặt tên là txtIn1, txtIn2 (dùng cho 2 đầu vào), txtOut (dùng cho đầu ra – có thuộc tính Locked=True để không cho người dùng nhập giá trị vào Text Box này), txt1, txt2, txt3, txt4 (dùng để người dùng ghi nhận lại kết quả), txtNhanXet (dùng để người dùng ghi nhận xét). Bước 2: Khi người dùng thay đổi txtIn1 hoặc txtIn2 ta đều thay đổi giá trị của txtOut, chính vì vậy ta sẽ viết một thủ tục riêng (ThiNghiem) để tính giá trị của txtOut từ hai giá trị nhập vào trong txtIn1 và txtIn2. Sau đó sẽ gọi thủ tục này trong sự kiện change của txtIn1 và txtIn2. Cần lưu ý rằng cả txtIn1 và txtIn2 chỉ nhận 2 giá trị 0 hoặc 1, do đó nếu người dùng nhập các giá trị khác ta quy ước nó là giá trị 0. Private Sub ThiNghiem() 'Bao dam rang chi co 2 gia tri 0 hoac 1 o cong nhap If txtIn1.Value 1 Then txtIn1.Value = 0 If txtIn2.Value 1 Then txtIn2.Value = 0 'Tao ket qua If txtIn1.Value = txtIn2.Value And txtIn1.Value = 1 Then txtOut.Value = 1 Else txtOut.Value = 0 End If End Sub Private Sub txtIn1_Change() ThiNghiem End Sub Private Sub txtIn2_Change() ThiNghiem End Sub Bước 3: Khi người dùng click “Làm lại” Private Sub lblReset_Click() txtOut.Text = "" txtIn1.Text = "" txtIn2.Text = "" txt1.Text = "" txt2.Text = "" txt3.Text = "" txt4.Text = "" txtNhanXet.Text = "" End Sub Võ Tấn Dũng (onceclick@yahoo.com - 16
  17. Bài 02: Các đối tượng cơ bản – Image Xây dựng bài trình chiếu tương tác bằng Powerpoint IMAGE Image thường được dùng để chứa hình. Thuộc tính cơ bản là Picture. Khi thay đổi thuộc tính này sẽ dẫn đến thay đổi hình chứa bên trong Image. Thuộc tính Mô tả Picture Hình chứa bên trong Pictrue Box. PictureSizeMode Có 3 giá trị tương ứng với giữ nguyên kích thước hình, dãn kích thước cho bằng với khung hình (fmPictureSizeModeStretch-hay dùng), phóng to nội dung bên trong. Bảng 2.5: Các thuộc tính cơ bản của Image Sự kiện cơ bản trên Image vẫn là Click. Để hiển thị hình từ bên ngoài ta dùng hàm LoadPicture với tham số là đường dẫn đến hình. Khi load hình ta nên xét vị trí tương đối giữa hình với file Powerpoint đang trình chiếu. ActivePresentation.Path trả về vị trí của file Powerpoint đang trình chiếu. Ví dụ 2.7: Hướng dẫn sử dụng LoadPicture. Kết quả của ví dụ này là một công tắt điện. Khi người dùng click vào công tắc sẽ chuyển trạng thái bằng cách đổi hình. Giả sử rằng 2 hình này được đặt trong thư mục media nằm ngang cấp với file Powerpoint đang thiết kế. Hƣớng dẫn chi tiết: Bước 1: Tạo một đối tượng Image đặt tên imgCongTac, một đối tượng Label tên lblStatus. Gán thuộc tính caption của lblStatus giá trị là “On”. Bước 2: Viết sự kiện click cho Image. Nếu lblStatus.caption=”On” ta chuyển trạng thái về Off và ngược lại. Private Sub imgCongTac_Click() 'Thay doi trang thai If lblStatus.Caption = "On" Then lblStatus.Caption = "Off" imgCongTac.Picture = LoadPicture(ActivePresentation.Path & "\media\off.jpg") Else lblStatus.Caption = "On" imgCongTac.Picture = LoadPicture(ActivePresentation.Path & "\media\on.jpg") End If 'Refresh Image imgCongTac.Visible = False imgCongTac.Visible = True End Sub Võ Tấn Dũng (onceclick@yahoo.com - 17
  18. Bài 02: Các đối tượng cơ bản – Image Xây dựng bài trình chiếu tương tác bằng Powerpoint Một điểm cần chú ý ở đây là sau khi thay đổi hình, ta phải Refresh là Image để hiển thị đúng bằng cách cho Image ẩn đi và hiển thị lại thông qua thuộc tính Visible. Ví dụ 2.8: Sử dụng Image tạo trò chơi ghép hình. Kết quả của của ví dụ này là một slide trên đó có 4 mảnh hình nguồn không theo thứ tự, 4 ô trống để người dùng đưa hình phù hợp vào. Hình 2.6: Trò chơi xếp hình bằng Picture Box Ý tƣởng: Để chuyển hình từ ảnh nguồn sang vị trí thích hợp ta sử dụng một Image tạm làm trung gian. Image tạm này sẽ có thuộc tính visible=false để người dùng không thấy trong khi trình chiếu. Hƣớng dẫn chi tiết: Bước 1: Tạo 9 Image lần lượt đặt tên là imgS1, imgS2, imgS3, imgS4 (dùng chứa 4 hình nguồn), imgD1, imgD2, imgD3, imgD4 (làm khung để người dùng xếp hình), imgTemp (dùng làm trung gian chuyển hình từ nguồn sang đích–thuộc tính visible=false). Các Image này đều có thuộc tính PictureSizeMode=fmPictureSizeModeStretch. Bước 2: Dùng thuộc tính Picture ở hộp thoại Properties để hiển thị 4 hình mong muốn. Bước 3: Khi người dùng click vào các hình nguồn sẽ đưa hình vào imageTemp. Private Sub imgS1_Click() imgTemp.Picture = imgS1.Picture End Sub Private Sub imgS2_Click() imgTemp.Picture = imgS2.Picture End Sub Private Sub imgS3_Click() imgTemp.Picture = imgS3.Picture End Sub Võ Tấn Dũng (onceclick@yahoo.com - 18
  19. Bài 02: Các đối tượng cơ bản – Image Xây dựng bài trình chiếu tương tác bằng Powerpoint Private Sub imgS4_Click() imgTemp.Picture = imgS4.Picture End Sub Bước 4: Khi người dùng click vào các ô trống sẽ chuyển hình từ imageTemp vào ô trống. Private Sub imgD1_Click() imgD1.Picture = imgTemp.Picture 'Refresh D1 imgD1.Visible = False imgD1.Visible = True End Sub Private Sub imgD2_Click() imgD2.Picture = imgTemp.Picture 'Refresh D2 imgD2.Visible = False imgD2.Visible = True End Sub Private Sub imgD3_Click() imgD3.Picture = imgTemp.Picture 'Refresh D3 imgD3.Visible = False imgD3.Visible = True End Sub Private Sub imgD4_Click() imgD4.Picture = imgTemp.Picture 'Refresh D4 imgD4.Visible = False imgD4.Visible = True End Sub Bước 5: Khi người dùng click vào “Làm lại” sẽ tải lên hình rỗng vào các ô trống. Private Sub lblReset_Click() imgD1.Picture = LoadPicture("") imgD2.Picture = LoadPicture("") imgD3.Picture = LoadPicture("") imgD4.Picture = LoadPicture("") 'Refresh D1, D2, D3, D4 imgD1.Visible = False imgD1.Visible = True imgD2.Visible = False imgD2.Visible = True imgD3.Visible = False imgD3.Visible = True imgD4.Visible = False imgD4.Visible = True End Sub Võ Tấn Dũng (onceclick@yahoo.com - 19
  20. Bài 02: Các đối tượng cơ bản – Spin Button Xây dựng bài trình chiếu tương tác bằng Powerpoint SPIN BUTTON Spin Button thường được dùng để thay đổi giá trị của những đối tượng khác theo giá trị của nó. Spin Button bao gồm 2 nút theo chiều ngang hoặc dọc để người dùng thăng hoặc giảm giá trị, khi người dùng click vào mỗi nút giá trị sẽ thay đổi tùy thuộc vào thuộc tính SmallChange. Giá trị của Spin chỉ được nằm trong đoạn từ thuộc tính Min đến Max. Thuộc tính Mô tả Value Giá trị hiện thời của Spin. Min/Max Giá trị nhỏ nhất và lớn nhất của Spin. Orientation Hướng của Spin. Dọc hoặc ngang. SmallChange Độ chênh lệnh mỗi lần thay đổi giá trị. Bảng 2.6: Các thuộc tính của Spin Button Sự kiện mặc định của Spin là Change. Có nghĩa là sự kiện xảy ra khi người dùng thay đổi giá trị Spin thông qua các nút bấm. Ví dụ 2.9: Dùng Spin kết hợp với Image xây dựng slide giúp học từ vựng tiếng anh. Kết quả của ví dụ này là slide trên đó có nút điều khiển tới lui (Spin) cho phép người dùng xem hình và học từ vựng tương ứng (hình 2.8). Ý tƣởng: Dùng 2 Image để load hình và text (hình text) tương ứng. Dùng Spin để điều hướng. Tùy vào giá trị của Spin mà load các hình tương ứng. Hƣớng dẫn chi tiết: Hình 2.7: Học từ vựng bằng Spin + Image Bước 1: Tạo 2 Image lần lượt đặt tên là imgHinh (dành cho hình minh họa), imgText (dùng cho hình text minh họa). Spin có tên là spn, có Min=1, Max=5 (vì ta có 5 hình minh họa), SmallChange=1. Bước 2: Các tập tin hình được đặt tên có qui cách và đặt trong thư mục media nằm ngang cấp với tập tin Powerpoint bao gồm: Hinh1.jpg đến Hinh5.jpg, Text1.jpg đến Text5.jpg. Chú ý rằng ta có thể lấy vị trí của tập tin Powerpoint thông qua ActivePresentation.Path. Võ Tấn Dũng (onceclick@yahoo.com - 20
  21. Bài 02: Các đối tượng cơ bản – Spin Button Xây dựng bài trình chiếu tương tác bằng Powerpoint Bước 3: Khi người dùng thay đổi giá trị của Spin ta load các hình tương ứng bằng cách dùng phép nối chuỗi & để tạo ra đường dẫn thích hợp. Giả sử tập tin Powerpoint đang ở ổ đĩa D:\Powerpoint, giá trị của Spin đang là 2, khi đó chuỗi trả về của chúng ta là “D:\Powerpoint” & “\media\Hinh” & 2 & “,jpg” ta được đường dẫn “D:\Powerpoint\media\Hinh1.jpg”. Private Sub spn_Change() imgHinh.Picture=LoadPicture(ActivePresentation.Path & "\media\Hinh" & spn.Value & ".jpg") imgText.Picture=LoadPicture(ActivePresentation.Path & "\media\Text" & spn.Value & ".jpg") 'Refresh imgHinh imgHinh.Visible = False imgHinh.Visible = True 'Refresh imgText imgText.Visible = False imgText.Visible = True End Sub Bước 4: Khi người dùng nhấn “Học từ đầu” ta gán giá trị của Spin = 1. Private Sub lblReset_Click() spn.Value = 1 End Sub Võ Tấn Dũng (onceclick@yahoo.com - 21
  22. Bài 02: Các đối tượng cơ bản – Spin Button Xây dựng bài trình chiếu tương tác bằng Powerpoint Tóm tắt Label và Button thường được sử dụng để viết hoạt động cho sự kiện click của người dùng. Thuộc tính đặc trưng của Label/Button là caption. CheckBox/OptionBox thường được dùng để xây dựng các câu hỏi đa lựa chọn. Text Box dùng để nhận giá trị nhập của người dùng. Spin Button cho phép người dùng thay đổi giá trị của nó bằng 2 nút bấm Tăng/Giảm. Image cho phép hiển thị hình trên máy tính. Võ Tấn Dũng (onceclick@yahoo.com - 22
  23. Bài 03: Các đối tượng nâng cao Xây dựng bài trình chiếu tương tác bằng Powerpoint BÀI 3. CÁC ĐỐI TƢỢNG NÂNG CAO Mục tiêu Sau bài này bạn có thể:  Trình bày được các thuộc tính và phương thức cơ bản của các đối tượng mở rộng Windows Media Player, Shockwave, SpreadSheet.  Sử dụng được đối tượng Window Media & Shockwave để điều khiển audio, video.  Sử dụng SpreadSheet để lưu trữ và lấy dữ liệu. Giới thiệu Trong quá trình thiết kế bài trình chiếu đôi khi chúng ta muốn điểu khiển những đoạn audio, video hoặc Shockwave Flash ngay trên slide, lưu trữ dữ liệu do người dùng nhập vào, tạo ngân hàng câu hỏi trắc nghiệm vv Trong Powerpoint ta có thể làm được điều này nhờ sử dụng các thành phần mở rộng ActiveX từ nút More Controls trên thanh ToolBox. Để sử dụng các ActiveX này trên máy bạn phải có Window Media (có sẵn trong window – tốt nhất là Window Media 10 trở lên, Flash Player (tải từ trang www.adobe.com), Excel 2003 (nếu bạn dùng Office 2007 thì cũng nên cài thêm Excel 2003 để có thể sử dụng SpreadSheet 11). Võ Tấn Dũng (onceclick@yahoo.com - 23
  24. Bài 03: Các đối tượng nâng cao - WMP Xây dựng bài trình chiếu tương tác bằng Powerpoint WINDOWS MEDIA PLAYER (WMP) Với ActiveX này ta có thể mở tất cả những tập tin audio hay video nào mà Windows Media Playe có thể mở được. Nếu thỉnh thoảng bạn thấy có một số phim nén máy khác mở được nhưng máy mình không mở được thì bạn có thể dùng từ khóa KLiteCode để tải những code mới về cài vào hệ thống. Để sử dụng ActiveX này hãy click vào nút More Controls, sau đó tìm và chọn mục Windows Media Player và vẽ lên Slide. Thuộc tính Mô tả url Chuỗi đường dẫn đến tập tin audio/video stretchToFit Nếu có giá trị True sẽ kéo giãn phim cho khít với kích thước của WMP fullScreen True sẽ cho phép xem phim toàn màn hình Bảng 3.1: Các thuộc tính cơ bản của Windows Media Player Để đổi audio/video ta chỉ cần gán thuộc tính url của WMP bằng chuỗi chỉ vị trí của tập tin audio/video mới. Ví dụ 3.1: Dùng WMP để tạo slide cho phép người dùng xem phim sau. Kết quả của ví dụ này là slide trên đó cho phép người dùng xem hai đoạn phim và điền vào chổ trống bằng những từ thích hợp. Sau đó người dùng có thể xem điểm hoặc làm lại. Hình 3.1: Điều khiển Video bằng Windows Media Player Ý tƣởng: Dùng WMP cho người dùng xem phim, dùng 3 Text Box để người dùng nhập dữ liệu vào. Võ Tấn Dũng (onceclick@yahoo.com - 24
  25. Bài 03: Các đối tượng nâng cao - WMP Xây dựng bài trình chiếu tương tác bằng Powerpoint Hƣớng dẫn chi tiết: Bước 1: Tạo 1 đối tượng WMP đặt tên là wmp. Tạo 3 Text Box lần lượt là txt1, txt2, txt3 để người dùng nhập đáp án, 2 nhãn lblvideo1, lblvideo2 (dùng để chọn video muốn xem), 2 nhãn lblReset và lblChamDiem tương tự như các ví dụ trên. Bước 2: Khi người dùng chọn video để xem ta thay đổi thuộc tính url của wmp Private Sub lblVideo1_Click() wmp.URL = ActivePresentation.Path & "\media\video1.wmv" End Sub Private Sub lblVideo2_Click() wmp.URL = ActivePresentation.Path & "\media\video2.wmv" End Sub Bước 3: Khi người dùng click “Làm lại” ta làm rỗng các Text Box Private Sub lblReset_Click() txt1.Text = "" txt2.Text = "" txt3.Text = "" End Sub Bước 4: Khi người dùng click “Chấm điểm”. Private Sub lblChamDiem_Click() Dim diem as Integer diem = 0 If txt1.Text = "6" Then diem = diem + 1 If txt2.Text = "secretary" Then diem = diem + 1 If txt3.Text = "hard" Then diem = diem + 1 MsgBox "Mark: " & diem & "/3" End Sub Có 1 điểm mới trong ví dụ này là ta khai báo biến diem kiểu Integer bằng từ khóa Dim và sử dụng hàm MsgBox để thông báo kết quả. Võ Tấn Dũng (onceclick@yahoo.com - 25
  26. Bài 03: Các đối tượng nâng cao - SWF Xây dựng bài trình chiếu tương tác bằng Powerpoint SHOCKWAVE FLASH (SWF) ActiveX này đóng vai trò như một Flash Player nằm trên slide trình chiếu. Chính vì vậy ta có load các tập tin swf thông qua thuộc tính Movie. ActiveX này còn cung cấp một số phương thức để điều hướng tập tin swf như Stop, Play, Back, Forward vv. Để sử dụng ActiveX này hãy click vào nút More Controls, sau đó tìm và chọn mục Shockwave Flash Object và vẽ lên Slide. Thuộc tính Mô tả Movie Chuỗi đường dẫn đến tập tin swf Playing Nếu True sẽ play tập tin swf ngược lại thì dừng Bảng 3.2: Các thuộc tính của Shockwave Flash Ví dụ 3.2: Tạo slide cho phép người dùng chọn xem 2 tập tin swf lần lượt là Add2Vectors.swf và Add3Vectors.swf được lưu trong thư mục media ngang cấp với tập tin Powerpoint. Tạo các nút cho phép người dùng điều hướng (stop, play, back, next, reset). Hƣớng dẫn chi tiết: Bước 1: Tạo một SWF đặt tên là swf, 7 Label đặt tên lần lượt là lblStop, lblPlay, Hình 3.2: Điều hƣớng tập tin swf lblBack, lblNext (dùng để điều hướng tập tin swf), lblswf1, lblswf2, lblReset (dùng để load các tập tin swf tương ứng). Bước 2: Khi người dùng muốn load tập tin flash tương ứng Private Sub lblswf1_Click() swf.Movie = ActivePresentation.Path & "\media\Add2Vectors.swf" End Sub Private Sub lblswf2_Click() swf.Movie = ActivePresentation.Path & "\media\Add3Vectors.swf" End Sub Private Sub lblReset_Click() swf.Movie = "No Movie" End Sub Võ Tấn Dũng (onceclick@yahoo.com - 26
  27. Bài 03: Các đối tượng nâng cao - SWF Xây dựng bài trình chiếu tương tác bằng Powerpoint Bước 3: Khi người dùng muốn điều hướng Private Sub labBack_Click() swf.back End Sub Private Sub lblNext_Click() swf.Forward End Sub Private Sub lblPlay_Click() swf.Playing = True End Sub Private Sub lblStop_Click() swf.Playing = False End Sub Võ Tấn Dũng (onceclick@yahoo.com - 27
  28. Bài 03: Các đối tượng nâng cao - SpreadSheet Xây dựng bài trình chiếu tương tác bằng Powerpoint SPREADSHEET 11 (SPS) ActiveX này đóng vai trò như một một tập in Excel, do đó thường dùng như một nơi để lưu trữ dữ liệu. Ta có thể dễ dàng truy xuất hoặc thay đổi nội dung một ô bất kỳ trong SPS thông qua thuộc tính Cells. Thông thường khi thiết kế ứng dụng, ta thường lưu dữ liệu ở đây chẳng hạn như dữ liệu do người dùng nhập vào, nội dung các câu hỏi và đáp án. Để sử dụng ActiveX này hãy click vào nút More Controls, sau đó tìm và chọn mục Microsoft Office Spreadsheet 11.0 Object và vẽ lên Slide. Thuộc tính Mô tả Cells(row,col) Thuộc tính này không thấy được trên hộp thoại Properties. Thuộc tính này cho phép truy xuất hoặc thay đổi nội dung một ô trong SPS. Một ô được đại diện bởi 2 giá trị dòng & cột. Ví dụ muốn truy xuất đến ô ở dòng 1, cột 1 ta dùng Cells(1,1). Bảng 3.3: Thuộc tính cơ bản của SpreadSheet Có thể soạn thảo nội dung trực tiếp vào SPS bằng cách click phải vào SPS, chọn Microsoft Office Spreadsheet 11.0 Object, chọn Edit. SPS hỗ trợ nhập font Unicode. Khi làm việc trên SpreadSheet ta thường sử dụng đến cấu trúc lặp For có mẫu như sau: For i = 1 To 10 Step 2 MsgBox i Next Đoạn code trên cho biến i chạy từ 1 đến 10 với bước nhảy (step) là 2, trong mỗi lần lặp xuất hiện thông báo cho biết giá trị của i. Ví dụ 3.3: Sử dụng SPS để tạo mẫu trắc nghiệm 4 lựa chọn có phản hồi. Kết quả của ví dụ này là 1 slide trên đó cho phép người dùng di chuyển qua lại giữa các câu hỏi. Ở mỗi câu hỏi, khi người dùng click vào một lựa chọn chương trình sẽ cung cấp thông tin phản hồi. (Bộ câu hỏi sử dụng trong ví dụ này được trích từ bài giảng điện tử môn Tâm lý học đại cương của trường Đại học Sư phạm Kỹ thuật Tp. Hồ Chí Minh) Hình 3.3: Trắc nghiệm phản hồi Võ Tấn Dũng (onceclick@yahoo.com - 28
  29. Bài 03: Các đối tượng nâng cao - SpreadSheet Xây dựng bài trình chiếu tương tác bằng Powerpoint Ý tƣởng: Dùng một SPS để nhập vào bộ câu hỏi, các lựa chọn và phản hồi. Mỗi khi người dùng bấm nút chuyển câu hỏi ta sẽ lập công thức để có thể lấy ra chính xác câu cần hiển thị từ Spreadsheet. Hƣớng dẫn chi tiết: Bước 1: Tạo một SPS đặt tên là sps. Sau đó nhập vào câu hỏi, các lựa chọn và phản hồi theo mẫu sau: Hình 3.4: Mẫu nhập câu hỏi 4 lựa chọn vào Spreadsheet Bước 2: Thực hiện chèn: 3 Label lần lượt là lblCau (dùng để hiển thị thứ tự của câu hiện hành), lblQues (dùng để hiển thị câu hỏi), lblFB (dùng để hiển thị phản hồi). 4 OptionBox lần lượt là Opt1, Opt2, Opt3, Opt4 (để hiển thị các lựa chọn). 1 Spin Button đặt tên là spn dùng để đổi câu. Thuộc tính value của Spin lưu số thứ tự câu hiện hành. Có các thuộc tính Min=1, Max=Số câu hỏi có trong Spreadsheet. 1 Button đặt tên btnReset để đưa về câu đầu tiên. Bước 3: Khi người dùng thay đổi giá trị của spn ta thực hiện load nội dung tương ứng. Cần chú ý rằng mỗi câu chiếm 5 dòng trong sps. Câu 1 có dòng cuối là 5, câu 2 có dòng cuối là 10, , câu n có dòng cuối cùng là (nx5). Có được dòng cuối cùng ta cũng tìm được những dòng liền trên bằng cách trừ cho 1, cho 2, cho 3 và cho 4. Vì thứ tự câu hiện hành chính là giá trị của Spin nên ta có công thức tính như sau: Câu hỏi hiện hành = Giá trị của ô nằm ở dòng (spn.value x 5 – 4), cột 1 Lựa chọn A = Giá trị của ô nằm ở dòng (spn.value x 5 – 3), cột 1 Phản hồi A = Giá trị của ô nằm ở dòng (spn.value x 5 – 3), cột 2 Lựa chọn B = Giá trị của ô nằm ở dòng (spn.value x 5 – 2), cột 1 Võ Tấn Dũng (onceclick@yahoo.com - 29
  30. Bài 03: Các đối tượng nâng cao - SpreadSheet Xây dựng bài trình chiếu tương tác bằng Powerpoint Phản hồi B = Giá trị của ô nằm ở dòng (spn.value x 5 – 2), cột 2 Lựa chọn C = Giá trị của ô nằm ở dòng (spn.value x 5 – 1), cột 1 Phản hồi C = Giá trị của ô nằm ở dòng (spn.value x 5 – 1), cột 2 Lựa chọn D = Giá trị của ô nằm ở dòng (spn.value x 5), cột 1 Phản hồi D = Giá trị của ô nằm ở dòng (spn.value x 5), cột 2 Mỗi khi người dùng đổi câu hỏi, ngoài việc load nội dung mới ta còn bỏ chọn cho các Option Box (gán value =false), làm rỗng phản hồi và thay đổi con số hiển thị trên lblCau. Private Sub spn_Change() lblCau.Caption = spn.Value Opt1.Value = False Opt2.Value = False Opt3.Value = False Opt4.Value = False lblFB.Caption = "" lblQues.Caption = sps.Cells(spn.Value * 5 - 4, 1) Opt1.Caption = sps.Cells(spn.Value * 5 - 3, 1) Opt2.Caption = sps.Cells(spn.Value * 5 - 2, 1) Opt3.Caption = sps.Cells(spn.Value * 5 - 1, 1) Opt4.Caption = sps.Cells(spn.Value * 5, 1) End Sub Bước 4: Khi người dùng click một trong các lựa chọn sẽ hiển thị phản hồi tường ứng Private Sub Opt1_Click() lblFB.Caption = sps.Cells(spn.Value * 5 - 3, 2) End Sub Private Sub Opt2_Click() lblFB.Caption = sps.Cells(spn.Value * 5 - 2, 2) End Sub Private Sub Opt3_Click() lblFB.Caption = sps.Cells(spn.Value * 5 - 1, 2) End Sub Private Sub Opt4_Click() lblFB.Caption = sps.Cells(spn.Value * 5, 2) End Sub Bước 5: Khi người dùng nhấn “Làm lại” ta chuyển về câu 1, bỏ chọn cho các Option Box, và làm rỗng phản hồi. Private Sub btnReset_Click() Opt1.Value = False Opt2.Value = False Opt3.Value = False Opt4.Value = False lblFB.Caption = "" spn.Value = 1 End Sub Võ Tấn Dũng (onceclick@yahoo.com - 30
  31. Bài 03: Các đối tượng nâng cao - SpreadSheet Xây dựng bài trình chiếu tương tác bằng Powerpoint Tóm tắt Ba ActiveX thường được sử dụng trong các bài trình chiếu PowerPoint tương tác là: Window Media Player: Dùng để play các đoạn video & audio. ShockWave Flash: play các đoạn shockwave flash. SpreadSheet: Xem như một file Excel nhúng làm nhiệm vụ lưu trữ dữ liệu. Võ Tấn Dũng (onceclick@yahoo.com - 31
  32. Bài 04: Thời gian trong VBA Xây dựng bài trình chiếu tương tác bằng Powerpoint BÀI 4. THỜI GIAN TRONG VBA Mục tiêu Sau bài này bạn có thể:  Trình bày được nguyên tắc quản lý thời gian bằng VBA.  Vận dụng tạo đồng hồ, thiết lập thời gian cho bài học. Giới thiệu Trong quá trình thiết kế bài học, bài kiểm tra bằng Powerpoint, đôi khi muốn giới hạn thời gian thực hiện cho một hoạt động nào đó, lúc này ta phải tự xây dựng cho mình một đồng hồ thời gian để làm điều này. Mặc định, VBA không cung cấp đối tượng nào để quản lý thời gian. Trong Visual Basic có đối tượng Timer tự động thực hiện sau một khoảng thời gian (interval), nhưng trong VBA thì không. Trong khi người dùng đang thực hiện những hoạt động khác, đồng hồ vẫn phải chạy. Vì vậy ý tưởng ở đây là, ta sẽ kích hoạt đồng hồ mỗi giây 1 lần, trong thời gian mỗi giây đó ta trả quyền quản lý về cho hệ thống bằng lệnh DoEvents. Nguyên tắc quản lý thời gian bằng VBA Để xây dựng được bài trình chiếu có tính đến yếu tố thời gian dùng VBA cần tuân theo các nguyên tắc sau: Phải xác định điểm dừng: ví dụ đồng hồ (thời gian làm bài) sẽ dừng sau 60 phút, 10 phút, 60 giây vv Viết sự kiện để bắt đầu tính thời gian: ví dụ phải có nút bắt đầu. Viết sự kiện để kết thúc việc tính thời gian trước khoảng thời gian quy định: ví dụ người học muốn kết thúc trước khi hết giờ làm bài. Chọn sự kiện hoặc khoảng thời gian để cập nhật lại đồng hồ: ví dụ cứ sau 1 giây sẽ cập nhật lại đồng hồ. Không bấm nút ESC để thoát khỏi slide khi đồng hồ đang chạy mà phải gọi sự kiện kết thúc trước khi bấm nút ESC. Xây dựng đồng hồ Ta có lệnh DoEvents sẽ trả quyền kiểm soát về cho hệ thống. Khi ta gọi câu lệnh này thì hệ thống có quyền sử dụng CPU cho bất kỳ tiến trình nào khác. Ví dụ khi ta thực hiện một vòng lặp từ 1 đến 1 tỉ sẽ mất 1 một khoảng thời gian. Trong khoảng thời gian đó hầu như ta không còn làm được việc gì khác nữa, vì hệ thống đang thực hiện vòng lặp. Tuy nhiên nếu trong mỗi vòng lặp ta gọi DoEvents thì cứ mỗi vòng lặp hệ thống có một khoản thời gian để thực hiện công việc khác chính vì vậy ta không có cảm giác vòng lặp đang chạy. Võ Tấn Dũng (onceclick@yahoo.com - 32
  33. Bài 04: Thời gian trong VBA Xây dựng bài trình chiếu tương tác bằng Powerpoint Chính đặc điểm này ta có thể sử dụng DoEvents để người dùng có thể làm những hoạt động khác trong khi đồng hồ vẫn đang chạy. Đoạn code chung để tạo đồng hồ trong VBA Dim PauseTime, Start, Finish 'Gán thoi gian cho la 1 giay PauseTime = 1 'Lay thoi diem hien tai Start = Timer 'Tao vong lap trong khi chua het thoi gian cho Do While Timer < Start + PauseTime ' Chuyen quyen quan ly cho he thong trong khi lap DoEvents Loop Biến nhận khoảng thời gian chờ tính theo giây, biến lấy thời gian hiện tại bằng hàm Timer, Ta thực hiện vòng lặp trong cho đến khi hết thời gian chờ. Trong mỗi lần lặp ta trả quyền kiểm soát cho hệ thống để thực hiện các tác vụ khác. Ví dụ 4.1: Giả sử thời gian làm mỗi câu ở ví dụ 3.3 là 30 giây, viết thêm chức năng hiển thị đồng hồ, đếm lùi thời gian để người dùng có thể canh thời gian làm bài của mình. Ý tƣởng: Khi người dùng click “Bắt đầu” ta thực hiện việc gán cho Text Box đếm ngược bằng thời gian làm bài (300). Mỗi khi Text Box này thay đổi ta lại cho chờ khoảng 1 giây sau đó trừ giá trị của Text Box này đi 1 cho đến khi giá trị của nó về 0, Hình 4.1: Thời gian trong VBA đồng thời cập nhật lại Label hiển thị đồng hồ. Trong khi chờ ta chuyển quyền quản lý về cho hệ thống. Hƣớng dẫn chi tiết: Bước 1: Sử dụng lại kết quả ở ví dụ 3.3. Tạo thêm Text Box txtSecond để hiển thị số giây đếm ngược, Label lblClock để hiển thị đồng hồ. Thêm Button cmdKetThuc làm nút kết thúc. Bước 2: Khi người dùng bấm “Bắt đầu” (tương đương với nút làm lại cũ) ta thực hiện gán thời gian làm bài là 30*10 (30 giây mỗi câu, ta có 10 câu). Đồng thời bỏ chọn các Option box như ở ví dụ 3.3 Võ Tấn Dũng (onceclick@yahoo.com - 33
  34. Bài 04: Thời gian trong VBA Xây dựng bài trình chiếu tương tác bằng Powerpoint Private Sub btnReset_Click() Opt1.Value = False Opt2.Value = False Opt3.Value = False Opt4.Value = False spn.Value = 1 lblFB.Caption = "" txtSecond.Value = 30 * 10 End Sub Bước 3: Mỗi khi txtSecond thay đổi ta chờ 1 giây, sau đó cập nhật lại đồng hồ và trừ bớt giá trị của TextBox đi 1. Trong thời gian chờ nhớ trả quyền quản lý cho hệ thống. Lưu ý để lấy thời gian hiện tại ta dùng hàm Now kết hợp với hàm Format với chuỗi định dạng là tttttt. Private Sub txtSecond_Change() If txtSecond.Value > 0 Then Dim PauseTime, Start, Finish ' Gán thoi gian cho la 1 giay PauseTime = 1 'Lay thoi diem hien tai Start = Timer 'Tao vong lap trong khi chua het thoi gian cho Do While Timer 0 Then lblClock.Caption = Format(Now, "tttttt") txtSecond.Value = txtSecond.Value - 1 End If End If End Sub Như vậy mỗi khi Text Box thay đổi nó lại gọi sự kiện của chính nó cho đến khi giá trị về đến 0. Điểm dừng của ta ở đây là khi Text Box về 0. Điểm bắt đầu là khi người dùng bấm vào “Bắt đầu”. Bước 4: Khi người dùng không muốn làm nữa có thể click nút kết thúc. Private Sub cmdKetThuc_Click() txtSecond.Value = 0 End Sub Tóm tắt Có thể sử dụng thời gian để kiểm soát hoạt động của người học. Cần xác định rõ sự kiện bắt đầu và kết thúc. Trong khoảng thời gian chờ ta trả quyền kiểm soát về cho hệ thống bằng thủ tục DoEvents. Võ Tấn Dũng (onceclick@yahoo.com - 34
  35. Bài 05: Slide & Shape Xây dựng bài trình chiếu tương tác bằng Powerpoint BÀI 5. SLIDE & SHAPE Mục tiêu Sau bài này bạn có thể:  Đặt tên cho slide & shape.  Truy xuất được đến slide & shape.  Viết Macro cho shape. Giới thiệu Thành phần cơ bản trên một bài trình chiếu là Slide. Trên Slide chúng ta thường chèn TextBox, hình ảnh, shape. Ở đây ta gọi chung các đối tượng này là Shape. Slide & Shape cũng có tên duy nhất để chúng ta có thể truy xuất đến. Tuy nhiên Powerpoint không cung cấp một chức năng nào để chúng ta có thể xem tên hoặc gán tên cho Slide/Shape. Chúng ta có thể đổi tên cho Shape/Slide bằng code, tuy nhiên nếu chúng ta thường xuyên làm việc trên Shape thì điều này rõ rang không thuận tiện, chính vì vậy tôi đã tạo ra 1 Plugin sử dụng cho PowerPoint 2007 giúp bạn thực hiện điều này. Có thể truy cập để download Plugin này. Sau khi cài đặt PowerPoint 2007 sẽ có thêm tab VBA Support trên Ribbon. Trên này cung cấp các chức năng như lấy tên slide/shape đưa vào clipboard, đặt tên cho slide/shape, lấy đường dẫn truy xuất đến slide/shape, một số đoạn code điều hướng trên slide. Hình 5.1: Giao diện của VBA Support Võ Tấn Dũng (onceclick@yahoo.com - 35
  36. Bài 05: Slide & Shape Xây dựng bài trình chiếu tương tác bằng Powerpoint Nếu sử dụng công cụ này chúng ta không cần phải đọc phần đổi tên cho Slide/Shape nữa. Nếu bạn vẫn đang sài Powerpoint 2003 có thể đổi tên cho Slide/Shape như sau. Đọc/đổi tên Slide/Shape Bước 1: Chọn Slide hoặc Shape muốn đổi tên. Bước 2: Bấm ALT+F11 để mở cửa sổ Visual Basic. Sau đó bấm Ctrl + G hoặc chọn Menu View/Immediate Window để mở ngăn Immediate. Ngăn này cho phép người dùng gõ và chạy code thử nghiệm. Ta sẽ sử dụng ngăn này để đọc hoặc đổi tên Slide/Shape. Mỗi lệnh trong ngăn này nằm trên 1 dòng, khi nhấn Enter sẽ thực hiện lệnh đó. Ví dụ gõ vào msgbox "Hello" sau khi Enter sẽ xuất hiện thông báo với chuỗi “Hello”. Bước 3: Gõ vào một trong các lệnh sau để thực hiện nhiệm vụ tương ứng. Nhiệm vụ Code Đọc tên Slide debug.print ActiveWindow.View.Slide.Name Đổi tên Slide ActiveWindow.View.Slide.Name = "Hello" Đọc tên Shape debug.print ActiveWindow.Selection.ShapeRange.Name Đổi tên Shape ActiveWindow.Selection.ShapeRange.Name = "TenShape" Bảng 5.1: Đọc/đổi tên Slide/Shape Truy xuất đến Slide/Shape Giả sử một Shape có tên là “Title 1” và nằm trên Slide tên “Hello” ta sẽ truy xuất đến Slide/Shape thông qua đoạn code sau: Loại Code Slide ActivePresentation.Slides("Hello") Shape ActivePresentation.Slides("Hello").Shapes("Title 1") Bảng 5.2: Truy xuất đến Slide/Shape Muốn thay đổi hay gọi các thuộc tính/phương thức của Slide/Shape chỉ cần truy xất đến Slide/Shape sau đó thêm dấu chấm VBA sẽ hiện hộp thoại cho bạn chọn. Ví dụ 5.1: Xem tọa độ bên trái của Shape: debug.print ActivePresentation.Slides("Hello").Shapes("Title 1").Left Ví dụ 5.2: Quay Shape 45 độ: ActivePresentation.Slides("Hello").Shapes("Title 1").IncrementRotation 45 Ví dụ 5.3: Lật shape theo chiều dọc ActivePresentation.Slides("Hello").Shapes("Title 1").Flip msoFlipVertical Võ Tấn Dũng (onceclick@yahoo.com - 36
  37. Bài 05: Slide & Shape Xây dựng bài trình chiếu tương tác bằng Powerpoint Viết Macro cho Shape Macro thật ra là một đoạn code nhằm thực hiện công việc nào đó. Để tạo Macro cho Shape ta thực hiện như sau: Bước 1: Nhấn ATL + F11 để mở cửa sổ Visual Basic, Từ Menu Insert, chọn Insert Module. Module mặc định được tạo ra là module1, có thể tạo bao nhiêu module tùy ý tuy nhiên thường chỉ cần viết trên 1 module là đủ. Code viết trên Module có thể được gọi từ bất kỳ đâu, trên bất kỳ slide nào. Bước 2: Từ Menu Insert chọn Procedure, đặt tên cho thủ tục và nhấn OK để chèn một thủ tục mới. Thủ tục này được gọi là Macro. Sau đó viết code cho macro. Bước 3: Quay về cửa sổ thiết kế: Đối với PowerPoint 2003: Click phải vào Shape muốn gán Macro, chọn Action Settings, chọn Run Macro và chọn tên Macro cần thực hiện. Đối với PowerPoint 2007: Chọn Shape cần gán Macro, click vào nút Action trong ngăn Insert, chọn Run Macro và chọn tên Macro cần thực hiện. Điều hướng Slide Thông thường nếu chỉ muốn di chuyển giữa các Slide, ta chỉ cần chèn Shape sau đó mở hộp thoại Action Settings như ở phần trên, trong phần Hyperlink To chọn Slide muốn chuyển tới khi click vào Shape. Tuy nhiên đôi chúng ta muốn tùy thuộc vào điều kiện nào đó mà sẽ chuyển đến Slide thích hợp (người dùng trả lời đúng/sai), hoặc thực hiện công việc nào đó trước khi chuyển tới Slide khác (cộng dồn điểm, khởi tạo giá trị ) khi đó chúng ta phải viết Macro để chuyển Slide. Dưới đây là một số mã lệnh để chuyển Slide. Di chuyển Code Chuyển đến slide thứ i ActivePresentation.SlideShowWindow.View.GotoSlide(i) Slide đầu tiên ActivePresentation.SlideShowWindow.View.First Slide cuối ActivePresentation.SlideShowWindow.View.Last Slide liền trước ActivePresentation.SlideShowWindow.View.Previous Slide liền sau ActivePresentation.SlideShowWindow.View.Next Kết thúc trình chiếu ActivePresentation.SlideShowWindow.View.Exit Bảng 5.3: Điều hƣớng Slide Thay đổi nội dung Text bên trong Shape Cấu trúc chung: .TextFrame.TextRange.Text ="Hello" Võ Tấn Dũng (onceclick@yahoo.com - 37
  38. Bài 05: Slide & Shape Xây dựng bài trình chiếu tương tác bằng Powerpoint Ví dụ 5.4: Thay đổi giá trị cho Shape “hoten” trên slide “user” giá trị bằng “Nguyen Van A” ActivePresentation.Slides("user").Shapes("hoten").TextFrame.TextRange.Text ="Nguyen Van A" Các ứng dụng thực tiễn của shape Ví dụ 5.5: Xây dựng đồng hồ bằng Shape. Kết quả của ví dụ này là một đồng hồ Analog, cho phép người dùng chạy hoặc dừng. Ý tƣởng: Đối tượng Shape có thuộc tính Rotation, thuộc tính này mang giá trị từ (0- 360), cho phép Shape quay xung quanh điểm giữa của Shape. Nhờ đặc điểm này ta dùng để thực hiện bài tập này. Hình 5.2: Đồng hồ bằng Shape Hƣớng dẫn chi tiết: Bước 1: Vẽ 1 hình tròn làm khung đồng hồ. Bước 2: Tạo kim đồng hồ. Vì Shape chỉ quay quanh tâm của nó nhưng kim đồng hồ lại không quay quanh tâm. Chính vì vậy ý tưởng đơn giản nhất là group kim đồng hồ với một hình tròn có kích thước bằng hình tròn ở bước 1. Cần chú ý bỏ đường viền và cho hình tròn này trong suốt trước khi group. Lần lượt tạo ra kim giờ, kim phút và kim giây. (Chú ý nên làm kim đứng thẳng xem như đang ở 0 độ). Bước 3: Lần lượt đặt tên cho các group là KimGio, KimPhut, KimGiay. Đặt tên cho Slide là clock. Tạo Button đặt tên là btnStart để bật/tắt đồng hồ. Bước 4: Cần lưu ý 1 phút tương đương với 6 độ, 1 giây tương đương với 6 độ, 1 giờ tương ứng với 30 độ (vì vậy phải sử dụng hàm làm tròn). Chính vì vậy nếu có được giây hiện tại ta cho KimGiay quanh 1 góc (SoGiay*6), tương tự cho kim phút, riêng kim giờ ngoài việc quay 1 góc (giờ*30) còn phải cộng thêm một góc do phút tạo ra (SoPhut/2) (vì 1 giờ tương đương 30 độ, cũng có nghĩa 60 phút tương đương 30 độ vì vậy mới có kết quả là SoPhut/2). Bước 5: Khi người dùng bật đồng hồ, cứ mỗi giây ta cập nhật lại góc quay của các kim. Ở đây có sử dụng vòng lặp dạng While {các lệnh} Wend. Có nghĩa là trong khi đúng sẽ thực hiện các lệnh. Vì việc cập nhật giờ bao gồm nhiều lệnh trong đó nên ta viết riêng một thủ tục CapNhatGio để cập nhật lại góc của các kim đồng hồ. Võ Tấn Dũng (onceclick@yahoo.com - 38
  39. Bài 05: Slide & Shape Xây dựng bài trình chiếu tương tác bằng Powerpoint Sub CapNhatGio() Dim gio, phut, giay As Integer gio = Hour(Now) Mod 12 phut = Minute(Now) giay = Second(Now) '1 giay tuong duong voi 6 do ActivePresentation.Slides("user").Shapes("KimGiay").Rotation = giay * 6 '1 phut tuong duong voi 6 do ActivePresentation.Slides("user").Shapes("KimPhut").Rotation= phut * 6 '1h tuong duong voi 30 do ActivePresentation.Slides("user").Shapes("KimGio").Rotation=gio*30+Round(phut/2) End Sub Private Sub btnStart_Click() If (btnStart.Caption = "Run Clock") Then btnStart.Caption = "Stop Clock" Else btnStart.Caption = "Run Clock" End If While (btnStart.Caption = "Stop Clock") CapNhatGio Dim PauseTime, Start, Finish ' Gán thoi gian cho la 1 giay PauseTime = 1 'Lay thoi diem hien tai Start = Timer 'Tao vong lap trong khi chua het thoi gian cho Do While Timer < Start + PauseTime ' Chuyen quyen quan ly cho he thong trong khi lap DoEvents Loop Wend End Sub Ví dụ 5.6: Xây dựng Slide thu thập ý kiến bằng Shape. Kết quả của ví dụ này là slide cho phép người dùng nhập ý kiến vào Text Box, khi bấm nút Add sẽ thêm nội dung vào Shape ở trên. Bấm Reset sẽ thu thập ý kiến từ đầu. Ý tƣởng: Dùng thuộc tính .TextFrame.TextRange.Text của Shape. Hình 5.3: Slide thu thập ý kiến Võ Tấn Dũng (onceclick@yahoo.com - 39
  40. Bài 05: Slide & Shape Xây dựng bài trình chiếu tương tác bằng Powerpoint Hƣớng dẫn chi tiết: Bước 1: Chèn một Text Shape có dạng như hình 5.3 đặt tên là YKien, Slide có tên là ThuThap, 2 button và 1 text box lần lượt có tên là btnAdd, btnReset và txtAdd. Bước 2: Khi người dùng bấm nút Add ta đưa nội dung từ txtAdd lên YKien bằng cách nối chuỗi (&) đồng thời làm rỗng txtAdd, khi người dung bấm Reset ta làm rỗng cả txtAdd và YKien. Điểm lưu ý ở đây là ký tự xuống dòng chr$(13). Ở đây có sử dụng cấu trúc With End With , cấu trúc này cho phép phần code bên trong không cần viết lại đối tượng ở trên mà chỉ cần dùng dấu “.” để gọi thuộc tính của đối tượng đó. Private Sub btnAdd_Click() With ActivePresentation.Slides("ThuThap").Shapes("YKien") .TextFrame.TextRange.Text = .TextFrame.TextRange.Text & txtAdd.Text & Chr$(13) txtAdd.Text = "" End With End Sub Private Sub btnReset_Click() ActivePresentation.Slides("ThuThap").Shapes("YKien").TextFrame.TextRange.Text = "" txtAdd.Text = "" End Sub Tóm tắt Đa số các thành phần trên Powerpoint đều là Shape chính vì vậy việc nắm rõ cách truy xuất đến Shape sẽ làm cho bài trình chiếu trực quan và sinh động hơn. Nên đặt tên cho Shape và Slide trước khi tham chiếu đến chúng. Võ Tấn Dũng (onceclick@yahoo.com - 40
  41. Tài liệu tham khảo Xây dựng bài trình chiếu tương tác bằng Powerpoint TÀI LIỆU THAM KHẢO [1]. Powerful PowerPoint for Educators: Using Visual Basic for Applications to Make PowerPoint Interactive (2004). David M. Marcovitz. Libraries unlimited. [2]. Microsoft Office PowerPoint 2003 Visual Basic Reference (2003). Microsoft Corporation. Võ Tấn Dũng (onceclick@yahoo.com - 41