Khai thác lập trình vba trong powerpoint hỗ trợ thiết kế bài giảng điện tử

KHỐ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

Mục lục
Trang
Lời nói đầu ................................................................................................. 1
Chương I: Một số ứng dụng của ngôn ngữ lập trình VBA
trong PowerPoint ........................................................................................ 4
1.1. Tổng quan về VBA ............................................................................. 4
1.2. Khởi tạo mơi trường lập trình ............................................................. 5
1.2.1. Thiết lập chế độ bảo mật .................................................................. 5
1.2.2. Khởi động thanh công cụ Control Toolbox ..................................... 6
1.3. Tổng quan về PowerPoint 2003 .......................................................... 9
1.4. Tổng quan về b i giảng đi n t ........................................................ 10
1.5. Ứng dụng VBA thiết kế bộ đề trắc nghi m ..................................... 10
1.5.1. Tạo bộ đề trắc nghi m có khả năng xáo trộn câu hỏi .................... 10
1.5.2. Tạo bộ đề trắc nghi m có khả năng chấm điểm............................. 17
1.6. Ứng dụng VBA tạo dạng b i tập điền khuyết ................................... 19
1.7. Ứng dụng VBA tạo trị chơi ơ chữ .................................................... 23
Chương II: Chương trình ứng dụng VBA trong PowerPoint
thiết kế chương III Tin học lớp 11 ........................................................... 27
2.1. Giao di n chính của chương trình ..................................................... 27
2.2. Giao di n kiểm tra trắc nghi m có chức năng xáo trộn câu hỏi ....... 30
2.3. Giao di n kiểm tra trắc nghi m có chức năng chấm điểm. ............... 32
2.4. Giao di n b i tập điền khuyết ........................................................... 35
2.5. Giao di n trò chơi ô chữ .................................................................... 36
Kết luận .................................................................................................... 39
T i li u tham khảo .................................................................................... 40

SV: Đào Thị Thanh

0

Lớp 47A - CNTT


KHỐ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

Lời nói đầu
Trước đây, phương pháp dạy học truyền thống có nhược điểm người
học thụ động trong q trình tiếp thu, hay nói cách khác đó là q trình “Đọc
- Chép”. Cịn bây giờ, khi CNTT được ứng dụng một cách phổ biến trong
cuộc sống thì vi c giảng dạy cũng được thực hi n bằng b i giảng đi n t .
Nhưng nếu khơng biết cách tổ chức v truyền đạt thì biết đâu chúng ta lại sa
v o tình trạng “Chiếu - Chép”. Xuất phát từ suy nghĩ đó, tơi đã tìm hiểu về
thiết kế b i giảng đi n t . L m sao để cho giờ dạy học trở nên sinh động,
hi u quả hơn m không mất quá nhiều thời gian cho vi c thiết kế ? Khóa
luận đã tìm hiểu các phần mềm trợ giúp trong vi c thiết kế giáo án hi n nay
như Flash, Violet, PowerPoint…Mỗi phần mềm có những ưu, nhược điểm
nhất định, vấn đề quan trọng khi lựa chọn một phần mềm l phải thơng dụng,
dễ dùng, có tính hi u quả cao trong cơng vi c của mình.
- Flash: Ưu điểm nổi trội là khả năng mô phỏng. S dụng ngôn ngữ lập
trình ActionScrip để tạo các tương tác, các hoạt cảnh trong phim. Nhưng
nhược điểm l khó thao tác. Để thiết kế được một chương trình Flash khơng
phải giáo viên n o cũng có thể thao tác, lập trình để tạo ra được một b i
giảng hi u quả. Do đó, Flash đã không phải l sự lựa chọn của đa số giáo
viên.
- Violet: Đây là phần mềm được phát triển trên Flash, ưu điểm l rất dễ

thao tác, vì mọi cái đã được lập trình sẵn, nhưng có nhược điểm khiến người
s dụng rất thụ động trong vi c thiết kế b i giảng, vì những thao tác thiết kế
đã được c i đặt sẵn theo ý của người phát triển nên không gây được hứng thú
và sáng tạo theo phong cách của người s dụng.

