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

CHECK BOX VÀ OPTION BOX
VỚI BÀI TRẮC NGHIỆM NHIỀU LỰA CHỌN
(Xin hãy xem trước bài 1,2,3 nếu lần đầu bạn xem tài liệu này!)
1- Ý tưởng thiết kế:
Tạo 2 Slide thiết kế câu trắc nghiệm kiểu có nhiều lựa chọn, có thể chấm điểm và làm lại. Tùy số câu nhưng điểm vẫn được tính theo thang điểm 10
+ Slide thứ nhất tạo câu trắc nghiệm nhiều lựa chọn chỉ có một đáp án đúng.
+ Slide thứ hai tạo câu trắc nghiệm nhiều lựa chọn có nhiều đáp án đúng.
2 - Quy trình thực hiện:
SLIDE THỨ NHẤT
- Dùng công cụ Option Box trên Control Toolbox để tạo 8 nút chọn, đặt tên (chuột phải vào đối tượng rồi chọn Properties, dòng Name trên cùng) là opt1, opt2, …, opt8. Bạn có thể đổi nền, tạo nhãn cho mỗi nút (chuột phải vào đối tượng rồi chọn Properties, dòng Caption. Chẳng hạn A, B, C, D) trong ví dụ này tôi không tạo nhãn. Bạn xem hình sau:
Chuột phải vào nút trên cùng rồi chọn Properties, đặt tên (dòng Name) cho các đối tượng lần lượt là opt1, opt2, …, opt8.
Dùng công cụ Option Box tạo 8 nút chọn
Trong mục GroupName của 4 nút trên ta gõ vào số 1, trong mục này của 4 nút cuối ta chọn số 2 (để chia 8 nút thành 2 nhóm)
Tạo 4 Button đặt tên là btnBatdau, btnKetqua, btnDiem Button cuối không cần đặt tên dùng để chứa chữ “ĐIỂM” cho nằm lớp dưới btnDiem.

Câu 2: Phép chia 35 : 32 có kết quả bằng :
13 .
32
34
33 .
Hãy chọn câu trả lời đúng trong các câu sau:

Câu 1: Để đặt tên cho một đoạn thẳng người ta thường dùng :
Hai chữ cái viết thường .
Một chữ cái viết hoa và một chữ cái viết thường
Hai chữ cái viết hoa
Cả ba câu trên đều đúng .
Bây giờ bạn tạo các câu trắc nghiệm bình thường rồi căn chỉnh để mỗi phương án nằm ngay sau một nút chọn, bạn nhớ đáp án nào đúng để lát nữa viết CODE
Bây giờ là giai đoạn viết code:
+ Nhấp đúp vào nút BẮT ĐẦU để hiện cửa sổ VBA, bạn nhập các
dòng code sau:
Private Sub btnBatdau_Click()
opt1.Value = False
opt2.Value = False
opt3.Value = False
opt4.Value = False
opt5.Value = False
opt6.Value = False
opt7.Value = False
opt8.Value = False
btnDiem.Caption = "0"
End Sub
Đoạn này nhằm xóa trắng các nút chọn
Dòng này xóa trắng btnDiem

+ Nhấp đúp vào nút KẾT QUẢ để hiện cửa sổ VBA, bạn nhập các
dòng code sau:

Private Sub btnKetqua_Click()
btnDiem.Caption = "0"
If opt3.Value = True Then btnDiem.Caption = btnDiem.Caption + 5
If opt8.Value = True Then btnDiem.Caption = btnDiem.Caption + 5
End Sub
Các bạn gặp lại cấu trúc: Nếu …Thì… ở bài 3
If <điều kiện> Then . Ở đây câu 1 phương án đúng là phương án 3 (opt3), câu 2 phương án đúng là 4 (opt8) nên ta đặt lệnh cho btnDiem cộng 5 điểm khi người dùng chọn opt3 và opt8. Vậy là hoàn thành Slide 1

