Làm ô chữ bằng VB trong PowerPoint

Ban đầu tạo khung sẽ có chữ ô Label1 Bớc 3: Chọn hộp Label1 và hiện hộp thoại Properties để đặt tên và thay đổi thuộc tính của hộp Label Trên hộp thoại Properties thay đổi các thuộc tín

II phần Nội dung

1 Mục đích, yêu cầu khi tạo ô chữ.

- Việc tạo ô chữ phải giúp học sinh tổng hợp kiến thức đã học, ô chữ không qua dài

và phức tạp về cấu tạo

- Nội dung kiến thức và hệ thống câu hỏi phải rõ ràng

- Mầu sắc và Font chữ phải hợp lý

2 Sử dụng Microsoft Visual Basic tạo ô chữ.

a Xác định nội dung ô chữ

Đầu tiên xác định nội dung cột hoặc hàng trung tâm sau đó mới xác định nội dung hàng ( cột) khác sao cho nội dung phù hợp với yêu cầu

Đặt tên cho các ô bắt đầu từ ô đầu tiên L1, L2 , Ln

Đặt các câu hỏi cho từng nội dung tại mối hàng

Hàng 1 : Tên gọ giao của ba đờng cao trong tam giác

Hàng 2: Một định lý hình học mang tên nhà bác học này

Hàng 3: Tên gọi của giao ba đờng trung tuyến trong tam giác

Hàng 4: Đờng thẳng khác đờng vuông góc hạ từ một điểm xuống một đờng thẳng Hàng 5: AH vuông góc với đờng thẳng a , H đợc gọi là của A

Hàng 6: Đờng thẳng chia góc cho trớc thành hai phần bằng nhau

Hàng 7: Đờng thẳng xuất phát từ đỉnh vuông góc với cạnh đối diện trong tam giác

b Cách thực hiện

Bớc 1: Hiện thanh công cụ Visual Basic: View/Toolbar/Control Toolbox

Bớc 2: Tạo khung cho ô chữ:

Nháy chuột chọn công cụ Label và kéo tạo ô vuông

Ban đầu tạo khung sẽ có chữ ô Label1

Bớc 3: Chọn hộp Label1 và hiện hộp thoại Properties để đặt tên và thay đổi thuộc

tính của hộp Label

Trên hộp thoại Properties thay đổi các thuộc tính sau:

- §æi tªn chän Name

+ §æi Label1 thµnh L1

- §æi mÇu nÒn chän: Back Color

+ Chän mét mÇu bÊt kú

- Bá ch÷ label1 chän Caption

+ Xo¸ ch÷ label1 ë « bªn ph¶i hép Caption

- Đổi Font chữ và cỡ chữ trong hộp Font :

+ Chọn font chữ

có thể đánh đợc

tiếng việt

- Đổi mầu chữ cho ô chữ chọn: Fore Color

+ Chọn một ô màu tơng ứng

- Đổi căn chỉnh hiện chữ trong hộp chọn : TextAlign

+ fmTextAlignLeft : Căn trái

+ fmTextAlignCenter: Căn giữa

+ fmTextAlignRight: Căn phải

- Làm nổi ô chữ chọn : SpecialEffect

+ Chọn mục số 6

- Sau khi chọn các thuộc tính hộp

thoại Properties và ô chữ sẽ có dạng

nh hình bên

Bớc 4: Tạo ô chữ bằng cách Copy ô đầu tiên thành nhiều ô và sắp xếp theo đúng ô

chữ yêu cầu

- Mỗi khi Copy ra thêm một ô chữ

chỉ cần thay đổi tên của ô chữ trong

hộp Name ô thứ 2 tên là L2

- Làm tơng tự nh vậy cho đến ô

chữ cuối cùng

- Đỗi với những ô chữ trung tâm

ta có thể đổi mầu nền để tạo sự

khác biệt so với những ô chữ khác

Kết thúc ta đợc khung ô chữ nh sau:

Bớc 5: Tạo hộp thoại để hiện câu hỏi ta nháy chuột vào công cụ Textbox

kéo chuột tạo hộp text Box

- Chọn hộp Textbox và thay đổi các thuộc tính của hộp tại hộp thoại Properties + Name : T

+ BackColor ( mầu nền)

