TextBox1 - Đặt màu nền cho đối tượng tại BackColor

Như vậy ta tạm có một

T

End Sub

Private Sub xemketqua_Click()

diem.Caption = 0

If Opa.Value = False Then diem.Caption = diem.Caption + 1

If Opb.Value = False Then diem.Caption = diem.Caption + 1

If Opc.Value = False Then diem.Caption = diem.Caption + 1

If Opd.Value = True Then diem.Caption = diem.Caption + 1

If diem.Caption = 4 Then traloi.Caption = "Ñuùng roài"

If diem.Caption < 4 Then traloi.Caption = "Sai roài"

Như vậy, trong khi trình chiếu dạy học, nếu ta nhấp chuột vào Nút Lamlai thì Ô traloi bị xóa, diem = 0, các ô A, B, C, D trở về nhận giá trị False.

Sau đó nếu Học sinh tích chọn vào ô D (true) thì 3 ô còn lại có giá trị False nên Diem = 8 và Ô trả lời sẽ hiện “Đúng rồi”. Rất hay và thú vị.

7.3 Dùng CheckBox tạo câu hỏi lựa chọn có nhiều phương án đúng.

Ví dụ chúng ta cần tạo một câu hỏi như sau:

Cách chọn: Hsinh trả lời, ta dùng chuột tích vào các ô vuông đúng.

Đây là loại bài tập có thể có nhiều ý đúng.

Cách làm:

Ta nhấp chuột vào nút thứ 3 trên thanh công cụ ta được một CheckBox và đặt tên là Cha. Đặt các thuộc tính ta làm tương tự như TextBox và OptionBox nêu ở trên. Đặt tên cho 6 ý là cha, chb, chc, chd, che, chg. Trong câu này nếu học sinh chọn tích 2 ý A và E là đúng. Vậy nếu có em Học sinh nghĩ “Tích vào cả 6 ô” thì có đúng không? Điền cả không đúng cả 6/6 câu đâu. Ta tạo thêm 2 CommandButton là Lamlai và Ketqua, tạo thêm 1 Label là socau rồi ta nhấp chuột vào nút 2 trên thanh ContronToolbox và viết Code như sau:

Private Sub CommandButton1_Click()

Cha.Value = False

Chb.Value = False

Chc.Value = False

Chd.Value = False

Che.Value = False

Chg.Value = False

diem.Caption = 0

End Sub

Private Sub xemketqua_Click()

diem.Caption = 0

If Cha.Value = True Then diem.Caption = diem.Caption + 10 / 6

If Chb.Value = False Then diem.Caption = diem.Caption + 10 / 6

If Chc.Value = False Then diem.Caption = diem.Caption + 10 / 6

If Chd.Value = False Then diem.Caption = diem.Caption + 10 / 6

If Che.Value = True Then diem.Caption = diem.Caption + 10 / 6

If Chg.Value = False Then diem.Caption = diem.Caption + 10 / 6

End Sub

Vậy nên, trong chế độ trình chiếu, khi ta nhấp vào nút LamLai thì cả 6 ô chọn đều trống rỗng (mất hết dấu tích x), socau đúng về bằng 0; Ta nhấp chuột tích chọn 6 ô xong và nhấp vào ô Ketqua thì sẽ hiện ra số câu đúng. Nếu tích vào ô B thì CheckBox B nhận giá trị True (khác với trong lập trình là False) nên socau sẽ không được cộng thêm 1. Do đó nếu tích cả 6 ô thì số câu đúng chỉ là 2/6 câu.

7.4 Dùng Label tạo câu ghép nối thông tin

Ví dụ ta cần tạo một Slide tương tác như sau:

Cách chọn:

Nhấp vào ô màu xanh rồi nhấp vào ô màu hồng sẽ hiện thông tin như ô màu xanh. Ví dụ ta nhấp chuột vào ô ví dụ ô Hình thoi (màu nền xanh) rồi nhấp vào ô nào (màu xanh) đầu tiên thì ô đó sẽ hiện lên chữ Hình thoi (như trên hình). Nhấp vào những ô nào thì ô đó sẽ hiện lên chữ Hình thoi, rồi nhấp các ô khác tương tự.