Tìm các ƯC(12;18) trong các phương án sau :
2
3
4
6
8
12
SLIDE THỨ HAI
- Dùng công cụ Check Box trên Control Toolbox để tạo 6 ô check, đặt tên (chuột phải vào đối tượng rồi chọn Properties, dòng Name trên cùng) là chk1, chk2, …chk6. Bạn có thể đổi nền, tạo nhãn cho mỗi ô (chuột phải vào đối tượng rồi chọn Properties, dòng Caption, trong ví dụ này tôi không tạo nhãn. Phía dưới ta cũng tạo các Button đặt tên là btnBatdau, btnKetqua, btnDiem và một button dùng để chứa chữ “ĐIỂM”. Sau đó thiết kế câu trắc nghiệm nhiều lựa chọn với nhiều phương án đúng chẳng hạn như VD của tôi hình bên.
Các ô Check
Bây giờ là giai đoạn viết code cho bài trắc nghiệm với nhiều phương án đúng:
Private Sub btnBatdau_Click()
chk1.Value = False
chk2.Value = False
chk3.Value = False
chk4.Value = False
chk5.Value = False
chk6.Value = False
btnDiem.Caption = "0“
End Sub

Private Sub btnKetqua_Click()
btnDiem.Caption = "0"
If chk1.Value = True Then btnDiem.Caption = btnDiem.Caption + 10 / 6
If chk2.Value = True Then btnDiem.Caption = btnDiem.Caption + 10 / 6
If chk3.Value = False Then btnDiem.Caption = btnDiem.Caption + 10 / 6
If chk4.Value = True Then btnDiem.Caption = btnDiem.Caption + 10 / 6
If chk5.Value = False Then btnDiem.Caption = btnDiem.Caption + 10 / 6
If chk6.Value = False Then btnDiem.Caption = btnDiem.Caption + 10 / 6
btnDiem.Caption = Round (btnDiem.Caption, 0)
End Sub
Nhấp đúp vào nút KẾT QUẢ để hiện cửa sổ VBA, bạn nhập các dòng code dưới. Ở đây thuộc tính Value của Check Box sẽ là True hoặc False tùy vào nội dung ý đó đúng hay sai. Hàm Round làm tròn điểm thập phân thành điểm nguyên
Nhấp đúp vào nút BẮT ĐẦU để hiện cửa sổ VBA, bạn nhập các dòng code bên
Đôi điều cần chú ý
Side 1: do thiết kế 2 câu trắc nghiệm có 1 phương án đúng trên cùng một slide nên ta cần chia 8 nút chọn thành 2 nhóm bằng lệnh GroupName, nếu không VBA sẽ hiểu rằng đây là 8 nút của một câu, ta sẽ không thể chọn được 2 nút( opt3 và opt8) cùng lúc.
Slide 2: đây là dạng trắc nghiệm có nhiều đáp án đúng, người dùng chỉ cần check vào các ô đúng là được cộng dồn điểm. Không giống dạng 1, dạng 2 này ta thích check mấy ô cũng được. Dĩ nhiên các ô sai mà không check thì vẫn được điểm.
Cuối cùng ta được hai Slide trắc nghiệm như sau (bạn có thể thử hoạt động của nó luôn được đấy):

Câu 2: Phép chia 35 : 32 có kết quả bằng :
13 .
32
34
33 .
Hãy chọn câu trả lời đúng trong các câu sau:

Câu 1: Để đặt tên cho một đoạn thẳng người ta thường dùng :
Hai chữ cái viết thường .
Một chữ cái viết hoa và một chữ cái viết thường
Hai chữ cái viết hoa
Cả ba câu trên đều đúng .

Tìm các ƯC(12;18) trong các phương án sau :
2
3
4
6
8
12
Hẹn gặp lại các bạn trong bài 5 !
Bạn hãy thử thiết kế hai 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: tuancuonghp@gmail.com.
- Trong các bài sau sẽ hướng dẫn các bạn tạo câu trắc nghiệm nhiều lựa chọn (một phương án đúng) xuất hiện tuần tự chỉ trên một Slide.