Powerpoint tương tác 04 - 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.

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

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.

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