Cách làm:

Để làm được như vậy ta tạo Nút CommandButton bằng cách nhấp chuột vào nút thứ 5 trên thanh công cụ ContronToolbox sẽ xuất hiện một “đối tượng”. Ta tạo các thuộc tính như nêu ở mục TextBox rồi copy ra nhiều cái. Ta tạo 1 nút CommandButton đặt tên là cbtg, 5 Nút CommandButton màu hồng và đặt tên là cb1, cb2, cb3, cb4, cb5 và tạo 6 Nút CommandButton màu xanh đặt tên là cb_1, cb_2, cb_3, cb_4, cb_5, cb_6. Tạo một Label để tính điểm đặt tên là lbldiem.

Sau đó ta nhấp chuột vào nút 2 trên thanh ContronToolbox và viết Code như sau:

Private Sub xoa_Click()

cb1.Caption = ""

cb2.Caption = ""

……………………………..

cb13.Caption = ""

diem.Caption = 0

End Sub

Private Sub cba_Click()

cbtg.Caption = cba.Caption

End Sub

Private Sub cbb_Click()

cbtg.Caption = cbb.Caption

End Sub

Private Sub cbc_Click()

cbtg.Caption = cbc.Caption

End Sub

Private Sub cbd_Click()

cbtg.Caption = cbd.Caption

End Sub

Private Sub cbe_Click()

cbtg.Caption = cbe.Caption

End Sub

Private Sub cbg_Click()

cbtg.Caption = cbg.Caption

End Sub

Private Sub cb1_Click()

cb1.Caption = cbtg.Caption

End Sub

Private Sub cb2_Click()

cb2.Caption = cbtg.Caption

End Sub

………………………………………..

Private Sub cb13_Click()

cb13.Caption = cbtg.Caption

End Sub

Private Sub chamdiem_Click()

diem.Caption = 0

If (cb1.Caption = "baèng nhau") Then diem.Caption = diem.Caption + 10 / 13

If (cb2.Caption = "H bình haønh") Then diem.Caption = diem.Caption + 10 / 13

If (cb3.Caption = "ñöôøng cheùo") Then diem.Caption = diem.Caption + 10 / 13

If (cb4.Caption = "baèng nhau") Then diem.Caption = diem.Caption + 10 / 13

If (cb5.Caption = "H chöõ nhaät") Then diem.Caption = diem.Caption + 10 / 13

If (cb6.Caption = "ñöôøng cheùo") Then diem.Caption = diem.Caption + 10 / 13

If (cb7.Caption = "ñöôøng cheùo") Then diem.Caption = diem.Caption + 10 / 13

If (cb8.Caption = "vuoâng goùc") Then diem.Caption = diem.Caption + 10 / 13

If (cb9.Caption = "H thoi") Then diem.Caption = diem.Caption + 10 / 13

If (cb10.Caption = "baèng nhau") Then diem.Caption = diem.Caption + 10 / 13

If (cb11.Caption = "H thoi") Then diem.Caption = diem.Caption + 10 / 13

If (cb12.Caption = "ñöôøng cheùo") Then diem.Caption = diem.Caption + 10 / 13

If (cb13.Caption = "baèng nhau") Then diem.Caption = diem.Caption + 10 / 13

End Sub

Như vậy, khi trình chiếu ta nhấp chuột chọn ô 1 (cb1) là “Hình bình hành”, ô 2 (cb2) là “Hình chữ nhật” … đúng như trong lập trình thì Chấm điểm sẽ là 10. Nếu học sinh điền sai thì không đạt 10 điểm đâu! Như vậy, rất hay và thú vị!

7.5 Dùng Command Button, Label để tạo cách chấm điểm

Chấm điểm sau các Câu hỏi, bài tập là rất cần thiết để giáo viên, học sinh nắm được mức độ của mình. Chấm điểm có thể dùng sau khi hoàn thành các câu hỏi điền thông tin TextBox, câu lựa chọn 1 phương án OptionBox, Câu lựa chọn nhiều phương án CheckBox, Câu ghép đôi Label, …

