Mô phỏng thí nghiệm vật lí bằng visual basic

Tr-ờng đại học vinh Khoa vật lí Luận văn tốt nghiƯp M« pháng thÝ nghiƯm vËt lÝ b»ng visual Basic Cán h-ớng dẫn: Ts Võ Thanh C-ơng Sinh viên thùc hiƯn: Ngun ThÞ Loan 45A Khoa vËt lÝ Vinh 05/2008 Mơc lơc Ch-¬ng I 1.1 1.2 1.2.3 1.2.4 1.2.1 1.2.2 1.2.7 1.2.8 1.2.9 1.3 1.3.1 1.3.2 1.3.3 1.4 1.4.1 1.4.2 1.4.3 1.4.4 1.4.5 1.4.6 1.4.7 1.4.8 1.5 1.5.1 1.5.2 1.5.3 1.4.4 Phần mở đầu Tổng quan Visual Basic 1.1 Visual Basic gì? IntegrateDevelopment Environment (IDE) VB6 Menu Bar 4 ToolBar ((Debug, Edit, form Editor, Standard) ToolBox Project Explorer Properties window Form Designer Immediate Window View Code button View form button ViÕt ch-¬ng trình Nhận trợ giúp làm việc Sắp đặt vật dụng lên Form Các Control Form Viết Code Điều khiển thứ tự xử lý dòng code Dùng IF THE statement Dùng IF THEN ELSE statement Dïng SELECT CASE statement Dïng FOR statement Dïng DO WHILE Loop statement Dïng Function Public Sub vµ Function Đồ hoạ visual Basic Màu (color) Method PSet Method Line Method Circle 5 6 7 8 11 12 13 14 15 16 17 18 19 19 19 19 21 23 Ví dụ minh hoạ: Kết luận ch-ơng I Các b-ớc thiết kế phần mềm dạy học Visual Basic 26 29 2.1 Trình tự thiết kế phần mềm dạy học 29 2.2 Ví dụ minh hoạ 30 2.2.1 Bài “ vËt bÞ nÐm” (SGK líp 10) 30 2.2.2 Tãm tắt lí thuyết 31 2.2.3 ý t-ởng mô 32 2.2.4 Dự án vật bị ném 33 2.2.5 KÕt ln ch-¬ng II 40 jj Ch-¬ng III Giíi thiƯu sản phẩm mô 41 3.1 Mục tiêu giảng 41 3.2 Tiến trình dạy học 42 3.3 Yêu cầu mô dạy 42 3.4 Mục tiêu thiết kế 42 3.5 Các vấn đề cần mô 42 3.6 Xây dựng phần mềm 43 3.7 H-ớng dẫn sử dụng 47 3.8 Kết hợp phần mềm mô vào giảng 48 Kết luận ch-ơng III 51 1.6 ChCh-ơng II Kết Luận 52 Tài liệu tham khảo 53 Phụ lục I: Code Vật bị ném 54 Phụ lục II: Giáo án Va chạm đàn hồi không đàn 55 hồi Phụ lục III: Code Form3 dự án Va chạm hai vật 61 Lời cảm ơn Đầu tiên em chân thành cảm ơn đến Ban chủ nhiệm khoa Vật Lý đà tạo điều kiện cho em đ-ợc làm quen với việc nghiên cứu khoa học Cám ơn Thầy Cô giáo Khoa đà bồi d-ỡng kiến thức cho em thêi gian häc tËp ë khoa VËt lý §Ĩ hoàn thành Luận văn em xin bày tỏ lòng biết ơn tới Thầy giáo h-ớng dẫn TS Võ Thanh C-ơng đà giúp em có đ-ợc ý t-ởng luận văn đà giúp em hoàn thành luận văn Cũng qua em xin chân thành cảm ơn Thầy giáo phản biện ThS Mai Văn L-u ý kiến đóng góp bổ ích cho luận văn Em xin chân thành cảm ơn Thầy Cô giáo Hội đồng bảo vệ ý kiến góp ý cho luận văn Xin chân thành cảm ơn bạn sinh viên khoa Vật lý đà động viên cổ vũ em hoàn thành luận văn Tuy đà cố nhiều gắng nh-ng lần làm đề tài chắn Luận văn không tránh khỏi thiếu sót, em mong đ-ợc góp ý kiến thầy cô giáo bạn Xin chân thành cảm ơn! Tài liệu tham khảo Đậu Quang Tuấn, Lập trình sở liệu Visual Bassic, NXB Trẻ Nguyễn Thiên Bằng, Ph-ơng Lan, B-ớc đầu học VB6 qua ứng dụng Form , NXB Lao động Trần Quốc Bình, Học Visual Basic 21 Ngày, NXB Cà mau C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an VËt lÝ líp 10 NXBGD.Phần mở đầu Vật lí học môn khoa học thực nghiệm Kiến thức học sinh đ-ợc hình thành từ việc quan sát vật, t-ợng Tuy nhiên, tự nhiên, có trình xảy nhanh hay chậm mà mắt th-ờng khó quan sát đ-ợc, gây khó khăn việc nghiên cứu để tìm quy luật chúng Các trình nh- thế, ch-ơng trình vật lí phổ thông kể nh-: chuyển động học, chuyển động điện tích vvVới trình này, giải pháp hỗ trợ giúp ta quan sát đ-ợc dễ dàng sử dụng máy vi tính kết hợp với phần mềm dạy học để mô chúng Khi mô t-ợng đó, ta điều chỉnh mức độ xảy trình t-ơng tác làm cho trình diễn nhanh chậm hay dừng lại giai đoạn Việc sử dụng phần mềm dạy học kết hợp với máy vi tính dạy học nói chung dạy học vật lí nói riêng phổ thông đà trở nên phổ dụng phát huy đ-ợc nhiều -u Vấn đề khai thác phần mềm để xây dựng thí nghiệm phục vụ dạy học không điều mẻ Hiện nay, mạng Intenet, nguồn t- liệu phong phú, thoải mái chọn lựa mà không nhiều thời gian Tuy nhiên, không giáo viên đà gặp khó khăn sử dụng ch-ơng trình đ-ợc viết sẵn vào thực tiễn giảng dạy Nguyên nhân t- logic ng-ời viết ch-ơng trình phần mềm ng-ời giáo viên vật lí sử dụng khác Do đó, giảng ch-a phù hợp với nhu cầu nhận thức, ch-a hài hoà với tâm lí học sinh, không bám sát ch-ơng trình điều khó tránh khỏi Vấn đề đặt ra, giáo viên, ng-ời trực tiếp tiếp xúc hàng ngày với học sinh, gần gũi, đánh giá đ-ợc khả nhận thức học sinh lại không tự tìm hiểu để tạo ch-ơng trình ứng dụng cho riêng Lúc đó, ta đ-a vào giảng kiến thức, ý t-ởng sáng tạo cđa m×nh Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an cho phù hợp với mong muốn thân, phù hợp với tầm nhận thức học sinh Nếu đ-ợc nh- vậy, giảng với phần mềm tự viết giúp ng-ời giáo viên hoàn toàn làm chủ đ-ợc giảng đứng bục giảng Bài giảng uyển chuyển, sâu, sát với đối t-ợng học sinh qua lần dạy giảng đ-ợc nâng cấp hoàn thiện Đây giải pháp hữu hiệu giúp ng-ời dạy khai thác hiệu ph-ơng tiện dạy học đại Đó lí đà chọn đề tài khoá luận Mô thÝ nghiÖm vËt lÝ b»ng Visual Basic.” Khãa luËn đặt mục tiêu nh- sau: Sử dụng đ-ợc phần ngôn ngữ lập trình Visual Basic Nghiên cứu lí thuyết giảng áp dụng đ-ợc phần mềm mô Xây dựng đ-ợc b-ớc thiết kế phần mềm mô ngôn ngữ Visual Basic B-ớc đầu tự xây dựng sản phẩm, đ-a vào thử nghiệm phổ thông lên lớp kiểm tra đánh giá nhận thức học sinh lớp Với mục đích trên, phần mở đầu kết luận, khoá luận bao gồm ch-ơng: Ch-ơng I: Tổng quan Visual Basic Trong ch-ơng trình bày vấn đề sở phần mềm Visual Basic nh-: Modul, project, code, cách khai báo hàm biến số, công cụ vv đây, hai vấn đề đ-ợc trình bày chi tiết ph-ơng thức đồ hoạ cách tạo đếm thời gian Visual - hai công cụ để thiết kế phần mềm mô Ch-ơng II: Các b-ớc thiết kế phần mềm dạy học Visual Basic Ch-ơng trình bày vấn đề thiết kế phần mềm dạy học nh-: chuẩn bị nội dung vật lí, khả áp dụng kĩ thuật lập trình Cụ thể, ch-ơng đà chọn toán chuyển động Parabol víi Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an nhiÒu Form phục vụ nhiều chức khác nh-: xem chuyển động, vẽ quỹ đạo, đo đại l-ợng đặc tr-ng cho chuyển động thời điểm bất kì, vị trí Ch-ơng III: Một sản phẩm phần mềm mô phỏng: Trong ch-ơng này, giới thiệu phần mềm mô hoàn chỉnh đ-a vào giảng dạy phổ thông Cụ thể đ-ợc áp dụng vào dạy học bài: Va chạm đàn hồi không đàn hồi (vật lí lớp 10 nâng cao) Sau phân tích lôgíc giảng, kết hợp với thực tế giảng dạy phổ thông nhận thấy cần thiết phải có hỗ trợ thí nghiệm mô Ngoài ch-ơng, mạnh dạn khai thác thêm số -u điểm phần mềm tự viết nh- kiểm tra đánh giá mức độ tiếp thu học sinh theo ph-ơng pháp mới, gây hứng thú phát huy tính tích cùc häc tËp cđa häc sinh §Ĩ thùc hiƯn đề tài này, có nhiều công việc phải làm nh-: tù häc cã h-íng dÉn phÇn mỊm Visual Basic, nghiên cứu phần mềm có sẵn nhđi thực tế phổ thông Do phần mềm ®-a kho¸ luËn chØ cã tÝnh chÊt minh hoạ cho ý t-ởng Phần mềm mô phần giáo án Sau dạy có thời gian đ-ợc cọ xát nhiều với thực tiễn, hy vọng đề tài tiếp tục đ-ợc triển khai nghiên cứu, nâng cấp có nhiều sản phẩm có chất l-ợng hoàn hảo Tuy nhiên phạm vi đó, nghĩ kết đạt đ-ợc khoá luận tài liệu tham khảo bổ ích cho bạn sinh viên có ý định nghiên cứu theo h-ớng Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Ch-¬ng I Tỉng quan vỊ visual basic 1.1 Visual Basic gì? Phần "Visual" đề cập đến ph-ơng pháp đ-ợc sử dụng để tạo giao diện đồ họa ng-ời dùng (Graphical User Interface hay viết tắc GUI) Có sẵn phận hình ảnh, gọi controls, ta đặt vị trí định đặc tính chúng khung hình, gọi form Nếu đà sử dụng ch-ơng trình vẽ chẳng hạn nh- Paint, ta đà có sẵn kỹ cần thiết để tạo GUI choVB6 Phần "Basic" đề cập đến ngôn ngữ BASIC (Beginners All-Purpose Symbolic Instruction Code), ngôn ngữ lập trình đơn giản, dễ học Visual Basic đà đ-ợc lấy từ MSBasic, Bill Gates viÕt tõ thêi dïng cho m¸y tÝnh bits 8080 hay Z80 HiƯn nã chøa ®Õn hàng trăm câu lệnh (commands), hàm (functions) từ khóa (keywords) Rất nhiều commands, functions liên hệ trực tiếp đến MSWindows GUI Những ng-ời bắt đầu viết ch-ơng trình cách học vài commands, functions keywords Khả ngôn ngữ cho phép ng-ời chuyên nghiệp hoàn thành điều nhờ sử dụng ngôn ngữ lập trình MSWindows khác Ng-ời mang lại phần "Visual" cho VB ông Alan Cooper Ông đà gói môi tr-ờng hoạt động Basic phạm vi dễ hiểu, dễ dùng, không cần phải ý đến tinh xảo MSWindows, nh-ng dùng chức MSWindows cách hiệu Dù cho mục đích - Tạo tiện ích nhỏ cho riêng mình, cho nhóm, cho nơi công tác hay cần phân bố ch-ơng trình ứng dụng rộng rÃi giới qua Internet, VB6 có công cụ lập trình mà cần 1.2 Integrate Development Environment (IDE) VB6 cã nhiỊu cưa sỉ (windows), scrollbars, v.v vµ n»m chồng lên hộp thoại New Project VB6 cho ta chọn nhiều loại công trình Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Chän Standard EXE, sau ảnh giao diện: IDE cđa VB6 bao gåm c¸c u tè sau: 1.2.1 Menu Bar Thanh công cụ chứa đầy đủ commands mà ta sử dụng để làm việc với VB6, kể menu để truy cập chức đặc biệt dành cho việc lập trình chẳng hạn nh- Project, Format, hc Debug Trong Menu Add-Ins cã Add-Ins Manager cho phÐp ta gắn thêm menu nhiệm ý để chạy ch-ơng trình lợi ích cho việc lập trình H.1.2 1.2.2 Toolbars (Debug, Edit, form Editor, Standard) C¸c toolbars cã hình biểu t-ợng (icons) cho phép ta click để thực công việc t-ơng đ-ơng với dùng menu command nhanh tiện 1.2.3 Toolbox Đây hộp đồ nghề với công cụ, gọi Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an controls, mµ ta cã thể đặt lên form lúc thiết kế (design) NÕu Toolbox biÕn mÊt, ta cã thĨ hiĨn thÞ (display) trở lại cách dùng menu command View/Toolbox Ta khiến toolbox display nhiều controls cách chän Components tõ context menu (chän Toolbox råi bÊm nót phải mouse để display context menu) hay dùng menu command Project/Components Ngoài việc trình bày Toolbox mặc định, ta tạo cách trình bày khác cách chọn Add Tab từ context menu bổ sung control cho tab 1.2.4 Project Explorer Sẽ liệt kê forms modules project hành ch-ơng trình Một project tập hợp files mà ta sử dụng để tạo trình ứng dụng Tức lµ, VB6, nãi viÕt mét program cã nghÜa triển khai project 1.2.5 Properties window Liệt kê đặc tính forms controls đ-ợc chọn Một property đặc tính object chẳng hạn nh- size, caption, color Khi sửa đổi property ta sÏ thÊy hiƯu qu¶ ngay, thÝ dơ thay ®ỉi property Font cđa mét Label sÏ thÊy Label Êy đ-ợc display Font chữ Khi chọn Property control hay form Properties window, phía bên phải chỗ value property display ba chấm ( .) hay mét tam gi¸c chÜa xuèng BÊm vào để hiển thị hộp thoại (dialog) cho ta chọn giá trị (value).Thí dụ d-ới dialog ®Ĩ chän mµu cho property ForeColor cđa control Label1 1.2.6 Form Designer Dùng để thiết kế giao diện lập trình Ta bổ sung controls, đồ họa (graphics), hình ảnh Form để tạo ma sát mà ta muốn Mỗi form Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an H.3.6 Hoạt động 6: Trắc nghiệm kiến thức Chúng ta tiến hành trắc nghiệm đánh giá việc cho HS nhập thông số với giá trị (có ý nghĩa vật lí), yêu cầu HS tính giá trị vận tốc sau va chạm, sau tự đối chiếu với kết chạy phần mềm chọn hình thức trắc nghiệm Đúng Sai nh- d-ới đây: Trong danh sách combox, ta nhập ngân hàng câu hỏi Khi combox xuất hiện, giáo viên chọn câu hỏi, label3 form, xuất câu hỏi đà chọn Sau suy nghĩ, học sinh trả lời, giáo viên nhập kết vào TetxBox.kết Máy kiểm tra cho kết Để phần mềm sống động, thân thiện với học sinh, ta nên chèn số hình ảnh ngộ nghĩnh chọn cách trang trí, phối hợp màu sắc cho phù hỵp Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 54 C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an KÕt luËn ch-ơng Trong ch-ơng này, đà giới thiệu phần mềm hoàn chỉnh áp dụng vào dạy học thực tiễn Tuy nhiên ph-ơng án thiết kế mang tính chất minh hoạ Phần mềm hoàn toàn mở, giáo viên tự bổ sung để hoàn thiện Với quan tâm đến vấn đề này, lực thân niềm đam mê sáng tạo, chắn đề xuất đ-ợc ph-ơng án hiệu Hy vọng với say mê sáng tạo giáo viên sữ hoàn thành phần mềm cách hoàn chỉnh kết luËn Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 55 C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Luận văn đà đạt đ-ợc kết sau: Nắm đ-ợc số kiến thức lập trình với phần mềm Visual Basic Đặc biệt kiến thức đồ hoạ vµ sư dơng biÕn timer cđa Window  TËp trung nghiªn cøu kÜ mét sè kiÕn thøc vËt lÝ phỉ thông, phát đ-ợc tr-ờng hợp cần thiết phải có hỗ trợ thí nghiệm mô Nắm đ-ợc b-ớc thiết kế phần mềm mô ngôn ngữ Visual Basic Đà đ-a đ-ợc quy trình tạo ảnh động D-ới h-ớng dẫn cán h-ớng dẫn, đà thực hành thiết kế thành công phần mềm mô chuyển động vật bị ném Đặc biệt đà xây dựng đ-ợc phần mềm hoàn thiện, ứng dụng vào dạy học vật lí phổ thông- Va chạm đàn hồi không đàn hồi ( Vật lí 10- Nâng cao) B-ớc đầu đ-a viết đ-ợc phần mềm trắc nghiƯm cho häc sinh Do q thêi gian h¹n hĐp b-ớc đầu tập nghiên cứu khoa học nên luận văn tránh khỏi thiếu sót Tuy nhiên đ-ợc đầu t- thêm, hi vọng luận văn có nhiều đóng góp cho giáo viên vật lí phổ thông dạy học vật lí, khắc phục khó khăn tình trạng dạy chay, học chay Đề tài nhiều h-ớng đầu t- nâng cấp mở rộng nghiên cứu, mong đ-ợc quan tâm góp ý quý thầy cô bạn sinh viên Phụ lục I Code dù ¸n vËt bi nÐm Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 56 C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Private Sub Option1_Click() Form1.Hide Form2.Show End Sub Private Sub Option2_Click() Form1.Hide Form3.Show End Sub Private Sub Option3_Click() Unload Me End Sub Form2 Dim t1, t2 ,X, Y, t3, t4, t5, h1, y2, x3, alpha, V As Currency Public Sub veDT(ByVal X As Integer, ByVal Y As Integer, color As Long) Form2.Picture1.FillStyle = Form2.Picture1.FillColor = color Form2.Picture1.Circle (X, Y), 60, vbCyan End Sub Private Sub Command1_Click() Form2.Hide Form1.Show Unload Me End Sub Private Sub Option1_Click() t1 = Timer Timer1.Enabled = True End Sub Private Sub Option2_Click() Form2.Hide Form1.Show End Sub Private Sub Timer1_Timer() h1 = Form1.Txth.Text alpha = CCur(Form1.Txtalpha.Text * 3.1416 / 180) V = Form1.TxtV.Text t4 = t3 - 0.06 t2 = Timer - t1 Y = h1 + V * Sin(alpha) * t2 - 4.9 * t2 ^ Y1 = 6000 - Y * 200 x3 = V * Cos(alpha) * t2 X1 = 360 + x3 * 800 Call veDT(x2, y2, vbCyan) Call veDT(X1, Y1, vbBlack) x2 = X1 Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 57 C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an y2 = Y1 If Y = Or Y < Then Timer1.Enabled = False End Sub Form3 Dim t1, t2,X, Y, t3, t4, t5, h1,V, x2,, y2, x3, alpha As Currency Public Sub veDT(ByVal X As Integer, ByVal Y As Integer, color As Long) Form3.Picture1.FillStyle = Form3.Picture1.FillColor = color Form3.Picture1.Circle (X, Y), 20, vbBlack End Sub Private Sub Command1_Click() Form3.Hide Form1.Show Unload Me End Sub Private Sub Option1_Click() t1 = Timer Timer1.Enabled = True End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = Then Form3.Text1.Text = X Form3.Hide Form4.Show End If End Sub Private Sub Option2_Click() Form2.Hide Form1.Show End Sub Private Sub Timer1_Timer() h1 = Form1.Txth.Text alpha = CCur(Form1.Txtalpha.Text * 3.1416 / 180) V = Form1.TxtV.Text t4 = t3 - 0.06 t2 = Timer - t1 Y = h1 + V * Sin(alpha) * t2 - 4.9 * t2 ^ Y1 = 6000 - Y * 200 x3 = V * Cos(alpha) * t2 X1 = x3 * 800 Call veDT(X1, Y1, vbBlack) If Y = Or Y < Then Timer1.Enabled = False End Sub Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 58 C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Form4 Private Sub Command1_Click() h41 = Form1.Txth.Text v41 = Form1.TxtV.Text alpha41 = Form1.Txtalpha.Text alpha41 = alpha41 * 3.1416 / 180 t = Form3.Text1.Text t = t / (v41 * Cos(alpha41) * 800) x41 = v41 * Cos(alpha41) * t y41 = h41 + v41 * Sin(alpha41) * t - 4.9 * t ^ If Combo1.ListIndex = Then Form4.Label2.Caption = Combo1.Text Form4.Label3.Caption = "=" Form4.Label4.Caption = t Form4.Label5.Caption = "(s)" End If If Combo1.ListIndex = Then Form4.Label2.Caption = Combo1.Text Form4.Label3.Caption = "=" Form4.Label4.Caption = x41 Form4.Label5.Caption = "m" End If If Combo1.ListIndex = Then Form4.Label2.Caption = Combo1.Text Form4.Label3.Caption = "=" Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 59 C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Form4.Label4.Caption = y41 Form4.Label5.Caption = "(m)" End If t21 = Timer Timer1.Enabled = True End Sub Private Sub Command2_Click() Form4.Hide Form1.Show Unload Me End Sub Private Sub Timer1_Timer() t22 = Timer - t21 Form4.AniGif1.LoadFile ("c:\LC\May_10\10a.gif"), False If t22 > 1.5 Then Timer1.Enabled = False End If End Sub Phô lôc II Giáo án Va chạm đàn hồi không ®µn håi” Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 60 C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Ho¹t động HS Hỗ trợ GV Hoạt động 1: Kiểm tra cũ Chuẩn bị kiến thức xuất phát Nội dung Trong điều kiện nào, hệ đ-ợc xem hệ kín Một hệ đ-ợc xem hệ ? kín khi: *Không có ngoại lực tác dụng lên hệ ngoại lực tác dụng lên hệ triệt tiêu lÉn * Néi lùc lín h¬n rÊt Trong hƯ kín, đại l-ợng nhiều so với ngoại lực( đ-ợc bảo toàn ? bỏ qua ngoại lực) Đặt vÊn ®Ị : Chóng ta Trong hƯ kÝn, ®éng sÏ vận dụng định luật l-ợng đ-ợc bảo toàn bảo toàn để khảo sát t-ợng th-ờng xuyên xảy sống Bài 38 Va chạm GV cho trình chiếu đàn hồi không đàn số hình ảnh va chạm hồi Hoạt động 2: Tìm hiểu chung t-ợng va chạm Phân biệt đ-ợc va chạm đàn hồi va chạm 1- Phân loại va chạm mềm a) Đặc điểm HS làm việc với SGK, Hệ hai vật va chạm có t-ợng va chạm tìm hiểu thông tin đ-ợc coi hệ kín hay b) Phân loại va chạm không? Tại ? * Va chạm đàn hồi Trả lời: Hệ hai vật va * Va chạm mềm chạm đ-ợc coi hệ kín thời gian va chạm Vì khoảng Có thể áp dụng định thời gian ngắn , nội luật để khảo sát lực lớn nhiều so t-ợng đó? với ngoại lực Ta áp dụng định luật bảo toàn động l-ợng để khảo sát Sau va chạm ,trạng thái vật thay đổi nh- nào? HS tiếp nhận vấn ®Ò Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 61 C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hoạt động3 : Khảo sát 2-Va chạm đàn hồi va chạm đàn hồi trực GV trình chiếu hình ảnh trực diện diện va chạm đàn hồi trực diện a) Khái niệm (không kÌm sè liƯu), cho HS tiÕp thu HS rót khái niệm Với va chạm đàn hồi trực diện, ta vận dụng định luật bảo toàn để khảo sát? Trả lời: Còn áp dụng định luật bảo toàn GV trình chiếu hình ảnh va chạm kèm theo số liệu a) Khảo sát bảo toàn động năng( để HS khảo sát định cầu khối l-ợng mức năng) l-ợng m1,m2 chuyển động với vận tốc v1,v2 đến va chạm đàn hồi xuyên tâm ( trực diện) xác định vận tốc v1 , v2 cầu sau va chạm b) Kết (m m2 )v1 2m2 v Định h-íng: v1'  Rót hƯ thøc g× tõ Trả lời: m1 m2 Động l-ợng hệ định luật bảo toàn động đ-ợc bảo toàn nên ta có l-ỵng? (m2  m1) v2  2m1v1 v2'  hƯ thøc : m1  m2 m1v1  m2 v2  m v  m v ' 1 ' 2 Động đ-ợc bảo toàn thể qua hệ thức Vì động không ? thay đổi nên ta có : Biến đổi hệ thức đó, tìm kÕt qu¶ m1v12 m2 v22 m1v1' m2 v' 22    2 2 VËn tèc vật thay đổi nh- tr-êng hỵp sau : * m1= m2 * m1 >> m2 vµ v1= HS suy nghÜ, thùc hiƯn nhiƯm vụ GV cho trình chiếu hình ảnh tr-ờng hợp t-ơng Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 62 * Các tr-ờng hợp riêng +) m1 =m2 v 1' = v v '2 = v +) m1 >> m2, v1=0 th× v 1' = vµ v '2 = - v2 C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an øng, kiĨm tra kÕt qu¶ häc sinh Hoạt động GV trình chiếu hình ảnh, Khảo sát va chạm HS rút khái niệm va chạm mềm mềm 1- Va chạm mềm a)Khái niệm HS thực nhiệm Định h-ớng: b)Khảo sát vụ: Vận tốc tr-ớc sau va Cho toán : Theo định luật bảo chạm liên hệ với hệ *Tr-ớc va chạm: toàn động l-ợng ta có: thức nào? Viên đạn khối mv (M m)V suy Xác định động hệ l-ợng m, vận tốc v tr-ớc sau va chạm? Thùng cát khối mv V= l-ợng M, đứng yên M m * Sau va chạm: Động hệ Rút kết nhận xét Hệ thùng cát + tr-ớc sau va chạm : viên đạn có vận tốc V mv Wd HÃy tính độ biến thiên động mv Wd ( ) hệ đạn thùng cát M m tr-ớc sau va Độ biến thiên động chạm? hệ Wd Wd  Wd1   c) KÕt qu¶ M Wd  M m NhËn xÐt : §é biến thiên động giảm, chứng tỏ có phần l-ợng đà chuyển hoá thành dạng l-ợng khác GV cho HS làm tập 4-Bài tập vận dụng Hoạt động mẫu SGK để ghi nhớ * Ph-ơng pháp Làm số tập công thức rèn luyện kĩ giải: va chạm - Chọn hệ trục toạ Ra thêm số tập độ t-ơng tự - Tính chất va chạm ( đàn håi trùc diƯn hay va ch¹m mỊm) + ) NÕu va chạm đàn hồi trực diện, áp dụng công thức (38.1) Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 63 C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an +) Nªó va chạm mềm, áp dụng công thức (38.2) Hoạt động Trắc nghiệm đánh giá GV cho HS tự chọn Mở rộng toán thông số tính toán kết Sau xử lí visual để kiểm tra kết HS Hoạt động : Giao GV bµi tËp vỊ nhµ vµ nhiƯm vụ nhà định h-ớng nhiệm vụ học tập cho bµi sau * Bµi tËp vỊ nhµ Bµi 1,3 SGK *ôn tập chuyển động biến đổi chuyển động ném xiên Phụ lục Code Form3 dự án Va chạm hai vật Private Sub Command1_Click() x7 = 100 x8 = 14000 x5 = 3000 x6 = 9000 t1 = Timer r1 = VC1.TxtKL1.Text r2 = VC1.TxtKL2.Text r3 = r1 ^ (1 / 3) * 100 r4 = r2 ^ (1 / 3) * 100 v3(1) = VC1.TxtV1.Text * 100 v4(1) = -VC1.TxtV2 * 100 t1 = Timer Timer1.Enabled = True End Sub Sub VDT(ByVal X As Currency, ByVal Y As Currency, r As Currency, color As Long) VC2.Picture1.FillColor = color VC2.Picture1.FillStyle = VC2.Picture1.Circle (X, 2000), r, vbCyan End Sub Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 64 C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Private Sub Command2_Click() VC2.Hide VC3.Show VC3.AniGif1.LoadFile ("C:\9_May\3a.gif"), False End Sub Private Sub Command3_Click() VC2.Hide VC1.Show Unload Me End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = Then VC2.Image1.Left = X - 1140 VC2.Image1.Top = 1100 Call VDT(X, 2000, 300, vbYellow) x7 = X + r3 + 290 Else: Button = VC2.Image2.Left = X VC2.Image2.Top = 1000 Call VDT(X + 300, 2000, 300, vbMagenta) x8 = X - r4 End If End Sub Private Sub Timer1_Timer() i=1 VC2.Text6 = t3 = Timer - t1 X(1) = x5 + v3(1) * t3 Y(1) = x6 + v4(1) * t3 Call VDT(X(1), 2000, r3, vbRed) VC2.Text1.Text = v3(1) / 100 VC2.Text2.Text = v4(1) / 100 Call VDT(Y(1), 2000, r4, vbBlue) x1(1) = X(1) y1(1) = Y(1) If Y(1) - X(1) < r3 + r4 - 20 Then Timer1.Enabled = False t2 = Timer Timer2.Enabled = True End If End Sub Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 65 C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Private Sub Timer2_Timer() i=2 VC2.Text6 = t4 = Timer - t2 v3(2) = ((r1 - r2) * v3(1) + * r2 * v4(1)) / (r1 + r2) v4(2) = ((r2 - r1) * v4(1) + * r1 * v3(1)) / (r1 + r2) X(2) = X(1) + v3(2) * t4 Y(2) = Y(1) + v4(2) * t4 VC2.Text3.Text = v3(2) / 100 VC2.Text4.Text = v4(2) / 100 If x7 > X(2) Then X(2) = x7 - v3(2) * (t4 - (x7 - X(1)) / v3(2)) End If If x8 < Y(2) Then Y(2) = x8 - v4(2) * (t4 - (x8 - Y(1)) / v4(2)) End If Call VDT(X(2), 2000, r3, vbRed) Call VDT(Y(2), 2000, r4, vbBlue) x1(2) = X(2) y1(2) = Y(2) If Y(2) - X(2) < r3 + r4 - 40 Then Timer2.Enabled = False t1 = Timer Timer3.Enabled = True End If End Sub Private Sub Timer3_Timer() i=3 VC2.Text6.Text = t3 = Timer - t1 v3(3) = -((r1 - r2) * v3(2) + * r2 * v4(2)) / (r1 + r2) v4(3) = -((r2 - r1) * v4(2) + * r1 * v3(2)) / (r1 + r2) X(3) = X(2) + v3(3) * t3 Y(3) = Y(2) + v4(3) * t3 VC2.Text3.Text = v3(3) / 100 VC2.Text4.Text = v4(3) / 100 If x7 > X(3) Then X(3) = x7 - v3(3) * (t3 - (x7 - X(2)) / v3(3)) End If If x8 < Y(3) Then Y(3) = x8 - v4(3) * (t3 - (x8 - Y(2)) / v4(3)) End If Call VDT(X(3), 2000, r3, vbRed) Call VDT(Y(3), 2000, r4, vbBlue) x1(3) = X(3) Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 66 C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an y1(3) = Y(3) If Y(3) - X(3) < r3 + r4 - 40 Then Timer3.Enabled = False t2 = Timer Timer4.Enabled = True End If End Sub Private Sub Timer4_Timer() i=4 VC2.Text6.Text = t4 = Timer - t2 v3(4) = -((r1 - r2) * v3(3) + * r2 * v4(3)) / (r1 + r2) v4(4) = -((r2 - r1) * v4(3) + * r1 * v3(3)) / (r1 + r2) X(4) = X(3) + v3(4) * t4 Y(4) = Y(3) + v4(4) * t4 VC2.Text3.Text = v3(4) / 100 VC2.Text4.Text = v4(4) / 100 If x7 > X(4) Then X(4) = x7 - v3(4) * (t4 - (x7 - X(3)) / v3(4)) End If If x8 < Y(4) Then Y(4) = x8 - v4(4) * (t4 - (x8 - Y(3)) / v4(4)) End If Call VDT(X(4), 2000, r3, vbRed) Call VDT(Y(4), 2000, r4, vbBlue) x1(4) = X(4) y1(4) = Y(4) If Y(4) - X(4) < r3 + r4 - 40 Then Timer4.Enabled = False t1 = Timer Timer5.Enabled = True End If End Sub Private Sub Timer5_Timer() i=4 VC2.Text6.Text = i t3 = Timer - t1 v3(5) = -((r1 - r2) * v3(4) + * r2 * v4(4)) / (r1 + r2) v4(5) = -((r2 - r1) * v4(4) + * r1 * v3(4)) / (r1 + r2) X(5) = X(4) + v3(5) * t3 Y(5) = Y(4) + v4(5) * t3 VC2.Text3.Text = v3(5) / 100 VC2.Text4.Text = v4(5) / 100 If x7 > X(5) Then X(5) = x7 - v3(5) * (t3 - (x7 - X(4)) / v3(5)) Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 67 C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn