Đề tài biên soạn phần mềm soạn thảo nhanh một số bài tập vật lí 11 cơ bản phần điện học

TRƯỜNG ĐẠI HỌC AN GIANG KHOA SƯ PHẠM W X NGUYỄN MINH SÁCH LỚP DH5L KHÓA LUẬN TỐT NGHIỆP NGÀNH SƯ PHẠM VẬT LÍ Giảng viên hướng dẫn Th.s Giang Văn Phúc Long Xuyên, tháng 05/2008 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 000 - Qua thời gian học tập trường Đại Học An Giang, em dạy dỗ bảo tận tình thầy Hơm em có dịp gửi đến thầy lịng biết ơn sâu sắc Trước tiên em xin chân thành cảm ơn Ban Giám Hiệu trường Đại Học An Giang, Ban Chủ Nhiệm Khoa Sư Phạm quan tâm giúp đỡ tạo điều kiện thuận lợi cho em suốt thời gian học tập trường hoàn thành khóa luận tốt nghiệp Em xin chân thành gửi lời cảm ơn đến quý Thầy, Cô giáo mơn Vật Lý người hết lịng truyền đạt kiến thức bổ ích kinh nghiệm quý báu để em làm hành trang bước vào đời, em xin gửi lời cảm ơn sâu sắc đến thầy Giang Văn Phúc, người tận tụy hướng dẫn bảo em suốt thời gian làm khóa luận tốt nghiệp Nhân dịp tơi xin gửi lời cảm ơn đến bạn lớp DH5L khích lệ, hỗ trợ tơi trong suốt thời gian qua, nguồn động viên lớn để tơi hồn thành khóa luận tốt nghiệp Qua em xin gửi lời chúc đến thầy cô gia đình thầy ln ln mạnh khỏe, hạnh phúc LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Mục Lục Trang Phần Một : Mở đầu 1 Lí chọn đề tài .2 Mục đích nhiệm vụ nghiên cứu 2.1 Mục đích nghiên cứu .2 2.2 Nhiệm vụ nghiên cứu Khách thể đối tượng nghiên cứu 3.1 Khách thể nghiên cứu 3.2 Đối tượng nghiên cứu Phương pháp nghiên cứu Phạm vi nghiên cứu Giả thuyết khoa học Đóng góp đề tài Phần hai : Tổng quan Cơ sở lý thuyết 1.1 Phương pháp dạy học Vật lí 1.2 Sử dụng tập dạy học Vật lí .5 1.2.1 Vai trò tập việc giảng dạy Vật lí trường phổ thông .5 1.2.2 Sự cần thiết phải soạn nhiều tập giáo viên .6 Chọn lựa tập Vật lí để đưa vào phần mềm A Tóm tắt chương trình Vật lí 11 Chương I : Tĩnh điện học Chương II : Dịng điện khơng đổi 11 Chương III : Dịng điện mơi trường 13 B Yêu cầu việc chọn lựa tập Vật lí 16 Giới thiệu Visual Basic 16 3.1 Sơ lược Visual Basic .17 3.2 Các khái niệm sở 17 3.3 Các Control sở .17 3.4 Thuộc tính chung Control .19 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Phần Ba : Thực 21 Phân loại giải tập Vật lí tiêu biểu phần Điện học 22 1.1 Phân loại tập Vật lí .22 1.2 Phương pháp giải tập Vật lí 22 1.2 Một số tập Vật lí tiêu biểu - phần Điện học 24 Chương I : Tĩnh điện học .24 Chương II : Dịng điện khơng đổi 27 Chương III : Dòng điện môi trường 30 Thiết kế giao diện 33 Lập trình 34 3.1 Chuẩn bị 34 3.2 Cài đặt Visual Basic 35 3.3 Khởi động chương trình Visual Basic 35 3.4 Ngơn ngữ lập trình Visual Basic 36 3.4.1 Biến 36 3.4.2 Khai báo biến 36 3.4.3 Các kiểu liệu thường dùng 36 3.4.4 Các toán tử Visual Basic 36 3.5 Tạo chạy chương trình .37 3.6 Ví dụ minh họa phép cộng 41 Các thao tác sử dụng phần mềm 42 Các kỹ thuật sử dụng 45 Lập trình số tập tiêu biểu 48 6.1 Vẽ dặt tên, giá trị cho đối tượng hình Form 48 6.2 Viết Code cho đối tượng 49 Thử nghiệm 62 Phần Bốn : Kết luận 64 Kết đạt 65 Hạn chế phần mềm 65 Những kiến nghị 65 Tài liệu tham khảo 66 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Trang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Lý chọn đề tài Thời đại ngày thời đại khoa học công nghệ, với phát triển vũ bão khoa học công nghệ tác động mạnh mẽ vào tất lĩnh vực đời sống như: y học, khoa học, kinh tế, văn hóa…và lĩnh vực giáo dục Vì để bắt kịp xu phát triển chung thời đại địi hỏi cần phải có người tài giỏi, động, sáng tạo, có kỹ thực hành để đáp ứng yêu cầu thực tế đặt Là sinh viên, việc khơng ngừng học tập, nâng cao trình độ tri thức khoa học thuộc lĩnh vực chuyên môn, nhận thấy cần phải tự trang bị cho kiến thức cách sử dụng máy vi tính Từng bước tiến đến việc ứng dụng lập trình số phần mềm đơn giản để đáp ứng u cầu cơng việc, góp phần phục vụ đắc lực cho học tập, nghiên cứu công tác giảng dạy Hiện việc kiểm tra, đánh giá chất lượng học tập học sinh dựa phương pháp trắc nghiệm khách quan Để thực tốt điều đòi hỏi người giáo viên cần phải đầu tư nhiều thời gian công sức để xây dựng hệ thống câu hỏi trắc nghiệm, thực tế khơng phải lúc đạt kết mong muốn Mặt khác, phần mềm hỗ trợ soạn tập giới nước Chẳng hạn phần mềm Crocodile có mục tiêu tương tự chưa hướng đến mục tiêu soạn thảo tập Các phần mềm nước Optic chuyên cho quang học như, Crocodile chưa nhắm đến mục đích hỗ trợ giáo viên soạn thảo tập cách nhanh chóng Trong thời gian học tập trường Đại học An Giang, tiếp xúc làm việc với phần mềm lập trình Visual Basic Chúng tơi nhận thấy phần mềm lập trình có khả ứng dụng cao tiện ích Nó giải tốt vấn đề soạn thảo nhanh tập trắc nghiệm Ngơn ngữ lập trình Visual Basic đơn giản dễ dàng tiếp cận thao tác giao diện làm việc Với lý trên, định thực nghiên cứu đề tài: “Biên soạn phần mềm – soạn thảo nhanh số tập Vật lí 11 - phần Điện học” Mục đích nhiệm vụ nghiên cứu 2.1 Mục đích nghiên cứu Tạo phần mềm “Soạn thảo nhanh số tập Vật lí 11 – phần Điện học” hỗ trợ cho giáo viên biên soạn nhanh tập trắc nghiệm tập Vật lí 11 – phần Điện học 2.2 Nhiệm vụ nghiên cứu Nghiên cứu đề tài giải nhiệm vụ sau: - Nghiên cứu nội dung phương pháp giải số tập tiêu biểu sách giáo khoa sách tập Vật lí 11 – phần Điện học - Tiến hành giải xây dựng thuật toán hỗ trợ cho lập trình - Tìm hiểu ngơn ngữ lập trình, giao diện đồ họa ứng dụng Visual Basic - Biên soạn tập cụ thể, sau kết nối thành tổng thể chung cho tất theo chương Trang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com - Đánh giá kết thu sau nghiên cứu Khách thể đối tượng nghiên cứu 3.1 Khách thể nghiên cứu - Một số tập tiêu biểu sách giáo khoa sách tập Vật lí 11 -phần Điện học - Ngơn ngữ lập trình Visual Basic 3.2 Đối tượng nghiên cứu Phần mềm – soạn thảo nhanh số tập Vật lí 11 – phần Điện học Phương pháp nghiên cứu Trong thực tài này, chúng tơi có sử dụng số phương pháp nghiên cứu sau đây: - Phương pháp đọc sách tài liệu tham khảo - Phương pháp phân loại, hệ thống hóa lý thuyết tập - Phương pháp phân tích tổng hợp - Tham khảo ý kiến số giáo sinh sư phạm Vật lí dùng thử phần mềm - Tham khảo ý kiến giáo viên hướng dẫn Phạm vi nghiên cứu - Nội dung phương pháp giải số tập tiêu biểu sách giáo khoa sách tập Vật lí 11 – phần Điện học - Ngơn ngữ lập trình, giao diện đồ họa ứng dụng Visual Basic Giả thuyết khoa học Nếu viết phần mềm “Soạn thảo nhanh số tập Vật lí 11 – phần Điện học” phần mềm hỗ trợ tốt cho người giáo viên việc giải tập Vật lí 11 – phần Điện học góp phần nâng cao hiệu việc soạn thảo đề trắc nghiệm Đóng góp đề tài Đề tài: “Biên soạn phần mềm - soạn thảo nhanh số tập Vật lí 11 - phần Điện học” nghiên cứu thành cơng góp phần: - Giúp chúng tơi có hệ thống kiến thức tương đối hồn chỉnh phần mềm Visual Basic, đồng thời tích lũy số kiến thức kinh nghiệm việc giải tập Vật lí 11 – phần Điện học - Góp phần hỗ trợ đắc lực cho giáo viên trường Trung học phổ thông soạn thảo nhanh số tập Vật lí 11 – phần Điện học - Làm tư liệu tham khảo cho sinh viên khóa sau học tập nghiên cứu Trang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Trang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Cơ sở lý thuyết 1.1) Phương pháp dạy học Vật lí Phương pháp dạy học Vật lí ngành khoa học giáo dục nghiên cứu trình dạy học mơn Vật lí Phương pháp dạy học Vật lí hệ thống hành động có mục đích giáo viên, tổ chức hoạt động trí óc chân tay học sinh, đảm bảo cho học sinh chiếm lĩnh nội dung dạy học, đạt mục tiêu xác định 1.2) Sử dụng tập dạy học Vật lí 1.2.1) Vai trị tập việc giảng dạy Vật lí Trường phổ thơng Việc giảng dạy Vật lí Trường phổ thơng khơng làm cho học sinh hiểu cách sâu sắc, đầy đủ kiến thức qui định chương trình, mà cịn phải làm cho em biết vận dụng kiến thức để giải nhiệm vụ học tập vấn đề thực tiễn sống đặt Muốn cần phải thường xuyên rèn luyện cho học sinh thói quen, kỹ năng, kỹ xảo vận dụng kiến thức vào sống ngày Kỹ vận dụng kiến thức học tập thực tiễn đời sống thước đo mức độ sâu sắc vững vàng kiến thức mà học sinh thu nhận Bài tập Vật lí với chức phương pháp dạy học, có vị trí đặc biệt quan trọng việc giảng dạy Vật lí trường phổ thơng Trước hết tập Vật lí giúp học sinh ơn tập, đào sâu, mở rộng kiến thức học Để giải tập Vật lí học sinh cần phải nhớ lại công thức, định luật, kiến thức học, có địi hỏi phải vận dụng cách tổng hợp kiến thức học chương trình, phần, học sinh hiểu rõ hơn, ghi nhớ vững kiến thức học Khi giải tập Vật lí học sinh phải vận dụng kiến thức Vật lí học vào trường hợp cụ thể đa dạng, nhờ học sinh nắm ứng dụng quan trọng kiến thức Vật lí thực tế kỹ thuật Trong nhiều trường hợp, dù giáo viên cố gắng trình bày tài liệu cách mạch lạc, hợp logic, phát biểu định luật xác, làm thí nghiệm u cầu… điều kiện cần chưa phải điều kiện đủ để học sinh hiểu sâu nắm vững kiến thức Chỉ có thơng qua tập Vật lí hình thức hay hình thức khác tạo điều kiện cho học sinh tự vận dụng kiến thức học để giải thành cơng tình cụ thể khác Khi đó, kiến thức trở nên sâu sắc, hoàn thiện biến thành vốn riêng học sinh Trong trình giải tình cụ thể tập Vật lí đặt học sinh ngồi việc phải tự phân tích điều kiện tập, xây dựng lập luận, tự kiểm tra kết thu được… học sinh cịn phải sử dụng thao tác tư như: so sánh, tổng hợp, khái quát hóa, trừu tượng hóa…để giải vấn đề, tư học sinh có điều kiện rèn luyện phát huy Vì thế, nói tập Vật lí phương tiện tốt để phát triển tư duy, óc tưởng tượng, khả độc lập suy nghĩ hành động, tính kiên trì, tinh thần vượt khó học sinh Trang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Bài tập Vật lí hội để giáo viên đề cập đến kiến thức mà học chưa có điều kiện để đề cập, nhằm bổ sung kiến thức thiếu cho học sinh, giúp cho em thu nhận kiến thức cách chặt chẽ, logic có hệ thống Ngồi xét mặt hoạt động nhận thức, ta thấy tập Vật lí cịn phương tiện tốt để kiểm tra việc thu nhận kiến thức, mức độ nắm vững kiến thức học sinh, kỹ năng, kỹ xảo học sinh 1.2.2) Sự cần thiết phải soạn nhiều tập giáo viên Hiện việc kiểm tra, đánh giá chất lượng học tập học sinh dựa phương pháp trắc nghiệm khách quan Nhưng để kết đánh giá xác, khách quan cần phải có hệ thống câu hỏi trắc nghiệm chủ yếu tập vận dụng Vì vậy, để thực tốt điều đòi hỏi người giáo viên cần phải đầu tư nhiều thời gian công sức để soạn tập, câu hỏi trắc nghiệm Người giáo viên phổ thông dạy môn Vật lí mơn học có lý thuyết tập, giáo viên phải đảm nhận việc cung cấp kiến thức lý thuyết lẫn tập để em làm quen với việc tính tốn áp dụng kiến thức mà học Việc giải tập khâu vận dụng kiến thức học, điều giúp cho học sinh nắm vững kiến thức Vì vậy, tập quan trọng Điều địi hỏi người giáo viên phải có nhiệm vụ đưa cho em nhiều dạng tập khác để em giải Song song đó, giáo viên cịn phải soạn thảo đề kiểm tra nội dung dạy theo định hướng môn học tập tương tự giảng dạy Từ hai nguyên nhân thấy cần thiết phải tạo phần mềm giúp người giáo viên phân loại soạn thảo nhanh tập Vật lí phổ thơng Chọn lựa tập Vật lí để đưa vào phần mềm A Tóm Tắt Chương Trình Vật lí 11 Phần Điện Học [1] Chương I : TĨNH ĐIỆN HỌC Bài : Điện Tích Định Luật Cu-Lơng Hai loại điện tích - Điện tích âm (kí hiệu dấu - ) - Điện tích dương (kí hiệu dấu + ) - Hai điện tích dấu đẩy - Hai điện tích khác dấu hút Định luật Culông Lực hút hay đẩy hai điện tích điểm đặt chân khơng có phương trùng với đường thẳng nối hai điện tích điểm đó, có độ lớn tỉ lệ thuận với tích độ lớn hai điện tích tỉ lệ nghịch với bình phương khoảng cách chúng qq F=k r2 Trang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com If Combo3.ListIndex = Then bai = "06" If Combo3.ListIndex = Then bai = "07" If Combo3.ListIndex = Then bai = "08" If Combo3.ListIndex = Then bai = "09" If Combo3.ListIndex = Then bai = "10" If Combo3.ListIndex = 10 Then bai = "11" If Combo3.ListIndex = 11 Then bai = "12" If Combo3.ListIndex = 12 Then bai = "13" If Combo3.ListIndex = 13 Then bai = "14" If Combo3.ListIndex = 14 Then bai = "15" If Combo3.ListIndex = 15 Then bai = "16" If Combo3.ListIndex = 16 Then bai = "17" If Combo3.ListIndex = 17 Then bai = "18" If Combo3.ListIndex = 18 Then bai = "19" If Combo3.ListIndex = 19 Then bai = "20" gtbien1.Text = "" gtbien2.Text = "" gtbien3.Text = "" gtbien4.Text = "" gtbien5.Text = "" gtbien6.Text = "" gtkq1.Text = "" gtkq2.Text = "" tinh.Visible = True tiep.Visible = True Label4.Visible = True nenbs.Visible = True nenkq.Visible = True Text1.Visible = True taptin = chuong & bai & ".jpg" Set cau = LoadPicture(taptin) Set debai = cau If taptin = "0103.jpg" Then bien1.FontName = "VNI-times" bien3.FontName = "symbol" bien4.FontName = "VNI-times" donvibien1.FontName = "VNI-times" Trang 52 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com donvibien3.FontName = "VNI-times" donvibien4.FontName = "VNI-times" kq1.FontName = "VNI-times" donvikq1.FontName = "VNI-times" bien1.Visible = True gtbien1.Visible = True donvibien1.Visible = True bien2.Visible = False gtbien2.Visible = False donvibien2.Visible = False bien3.Visible = True gtbien3.Visible = True donvibien3.Visible = True bien4.Visible = True gtbien4.Visible = True donvibien4.Visible = True bien5.Visible = False gtbien5.Visible = False donvibien5.Visible = False bien6.Visible = False gtbien6.Visible = False donvibien6.Visible = False kq1.Visible = True gtkq1.Visible = True donvikq1.Visible = True kq2.Visible = False gtkq2.Visible = False donvikq2.Visible = False bien1.Text = "l =" bien3.Text = "a =" bien4.Text = "m =" kq1.Text = "Q =" donvibien1.Text = "(cm)" donvibien3.Text = "(o)" donvibien4.Text = "(g)" donvikq1.Text = "10^-8 (C)" bien1.FontName = "VNI-times" Trang 53 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com bien3.FontName = "symbol" bien4.FontName = "VNI-times" donvibien1.FontName = "VNI-times" donvibien3.FontName = "VNI-times" donvibien4.FontName = "VNI-times" kq1.FontName = "VNI-times" donvikq1.FontName = "VNI-times" End If End Sub - Đoạn lệnh nói lên ta chọn chương trình Vật lí 11, Chương 1, Bài tập [khi taptin (hay tên đề bài) 0103.jpg] hình giao diện hiển thị đề hiển thị biến số 1, 3, 4; giá trị biến số 1, 3, 4; đơn vị biến 1, 3, 4; kết quả 1, giá trị kết đơn vị kết Còn biến số, giá trị, đơn vị biến sơ khác ẩn Lúc hình giao diện có dạng Hình 16 Hình 16 Màn hình đề bài chương ™ Viết Code cho nút Tính Khi ta nhập đủ số liệu vào nhập liệu click vào nút Tính kết hiển thị kết phép tính Để làm việc nhờ vào đoạn Code sau đây: Private Sub tinh_Click() a1 = Val(gtbien1.Text) a2 = Val(gtbien2.Text) a3 = Val(gtbien3.Text) a4 = Val(gtbien4.Text) a5 = Val(gtbien5.Text) a6 = Val(gtbien6.Text) k1 = Val(gtkq1.Text) Trang 54 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com k2 = Val(gtkq2.Text) If taptin = "0103.jpg" Then If gtbien1.Text = "" Or gtbien3.Text = "" Or gtbien4.Text = "" Then tb = MsgBox(" Hay nhap day du so lieu ", vbCritical, "Thong Bao") Exit Sub End If If a4 < Or a4 = Then tb = MsgBox("m chi nhan gia tri > Xin hay nhap lai !", vbCritical, "Thong Bao") gtbien4.Text = "" Exit Sub End If If a1 < Or a1 = Then tb = MsgBox("l chi nhan gia tri > Xin hay nhap lai !", vbCritical, "Thong Bao") gtbien1.Text = "" Exit Sub End If If a3 < Or a3 > 180 Then tb = MsgBox("Anpha chi nhan gia tri tu den 180 Xin hay nhap lai!", vbCritical, "Thong Bao") gtbien3.Text = "" End If If a3 = 180 Then tb = MsgBox("Anpha phai vbCritical, "Thong Bao") khac 180 Xin hay nhap lai!", gtbien3.Text = "" End If q = Tan(a3 * 3.141 / (180 * 2)) k1 = ((a4 * 10 * a1 ^ * q / 9) ^ 0.5) * gtkq1.Text = Val(k1) End If End Sub Đoạn Code cho biết rằng: taptin = 0103.jpg (chương tập 3) chương trình kiểm tra tiếp xem biến số nhập vào có thỏa mãn điều kiện Tốn học, điều kiện Vật lí hay khơng? Nếu khơng thỏa mãn chương trình báo lỗi, cịn thỏa mãn kết tốn tính theo công thức: q = Tan(a3 * 3.141 / (180 * 2)) k1 = ((a4 * 10 * a1 ^ * q / 9) ^ 0.5) * Ở tập này: m khối lượng cầu kim loại nên m âm khơng Do đó, người dùng nhập vào giá trị m số < hay = chương trình Trang 55 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com phải thông báo lỗi để người dùng biết sửa lỗi Để thực điều ta sử dụng đoạn Code sau: If a4 < Or a4 = Then tb = MsgBox(" m chi nhan gia tri > Xin hay nhap lai !", vbCritical, "Thong Bao") gtbien4.Text = "" Exit Sub End If Tương tự, l chiều dài sợi dây nên nhận giá trị > góc α trường hợp nhận giá trị < α < 1800 Do phải thơng báo lỗi người dùng nhập số liệu không phù hợp xóa giá trị khơng phù hợp Và thực điều cách sử dụng đoạn Code sau: If a1 < Or a1 = Then tb = MsgBox("l chi nhan vbCritical, "Thong Bao") gia tri > Xin hay nhap lai !", gtbien1.Text = "" Exit Sub End If If a3 < Or a3 > 180 Then tb = MsgBox("Anpha chi nhan gia tri tu den 180 Xin hay nhap lai!", vbCritical, "Thong Bao") gtbien3.Text = "" Exit Sub End If If a3 = 180 Then tb = MsgBox("Anpha "Thong Bao") phai khac 180 Xin hay nhap lai!", vbCritical, gtbien3.Text = "" Exit Sub End If Trong đoạn Code có sử dụng hàm Val nhằm mục đích biến đổi liệu dạng chuỗi thành dạng số để đưa vào phép tính ™ Viết Code cho nút Tiếp Nút tiếp có tác dụng xóa số liệu nhập nhập liệu để người dùng thay số liệu khác Việc thực thông qua đoạn Code sau: Private Sub tiep_Click() gtbien1.Text = "" gtbien2.Text = "" gtbien3.Text = "" gtbien4.Text = "" Trang 56 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com gtbien5.Text = "" gtbien6.Text = "" gtkq1.Text = "" gtkq2.Text = "" End Sub ™ Viết Code cho nút Kết thúc Nút Kết thúc có tác dụng ta click vào tắt chương trình Đoạn Code lệnh viết sau: Private Sub KetThuc_Click() End End Sub ™ Viết Code cho nút Hướng Dẫn Khi click vào nút Hướng Dẫn hình lên cách sử dụng phần mềm, muốn thoát click vào nút Trở Đoạn Code viết cho đối tượng sau: Private Sub HuongDan_Click() Picture1.Visible = True Command1.Visible = True End Sub ™ Đối với Bài tập 19, Chương 2, Chương trình Vật lí 11 2.19./ Hai nguồn điện có suất điện động điện trở tương ứng E1 = 3V; r1 = 0,6 Ω E2 = 1,5 V; r2 = 0,4 Ω mắc với điện trở R = Ω thành mạch kín có sơ đồ hình E1, r1 a) Tính cường độ dịng điện chạy mạch E2, r2 b) Tính hiệu điện hai cực nguồn Bài giải a) Ta có : Eb = E1 + E2 = + 1,5 = 4,5 (V) R rb = r1 + r2 = 0,6 + 0,4 = ( Ω ) Áp dụng định luật ôm tồn mạch ta có : I= Eb 4,5 = = 0,9 (Ω) R + rb + b) Hiệu điện hai cực nguồn 1: U1 = E1 – I.r1 = – 0,9.0,6 = 2,46 (V) Trang 57 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Hình 17 Giao diện tập 19 chương Private Sub Combo4_Click() If Combo4.ListIndex = Then bai = "01" If Combo4.ListIndex = Then bai = "02" If Combo4.ListIndex = Then bai = "03" If Combo4.ListIndex = Then bai = "04" If Combo4.ListIndex = Then bai = "05" If Combo4.ListIndex = Then bai = "06" If Combo4.ListIndex = Then bai = "07" If Combo4.ListIndex = Then bai = "08" If Combo4.ListIndex = Then bai = "09" If Combo4.ListIndex = Then bai = "10" If Combo4.ListIndex = 10 Then bai = "11" If Combo4.ListIndex = 11 Then bai = "12" If Combo4.ListIndex = 12 Then bai = "13" If Combo4.ListIndex = 13 Then bai = "14" If Combo4.ListIndex = 14 Then bai = "15" If Combo4.ListIndex = 15 Then bai = "16" If Combo4.ListIndex = 16 Then bai = "17" If Combo4.ListIndex = 17 Then bai = "18" If Combo4.ListIndex = 18 Then bai = "19" If Combo4.ListIndex = 19 Then bai = "20" Picture1.Visible = False gtbien1.Text = "" gtbien2.Text = "" gtbien3.Text = "" Trang 58 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com gtbien4.Text = "" gtbien5.Text = "" gtbien6.Text = "" gtkq1.Text = "" gtkq2.Text = "" tinh.Visible = True tiep.Visible = True Label4.Visible = True nenbs.Visible = True nenkq.Visible = True Text1.Visible = True taptin = chuong & bai & ".jpg" Set cau = LoadPicture(taptin) Set debai = cau Imagedvkq1.Visible = False Imagedvbien3.Visible = False If taptin = "0219.jpg" Then bien1.FontName = "VNI-times" bien2.FontName = "VNI-times" bien3.FontName = "VNI-times" bien4.FontName = "VNI-times" bien5.FontName = "VNI-times" donvibien1.FontName = "symbol" donvibien2.FontName = "symbol" donvibien3.FontName = "VNI-times" donvibien4.FontName = "VNI-times" donvibien5.FontName = "symbol" kq1.FontName = "VNI-times" donvikq1.FontName = "VNI-times" kq2.FontName = "VNI-times" donvikq2.FontName = "VNI-times" bien1.Visible = True gtbien1.Visible = True donvibien1.Visible = True bien2.Visible = True gtbien2.Visible = True donvibien2.Visible = True bien3.Visible = True gtbien3.Visible = True Trang 59 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com donvibien3.Visible = True bien4.Visible = True gtbien4.Visible = True donvibien4.Visible = True bien5.Visible = True gtbien5.Visible = True donvibien5.Visible = True bien6.Visible = False gtbien6.Visible = False donvibien6.Visible = False kq1.Visible = True gtkq1.Visible = True donvikq1.Visible = True kq2.Visible = True gtkq2.Visible = True donvikq2.Visible = True bien1.Text = "r1 =" bien2.Text = "r2 =" bien3.Text = "E1 =" bien4.Text = "E2 =" bien5.Text = "R =" kq1.Text = "I =" kq2.Text = "U1 =" donvibien1.Text = "(W)" donvibien2.Text = "(W)" donvibien3.Text = "(V)" donvibien4.Text = "(V)" donvibien5.Text = "(W)" donvikq1.Text = "(A)" donvikq2.Text = "(V)" bien1.FontName = "VNI-times" bien2.FontName = "VNI-times" bien3.FontName = "VNI-times" bien4.FontName = "VNI-times" bien5.FontName = "VNI-times" donvibien1.FontName = "symbol" donvibien2.FontName = "symbol" donvibien3.FontName = "VNI-times" donvibien4.FontName = "VNI-times" Trang 60 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com donvibien5.FontName = "symbol" kq1.FontName = "VNI-times" donvikq1.FontName = "VNI-times" kq2.FontName = "VNI-times" donvikq2.FontName = "VNI-times" End If If taptin = "0219.jpg" Then If gtbien1.Text = "" Or gtbien2.Text = "" Or gtbien3.Text = "" Or gtbien4.Text = "" Or gtbien5.Text = "" Then tb = MsgBox(" "Thong Bao") Hay nhap day du so lieu ", vbCritical, Exit Sub End If If a3 < Then tb = MsgBox("E1 khong nhan gia tri < Xin hay nhap lai !", vbCritical, "Thong Bao") gtbien3.Text = "" Exit Sub End If If a4 < Then tb = MsgBox("E2 khong nhan gia tri < Xin hay nhap lai !", vbCritical, "Thong Bao") gtbien4.Text = "" Exit Sub End If If a1 < Then tb = MsgBox("r1 khong nhan gia tri < Xin hay nhap lai !", vbCritical, "Thong Bao") gtbien1.Text = "" Exit Sub End If If a2 < Then tb = MsgBox("r2 khong nhan gia tri < Xin hay nhap lai !", vbCritical, "Thong Bao") gtbien2.Text = "" Exit Sub End If If a5 < Then tb = MsgBox("R khong nhan gia tri < Xin hay nhap lai !", vbCritical, "Thong Bao") gtbien5.Text = "" Exit Sub Trang 61 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com End If If a1 = And a2 = And a5 = Then tb = MsgBox("r1, r2, R phai dong thoi khac Xin hay nhap lai !", vbCritical, "Thong Bao") gtbien1.Text = "" gtbien2.Text = "" gtbien5.Text = "" Exit Sub End If q = a3 + a4 F = a1 + a2 k1 = q / (a5 + F) gtkq1.Text = Val(k1) k2 = a3 - k1 * a1 gtkq2.Text = Val(k2) End If Đối với tập trình bày trên, ta thấy hai tập có số biến số khác Vì vậy, phải thiết kế cho phù hợp với cụ thể Thử nghiệm Sau hoàn thành phần mềm giới thiệu đến số sinh viên sư phạm Vật lí nhờ họ sử dụng phần mềm Với mục đích nhằm kiểm tra lại hoạt động chương trình để phát xem có gặp lỗi khác chạy chương trình hay khơng? Để chúng tơi kịp thời khắc phục Sau thử nghiệm phát thêm số lỗi như: - Người dùng thay đổi biến số giao diện - Khi chuyển từ sang khác biến số bị thay đổi font - Giao diện chương trình sử dụng máy tính có hình 14 inch giao diện lớn so với hình Sau chúng tơi tìm cách khắc phục khuyết điểm thực được: - Đối với lỗi người dùng thay đổi biến số chúng tơi khắc phục cách đặt thuộc tính Locked = True Textbox chứa biến số để khóa khơng cho người dùng thay đổi - Để khắc phục thay đổi font chuyển từ sang khác chúng tơi sử dụng thuộc tính FontName Textbox chặn hai đầu - Còn kích cỡ giao diện chúng tơi sử dụng máy tính hình 14 inch để thiết kế cho vừa với hình 14 inch, máy tính giao diện chương trình khơng bị khuất Trang 62 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Trang 63 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Kết Quả Đạt Được Qua thời gian nghiên cứu nhận thấy Visual Basic 6.0 phần mềm ứng dụng nhiều lĩnh vực giáo dục lĩnh vực lập trình Một ưu điểm việc lập trình mơi trường Visual Basic 6.0 chương trình biên dịch thành phần mềm hồn chỉnh, đóng gói gọn gàng chạy hầu hết máy tính sử dụng hệ điều hành Window với nhiều phiên khác từ window98 đến window xp máy có cấu hình thấp Điều tính đến trước tiến hành nghiên cứu lập trình Cần phải trình bày thêm kết hợp với phần mềm Install Creator, sản phẩm chuyển thành tập tin tự động cài đặt vào máy mà không cần can thiệp người dùng khiến cho phần mềm có đủ sức hấp dẫn phần mềm thương phẩm khác Sau thời gian nghiên cứu, chúng tơi hồn thành nhiệm vụ đặt như: Chọn lựa giải số tập tiêu biểu phần Điện học – chương trình Vật lí 11 Biên soạn phần mềm với tính năng: đưa tập vào phần mềm ô nhập liệu, sau nhập đầy đủ số liệu vào ô nhập liệu nhấn nút Tính kết tốn kết Với phần mềm giúp ích cho giáo viên việc soạn nhiều tập trắc nghiệm Vì với nội dung tốn này, giáo viên cần thay đổi số liệu nhấn nút Tính kết khơng cần phải lập cơng thức tính dùng máy tính tay để tính cho lần soạn Đặc điểm phần mềm tiết kiệm nhiều thời gian cho giáo viên Hạn Chế Của Phần Mềm Trang 64 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Tuy nhiên phần mềm hạn chế gây trở ngại cho người dùng là: khơng thể Copy hay Cut đề để Paste vào Word Mặc dù cố gắng chắn đề tài khơng thể tránh khỏi hạn chế Kính mong góp ý thầy bạn Trong tương lai tiếp tục nghiên cứu để hoàn thiện phần mềm như: chuẩn bị tập nhiều hơn, đa dạng phong phú đặc biệt cố gắng khắc phục vấn đề phần mềm chưa tương tác mang chuyển với phần mềm khác Nhằm để phục vụ tốt công việc soạn đề kiểm tra trắc nghiệm giáo viên Những Kiến Nghị Mong giúp đỡ Trường để phổ biến phần mềm đến nhiều người sử dụng nhằm mục đích thu hồi kết Để từ có hướng khắc phục nhược điểm phần mềm Mong Trường tạo điều kiện cho Sinh viên ngành sư phạm Vật lí khóa sau tiếp tục hồn thiện phần mềm mở rộng thêm chương trình Vật lí 12, cao chương trình Vật lí Đại học Nếu được, mong Trường đưa học phần Visual Basic trở thành học phần thức chuyên ngành sư phạm Vật lí TÀI LIỆU THAM KHẢO [1] Lương Duyên Bình; Vũ Quang; Nguyễn Xuân Chi; Bùi Quang Hân; Đồn Duy Hinh 2007 “Vật lí 11 bản”.Hà Nội: NXB giáo dục [2] Lương Duyên Bình; Vũ Quang; Nguyễn Xuân Chi; Bùi Quang Hân; Đoàn Duy Hinh 2007 “Bài Tập Vật lí 11 bản” Hà Nội: NXB giáo dục [3] Đặng Thế Khoa 2001 “Lập Trình Ứng Dụng Visual Basic 6.0” NXB Đại Học Quốc Gia TP Hồ Chí Minh [4] Vũ Thị Phát Minh; Châu Văn Tạo; Nguyễn Đăng Khoa; Võ Thị Mai Thuận 2007 “Giải Bài Tập Vật lí 11” TP Hồ Chí Minh: NXB Đại Học Quốc Gia TP Hồ Chí Minh [5] Võ Hiếu Nghĩa 2000 “Các Chương Trình Mẫu Visual Basic 6.0” NXB Thống Kê [6] Trần Thể 2005 “Phương Pháp Dạy Học Vật Lý ” Trường Đại Học An Giang [7] Trần Thể 2006 “Bài Tập Vật lí Phổ Thơng” Trường Đại Học An Giang [8] Lê Văn Thông 2007 “Phương Pháp Giải Tốn Vật lí 11 nâng cao” TP Hồ Chí Minh: NXB Đại Học Quốc Gia TP Hồ Chí Minh [9] Lê Văn Thơng 2007 “Ơn Luyện Bài Tập Vật lí 11 Chương Trình Cơ Bản” TP Hồ Chí Minh: NXB Đại Học Quốc Gia TP Hồ Chí Minh [10] Tác giả: iVB Group Phần Mềm Tin Học “Visual Basic Library – Version 2.4.0 ” Trang 65 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ( Email: ivb@caulacbovb.com ivbgroup@gmail.com; Website: www.caulacbovb.com www.vblib.caulacbovb.com ) Giảng viên hướng dẫn ThS Giang Văn Phúc Trang 66 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ... việc giải tập Vật lí 11 – phần Điện học góp phần nâng cao hiệu việc soạn thảo đề trắc nghiệm Đóng góp đề tài Đề tài: ? ?Biên soạn phần mềm - soạn thảo nhanh số tập Vật lí 11 - phần Điện học? ?? nghiên... thảo nhanh số tập Vật lí 11 - phần Điện học? ?? Mục đích nhiệm vụ nghiên cứu 2.1 Mục đích nghiên cứu Tạo phần mềm ? ?Soạn thảo nhanh số tập Vật lí 11 – phần Điện học? ?? hỗ trợ cho giáo viên biên soạn nhanh. .. cứu - Một số tập tiêu biểu sách giáo khoa sách tập Vật lí 11 -phần Điện học - Ngơn ngữ lập trình Visual Basic 3.2 Đối tượng nghiên cứu Phần mềm – soạn thảo nhanh số tập Vật lí 11 – phần Điện học