Logo liên kết

Thư mục

Điều tra ý kiến

Bạn thấy mã HTML-Code của trang web đã đáp ứng đủ chưa?
Rất đủ không cần thêm
Đủ, nhưng cần phát triển thêm
Không đủ
Không thể biết vì chưa hiểu về mã HTML-Code
Ý kiến khác

Thống kê

  • truy cập   (chi tiết)
    trong hôm nay
  • lượt xem
    trong hôm nay
  • thành viên
  • Thành viên trực tuyến

    0 khách và 0 thành viên

    Welcome to

    Mã lệnh trong PowerPoint - Bài giảng tương tác. Bài 6

    Wait
    • Begin_button
    • Prev_button
    • Play_button
    • Stop_button
    • Next_button
    • End_button
    • 0 / 0
    • Loading_status
    Nhấn vào đây để tải về
    Báo tài liệu có sai sót
    Nhắn tin cho tác giả
    (Tài liệu chưa được thẩm định)
    Nguồn:
    Người gửi: Nguyễn Tuấn Cường (trang riêng)
    Ngày gửi: 10h:42' 04-10-2008
    Dung lượng: 188.5 KB
    Số lượt tải: 608
    Số lượt thích: 0 người
    MÃ LỆNH TRONG POWERPOINT
    BÀI GIẢNG TƯƠNG TÁC

    BÀI 6

    SPREADSHEET (SPS)
    NHIỀU CÂU TRẮC NGHIỆM TRÊN MỘT SILDE
    Biên soạn: Nguyễn Tuấn Cường
    Trường THCS Thái Sơn – An Lão – Hải Phòng
    (Tham khảo từ tài liệu: Giáo trình PowerPoint tương tác bằng VBA – Võ Tấn Dũng)
    Xin Click vào đây để xem các bài trước
    nếu lần đầu bạn xem tài liệu này!
    1 . Ý tưởng thiết kế:
    - Tạo một Slide trình chiếu được nhiều câu trắc nghiệm, việc đổi câu được thưc hiện thông qua nút điều khiển. Các câu trắc nghiệm được tải ra từ một bảng chuẩn bị trước, số câu không hạn chế.
    - Khi HS trả lời có các nhận xét, gợi mở cần thiết để nhắc nhở kiến thức hoặc định hướng cách làm.
    2 . Quy trình thực hiện:
    - Dùng các công cụ: Label, Option Button, Spin Button, Comman Button để tạo giao diện bài trắc nghiệm như hình sau đây. Bạn cũng có thể đổi màu nền, gõ thêm tiêu đề nút bấm… để sao cho giao diện trình chiếu trông dễ nhìn và khoa học. (Hãy xem lại các bài 1, 2, 3, 4, 5 nếu bạn chưa thành thạo về vấn đề này).
    Câu hỏi:
    Nhận xét:
    Label chứa số thứ tự câu hỏi. Đặt tên: lblCau
    Label chứa nội dung câu hỏi. Đặt tên: lblCauhoi
    Lần lượt tạo 4 Option Button như thế này để tải nội dung của các phương án. Bạn điều chỉnh kích thước của Option Button để nó đủ dài rộng chứa nội dung mỗi phương án, trong VD này tôi chỉnh cho 4 Option Button kéo dài gần hết chiều ngang slide. Đặt tên lần lượt là opt1, opt2, opt3, opt4.
    Label chứa nội dung nhận xét. Tên: lblNhanxet
    Spin button dùng để đổi câu. Tên: spnDoicau
    Command Button (btnLamlai) dùng bấm làm lai
    Đây là bảng Properties của đối tượng spnDoicau, bạn chú ý đến thuộc tính Value của nó có tác dụng lưu số thứ tự câu hiện hành. Bạn nhập vào Min = 1, Max = số câu trắc nghiệm trong Spreadsheet, ở VD này tôi soạn 4 câu nên Max = 4
    - Bây giờ ta soạn các câu trắc nghiệm bằng đối tượng SpreadSheet. Bạn nhấp vào More Control (hình cái búa trên thanh Control Toolbox), một danh sách thả xuống bạn tìm đến dòng Microsoft Office Spreadsheet 11.0 và nhấp chuột. Khi con trỏ trở thành hình dấu (+) thì bạn kéo chuột trên slide để vẽ tạo một bảng dạng Excel phủ kín slide như hình dưới. Bạn chuột phải vào bảng chọn Properties rồi đặt tên cho bảng này là spsLuutru và chọn mục Microsoft Office Spreadsheet 11.0 Object rồi chọn Edit để vào chế độ soạn thảo trắc nghiệm.
    Cột A bạn nhập câu dẫn và các phương án lựa chọn, cột B bạn gõ những nhận xét, dẫn dắt cách làm tương ứng cho mỗi phương án mà HS chọn. Nhập hết câu 1 bạn tiếp tục nhập nối luôn câu 2 vào dòng 6 => 10, cứ thế tiếp tục cho đến hết (mỗi câu 5 dòng). Bạn gõ bằng mã Unicode nhé! Nhập xong bạn nhấp chuột ra ngoài vùng bảng để thoát khỏi chế độ nhập dữ liệu. Tiếp đến bạn nhấp vào bảng để điều chỉnh, thu nhỏ kích thước bảng rồi đặt ra phía ngoài slide mà bạn đã tạo giao diện ô trắc nghiệm ban nãy.
    Nhấn vào đây nếu bạn muốn định dạng lại chữ
    - Bây giờ đến giai đoạn viết code, hãy bấm đúp vào nút spnDoicau để mở cửa sổ VBA rồi bạn nhập vào đoạn code sau:
    Private Sub spnDoicau_Change()
    lblDiem.Caption = spnDoicau.Value
    lblNhanxet.Caption = ""
    opt1.Value = False
    opt2.Value = False
    opt3.Value = False
    opt4.Value = False
    lblCauhoi.Caption = spsLuutru.Cells(spnDoicau.Value * 5 - 4, 1)
    opt1.Caption = spsLuutru.Cells(spnDoicau.Value * 5 - 3, 1)
    opt2.Caption = spsLuutru.Cells(spnDoicau.Value * 5 - 2, 1)
    opt3.Caption = spsLuutru.Cells(spnDoicau.Value * 5 - 1, 1)
    opt4.Caption = spsLuutru.Cells(spnDoicau.Value * 5, 1)
    End Sub
    - Đoạn code này có ý nghĩa như sau: Mỗi khi thay đổi (Change) ở spnDoicau thì gán cho lblDiem có giá trị bằng giá trị của spnDoicau, xóa trắng lblNhanxet, bỏ chọn các opt, đưa nội dung câu tương ứng từ spsLuutru vào lblCauhoi, tải các phương án lựa chọn từ spsLuutru đến opt1, opt2, opt3, opt4.
    - Bạn chú ý thêm ở đoạn mã trên: vì giá trị của câu hiện hành bằng giá trị của Spin nên ta có công thức tải các nội dung từ spsLuutru ra như sau:
    Nội dung câu dẫn = Giá trị ô trong spsLuutru ở dòng (spnDoicau.Value * 5 – 4), cột 1
    Phương án 1 = Giá trị ô trong spsLuutru ở dòng (spnDoicau.Value * 5 – 3), cột 1
    Phương án 2 = Giá trị ô trong spsLuutru ở dòng (spnDoicau.Value * 5 – 2), cột 1
    Phương án 3 = Giá trị ô trong spsLuutru ở dòng (spnDoicau.Value * 5 – 1), cột 1
    Phương án 4 = Giá trị ô trong spsLuutru ở dòng (spnDoicau.Value * 5), cột 1
    Với các câu sau thì tự spnDoicau thay đổi giá trị từ Min đến Max và tải ra
    theo công thức trên.
    - Ta tiếp tục viết mã cho nút btnLamlai, nhấp đúp vào nút đó và viết vào đoạn mã sau:
    Private Sub btnLamlai_Click()
    opt1.Value = False
    opt2.Value = False
    opt3.Value = False
    opt4.Value = False
    lblNhanxet.Caption = ""
    spnDoicau.Value = 1
    End Sub

    Đoạn này có ý nghĩa: Khi click vào nút btnLamlai thì bỏ chọn các opt1…opt4, xóa trắng lblNhanxet, gán cho spnDoicau giá trị bằng 1 (trở về câu 1)
    - Cố lên bạn ơi, sắp hoàn thành rồi, thao tác sau cùng là viết mã điều khiển các nhận xét, ta dựa vào sự kiện là khi các opt1…opt4 bị click thì sẽ tải nội dung nhận xét ra, chi tiết mã như sau (bạn nhớ nhấp đúp để lần lượt mở VBA đối với mỗi opt rồi nhập vào nhé!):

    Private Sub opt1_Click()
    lblNhanxet.Caption = spsLuutru.Cells(spnDoicau.Value * 5 - 3, 2)
    End Sub
    Private Sub opt2_Click()
    lblNhanxet.Caption = spsLuutru.Cells(spnDoicau.Value * 5 - 2, 2)
    End Sub
    Private Sub opt3_Click()
    lblNhanxet.Caption = spsLuutru.Cells(spnDoicau.Value * 5 - 1, 2)
    End Sub
    Private Sub opt4_Click()
    lblNhanxet.Caption = spsLuutru.Cells(spnDoicau.Value * 5, 2)
    End Sub

    - Đoạn mã này có nhắc lại công thức tải thông tin từ spsLuutru ra như tôi vừa đề cập ở trên, chỉ khác số 2 ở cuối (đó là số thứ tự cột – cột 2 trong spsLuutru). Xong rồi, cuối cùng ta có slide trắc nghiệm như sau (bạn có thể thử luôn):
    Câu hỏi:
    Nhận xét:
    Hẹn gặp lại các bạn trong bài 7 !
    Bạn hãy thử thiết kế 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 trò chơi ô chữ theo hai kiểu:
    + Kiểu “ Chiếc nón kì diệu”
    + Kiểu “ Đường lên đỉnh Olympia”
    Các bạn chú ý theo dõi nhé!
     
    Gửi ý kiến

    ↓ CHÚ Ý: Bài giảng này được nén lại dưới dạng RAR và có thể chứa nhiều file. Hệ thống chỉ hiển thị 1 file trong số đó, đề nghị các thầy cô KIỂM TRA KỸ TRƯỚC KHI NHẬN XÉT  ↓