Ma lenh trong PowerPoint Bai giang tuong tac Bai 6

MÃ LỆNH TRONG POWERPOINT
BÀI GIẢNG TƯƠNG TÁC
BÀI 6

SPREADSHEET (SPS)
NHIỀU CÂU TRẮC NGHIỆM TRÊN MỘT SILDE
Biên soạn: Nguyễn Tuấn Cường
Trường THCS Thái Sơn – An Lão – Hải Phòng
(Tham khảo từ tài liệu: Giáo trình PowerPoint tương tác bằng VBA – Võ Tấn Dũng)
Xin Click vào đây để xem các bài trước
nếu lần đầu bạn xem tài liệu này!
1 . Ý tưởng thiết kế:
- Tạo một Slide trình chiếu được nhiều câu trắc nghiệm, việc đổi câu được thưc hiện thông qua nút điều khiển. Các câu trắc nghiệm được tải ra từ một bảng chuẩn bị trước, số câu không hạn chế.
- Khi HS trả lời có các nhận xét, gợi mở cần thiết để nhắc nhở kiến thức hoặc định hướng cách làm.
2 . Quy trình thực hiện:
- Dùng các công cụ: Label, Option Button, Spin Button, Comman Button để tạo giao diện bài trắc nghiệm như hình sau đây. Bạn cũng có thể đổi màu nền, gõ thêm tiêu đề nút bấm… để sao cho giao diện trình chiếu trông dễ nhìn và khoa học. (Hãy xem lại các bài 1, 2, 3, 4, 5 nếu bạn chưa thành thạo về vấn đề này).
Câu hỏi:
Nhận xét:
Label chứa số thứ tự câu hỏi. Đặt tên: lblCau
Label chứa nội dung câu hỏi. Đặt tên: lblCauhoi
Lần lượt tạo 4 Option Button như thế này để tải nội dung của các phương án. Bạn điều chỉnh kích thước của Option Button để nó đủ dài rộng chứa nội dung mỗi phương án, trong VD này tôi chỉnh cho 4 Option Button kéo dài gần hết chiều ngang slide. Đặt tên lần lượt là opt1, opt2, opt3, opt4.
Label chứa nội dung nhận xét. Tên: lblNhanxet
Spin button dùng để đổi câu. Tên: spnDoicau
Command Button (btnLamlai) dùng bấm làm lai
Đây là bảng Properties của đối tượng spnDoicau, bạn chú ý đến thuộc tính Value của nó có tác dụng lưu số thứ tự câu hiện hành. Bạn nhập vào Min = 1, Max = số câu trắc nghiệm trong Spreadsheet, ở VD này tôi soạn 4 câu nên Max = 4
- Bây giờ ta soạn các câu trắc nghiệm bằng đối tượng SpreadSheet. Bạn nhấp vào More Control (hình cái búa trên thanh Control Toolbox), một danh sách thả xuống bạn tìm đến dòng Microsoft Office Spreadsheet 11.0 và nhấp chuột. Khi con trỏ trở thành hình dấu (+) thì bạn kéo chuột trên slide để vẽ tạo một bảng dạng Excel phủ kín slide như hình dưới. Bạn chuột phải vào bảng chọn Properties rồi đặt tên cho bảng này là spsLuutru và chọn mục Microsoft Office Spreadsheet 11.0 Object rồi chọn Edit để vào chế độ soạn thảo trắc nghiệm.
Cột A bạn nhập câu dẫn và các phương án lựa chọn, cột B bạn gõ những nhận xét, dẫn dắt cách làm tương ứng cho mỗi phương án mà HS chọn. Nhập hết câu 1 bạn tiếp tục nhập nối luôn câu 2 vào dòng 6 => 10, cứ thế tiếp tục cho đến hết (mỗi câu 5 dòng). Bạn gõ bằng mã Unicode nhé! Nhập xong bạn nhấp chuột ra ngoài vùng bảng để thoát khỏi chế độ nhập dữ liệu. Tiếp đến bạn nhấp vào bảng để điều chỉnh, thu nhỏ kích thước bảng rồi đặt ra phía ngoài slide mà bạn đã tạo giao diện ô trắc nghiệm ban nãy.
Nhấn vào đây nếu bạn muốn định dạng lại chữ
- Bây giờ đến giai đoạn viết code, hãy bấm đúp vào nút spnDoicau để mở cửa sổ VBA rồi bạn nhập vào đoạn code sau:
Private Sub spnDoicau_Change()
lblDiem.Caption = spnDoicau.Value
lblNhanxet.Caption = ""
opt1.Value = False
opt2.Value = False
opt3.Value = False
opt4.Value = False
lblCauhoi.Caption = spsLuutru.Cells(spnDoicau.Value * 5 - 4, 1)
opt1.Caption = spsLuutru.Cells(spnDoicau.Value * 5 - 3, 1)
opt2.Caption = spsLuutru.Cells(spnDoicau.Value * 5 - 2, 1)
opt3.Caption = spsLuutru.Cells(spnDoicau.Value * 5 - 1, 1)
opt4.Caption = spsLuutru.Cells(spnDoicau.Value * 5, 1)
End Sub
- Đoạn code này có ý nghĩa như sau: Mỗi khi thay đổi (Change) ở spnDoicau thì gán cho lblDiem có giá trị bằng giá trị của spnDoicau, xóa trắng lblNhanxet, bỏ chọn các opt, đưa nội dung câu tương ứng từ spsLuutru vào lblCauhoi, tải các phương án lựa chọn từ spsLuutru đến opt1, opt2, opt3, opt4.
- Bạn chú ý thêm ở đoạn mã trên: vì giá trị của câu hiện hành bằng giá trị của Spin nên ta có công thức tải các nội dung từ spsLuutru ra như sau:
Nội dung câu dẫn = Giá trị ô trong spsLuutru ở dòng (spnDoicau.Value * 5 – 4), cột 1
Phương án 1 = Giá trị ô trong spsLuutru ở dòng (spnDoicau.Value * 5 – 3), cột 1
Phương án 2 = Giá trị ô trong spsLuutru ở dòng (spnDoicau.Value * 5 – 2), cột 1
Phương án 3 = Giá trị ô trong spsLuutru ở dòng (spnDoicau.Value * 5 – 1), cột 1
Phương án 4 = Giá trị ô trong spsLuutru ở dòng (spnDoicau.Value * 5), cột 1
Với các câu sau thì tự spnDoicau thay đổi giá trị từ Min đến Max và tải ra
theo công thức trên.
- Ta tiếp tục viết mã cho nút btnLamlai, nhấp đúp vào nút đó và viết vào đoạn mã sau:
Private Sub btnLamlai_Click()
opt1.Value = False
opt2.Value = False
opt3.Value = False
opt4.Value = False
lblNhanxet.Caption = ""
spnDoicau.Value = 1
End Sub

