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

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ữ. T R ự C T â M p y t A g o t r ọ n g t â M đ ư ờ n G x i ê n h ì n h C H I ế u P h â n g i á c đ ư ờ n g C a o Đầ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. 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 chưa chuẩn nhưng 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.