SV: Đào Thị Thanh

1

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

- PowerPoint:
Theo thống kê trên thế giới thì PowerPoint đứng thứ 7 trong top 100
công cụ ICT d nh cho học tập của năm 2008. Đây l một tổng hợp khá to n
di n về các công cụ ICT được 204 chuyên gia giáo dục v công ngh từ
nhiều học vi n, trường đại học, công ty, tổ chức đ o tạo từ khắp nơi trên thế
giới cùng tham gia đóng góp.(Trích từ website www.giaoan.net). Microsoft
PowerPoint l phần mềm giúp cho giáo viên có thể tự thiết kế b i giảng v
thể hi n b i giảng một cách linh hoạt, sinh động.
B i giảng đã được chu n bị trước trên máy tính nên giáo viên khơng
mất nhiều thời gian ghi bảng, v hình,... vì vậy, có nhiều thời gian tổ chức
hoạt động học cho học sinh. Ngo i ra, PowerPoint còn có tính năng lập trình
VBA, khơng những dễ thao tác m cịn có nhiều khả năng khơng thua gì
Flash, có hỗ trợ thiết kế câu hỏi trắc nghi m, câu điền khuyến, câu ghép
đôi… bằng ngôn ngữ VBA(Visual Basic Application) hay khả năng tạo

menu như trong Flash với thao tác đơn giản. Xuất phát từ những tìm hiểu về
Microsoft PowerPoint tôi đã chọn đề t i K
PowerPoin

r

i

i

c l p rn V

ron

i iản điện

Nhằm thấy rõ tính hi u quả của vi c ứng dụng VBA trong Powerpoint
thiết kế b i giảng đi n t , đề t i đã chọn nội dung chương III tin học 11 để
thực hi n, vì đây l nội dung đầu tiên, có thể nói l rất cơ bản, cốt lõi, giới
thi u về câu l nh lập trình trong Pascal. Với điều ki n học tập trực quan,
sinh động s tạo nền móng kiến thức ban đầu về lập trình vững chắc, v phát
triển lịng ham thích lập trình của học sinh.

SV: Đào Thị Thanh

2

Lớp 47A - CNTT

KHỐ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

Khóa luận K

i

cl p rn V

i iản điện

gồm có 2 chương:

ron PowerPoint

r

i

Chương I: Một số ứng dụng ngơn ngữ lập trình VBA trong
PowerPoint
Chương II: Chương trình ứng dụng VBA trong PowerPoint thiết kế
bài giảng chương III tin học 11.

Khóa luận n y được ho n th nh tại khoa Công ngh Thông tin
trường Đại học Vinh.
Qua đây, tơi muốn b y tỏ lịng cảm ơn sâu sắc tới giảng viên - TS
Phan Lê Na, người đã rất tận tình hướng dẫn tơi thực hi n khóa luận n y.
Xin chân th nh cảm ơn q thầy cơ trong khoa CNTT nói riêng và trường

đại học Vinh nói chung, đã giúp tơi trang bị kiến thức trong suốt 4 năm đại
học. Vô cùng cảm ơn những người thân u trong gia đình tơi, họ luôn là
nguồn động lực giúp tôi vững tin trong 4 năm đại học, cảm ơn các bạn sinh
viên lớp 47 A CNTT đã cổ vũ động viên tôi trong quá trình học tập cũng như
hồn thành khố luận này.

SV: Đào Thị Thanh

3

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

CHƢƠNG I: MỘT SỐ ỨNG DỤNG CỦ NGƠN NGỮ LẬP
TRÌNH VBA TRONG POWERPOINT
1 1 Tổn qu n về V
VBA (Visual Basic for Aplication) là mơi trường lập trình hướng đối
tượng s dụng ngơn ngữ lập trình VB (Visual Basic). Cú pháp v giao di n
lập trình cũng giống như VB 6.0 (Visual Basic 6.0) nhưng điều khác bi t l
VB có thể tạo được các chương trình thực thi độc lập. Cịn VBA được tích
hợp v o trong ứng dụng (Aplication) v s dụng các đối tượng của ứng dụng
đó. VBA khơng thể tạo ra một chương trình tự động thực thi độc lập (*.exe).
Nếu khơng có bộ Office thì ta khơng thể lập trình VBA.
Sự kết hợp giữa Visual Basic v Aplication cho ta một cái tên VBA.
VBA được nhúng trong các chương trình ứng dụng phía sau các chương
trình Microsoft Word, Microsoft Excel, Micosoft Access, Microsoft

