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

Trang 1 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, ngồi 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 tố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 - Đá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 hoà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 Trang 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 q 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à 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 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 Lực tương tác điện tích điểm đặt điện mơi đồng tính Hằng số điện mơi 3.1) Điện môi môi trường cách điện 3.2) Khi đặt điện tích điểm điện mơi đồng tính lực tương tác chúng yếu ε lần so với đặt chúng chân không 3.3) Công thức định luật Cu-lông trường hợp là: qq F=k ε.r 3.4) Vectơ lực tương tác hai điện tích điểm có: - Điểm đặt điện tích - Phương trùng với phương đường thẳng qua điểm đặt hai điện tích - Chiều: + Hướng xa hai điện tích chúng dấu + Hướng từ điện tích đến điện tích chúng trái dấu Bài : Thuyết Electron Định Luật Bảo Tồn Điện Tích Thuyết electron 1.1) Cấu tạo nguyên tử phương diện điện Điện tích nguyên tố - Điện tích nguyên tố: Điện tích nhỏ tồn tự nhiên, có trị số e = 1,6.10-19 C - Electron: hạt sơ cấp mang điện tích âm, có điện tích - 1,6.10-19 C khối lượng 9,1.10-31 kg Prôton: hạt sơ cấp mang điện tích dương, có điện tích 1,6.10-19 C khối lượng 1,67.10-27 kg - Nơtron: khơng mang điện có khối lượng xấp xỉ khối lượng prơton - Ngun tử: có cấu tạo gồm hạt nhân mang điện dương nằm trung tâm electron mang điện tích âm chuyển động xung quanh Hạt nhân có cấu tạo gồm hai loại hạt nơtron không mang điện prôton mang điện dương 1.2) Thuyết electron Thuyết electron thuyết dựa vào cư trú di chuyển electron để giải thích tượng điện tính chất điện vật Vật (chất) dẫn điện vật (chất) cách điện - Điện tích tự điện tích di chuyển từ điểm đến điểm khác phạm vi thể tích vật - Vật (chất) dẫn điện vật (chất) có chứa điện tích tự - Vật (chất) cách điện vật (chất) khơng chứa điện tích tự Trang Sự nhiễm điện - Nhiễm điện tiếp xúc là: cho vật chưa nhiễm điện tiếp xúc với vật nhiễm điện bị nhiễm điện dấu với vật - Nhiễm điện hưởng ứng là: đưa cầu A nhiễm điện dương lại gần đầu M kim loại MN trung hịa điện ta thấy đầu M nhiễm điện âm, đầu N nhiễm điện dương Đinh luật bảo tồn điện tích Trong hệ lập điện, tổng đại số điện tích không đổi Bài : Điện Trường Và Cường Độ Điện Trường Đường Sức Điện Định nghĩa điện trường Điện trường dạng vật chất bao quanh điện tích gắn liền với điện tích Điện trường tác dụng lực điện lên điện tích khác đặt Cường độ điện trường 2.1) Định nghĩa Cường độ điện trường điểm đại lượng đặc trưng cho tác dụng lực điện trường điểm Nó xác định thương số độ lớn lực điện F tác dụng lên điện tích thử q (dương) đặt điểm độ lớn q E= F q Đơn vị đo cường độ điện trường : V/m 2.2) Vectơ cường độ điện trường Cường độ điện trường biểu diễn vectơ gọi vectơ cường độ điện r r F trường E= q Vectơ cường độ điện trường có phương chiều trùng với phương chiều lực điện tác dụng lên điện tích thử q dương 2.3) Cường độ điện trường điện tích điểm Cơng thức tính cường độ điện trường điện tích điểm Q chân không E= Q F =k q r 2.4) Nguyên lí chồng chất điện trường r r Các điện trường Ε1, Ε2 đồng thời tác dụng lực điện lên điện tích q cách độc lập r r r r với điện tích q chịu tác dụng điện trường tổng hợp E : Ε = Ε1 + Ε Trang Đường sức điện 3.1) Định nghĩa đường sức điện Đường sức điện đường mà tiếp tuyến điểm giá vectơ cường độ điện trường điểm 3.2) Các đặc điểm đường sức điện - Qua điểm điện trường có đường sức điện có mà thơi - Đường sức điện đường có hướng - Đường sức điện điện trường tĩnh điện đường không khép kín Nó từ điện tích dương kết thúc điện tích âm - Ta qui ước: nơi điện trường lớn đường sức điện mau, nơi điện trường nhỏ đường sức điện thưa 3.3) Điện trường Điện trường điện trường mà vectơ cường độ điện trường điểm có phương, chiều độ lớn; đường sức điện đường thẳng song song cách Bài : Công Của Lực Điện Công lực điện điện trường Công lực điện di chuyển điện tích điện trường từ M đến N AMN = q.E.d, không phụ thuộc vào hình dạng đường mà phụ thuộc vào vị trí điểm đầu M điểm cuối N đường đi: AMN = q.E.d Công lực điện di chuyển điện tích điện trường Cơng lực điện di chuyển điện tích q từ điểm M đến điểm N điện trường khơng phụ thuộc hình dạng đường từ M đến N mà phụ thuộc vào vị trí M N Thế điện tích điện trường 3.1) Khái niệm điện tích điện trường Thế điện tích q điện trường đặc trưng cho khả sinh công điện trường đặt điện tích q điểm mà ta xét điện trường WM = AM ∞ = q.E.d 3.2) Sự phụ thuộc vào điện tích q Thế điện tích M tỉ lệ thuận với q: WM = AM ∞ = VM q Trong VM hệ số tỉ lệ 3.3) Công lực điện độ giảm điện tích điện trường Khi điện tích q di chuyển từ điểm M đến điểm N điện trường cơng mà lực điện tác dụng lên điện tích sinh độ giảm điện tích q điện trường AMN = WM - WN Trang Bài : Điện Thế Hiệu Điện Thế Điện Điện điểm M điện trường đại lượng đặc trưng riêng cho điện trường phương diện tạo đặt điện tích q Nó xác định thương số công lực điện tác dụng lên q q di chuyển từ M vô cực độ A VM = M∞ lớn q q Đơn vị điện vơn, kí hiệu: V Hiệu Điện Thế 2.1) Định nghĩa Hiệu điện hai điểm M, N điện trường đặc trưng cho khả sinh công điện trường di chuyển điện tích từ M đến N Nó xác định thương số cơng lực điện tác dụng lên điện tích q di chuyển từ A M đến N độ lớn q U MN = MN q 2.2) Hệ thức liên hệ hiệu điện cường độ điện trường Xét điện trường có vectơ cường độ điện trường đều, lực điện làm di chuyển điện tích q > dọc theo đường sức đoạn d hai điểm M N Liên hệ cường độ điện trường E hiệu điện U UMN = E.d Với d khoảng cách hai điểm đường sức điện trường Hay tổng quát là: E= U d Đơn vị cường độ điện trường là: V/m Bài : Tụ Điện Tụ điện Tụ điện hệ hai vật dẫn đặt gần ngăn cách lớp cách điện Điện tích hai độ lớn trái dấu Điện dung tụ điện - Điện dung tụ điện đại lượng đặc trưng cho khả tích điện tụ điện hiệu điện định Nó xác định thương số điện tích tụ Q điện hiệu điện hai nó: Q = CU hay C = U - Đơn vị điện dung Fara kí hiệu F - Năng lượng tụ điện tích điện: W = Q2 Q.U C.U = = 2.C 2 Trang 10 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 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 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 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 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 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 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 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 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 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 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 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 hồn thành phần mềm chúng tơi 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 q 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 Trang 63 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 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 ( 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