Bài giảng PowerPoint tương tác - Bài 3: Các đối tượng cơ bản (Phần 2)

Bài 3CÁC ĐỐI TƯỢNG CƠ BẢN (Phần 2) OPTION BOX/CHECK BOX Thuộc tínhMô tảValueGiá trị của đối tượng, True nếu được check ngược lại mang giá trị False.GroupNamePhâ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.CÁC ĐỐI TƯỢNG CƠ BẢNOption 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ẢNVí 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ẢNBướ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 = Falseopt1B.Value = FalseCÁC ĐỐI TƯỢNG CƠ BẢNopt1C.Value = Falseopt1D.Value = Falseopt2A.Value = Falseopt2B.Value = Falseopt2C.Value = Falseopt2D.Value = FalselblDiem.Caption = ""End SubCÁC ĐỐI TƯỢNG CƠ BẢNBướ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