PowerPoint, v.v...
VBA cho phép viết các mã l nh có tác động tới nhiều đối tượng để l m
tăng tính tự động hóa trong ứng dụng của mình, l m những vi c m các cơng
cụ sẵn có trong ứng dụng chưa có như tạo bộ đề câu hỏi trắc nghi m trong
PowerPoint, câu hỏi điền khuyết, trị chơi ơ chữ…
Ở đây, khóa luận được thực hi n trên bộ Office 2003.

SV: Đào Thị Thanh

4

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

1.2. K ởi ạo môi rƣờn l p r n
1.2.1. Thiết lập chế độ bảo mật
Mặc định MS PowerPoint không cho chạy các Macro vì lí do bảo mật,
do đó để thuận ti n trong quá trình s dụng VBA ta cần thiết lập lại chế độ
bảo mật cho PowerPoint theo các bước sau:
Đối với Microsoft Office PowerPoint 2003:
Bước 1: Vào Tool/Macro/Security.

Bước 2 : Trong tab Security chọn mức Medium hoặc Low

SV: Đào Thị Thanh

5

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

1.2.2. Giới thiệu thanh công cụ Control Toolbox
- Đối với Microsoft Office PowerPoint 2003, nhấp phải chuột v o vị trí
bất kì trên ToolBar, chọn Control Toolbox.

Xuất hi n hộp thoại Control Toolbox

Mỗi th nh phần trên thanh ToolBox được gọi l
một đối tượng, mỗi đối tượng s có một nhóm thuộc
tính v phương thức tương ứng.VBA cho phép chèn
các đối tượng sau đây v o ứng dụng :

SV: Đào Thị Thanh

6

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

 Check box : Ô đánh dấu kiểm chọn.
 Command Button : Nút thực hi n các đoạn l nh.
 List Box : Thể hi n một hộp có nhiều lựa chọn.
 Toogle Box : Nút bật các chức năng, giống như công tắc đèn.
 Scroll Bar : Nút cuộn.
 Picture : Chèn hình ảnh.
 View Code : Xem, chỉnh s a các đoạn mã l nh.
 Text Box : Khung chứa nội dung văn bản.
 Option Button : Nút đơn lựa chọn.
 Combo Box : Hộp kết hợp giữa ListBox v TextBox.
 Label : Nhãn.
 Other Controls : Các điều khiển khác như công cụ chèn Flash v o
PowerPoint , công cụ hỗ trợ lưu trữ dữ li u dưới dạng bảng...
Khi chèn một đối tượng v o Slide, để có thể lập trình VBA, ta nhấp
chuột phải chọn View code, hoặc nhấn tổ hợp phím Alt + F11, s xuất hi n
c a sổ Microsoft Visual Basic, tại đây chúng ta có thể viết code cho đối
tượng.

SV: Đào Thị Thanh

7

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

- Các thuộc tính của đối tượng:
Khi một đối tượng để chèn v o Slide, tại đối tượng đó, nháy chuột phải
chọn Propertise, mỗi đối tượng có những thuộc tính mặc định sau:
 BackColor: M u nền cho đối tượng
 Delay: Độ trễ
 Enabled: Cho phép thuộc tính hiển thị
 ForeColor: M u chữ
 Font: Cho phép chọn phông chữ, cỡ chữ, kiểu chữ
 Hieght: Độ cao của đối tượng
 AutoSize: Cho phép tự động thay đổi kích thước hay khơng
 Picture: Ảnh nền của đối tượng
 TextAlign: Căn lề đối tượng
 Visible: Cho phép tương tác với đối tượng hay l không
 Caption: Nội dung của đối tượng.
