BAI 4

<span class='text_page_counter'>(1)</span>MÃ LỆNH TRONG POWERPOINT BÀI GIẢNG TƯƠNG TÁC BÀI 4 (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!). CHECK BOX VÀ OPTION BOX VỚI BÀI TRẮC NGHIỆM NHIỀU LỰA CHỌN.

<span class='text_page_counter'>(2)</span> 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:.

<span class='text_page_counter'>(3)</span> Dùng công cụ Option Box tạo 8 nút chọn 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. 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. BẮT ĐẦU. 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). KEÁT QUAÛ. ÑIEÅM.

<span class='text_page_counter'>(4)</span> 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 .. Câu 2: Phép chia 35 : 32 có kết quả bằng : 13 . 32 34 33 .. 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ẮT ĐẦU. KEÁT QUAÛ. 0.

<span class='text_page_counter'>(5)</span> -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.

<span class='text_page_counter'>(6)</span> + 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 <hành động>. Ở đâ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.

<span class='text_page_counter'>(7)</span> Tìm các ƯC(12;18) trong các phương án sau : 2. SLIDE THỨ HAI. 3. - 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.. 4 6 8 12 Các ô Chec k. BẮT ĐẦU. KEÁT QUAÛ.

<span class='text_page_counter'>(8)</span> -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: Nhấp đúp vào nút BẮT ĐẦU để hiện 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. cửa sổ VBA, bạn nhập các dòng code bên 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. 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.

<span class='text_page_counter'>(9)</span> Đô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):.

<span class='text_page_counter'>(10)</span> 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 .. Câu 2: Phép chia 35 : 32 có kết quả bằng : 13 . 32 34 33 .. BẮT ĐẦU. KEÁT QUAÛ. 0.

<span class='text_page_counter'>(11)</span> Tìm các ƯC(12;18) trong các phương án sau : 2 3 4 6 8 12. BẮT ĐẦU. KEÁT QUAÛ. 0.

<span class='text_page_counter'>(12)</span> -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: - 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.. Hẹn gặp lại các bạn trong bài 5 !.

<span class='text_page_counter'>(13)</span>