+ Font ( font chữ cỡ chữ)

+ ForeColor ( mầu chữ)

Bớc 6: Tạo các nút làm hiện câu hỏi trong hộp thoại.

- Chọn hộp Command Button

kéo và tạo nút lệnh

- Thay đổi thuộc tính của nút lệnh vào hộp thoại Properties + Đổi tên trong hộp Name:

Name: C1

+ Thay đổi Font và cỡ chữ trong hộp Font

( chọn font tiếng việt)

+ Trong hộp Caption đánh : Câu 1

+ Có thể thay đổi mầu chữ, mầu nền tơng

tự nh cách làm trên

+ Sau khi thay đổi các thuộc tính nút lệnh

có dạng nh hình bên

- Tạo tiếp các nút lệnh khác bằng cách

Copy , số nút lệnh tơng ứng với số

câu hỏi, mỗi nút lệnh chỉ thay đổi phần

+ Name Đặt tên: C1, C2

+ Caption

- Sau khi tạo xong giao diện có dạng nh sau

Bớc 7: Viết câu lệnh làm hiện nội dung các câu hỏi.

- Kích đúp chuột vào nút lệnh Câu 1

trên màn hình hiện ra nh sau:

Trong phần Private Sub C1_Click() gõ nội dung

Private Sub C1_Click()

L1=”?”

L2=”?

L3=”?

L4=”?

L5=”?

L6=”?

L7 =”?”

T=”Tên gọi giao của ba đờng cao trong tam giác”

End Sub

Giải thích:

L1 = “?” làm cho ô tên L1 hiện lên dấu ? khi bấm vào câu1

T =” Tên gọi giao của ba đờng cao trong tam giác” : Làm hiện câu hỏi tại hộp thoại

có tên là T

Với nội dung ở nút lệnh Câu1 nh trên khi ta nháy chuột vào Câu1 dòng đầu tiên hiện lên 7 dấu ? và hộp thoại hiện lên câu hỏi “ Tên gọi giao của ba đờng cao trong tam giác” Khi chạy chơng trình bấm vào câu 1 sẽ hiện lên nh sau:

- Đối với các câu còn lại ta làm tơng tự ( chú ý sử dụng Copy để làm nhanh)

Bớc 8: Tạo câu trả lời( lựa chọn các ô đâu tiên của mỗi ô hàng để làm nút lệnh)

- Kích đúp chuột vào ô đầu tiên hàng 1 của số soản thảo hiện ra nh sau :

Trong phần Private Sub C1_Click() gõ nội dung

Private Sub L1_Click()

L1=”T”

L2=”R L3=”ự ” L4=”C”

L5=”T”

L6=””

L7 =”M”

End Sub

Giải thích: Sau khi gõ nội dung trên nếu nháy vào ô L1 thì nội dung của dòng 1 sẽ hiện ra

- Làm tơng tự đối với các dòng còn lại của ô chữ

Bớc 9: Tạo nút Reset ( làm mới lại từ đầu toàn bộ nội dung của ô chữ)

- Tạo nút lệnh và sửa các thuộc tính nh sau:

Name: reset

Caption: Reset

- Kích đúp chuột vào ô Reset Trong phần Private Sub reset_Click() gõ nội dung từ L1

đến Ln đều là ký tự cách Để giá trị của các ô đều rỗng

Private Sub reset_Click()

L1=” ” L2=” ” T= “ “ End Sub

- Khi chạy chơng trình nháy vào nút Reset ô chữ hiện ra nh ban đầu

Reset

Reset

3 Kết quả thực hiện

- Sau khi thực hiện tạo ô chữ cho nhiều phần ôn tập học sinh rất hứng thú khi tham gia vào trò chơi ô chữ từ đó nắm vững lại kiến thức đã học

- Cách thực hiện trò chơi ô chữ nh trên có thể áp dụng vào nhiều môn học khác nhau

4 Kết luận.

- Bằng những kinh nghiệm của bản thân và các tài liệu tham khảo nên cách tạo ô chữ trên còn những điều cha chuẩn nhng tôi mong rằng đề tài này sẽ giúp ích nhiều cho các thầy cô trong các trơng phổ thông trong quá trình giảng dạy bộ môn Toán cũng nh các môn học khác