Powerpoint tương tác(3)

Bài 3
CÁC ĐỐI TƯỢNG CƠ BẢN (Phần 2)
OPTION BOX/CHECK BOX
CÁC ĐỐI TƯỢNG CƠ BẢN
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.
CÁC ĐỐI TƯỢNG CƠ BẢN
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.
CÁC ĐỐI TƯỢNG CƠ BẢN
Ý 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.
CÁC ĐỐI TƯỢNG CƠ BẢN
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
CÁC ĐỐI TƯỢNG CƠ BẢN
opt1C.Value = False
opt1D.Value = False
opt2A.Value = False
opt2B.Value = False
opt2C.Value = False
opt2D.Value = False
lblDiem.Caption = ""
End Sub
CÁC ĐỐI TƯỢNG CƠ BẢN
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