Tại bảng Properties, ta s thiết lập các giá trị trên cho mỗi đối tượng.

SV: Đào Thị Thanh

8

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

1

GVHD: TS. Phan Lê Na

Tổn qu n về PowerPoin

PowerPoint 2003 l một phần mềm trong bộ Microsoft Office 2003.

Được s dụng để trình b y một vấn đề tiếp thị sản ph m, thiết kế b i giảng
đi n t ...
Phần mềm n y có đặc điểm:
- Thực hi n các hi u ứng nhanh chóng, sinh động m khơng cần tới
kiến thức lập trình.
- Kích thước tập tin nhỏ, dễ lưu trữ v di chuyển.
- Kết hợp được nhiều định dạng tập tin như chèn âm thanh, video,
hình ảnh v cả Flash v o trong PowerPoint.
L m vi c trên PowerPoint l l m vi c trên các t p trình diễn (có phần
mở rộng l *.PPT). Mỗi t p trình diễn có các bản trình diễn (Slides), chúng
được sắp xếp theo thứ tự v mỗi bản trình diễn đó s chứa nội dung ta muốn
trình b y.
Cấu trúc một t p trình diễn

Slide 1

Slide 2
.
.
.
.
.
Slide n

SV: Đào Thị Thanh

9

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

1.4. Tổn qu n về

GVHD: TS. Phan Lê Na

i iản điện

B i giảng đi n t l một hình thức tổ chức b i trên lớp m ở đó, to n
bộ kế hoạch hoạt động dạy học được thực hi n thông qua môi trường
Multimedia (đa phương ti n) do máy tính tạo ra.
Điểm đặc trưng cơ bản nhất của b i giảng đi n t l to n bộ kiến thức
của b i học, mọi hoạt động điều khiển của giáo viên đều được Mutilmedia
hóa
Quy trình thiết kế b i giảng đi n t :
- Xác định mục tiêu b i học.
- Lựa chọn kiến thức cơ bản, trọng tâm.
- Multimedia hóa từng đơn vị kiến thức.
- Xây dựng thư vi n tư li u.
- Lựa chọn ngơn ngữ hoặc phần mềm trình diễn để xây dựng tiến trình dạy
học thơng qua các hoạt động cụ thể.
- Chạy th , s a chữa v ho n thi n.
1.5 S dụn V

trong PowerPoint

i

ộ đề rắc n

iệm

1.5.1. Tạo bộ đề trắc nghiệm có khả năng xáo trộn câu hỏi
Hình thức trắc nghi m n y phù hợp với vi c ôn tập, củng cố kiến thức
cuối b i học. Vì ở đây, có khả năng xáo trộn câu hỏi, có thơng tin phản hồi
nhận xét về lựa chọn của học sinh.
Các bước thực hi n như sau:
Bước 1 : Tạo bộ câu hỏi trắc nghi m
- Mở một slide trống, nhấp chọn vào More Controls chọn Microsoft
Office Speardsheet 11.0. Sau khi chọn xong, v một khung hình chữ nhật
vào Slide.

SV: Đào Thị Thanh

10

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

Vẫn chọn đối tượng n y, ta nhấp chuột phải, chọn Properties.

SV: Đào Thị Thanh

11

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

Hộp thoại xuất hi n, đặt tên cho đối tượng là spsDulieu

Tiếp đến, ta nháy chuột phải vào Microsoft Office Speardsheet 11.0
object chọn Edit.Tại đây, ta nhập nội dung câu hỏi trắc nghi m với quy định
như sau:
Cột A : Nhập nội dung câu hỏi trắc nghi m, mỗi câu chiếm 5 dòng(một
câu hỏi v 4 phương án trả lời).
Cột B : Nhập thông tin phản hồi nhận xét mỗi lựa chọn của học sinh

SV: Đào Thị Thanh

12

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

Bước 2 : Thiết kế Slide trắc nghi m

