Cách làm trò chơi ô chữ bằng VBA

Đây là cách làm ô chữ tương tác từ VBA. Bài viết này giúp các bạn làm ô chữ một cách sinh động và trực quan nhất.Các cách làm ô chữ thường có làm từ PowerPoint truyền thống thường không có tương tác. Tài liệu này giúp các bạn làm ra một chương trình hay hơn và thú vị hơn. Nếu không vừa ý, các bạn góp ý đến email: tranvuanhduy2004gmail.com

Đầu tiên, mở Control Toolbox trong PowerPoint Cách mở như sau:

-Mở Tools->Customize

Sau đó, hiện ra bảng Customize Ở thanh Toolbar, chọn dòng “Control Toolbox” Sau đó sẽ hiện ra thanh công cụ Control Toolbox Chọn Label và

vẽ ra một Label( Chữ A) Click chuột phải, chọn Properties

Ở ô Name, thay đổi tên đối tượng (Ở đay nói không kĩ lắm nên các bạn tìm hiểu thêm tại https://sites.google.com/site/tinhocvaphuongphap/powerpoint-tng-tc) Copy ra thành 20 Label Ở 7 ô ghi ô chữ, các bạn đặt tên lần lượt là Label1, Label2,Label3, Label4, Label5,… Ở ô ghi số lần trả lời sai còn lại, bạn đặt tên là LabelDiem Ở các ô ghi chữ để điều khiển(để sau khi bấm vào thì chữu đó sẽ hiện các ô ghi chữ), các bạn ghi lần lượt là LabelBP1,

LabelBP2,LabelBP3,… Các ô ghi chữ đúng, các bạn đặt tên là LabelDung1, LabelDung2,… Chọn một Label, bấm Enter, xóa sach và ghi đoạn code sau: Private Sub LabelDung1_Click()

If Label1.Capiton=”” Then Label1.Capiton =”V”

End Sub

Private Sub LabelDung2_Click()

If Label2.Capiton=”” Then Label2.Capiton =”I”

End Sub

Private Sub LabelDung3_Click()

If Label3.Capiton=”” Then Label3.Capiton =”E”

End Sub

Private Sub LabelDung4_Click()

If Label4.Capiton=”” Then Label4.Capiton =”T”

End Sub

Private Sub LabelDung5_Click()

If Label5.Capiton=”” Then Label5.Capiton =”N”

End Sub

Private Sub LabelDung6_Click()

If Label6.Capiton=”” Then Label6.Capiton =”A”

End Sub

Private Sub LabelDung7_Click()

If Label7.Capiton=”” Then Label7.Capiton =”M”

End Sub

Sub sai()

LabelDiem.Capiton=LabelDiem.Capiton-1

If LabelDiem.Capiton =0 Then MsgBox “Het lan tra loi Cac ban da thua”, , “Thua roi” SlideShowWindows(1).View.Next

Private Sub LabelBP1_Click()

sai

End Sub

Với những Label BP2, BP3,… các bạn cũng làm như thế

Tạo Slide kết thúc

Tạo một WordArt ghi “Thua rồi” hay “Rất tiếc” hay đại loại Tạo hai Action Button , một cái ghi chơi lại, một cái ghi kết thúc Cách tạo nút chơi lại: Click chuột phải, chọn Action Settings Ở mục Mouse Click , chọn Hypelink to, ở mục trỏ xuống, chọn First Slide Còn ở nút kết thúc, các bạn cúng làm vậy nhưng thay đổi First Slide thanh End Show

Ở Slide đầu tiên, tạo một Command Button và thay đổi tên thành ButtonKetThuc Click chuột phải, chọn Command Button Object-> Edit, thay đổi nội dung thành chơi lại

Mở VBA editor ra và đánh:

Private Sub ButtonKetThuc_Click()

Label1.Capiton=””

Label2.Capiton=””

Label3.Capiton=””

Label4.Capiton=””

Label5.Capiton=””

Label6.Capiton=””

Label7.Capiton=””

LabelDiem.Capiton=3

End Sub

Các bạn làm một TextBox ghi “Số lần trả lời sai còn lai:” ngay bên trên ButtonKetThuc

Kết thúc