Sau đây tôi sẽ trình bày cách tạo chấm điểm cho dạng câu hỏi điền thông tin TextBox.

Cách làm:

Giả sử ta cần tạo một Slide tương tác và có chấm điểm như hình trên:

• 
  Ta tạo 1 TextBox và đặt tên là Tb1. Sau đó ta tạo các thuộc tính cho vừa và đẹp. Sau đó copy ra thành 10 Texbox và đặt tên là Tb1, Tb2, Tb3,… Tb10 với độ dài ngắn phù hợp.
  
• 
  Ta tạo 1 Nút bấm Button Xóa – Làm lại để xóa sạch trước khi điền thông tin vào.
  
• 
  Ta tạo 1 Nút bấm Button Xem – Kết quả để sau khi điền hết các chỗ trống ta xem được mấy ô ta điền đúng.
  
• 
  Ta tạo 1 Label diem để tính điểm. Mỗi TextBox điền đúng sẽ được 1 điểm, 10 ô 10 điểm.
  

Tiếp theo, ta nhấp Nút bấm Xóa – Làm lại và viết Code như sau:

Private Sub xoalamlai_Click()

tb1.Text = ""

tb2.Text = ""

……………………

tb10.Text = ""

diem.Caption = 0

End Sub

………

Tiếp theo chỗ ……. trên, ta nhấp Nút bấm Xem kết quả và viết Code như sau:

Private Sub xemketqua_Click()

diem.Caption = 0

If Tb1.Text = "trung bình" Then diem.Caption = diem.Caption + 1

If Tb2.Text = "360" Then diem.Caption = diem.Caption + 1

If Tb3.Text = "cạnh huyền" Then diem.Caption = diem.Caption + 1

If Tb4.Text = "2" Then diem.Caption = diem.Caption + 1

If Tb5.Text = "1" Then diem.Caption = diem.Caption + 1

If Tb6.Text = "vuông góc" Then diem.Caption = diem.Caption + 1

If Tb7.Text = "phân giác" Then diem.Caption = diem.Caption + 1

If Tb8.Text = "bằng nhau" Then diem.Caption = diem.Caption + 1

If Tb9.Text = "vuông cân" Then diem.Caption = diem.Caption + 1

If Tb10.Text = "nửa" Then diem.Caption = diem.Caption + 1

End Sub

Như vậy, trong khi trình chiếu:

• 
  Nhấp chuột vào Nút bấm Xóa – làm lại thì 10 ô sẽ xóa sạch dữ liệu.
  
• 
  Học sinh phát biểu và Giáo viên nhập thông tin (từ, cụm từ) vào 10 chỗ trống.
  
• 
  Sau đó ta nhấp chuột vào Nút bấm Xem – kết quả thì sẽ hiện ra số điểm tương ứng với số câu đúng.
  

Chú ý:

Chúng ta đã từng biết cách so sánh hai Xâu kí tự của máy tính rồi. Do đó, khi điền thông tin vào các ô TextBox phải điền đúng như trong lập trình: chữ thường, không có dấu cách 2 đầu, các từ cách nhau đúng một dấu cách, … thì máy mới công nhận từ (cụm từ) ma ta nhập vào bằng xâu trong đáp án và mới được tính điểm.

7.6 Dùng Label tạo trò chơi ô chữ:

Ta biết cách tạo trò chơi ô chữ trên Ppoint như thường làm thì rất đẹp, rất vui mắt, nhưng thiết kế các ô chữ, câu hỏi, đồng hồ, các hiệu ứng … cũng không đơn giản chút nào. Sau đây tôi xin trình bày cách thiết kê “Trò chơi ô chữ” bằng lập trình Visual Basic khá gọn nhẹ, đơn giản.

Ví dụ ta cần tạo trò chơi ô chữ như hình bên:

Cách làm:

• 
  Tạo 1 CommandButton xóa (màu xanh) đặt tên ví dụ cb_START như tôi làm để xóa sạch các ô trước khi bắt đầu trò chơi.
  
• 
  Tạo 1 Label Câu hỏi (màu hồng) dặt tên là Lbcauhoi để lưu câu hỏi và hiện ra khi nhấp chuột.
  