Sau khi tạo xong bộ câu hỏi trắc nghi m, ta thiết kế Slide trắc nghi m
như sau:
- 4 Lable đặt tên theo thứ tự sau: lblStt (hiển thị số thứ tự câu hỏi),
lblNdcauhoi (hi n thị nội dung câu hỏi trắc nghi m), lblNhanxet (Hi n thị
lời nhận xét về đáp án bạn chọn), lblDiem (hi n thị kết quả l m được)
- 4 Option Button để chứa nội dung đáp án của câu trắc nghi m (Đặt tên
theo thứ tự optTraloi1, optTraloi2, optTraloi3, optTraloi4)
- 1 Spin Button để chuyển đến các câu hỏi khác trong bộ đề trắc nghi m
(spschuyencau)
- 2 Command button để gán chức năng l m lại (cmdLamlai), v chức
năng chấm điểm (cmdChamdiem)

SV: Đào Thị Thanh

13

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

Bước 3: Viết Code cho các nút l nh trên Slide
// Đoạn code thực hiện xáo trộn câu hỏi
Private Sub xaotron()
Dim i As Integer
Dim ran As Integer
Dim arr() As Integer
ReDim arr(intTotalQues)

For i = 1 To intTotalQues
arr(i) = i
Next i
For i = 1 To intTotalQues
Randomize
ran = Int(UBound(arr) * Rnd + 1)
arrSTT(i) = arr(ran)
xoamang arr, ran
Next i
End Sub
//Đoạn Code cho nút Làm lại
Private Sub cmbLamlai_Click()
xaotron
optTraloi1.Value = False
optTraloi2.Value = False
optTraloi3.Value = False
optTraloi4.Value = False
lblNhanxet.Caption = "" ''
spbChuyencau.Value = 1

SV: Đào Thị Thanh

14

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

End Sub
// Đoạn code hi n thị thông tin phản hồi v o ô lblNhanxet
Private Sub optTraloi1_Click()
lblNhanxet.Caption = spsDulieu2.Cells(arrSTT(spbChuyencau.Value)
* 5 - 3, 2)
End Sub

Private Sub optTraloi2_Click()
lblNhanxet.Caption = spsDulieu2.Cells(arrSTT(spbChuyencau.Value) *
5 - 2, 2)
End Sub

Private Sub optTraloi3_Click()
lblNhanxet.Caption = spsDulieu2.Cells(arrSTT(spbChuyencau.Value)
* 5 - 1, 2)
End Sub

Private Sub optTraloi4_Click()
lblNhanxet.Caption = spsDulieu2.Cells(arrSTT(spbChuyencau.Value) *
5, 2)
End Sub

SV: Đào Thị Thanh

15

Lớp 47A - CNTT

KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

// Đoạn code cho nút chuyển câu
Private Sub spbChuyencau_Change()
Dim idx As Integer
idx = arrSTT(spbChuyencau.Value)
lblStt.Caption = spbChuyencau.Value
lblNhanxet.Caption = ""
optTraloi1.Value = False
optTraloi2.Value = False
optTraloi3.Value = False
optTraloi4.Value = False
lblNdcauhoi.Caption = spsDulieu2.Cells(idx * 5 - 4, 1)
optTraloi1.Caption = spsDulieu2.Cells(idx * 5 - 3, 1)
optTraloi2.Caption = spsDulieu2.Cells(idx * 5 - 2, 1)
optTraloi3.Caption = spsDulieu2.Cells(idx * 5 - 1, 1)
optTraloi4.Caption = spsDulieu2.Cells(idx * 5, 1)
lblTest.Caption = arrSTT(spbChuyencau.Value)
End Sub

SV: Đào Thị Thanh

16

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

1.5.2. Tạo bộ câu trắc nghiệm có khả năng chấm điểm
Hình thức n y phù hợp cho vi c kiểm tra b i cũ hoặc kiểm tra 15 phút,
ta s tạo khoảng 5 slide. Ở đây s giới thi u Slide đầu tiên v slide cuối
cùng.
Các bước thực hi n như sau:
Bước 1: Thiết kế Slide trắc nghi m
- 1 TextBox chứa nội dung câu hỏi
- 4 Option Button chứa 4 phương án trả lời(Đặt tên l opt1A, opt1B,
opt1C, opt1D)
Slide đầu tiên:

SV: Đào Thị Thanh

17

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

Slide cuối cùng:

Bước 2: Viết code cho các nút chức năng
//Đoạn code cho nút Chấm điểm
Private Sub lblChamdiem_Click()

lblDiem.Caption = "0"
If Slide1.opt1B.Value = True Then lblDiem.Caption = lblDiem.Caption + 2
If Slide2.opt2A.Value = True Then lblDiem.Caption = lblDiem.Caption + 2
If Slide3.opt3C.Value = True Then lblDiem.Caption = lblDiem.Caption + 2
If Slide4.opt4D.Value = True Then lblDiem.Caption = lblDiem.Caption + 2
If Slide5.opt5B.Value = True Then lblDiem.Caption = lblDiem.Caption + 2
End Sub

SV: Đào Thị Thanh

18

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

//Đoạn code cho nút Làm lại
Private Sub lblLamlai_Click()
Slide1.opt1A.Value = False
Slide1.opt1B.Value = False
Slide1.opt1C.Value = False
Slide1.opt1D.Value = False
Slide2.opt2A.Value = False
Slide2.opt2B.Value = False
Slide2.opt2C.Value = False
Slide2.opt2D.Value = False
Slide3.opt3A.Value = False

Slide3.opt3B.Value = False
Slide3.opt3C.Value = False
Slide3.opt3D.Value = False
lblDiem.Caption = ""
ActivePresentation.SlideShowWindow.View.First
End Sub
1.6. Ứn dụng VBA tạo dạn

i

p điền

uy

Để có thể củng cố được những kĩ năng, thao tác trong học lập trình, đề
tài s giới thi u cách thức tạo dạng câu hỏi điền khuyết. Đây là dạng câu hỏi
có chỗ trống yêu cầu HS điền từ thích hợp vào và các từ hoặc cụm từ cho
trước để lựa chọn.
Bước 1: Tạo Slide chứa b i tập điền khuyết
- 5 TextBox chứa 5 câu hỏi điền khuyết
- 5 Lable trống dùng để điền từ hoặc cụm từ (Đặt tên theo thứ tự lblo1,
lblo2,..., lblo5).

SV: Đào Thị Thanh

19

Lớp 47A - CNTT

KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

- 5 Lable chứa 5 từ hoặc cụm từ cho sẵn để lựa chọn (Đặt tên theo thứ
tự lbltraloi1,..., lbltraloi5).
- 1 Command Button thực hi n chức năng đánh giá kết quả (Đặt tên l
cmdKetqua)
- Một Command Button thực hi n chức năng l m lại (Đặt tên l
cmdLamlai)
- Một Lable hi n thị số câu trả lời đúng. Ở đây ta thấy rằng, chức năng
n y rất khách quan v hi u quả vì đồng thời kiểm tra được nhiều HS, nếu
l m chưa đúng thì HS khác l m lại hoặc bổ sung.

Bước 2: Viết code cho các nút chức năng
// Đoạn code thực hiện chức năng của nút Làm lại
Private Sub cmbLamlai_Click()
lblo1.Caption = ""
lblo2.Caption = ""

SV: Đào Thị Thanh

20

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

lblo3.Caption = ""
lblo4.Caption = ""
lblo5.Caption = ""
lblDiem.Caption = ""
End Sub
// Đoạn code của chức năng của nút Chấm điểm
Private Sub CommandButton1_Click()
lblDiem = "0"
If lblo1.Caption = lbltraloi2.Caption Then lblDiem.Caption =
lblDiem.Caption + 1
If lblo2.Caption = lbltraloi5.Caption Then lblDiem.Caption =
lblDiem.Caption + 1
If lblo3.Caption = lbltraloi3.Caption Then lblDiem.Caption =
lblDiem.Caption + 1
If lblo4.Caption = lbltraloi4.Caption Then lblDiem.Caption =
lblDiem.Caption + 1
If lblo5.Caption = lbltraloi1.Caption Then lblDiem.Caption =
lblDiem.Caption + 1
End Sub
// Đoạn code thực hiện gán các từ hoặc cụm từ vào Lable tạm
Private Sub lblo1_Click()
lblo1.Caption = lbltam.Caption
End Sub

