Đang tải... (xem toàn văn)
CHƯƠNG TRÌNH VẬT LÝ LỚP 12 NÂNG CAO NGÔN NGỮ LẬP TRÌNH DELPHI
TRƯỜNG ĐẠI HỌC CẦN THƠ KHOA SƯ PHẠM BỘ MÔN VẬT LÝ LUẬN VĂN TỐT NGHIỆP CHƯƠNG TRÌNH VẬT LÝ LỚP 12 NÂNG CAO VIẾT BẰNG NGÔN NGỮ LẬP TRÌNH DELPHI GV hướng dẫn: VƯƠNG TẤN SĨ SV thực hiện: NGÔ MINH HẢI GV phản biện: MSSV: 1050122 HỒ HỮU HẬU DƯƠNG BÍCH THẢO Lớp: SP Vật lý khóa 31 CẦN THƠ, 04-2009 Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngôn ngữ Delphi PHẦN MỞ DẦU I LÝ DO CHỌN ĐỀ TÀI Hoàn cảnh thực tế 1.1 Hoàn cảnh thực tế đời sống xã hội Sự phát triển nhanh chóng mạnh mẽ công nghệ phần cứng phần mềm máy tính điện tử, từ lâu ảnh hưởng sâu sắc đến hoạt động người như: Nghiên cứu khoa học, phát triển sản xuất, điều khiển tự động, điều tra bản, thông tin liên lạc; lưu truyền phổ biến thông tin, liệu, kiến thức mục tiêu quan trọng… Đặc biệt cơng tác quản lí như: Quản lí sản xuất, quản lí người, quản lí giáo dục, quản lí tài nguyên… bên cạnh việc áp dụng tin học để phục vụ cho giảng dạy không phần quan trọng, phương pháp giảng dạy tiến Ngày nay, tin học coi phương tiện đa dụng, phục vụ cho sách kinh tế, sách giáo dục, sách khoa học cơng nghệ hầu giới Nhiệm vụ giáo dục phải đáp ứng đòi hỏi xã hội, địi hỏi có tính ngun tắc Xã hội muốn phát triển khoa học phải vươn lên phía trước, ln ln kế thừa để không ngừng nhảy vọt Đây thời đại mà máy tính sử dụng rộng rãi, hiểu biết máy tính khơng cịn vấn đề phức tạp 1.2 Hoàn cảnh thực tế ngành giáo dục trường phổ thông Ngày nay, giảng dạy số mơn khoa học tự nhiên (Lý, Hố, Sinh…) mơn có thí nghiệm cần độ xác cao, việc thu thập tín hiệu, xử lý số liệu, việc tạo điều kiện, môi trường lý tưởng cho việc tiến hành thí nghiệm thành cơng, thu thập số liệu xác vấn đề khó khăn, có số thí nghiệm khơng thể tiến hành thiếu dụng cụ thí nghiệm dụng cụ thí nghiệm đắc tiền Mặt khác ngành khoa học cơng nghệ nước ta cịn phát triển, đa số dụng cụ thí nghiệm với độ xác cao phải nhập từ nước ngồi, số trường phổ thông chưa thể trang bị đầy đủ Với phát triển cơng nghệ máy tính điện tử số phần mềm chuyên dùng thiết kế hình ảnh mơ phỏng, minh họa cho thí nghiệm việc thực vấn đề phần đáp ứng giải vấn đề khó khăn đề cập Mặc dầu vậy, việc trang bị phịng máy tính, hình đủ lớn cỡ 400 (inch) để lớp quan sát được, máy chiếu máy vi tính phục vụ cho giảng dạy vấn đề khó khăn số trường phổ thơng cịn hạn chế nhiều mặt GVHD: VƯƠNG TẤN SĨ Trang SVTH: NGƠ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngôn ngữ Delphi Mục đích đề tài Với hạn chế ngành giáo dục đề cập trên, điều kiện công nghệ thông tin phát triển rầm rộ việc áp dụng ngơn ngữ lập trình để hỗ trợ phổ biến kiến thức phục vụ cho học tập nghiên cứu phần hồn thiện chương trình giảng dạy lớp cần thiết phải tiến hành phổ biến, thường xuyên Một mặt nhằm đáp ứng nhu cầu thời đại công nghệ thông tin kết hợp giáo dục với tin học, giáo dục với công nghệ đại, giảng dạy theo phương pháp chủ động, mặt khác nhằm đảm bảo kiến thức cho giảng dạy nghiên cứu Trong kiến thức vật lý phận quan trọng môn khoa học tự nhiên, tảng cho ngành cơng nghiệp đại Cho nên việc phổ biến kiến thức vật lý cách sâu rộng điều cần thiết Để giải bớt khó khăn ngành giáo dục, đáp ứng đòi hỏi tiến xã hội bắt kịp nhịp độ phát triển thời đại cơng nghệ thơng tin, việc soạn thảo kiến thức trọng tâm chương trình kiến thức phổ thơng, thiết kế chương trình kiểm tra trắc nghiệm tự động tính điểm để học sinh trắc nghiệm kiểm tra kiến thức, trình độ thân, sử dụng phần mềm chuyên dụng để minh họa tượng, thiết kế ảnh động mô cho tượng vật lý nhằm phổ biến cho người học việc nên làm Phần đáp ứng nhu cầu trên, đồng thời đặt móng cho hoạt động kết hợp giáo dục với công nghệ mới, mạnh dạng xây dựng “Chương trình vật lý lớp 12 nâng cao” viết ngơn ngữ lập trình Delphi Một mặt nhằm thực mục tiêu đề tài luận văn, mặt khác sinh viên thực đề tài tích lũy kỹ quan trọng hữu ích ngồi kiến thức chun ngành, hiểu biết ngơn ngữ lập trình kỹ thiết kế-thực dự án, thiết kế trắc nghiệm, đồng thời bổ sung thêm tầm hiểu biết, nắm vững kiến thức chun ngành thơng qua việc tìm hiểu kỷ nội dung xây dựng, soạn thảo câu hỏi trắc nghiệm khảo sát số hình ảnh minh họa tượng vật lý mà từ trước tới chưa có điều kiện quan sát thí nghiệm thực tế, thông qua phần mềm chuyên dùng cho mô thực hành vật lý Giới hạn đề tài Delphi ngôn ngữ lập trình mạnh có tính ứng dụng cao, nhiên thời đại phần mềm tin học phát triển việc lựa chọn ngơn ngữ lập trình cho phù hợp lại vấn đề đặt sinh viên không chuyên tin học Với mong muốn khám phá thân việc vận dụng vào mục đích cụ thể xây dựng chương trình Vật lý 12 nâng cao, nhờ tư vấn giáo viên hướng dẫn (GVHD) mạnh dạng chọn ngôn ngữ lập trình Delphi phục vụ cho mục đích Như điều tất yếu, tơi phải gặp nhiều khó khăn lúc thực đề tài trước chưa quen sử dụng ngơn ngữ lập trình nói chung Delphi nói riêng Bên cạnh thời gian thực đề tài giới hạn nên chương trình chưa phong phú nội dung số câu hỏi trắc nghiệm, nhiên việc cập GVHD: VƯƠNG TẤN SĨ Trang SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngôn ngữ Delphi nhật phát triển nội dung chương trình dễ dàng trường hợp muốn nâng cấp chương trình II CÁC GIẢ THUYẾT CỦA ĐỀ TÀI Tìm hiểu ngơn ngữ lập trình Delphi Sưu tập câu hỏi trắc nghiệm theo Tìm hiểu phần mềm chuyên dụng khác phục vụ cho việc xây dựng chương trình như: Windows Movie Maker, SnagIt, chương trình xử lý ảnh,… Scan nội dung sách giáo khoa Vật lý 12 nâng cao Các bước để thực dự án Delphi III PHƯƠNG PHÁP VÀ PHƯƠNG TIỆN THỰC HIỆN ĐỀ TÀI Phương pháp Nghiên cứu lý thuyết Cách thức làm việc quản lý dự án Delphi môi trường WINDOWS Thực hành điều chỉnh: Đối với mục tiêu trình xây dựng chương trình, sau đọc tài liệu phải bắt tay vào thực mục tiêu ngay, ban đầu chương trình chưa thỏa mãn u cầu, chí sai so với yêu cầu mục tiêu, bắt buộc tơi phải điều chỉnh liên tục đạt mục tiêu đề Phương tiện Máy vi tính Phần mềm cài đặt ngơn ngữ lập trình Delphi Máy Scan Và phần mềm hỗ trợ khác IV CÁC BƯỚC THỰC HIỆN ĐỀ TÀI Đề tài chia làm giai đoạn: Giai đoạn 1: Tham khảo tài liệu thu thập liệu Giai đoạn 2: Xây dựng sản phẩm cụ thể Giai đoạn 3: Viết luận văn GVHD: VƯƠNG TẤN SĨ Trang SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngôn ngữ Delphi PHẦN NỘI DUNG I THỰC TRẠNG XUNG QUANH NỘI DUNG NGHIÊN CỨU CỦA ĐỀ TÀI Thực trạng xung việc sử dụng sách giáo khoa Vật lý lớp 12 học sinh Phần lớn học sinh chưa thích thú việc đọc sách, nhìn vào việc giới trẻ ngày xem máy vi tính người bạn khơng thể thiếu họ, nên cố gắng làm cho sách giáo khoa trở nên dễ dàng tiếp cận học sinh cách xây dựng phần mềm học tập, giúp cho học sinh nghiên cứu sách giáo khoa trực tiếp máy vi tính, cách rèn luyện kỹ tự học học sinh Thực trạng xung quanh nội dung ngôn ngữ lập trình Delphi Dephi ngơn ngữ lập trình cấp cao, có trình biên dịch hồn hảo, hỗ trợ mạnh kiểu liệu có cấu trúc thiết kế hướng đối tượng dựa tảng ngôn ngữ lập trình hướng tới đối tượng (OOP: Object-Oriented Programming) Borland Pascal Ngày nay, Delphi phát triển thành môi trường xây dựng ứng dụng nhanh RAD (Rapid Application Development) Từ cơng cụ RAD, bạn giải vấn đề phức tạp trình phát triển phần mềm như: lập trình ứng dụng sở liệu (Database), lập trình mạng Internet (Internet/Networking), lập trình Multimedia (Animation, Sound) lập trình trị chơi (Game) đồ họa (Graphic) lập trình hệ thống, v.v khơng Windows mà cịn cho Linux NET Với khả mạnh Dephi, tơi hồn tồn an tâm dùng để triển khai ứng dụng Điều cần quan tâm Dephi ngôn ngữ thân thiện với người dùng, phù hợp cho người bắt đầu làm quen với Delphi nhà lập trình chun nghiệp II TỔNG QUAN VỀ NGƠN NGỮ LẬP TRÌNH DELPHI Giới thiệu ngơn ngữ lập trình Delphi Tiền thân Delphi ngơn ngữ đối tượng Borland Pascal, đến ngày Delphi có trình phát triển vững mạnh từ phiên (Delphi1) vào năm 1995, đến phiên (Delphi for NET) năm 2005 Tuy nhiên đến thời điểm Delphi phiên phù hợp dễ dùng nhất, tơi định sử dụng Delphi phục vụ cho cơng việc GVHD: VƯƠNG TẤN SĨ Trang SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngôn ngữ Delphi Môi trường phát triển thích hợp (IDE) Delphi Mơi trường soạn thảo thiết kế ứng dụng Delphi chia làm 5phần: Cửa sổ chương trình Delphi, cửa sổ thiết kế mẫu (Form Designer), cửa sổ liệt kê thành phần, đối tượng dạng (Object TreeView), cửa sổ thiết lập thuộc tính đối tượng (Object Inspector), cửa sổ soạn thảo mã lệnh (Code Editor) Với môi trường, bạn có giao diện (Interface) để thiết kế (Design), biên dịch (Compile) sữa lỗi (Debug) dự án mà bạn phát triển Hình 1: Giao diện dự án tạo Delphi 1: Cửa sổ Delphi 2: Cửa sổ thiết kế biểu mẫu 3: Cửa sổ liệt kê thành phần, đối tượng dạng 4: Cửa sổ thiết lập thuộc tính thành phần, đối tượng 5: Của sổ soạn thảo mã lệnh Cửa sổ Delphi: Cửa sổ Delphi cửa sổ có tiêu đề chứa tên dự án (Projeect name) mà bạn phát triển, bao gồm thực đơn (Main menu), cơng cụ (Toolbar) bảng thành phần (Component palette) GVHD: VƯƠNG TẤN SĨ Trang SVTH: NGƠ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngôn ngữ Delphi Thanh thực đơn cơng cụ: 4.1 Thanh thực đơn chính: Bao gồm thực đơn thả xuống (drop-down-menu) như: File, Edit, Search, View có nhiều chức khác như: mở dự án mới, lưu dự án, biên dịch, sữa lỗi, chạy chương trình,… Hình 2: Thanh thực đơn 4.2 Thanh cơng cụ (Toolbars): Trong Delphi có nhiều cơng cụ như: cơng cụ chuẩn (Standard), sữa lỗi (Debug), hiển thị (View)… Mỗi nút (Button) công cụ thường thao tác hay mệnh lệnh mà ta Click vào thi hành, ví dụ như: Biên dịch (Compile), chạy (Run) kết thúc chạy chương trình (Program Reset),… Hình 3: Các cơng cụ GVHD: VƯƠNG TẤN SĨ Trang SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngơn ngữ Delphi Bảng chứa thành phần Delphi (Component Palette) Thành phần (Component), hay gọi điều khiển, đối tượng có sẵn Delphi mà bạn thao tác thời điểm thiết kế Form Có loại thành phần, phần trực quan (visual component): nhìn thấy chạy chương trình, thành phần khơng trực quan (nonvisual component), khơng nhìn thấy chạy chương trình Mỗi thành phần có số tính chất riêng, quản lý thơng qua thuộc tính (Properties), kiện (Events) phương thức (Methods) Các thuộc tính giúp bạn quản lý điều khiển chương trình bạn Khi bạn đặt thành phần lên Form, xuất cửa sổ Object TreeView Object Inspector (sẽ trình bày phần sau) Trong bảng chứa thành phần có nhiều thẻ (tab) khác nhau, thẻ Standard, Addition, Win32, System, Data Access, ADO, Internet, Rave, Server,… Trên thẻ chứa biểu tượng (icon) đại diện cho thành phần Hình 4: Bảng chứa thành phần thẻ Standard GVHD: VƯƠNG TẤN SĨ Trang SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngơn ngữ Delphi Cửa sổ thiết kế biểu mẫu (Form Designer) Cửa sổ soạn thảo mã lệnh (Code Editor) 6.1 Cửa sổ thiết kế mẫu: Khi bạn tạo dự án mới, mơi trường phat triển thích hợp IDE Dephi tự tạo biểu mẫu (Form) để bạn tùy nghi thiết lập giá trị thuộc tính dựa Properties, thủ tục dựa vào Events, xác định Ojbect Inspector, cho việc thiết kế chương trình Trong hầu hết trường hợp, dự án thường có Form Cùng với thành phần bảng thành phần, bạn thiết kế giao diện cho chương trình mà bạn xây dựng thân thiện cho người sử dụng Hình 5: Các Components Form (Label, Edit, Button, Memo) Các giá trị From giá trị Component đặt Form lưu tập tin Form (Form file) có phần mở rộng dfm với phần tên xác định giống phần tên đơn vị chương trình Form Tập tin Form chứa đựng giá trị Form giá trị Component mà ta đặt Form trình thiết kế Các Component: Frames, MainMemu, PopupMenu, Label, Edit, Memo, Button,… thẻ Standard GVHD: VƯƠNG TẤN SĨ Trang SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngơn ngữ Delphi 6.2 Cửa sổ soạn thảo mã lệnh: Mỗi Form dự án quản lý tập tin đơn vị chương trình (Unit file/Form unit), tên tập tin Form Unit đặt tên trình lưu (save) có phần mở rộng pas, nội dung tập tin Form Unit chứa đựng khai báo thông thường Unit (sẽ đề cập chi tiết phần sau) hàm kiện tương ứng cho Form Component Hình 6: Cửa sổ soạn thảo mã lệnh cho Form unit có tên Unit1.Pas Để chuyển đổi cửa sổ soạn thảo mã lệnh với cửa sổ thiết kế biểu mẫu, ta sử dụng chức View/Toggle Form/Unit từ main menu gõ phím chức F12 GVHD: VƯƠNG TẤN SĨ Trang SVTH: NGƠ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngơn ngữ Delphi Tình Click Panelc1: procedure TForm1.Panelc1Click(Sender: TObject); var R:TRect; begin Form1.WindowState:=wsNormal; Panelc1.Top:=166; Panelc1.Left:=178; Panelc1.Height:=346; Panelc1.Width:=476; R.Left:=0; R.Top:=0; R.Bottom:=Panelc1.Height; R.Right:=Panelc1.Width; Mediaplayerc1.DisplayRect:=R; end; Tình di chuyển chuột nút thốt: procedure TForm1.Imagethoat1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Imagethoat2.Visible:=True; end; Tình Click vào nút thốt: procedure TForm1.Imagethoat2Click(Sender: TObject); begin close; end; Mã lệnh cài đặt cho phương thức xử lý đối tượng Form chương: Tình di chuyển chuột đến nút “Bài 1”: procedure TFormchuong1.SpeedButtonbai1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Labelbai1.Visible:=True; Imagebai1s.Picture:=Imagebai1.Picture; Imagebai1s.Height:=121; Imagebai1s.Width:=161; end; GVHD: VƯƠNG TẤN SĨ Trang 47 SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngơn ngữ Delphi Tình Click nút “Bài 1”: procedure TFormchuong1.SpeedButtonbai1Click(Sender: TObject); begin Formchuong1.Hide; Formbai1.Show; end; (Các nút “Bài” cịn lại làm tương tự) Tình di chuyển chuột Form: procedure TFormchuong1.ImagenenMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Labelbai1.Visible:=False; Labelbai2.Visible:=False; Labelbai3.Visible:=False; Labelbai4.Visible:=False; Labelbai5.Visible:=False; Labelbai6.Visible:=False; Labelbai7.Visible:=False; Labelbai8.Visible:=False; Labelbai9.Visible:=False; Imagebai1s.Height:=0; Imagebai1s.Width:=0; Imagebai2s.Height:=0; Imagebai2s.Width:=0; Imagebai3s.Height:=0; Imagebai3s.Width:=0; Imagebai4s.Height:=0; Imagebai4s.Width:=0; Imagebai5s.Height:=0; Imagebai5s.Width:=0; Imagebai6s.Height:=0; Imagebai6s.Width:=0; Imagebai7s.Height:=0; Imagebai7s.Width:=0; Imagebai8s.Height:=0; Imagebai8s.Width:=0; Imagebai9s.Height:=0; Imagebai9s.Width:=0; end; Tình Click vào biểu tượng “Ngơi nhà”: procedure TFormchuong1.SpeedButtonformchinhClick(Sender: TObject); begin Form1.show; end; GVHD: VƯƠNG TẤN SĨ Trang 48 SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngơn ngữ Delphi Mã lệnh cài đặt cho phương thức xử lý đối tượng Form học: Tình Click vào nút “Mở”: procedure TFormbai1.SpeedButtonmoClick(Sender: TObject); begin If speedbuttonmo.Down then begin Speedbuttonmo.Caption:='Đóng'; Imagesachmo.Visible:=True; Paneltrangsach.Visible:=True; end else begin Speedbuttonmo.Caption:='Mở'; Imagesachmo.Visible:=False; Paneltrangsach.Visible:=False; Panelshow.Visible:=False; end; end; Tình di chuyển chuột trang sách: procedure TFormbai1.trang1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Imagehienthi.Visible:=False; Imageshow.Picture:=trang1.Picture; Panelshow.Height:=Imageshow.Height+18; Panelshow.Width:=Imageshow.Width+18; Panelshow.Visible:=True; end; Tình Click vào trang sách: procedure TFormbai1.trang1Click(Sender: TObject); begin Imagehienthi.Picture:=trang1.Picture; trang:=1; Trang1.Visible:=False; Labeltrang1.Font.Color:=clMaroon; If trang2.Visible = false then begin Trang2.Visible:=True; end; If trang3.Visible = false then begin Trang3.Visible:=True; end; GVHD: VƯƠNG TẤN SĨ Trang 49 SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngôn ngữ Delphi If trang4.Visible = false then begin Trang4.Visible:=True; end; If trang5.Visible = false then begin Trang5.Visible:=True; end; If trang6.Visible = false then begin Trang6.Visible:=True; end; If trang7.Visible = false then begin Trang7.Visible:=True; end; If trang8.Visible = false then begin Trang1.Visible:=True; end; If trang9.Visible = false then begin Trang9.Visible:=True; end; end; (Các trang cịn lại làm tương tự) Tình Click vào biểu tượng “Cây viết”: procedure TFormbai1.SpeedButtonPenClick(Sender: TObject); begin If SpeedButtonPen.Down then begin Panelmangche.Hide; Imagehienthi.Cursor:=crCross; Imagehienthi.Enabled:=True; Imagehienthi.AutoSize:=True; Speedbuttonzoomout.Enabled:=False; Speedbuttonzoomin.Enabled:=False; ShowMessage('Hay chon mau can Highlight.'); end; If SpeedbuttonPen.Down=False then begin Panelmangche.Show; Imagehienthi.Enabled:=False; Imagehienthi.AutoSize:=False; Imagehienthi.Cursor:=crDefault; Speedbuttonzoomout.Enabled:=True; Speedbuttonzoomin.Enabled:=True; end; end; GVHD: VƯƠNG TẤN SĨ Trang 50 SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngơn ngữ Delphi Tình Click vào nút phóng to: procedure TFormbai1.SpeedButtonZoomOutClick(Sender: TObject); begin Imagehienthi.ClientHeight:=Imagehienthi.Height+20; Imagehienthi.ClientWidth:=Imagehienthi.Width+20; end; (Nút thu nhỏ tương tự) Tình Click vào nút “Save”: procedure TFormbai1.SpeedButtonSaveClick(Sender: TObject); begin if SaveDialog.Execute then Imagehienthi.Picture.SaveToFile(SaveDialog.FileName); end; Tình di chuyển chuột đến dịng chữ “Xem hình cỡ”: procedure TFormbai1.Labelphongto1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Imagehienthi.Visible:=False; Labelphongto2.Visible:=True; Imagephongto.Picture:=Imageslideshow.Picture; Imagephongto.Visible:=True; end; Mã lệnh cài đặt cho phương thức xử lý đối tượng Form trắc nghiệm: Tình rê chuột lên vùng chứa câu hỏi: procedure TFormtnbai1.ImagemangMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Panelmang.Visible:=False; end; Tình rê chuột lên câu hỏi: procedure TFormtnbai1.Imagecau9MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Panelhienthi.Visible:=False; Imageshow.Picture:=Imagecau9.Picture; Panelshow.Height:=Imageshow.Height+18; Panelshow.Width:=Imageshow.Width+18; GVHD: VƯƠNG TẤN SĨ Trang 51 SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngơn ngữ Delphi Panelshow.Visible:=True; end; Tình Click chọn câu hỏi: procedure TFormtnbai1.Imagecau9Click(Sender: TObject); begin if (cau = 1)and (chon = 'A') then i1:=1; if (cau = 2)and (chon = 'B') then i2:=1; if (cau = 3)and (chon = 'C') then i3:=1; if (cau = 4)and (chon = 'D') then i4:=1; if (cau = 5)and (chon = 'A') then i5:=1; if (cau = 6)and (chon = 'A') then i6:=1; if (cau = 7)and (chon = 'B') then i7:=1; if (cau = 8)and (chon = 'C') then i8:=1; if (cau = 9)and (chon = 'D') then i9:=1; if (cau = 10)and (chon = 'A') then i10:=1; Panelhienthi.Visible:=True; Imagehienthi.Picture:=Imagecau9.Picture; cau:=9; radiogroupabcd.ItemIndex:=-1; Imagecau9.Visible:=False; Labelcau9.Font.Color:=clMaroon; Imagecopycau9.Picture:=Imagecau9.Picture; if Imagecau1.Visible = false then begin Imagecau1.Picture:= Imagecopycau1.Picture; Imagecau1.Visible:=true; end; if Imagecau2.Visible = false then begin Imagecau2.Picture:= Imagecopycau2.Picture; Imagecau2.Visible:=true; end; if Imagecau3.Visible = false then begin Imagecau3.Picture:= Imagecopycau3.Picture; Imagecau3.Visible:=true; end; if Imagecau4.Visible = false then GVHD: VƯƠNG TẤN SĨ Trang 52 SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngôn ngữ Delphi begin Imagecau4.Picture:= Imagecopycau4.Picture; Imagecau4.Visible:=true; end; if Imagecau5.Visible = false then begin Imagecau5.Picture:= Imagecopycau5.Picture; Imagecau5.Visible:=true; end; if Imagecau7.Visible = false then begin Imagecau7.Picture:= Imagecopycau7.Picture; Imagecau7.Visible:=true; end; if Imagecau8.Visible = false then begin Imagecau8.Picture:= Imagecopycau8.Picture; Imagecau8.Visible:=true; end; if Imagecau6.Visible = false then begin Imagecau6.Picture:= Imagecopycau6.Picture; Imagecau6.Visible:=true; end; if Imagecau10.Visible = false then begin Imagecau10.Picture:= Imagecopycau10.Picture; Imagecau10.Visible:=true; end; end; (Các câu cịn lại làm tương tự) Tình Click chọn đáp án: procedure TFormtnbai1.RadioGroupabcdClick(Sender: TObject); begin chon:=''; if radiogroupabcd.ItemIndex = then chon:='A'; if radiogroupabcd.ItemIndex = then chon:='B'; if radiogroupabcd.ItemIndex = then chon:='C'; if radiogroupabcd.ItemIndex = then chon:='D'; end; GVHD: VƯƠNG TẤN SĨ Trang 53 SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngơn ngữ Delphi Tình Click nút “Xong”: procedure TFormtnbai1.SpeedButtonxongClick(Sender: TObject); begin Panelhienthi.Visible:=True; radiogroupabcd.ItemIndex:=-1; Imagehienthi.Picture:=Imagecopyhienthi.Picture; if (cau = 1)and (chon = 'A') then i1:=1; if (cau = 2)and (chon = 'B') then i2:=1; if (cau = 3)and (chon = 'C') then i3:=1; if (cau = 4)and (chon = 'D') then i4:=1; if (cau = 5)and (chon = 'A') then i5:=1; if (cau = 6)and (chon = 'A') then i6:=1; if (cau = 7)and (chon = 'B') then i7:=1; if (cau = 8)and (chon = 'C') then i8:=1; if (cau = 9)and (chon = 'D') then i9:=1; if (cau = 10)and (chon = 'A') then i10:=1; if Imagecau1.Visible = false then begin Imagecau1.Picture:= Imagecopycau1.Picture; Imagecau1.Visible:=true; end; if Imagecau2.Visible = false then begin Imagecau2.Picture:= Imagecopycau2.Picture; Imagecau2.Visible:=true; end; if Imagecau3.Visible = false then begin Imagecau3.Picture:= Imagecopycau3.Picture; Imagecau3.Visible:=true; end; if Imagecau4.Visible = false then begin Imagecau4.Picture:= Imagecopycau4.Picture; Imagecau4.Visible:=true; end; if Imagecau5.Visible = false then begin Imagecau5.Picture:= Imagecopycau5.Picture; GVHD: VƯƠNG TẤN SĨ Trang 54 SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngôn ngữ Delphi Imagecau5.Visible:=true; end; if Imagecau6.Visible = false then begin Imagecau6.Picture:= Imagecopycau6.Picture; Imagecau6.Visible:=true; end; if Imagecau7.Visible = false then begin Imagecau7.Picture:= Imagecopycau7.Picture; Imagecau7.Visible:=true; end; if Imagecau8.Visible = false then begin Imagecau8.Picture:= Imagecopycau8.Picture; Imagecau8.Visible:=true; end; if Imagecau9.Visible = false then begin Imagecau9.Picture:= Imagecopycau9.Picture; Imagecau9.Visible:=true; end; if Imagecau10.Visible = false then begin Imagecau10.Picture:= Imagecopycau10.Picture; Imagecau10.Visible:=true; end; i:=i1+i2+i3+i4+i5+i6+i7+i8+i9+i10; ShowMessage('Ban lam dung ' + IntToStr(i) + '/10 cau.'); cau:=0; chon:=''; speedbuttonll.Enabled:=true; end; Tình Click nút “Làm lại”: procedure TFormtnbai1.SpeedButtonllClick(Sender: TObject); begin cau:=0; i1:=0; i2:=0; i3:=0; i4:=0; i5:=0; i6:=0; i7:=0; i8:=0; i9:=0; i10:=0; Panelhienthi.Visible:=True; GVHD: VƯƠNG TẤN SĨ Trang 55 SVTH: NGƠ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngôn ngữ Delphi radiogroupabcd.ItemIndex:=-1; Imagehienthi.Picture:=Imagecopyhienthi.Picture; if Imagecau1.Visible = false then begin Imagecau1.Picture:= Imagecopycau1.Picture; Imagecau1.Visible:=true; end; if Imagecau2.Visible = false then begin Imagecau2.Picture:= Imagecopycau2.Picture; Imagecau2.Visible:=true; end; if Imagecau3.Visible = false then begin Imagecau3.Picture:= Imagecopycau3.Picture; Imagecau3.Visible:=true; end; if Imagecau4.Visible = false then begin Imagecau4.Picture:= Imagecopycau4.Picture; Imagecau4.Visible:=true; end; if Imagecau5.Visible = false then begin Imagecau5.Picture:= Imagecopycau5.Picture; Imagecau5.Visible:=true; end; if Imagecau6.Visible = false then begin Imagecau6.Picture:= Imagecopycau6.Picture; Imagecau6.Visible:=true; end; if Imagecau7.Visible = false then begin Imagecau7.Picture:= Imagecopycau7.Picture; Imagecau7.Visible:=true; end; if Imagecau8.Visible = false then begin Imagecau8.Picture:= Imagecopycau8.Picture; Imagecau8.Visible:=true; end; if Imagecau9.Visible = false then begin Imagecau9.Picture:= Imagecopycau9.Picture; Imagecau9.Visible:=true; end; if Imagecau10.Visible = false then begin Imagecau10.Picture:= Imagecopycau10.Picture; GVHD: VƯƠNG TẤN SĨ Trang 56 SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngôn ngữ Delphi Imagecau10.Visible:=true; end; labelcau1.Font.Color:=clWhite; labelcau2.Font.Color:=clWhite; labelcau3.Font.Color:=clWhite; labelcau4.Font.Color:=clWhite; labelcau5.Font.Color:=clWhite; labelcau6.Font.Color:=clWhite; labelcau7.Font.Color:=clWhite; labelcau8.Font.Color:=clWhite; labelcau9.Font.Color:=clWhite; labelcau10.Font.Color:=clWhite; end; Mã lệnh cài đặt cho phương thức xử lý đối tượng Form ghi chú: Tình Click nút “Clear”: procedure TFormNote.ClearClick(Sender: TObject); begin memonote.Clear; end; Tình Click nút “Cut”: procedure TFormNote.CutClick(Sender: TObject); begin memonote.CutToClipboard; paste.Enabled:=true; end; Tình Click nút “Copy”: procedure TFormNote.CopyClick(Sender: TObject); begin memonote.CopyToClipboard; paste.Enabled:=true; end; Tình Click nút “Paste”: procedure TFormNote.PasteClick(Sender: TObject); begin memonote.PasteFromClipboard; end; GVHD: VƯƠNG TẤN SĨ Trang 57 SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngôn ngữ Delphi Mã lệnh cài đặt cho phương thức xử lý đối tượng Form đồng hồ: Tình Click nút “Set Time”: procedure TFormdongho.SpeedButtondinhphutClick(Sender: TObject); var phut:String; begin labelp.Caption:='00'; labelg.Caption:='00'; i:=0; p:=0; g:=0; phut:=InPutbox('Dinh thoi gian lam bai','So phut lam bai:','15'); If TryStrToInt(phut,p) then If p=0 then ShowMessage('Ban khong the lam bai "0" phut!') else begin t:=60; speedbuttonbatdau.Enabled:=true; labelthoigian.Caption:='Bạn làm '+IntToStr(p)+' phuùt.'; g:=p*60; for i:=1 to p a[i]:=i; end else ShowMessage('Ban chon thoi gian chua dung !'); end; Tình Click nút “Start”: procedure TFormdongho.SpeedButtonbatdauClick(Sender: TObject); begin timerdongho.Enabled:=True; Speedbuttonngung.Enabled:=true; speedbuttonnghi.Enabled:=true; end; Tình Click nút “Pause”: procedure TFormdongho.SpeedButtonngungClick(Sender: TObject); begin If speedbuttonngung.Down then timerdongho.Enabled:=False else timerdongho.Enabled:=true; end; Tình Click nút “Stop”: procedure TFormdongho.SpeedButtonnghiClick(Sender: TObject); GVHD: VƯƠNG TẤN SĨ Trang 58 SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngơn ngữ Delphi begin timerdongho.Enabled:=false; speedbuttonbatdau.Enabled:=False; speedbuttonngung.Enabled:=False; ShowMessage('Ban da su dung het '+IntToStr(p-1-StrToInt(labelp.Caption))+' phut'+' '+IntToStr(60-StrToInt(labelg.Caption))+' giay.'); end; Tình Click nút “Hide”: procedure TFormdongho.SpeedButton1Click(Sender: TObject); begin Formdongho.Hide; end; Mã lệnh cài đặt cho phương thức xử lý đối tượng Form tiểu sử: Tình khởi tạo Form: procedure TFormtrongsuot.FormCreate(Sender: TObject); var frmRegion, tempRegion:HRGN; i:Integer; Arect:TRect; begin frmRegion:=0; For i:=0 to ControlCount -1 begin aRect:=Controls[i].BoundsRect; OffsetRect(aRect,clientorigin.X-left,clientorigin.Y-top); tempRegion:=CreateRectRgnIndirect(aRect); If frmRegion=0 then frmRegion:=tempRegion Else begin CombineRgn(frmRegion,frmRegion,tempRegion,RGN_OR); DeleteObject(tempRegion); end; end; tempRegion:=CreateRectRgn(0,0,0,0); CombineRgn(frmRegion, frmRegion, tempRegion, RGN_OR); DeleteObject(tempRegion); SetWindowRgn(handle,frmRegion,true); end; GVHD: VƯƠNG TẤN SĨ Trang 59 SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngơn ngữ Delphi Tình rê chuột hình: procedure TFormtrongsuot.ImageanhnhoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Panelto.Visible:=True; Timer5giay.Enabled:=True; end; Tình Click nút “Next”: procedure TFormAccimet.SpeedButtontoiClick(Sender: TObject); begin inherited; Formaccimet.Hide; FormAmbe.show; end; Trên vài phương thức xử lý tình Form./ GVHD: VƯƠNG TẤN SĨ Trang 60 SVTH: NGÔ MINH HẢI Luận văn tốt nghiệp Chương trình Vật lý 12 NC viết ngôn ngữ Delphi TÀI LIỆU THAM KHẢO 1- Phó Đức Hịa – Ngơ Quang Sơn: Ứng dụng cơng nghệ thơng tin dạy học tích cực, NXB Giáo Dục tháng 04 năm 2008 2-Đào Văn Phúc – Thế Trường – Vũ Thanh Khiết: Truyện kể nhà bác học vật lý, NXB Giáo Dục tháng 08 năm 1998 3-Nhà xuất giáo dục: Các kỹ xảo lập trình với Microsoft Visual Basic & Borland Delphi 4-Nhà xuất giáo dục: Vật lý 12 nâng cao 5-Nhà xuất lao động-xã hội: Giáo trình lý thuyết & tập Borland Delphi 6-Khoa khoa học Đại học Cần Thơ: Giáo trình Lập trình B (Delphi) 7-Tạp chí Vật lý & Tuổi trẻ - Hội Vật lý Việt Nam 2009 8-Các Website: www.onthi.com www.giaovien.net www.vatlysupham.com.vn www.wikipedia.vn GVHD: VƯƠNG TẤN SĨ Trang 61 SVTH: NGÔ MINH HẢI ... sau: Bắt đầu dự án ? ?Chương trình Vật lý lớp 12 nâng cao? ?? với Delphi 4.1 Xây dựng mơ hình cho chương trình Chương trình gồm 148 Form: Form 10 Form chương: tương ứng với 10 chương sách giáo khoa... Dephi ngôn ngữ thân thiện với người dùng, phù hợp cho người bắt đầu làm quen với Delphi nhà lập trình chuyên nghiệp II TỔNG QUAN VỀ NGƠN NGỮ LẬP TRÌNH DELPHI Giới thiệu ngơn ngữ lập trình Delphi. .. tốt nghiệp Chương trình Vật lý 12 NC viết ngôn ngữ Delphi PHẦN NỘI DUNG I THỰC TRẠNG XUNG QUANH NỘI DUNG NGHIÊN CỨU CỦA ĐỀ TÀI Thực trạng xung việc sử dụng sách giáo khoa Vật lý lớp 12 học sinh