Đoạn này có ý nghĩa: Khi click vào nút btnLamlai thì bỏ chọn các opt1…opt4, xóa trắng lblNhanxet, gán cho spnDoicau giá trị bằng 1 (trở về câu 1)
- Cố lên bạn ơi, sắp hoàn thành rồi, thao tác sau cùng là viết mã điều khiển các nhận xét, ta dựa vào sự kiện là khi các opt1…opt4 bị click thì sẽ tải nội dung nhận xét ra, chi tiết mã như sau (bạn nhớ nhấp đúp để lần lượt mở VBA đối với mỗi opt rồi nhập vào nhé!):

Private Sub opt1_Click()
lblNhanxet.Caption = spsLuutru.Cells(spnDoicau.Value * 5 - 3, 2)
End Sub
Private Sub opt2_Click()
lblNhanxet.Caption = spsLuutru.Cells(spnDoicau.Value * 5 - 2, 2)
End Sub
Private Sub opt3_Click()
lblNhanxet.Caption = spsLuutru.Cells(spnDoicau.Value * 5 - 1, 2)
End Sub
Private Sub opt4_Click()
lblNhanxet.Caption = spsLuutru.Cells(spnDoicau.Value * 5, 2)
End Sub

- Đoạn mã này có nhắc lại công thức tải thông tin từ spsLuutru ra như tôi vừa đề cập ở trên, chỉ khác số 2 ở cuối (đó là số thứ tự cột – cột 2 trong spsLuutru). Xong rồi, cuối cùng ta có slide trắc nghiệm như sau (bạn có thể thử luôn):
Câu hỏi:
Nhận xét:
Hẹn gặp lại các bạn trong bài 7 !
Bạn hãy thử thiết kế dạng trắc nghiệm trên theo đúng chuyên môn của mình xem, nếu trục trặc gì hãy gửi email cho tôi: [email protected].
Trong các bài sau sẽ hướng dẫn các bạn tạo trò chơi ô chữ theo hai kiểu:
+ Kiểu “ Chiếc nón kì diệu”
+ Kiểu “ Đường lên đỉnh Olympia”
Các bạn chú ý theo dõi nhé!