Private Sub lblo2_Click()
lblo2.Caption = lbltam.Caption
End Sub

SV: Đào Thị Thanh

21

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

Private Sub lblo3_Click()
lblo3.Caption = lbltam.Caption
End Sub

Private Sub lblo4_Click()
lblo4.Caption = lbltam.Caption
End Sub

Private Sub lblo5_Click()
lblo5.Caption = lbltam.Caption
End Sub

Private Sub lbltraloi1_Click()
lbltam.Caption = lbltraloi1.Caption
End Sub

Private Sub lbltraloi2_Click()
lbltam.Caption = lbltraloi2.Caption
End Sub

Private Sub lbltraloi3_Click()
lbltam.Caption = lbltraloi3.Caption
End Sub

Private Sub lbltraloi4_Click()
lbltam.Caption = lbltraloi4.Caption
End Sub

SV: Đào Thị Thanh

22

Lớp 47A - CNTT


KHOÁ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

Private Sub lbltraloi5_Click()
lbltam.Caption = lbltraloi5.Caption
End Sub

Private Sub lbltraloi6_Click()
lbltam.Caption = lbltraloi6.Caption
End Sub
1.7. Ứn dụn V

ron PowerPoint ạo rị c ơi ơ c ữ

Với mong muốn gây được sự hứng thú trong học tập cũng như kích
thích tính khám phá của HS, đề t i giới thi u trị chơi ơ chữ khá quen thuộc.
Một trò chơi thường thấy trong các cuộc thi trên truyền hình như “Đường lên
đỉnh Olimpia”.
Khơng những chỉ l trị chơi giải trí vui vẻ m nó cịn tạo cho HS tính
ham học hỏi, thích tìm hiểu kiến thức thực tế trong cuộc sống, mở rộng tầm
hiểu biết của mình.
Các bước thự hi n:
Bước1: Tạo slide trị chơi ơ chữ
- 6 CommandButton thực hi n vi c kiểm tra đáp án nhập v o có đúng
hay khơng (đặt tên l k1,..., k6), 1 Command Button thực hi n chức năng
L m lại
- 6 Lable cho phép nhập câu trả lời v o (đặt tên lần lượt l tl1,…, tl6)
Ô chữ cần tìm của mỗi câu hỏi được tạo th nh từ các Lable. Số chữ cái trong
mỗi câu trả lời tương ứng với số Lable (được đặt tên theo dạng o(i,j)). Từ
các chữ cái n y s dẫn tới một câu hỏi tìm từ khóa của trị chơi ơ chữ, gọi là
Lable từ khóa.

SV: Đào Thị Thanh

23

Lớp 47A - CNTT


KHỐ LUẬN TỐT NGHIỆP

GVHD: TS. Phan Lê Na

- Mỗi dịng chứa ô chữ tạo số Lable tương ứng với số chữ cái trong

mỗi đáp án (đặt tên theo cấu trúc mij với i l số h ng, j l số cột).
- 1 Lable để hi n thị nội dung câu hỏi khi ta nhấn v o ô đầu tiên của ô
chữ.

Bước 2: Viết code cho các nút chức năng
Khi nhấp chọn ơ chữ đầu tiên trong dịng thứ nhất thì hi n thị nội dung
câu hỏi tại ô Câu hỏi, đồng thời, các ơ của dịng 1 cùng đổi m u.Khi nhập
câu trả lời v o, để biết đúng hay sai ta nhấp v o “Kiểm tra”, một hộp thông
báo s xuất hi n. Nếu trả lời đúng thì lần lượt gán các chữ cái v o các ô chữ
v , nếu sai thì xóa hết thơng tin đang hi n thị để cho phép nhập lại. Mỗi lần
đúng hay sai ta đổi m u ô chữ để đánh dấu đã trả lời hay chưa.

SV: Đào Thị Thanh

24

Lớp 47A - CNTT