• 
  Tạo 1 cột Nút bấm CommandButton bên trái đặt tên là cb1, cb2, … cb8 để khi nhấp vào Nút nào thì hàng ô chữ tương ứng sẽ hiện ra dấu ? ? ? và câu hỏi sẽ hiện ra ở trên.
  
• 
  Tạo 1 cột Nút bấm CommandButton bên phải đặt tên ví dụ m1, m2, … m8 để khi nhấp vào Nút nào thì hàng ô chữ tương ứng sẽ hiện ra. Ví dụ: H Ì N H B Ì N H H À N H
  
• 
  Tạo các hàng ô chữ Label và đặt tên như kiểu tọa độ hàng, cột. Ví dụ hàng đầu có 6 để lưu chữ “TỨ GIÁC” thì 6 ô đặt tên là H11 , H12 , H13 , H14 , H15 , H16. Hàng thứ 2 có 12 ô chữ để lưu chữ “H Ì N H B Ì N H H À N H” thì đặt tên Label cho các ô là H21 , H22 , H23 , … H212
  

Chú ý:

Đặt màu nền, màu chữ các hàng ô cho đồng đều để cho rõ ràng, dễ xem.

Và tiếp theo viết Code lập trình cho các đối tượng. Ở đây phần Code dài 6 trang, tôi không thể trình bày ở đây được. Tôi sẽ giới thiệu trong Video kèm theo Bài dự thi này.

Ghi chú:

Ngoài ra, trên thanh công cụ Contron ToolBox còn có các nút công cụ trên đây chưa giới thiệu như:

- ListBox (Danh sách chọn lựa) Nút 7

- Combo Box (Hộp lựa chọn) Nút 8

- Toggle Button Nút 9

- Spin Button (Nút cuộn) Nút 10

- Scroll Bar (Thanh cuộn) Nút 11

- PictureBox (Hình ảnh) Nút 13

- More Contron (Các đối tượng khác) Nút 14

7. Kết quả đạt được

Tôi đã vận dụng công cụ VBA tạo một số bài giảng tương tác khi dạy học Môn Hình học 8 ở 2 lớp 8A1 ngày 14/11/2015 và lớp 8B1 vào một số buổi khác.

Kết quả các em học sinh rất hứng thú hoạt động và hăng hái tích cực phát biểu xây dựng bài Ôn tập kiến thức lý thuyết chương 1, mang lại cho các em nhiều tình huống thú vị và gây cho các em nhiều sự bất ngờ, đặc biệt nhất là ở tiện ích chấm điểm và Trò chơi ô chữ.

Trong tiết học này, các em không cần và không phải học thuộc lòng các Định nghĩa, tính chất, dấu hiệu nhận biết các tứ giác một cách máy móc, mà thông qua các Câu hỏi, Bài tập tương tác với bài giảng, các em sẽ thực sự tư duy, tìm tòi các phương trả lời án đúng một cách nhanh nhẹn, sáng tạo để “máy” chấm điểm đạt tới điểm tối đa hoặc là “máy” đưa ra đáp án, kết luận, trả lời đúng.

Đặc biệt, việc Ôn tập kiến thức lý thuyết đưa vào hoạt động hoàn thành câu Ghép nối thông tin (Câu 9 trong Video) và “Trò chơi Ô chữ” (Câu 10 trong Video) tôi thấy các em tham gia hoạt động học tập vui vẻ dưới dạng chơi trò chơi và các em rất thích thú, ôn tập kiến thức lý thuyết chương Tứ giác một cách nhẹ nhà và tự nhiên.

Các em đã hiểu rõ, ghi nhớ và nắm lại nội dung kiến thức trong Chương 1 một cách sâu sắc và có ấn tượng.

Các tiết dạy của tôi đã được BGH, nhiều giáo viên, bạn bè đồng nghiệp trong và ngoài nhà trường THCS Hưng Thịnh khen ngợi và học hỏi.
Nghĩa Hưng, Nghĩa Đàn, Nghệ An ngày 21/3/2016

Giáo viên:

tải về 1.38 Mb.

Chia sẻ với bạn bè của bạn: