ỨNG DỤNG CÔNG NGHỆ THÔNG TIN VÀ SỬ DỤNG PHƯƠNG TIỆN KỸ THUẬT TRONG DẠY HỌC.TIẾN SĨ CNTT PHÙNG THẾ BẢO.

1 TS P THÔNG TIN CÁ NHÂN - Phùng Thế Bảo – Tiến sĩ Công nghệ thông tin Bảo vệ LATS Liên Bang Nga (năm 2013) - TBM Khoa Công nghệ thông tin – Trường Đại học Trần Đại Nghĩa - Giảng dạy: Học viện Kỹ thuật Mật Mã sở Tp Hồ Chí Minh, Đại học Cơng nghệ HUTECH… - Giảng dạy Công ty CPGD VN chi nhánh TPHCM đối tượng: NVSP ĐH/CĐ, TCCN, SP Nghề, Quản lý GD THPT/Mầm non…  0964771122  phungthebao2003@gmail.com TS P MÔ TẢ HỌC PHẦN Mục tiêu: – Trang bị cho học viên số kiến thức phương pháp ứng dụng công nghệ thông tin sử dụng phương tiện dạy học Đối tượng: – NVSP GV ĐH/CĐ Thời gian: – buổi học TS P TÀI LIỆU THAM KHẢO Lê Huy Hoàng Thiết bị dạy học ứng dụng công nghệ thông tin dạy học Đại học NXB: Trường ĐH SP HN (Tài liệu bồi dưỡng NVSP cho giảng viên dạy đại học, cao đẳng), 2008 TS P PHƯƠNG PHÁP HỌC TẬP ĐÁNH GIÁ Tổ chức lớp theo nhóm: – Thảo luận + Thực hành lớp Nội quy: – Nhiệt tình, sẵn sàng thảo luận, thực hành… Hình thức đánh giá kết quả: – Kiểm tra điều kiện (3 điểm): Nộp thực hành qua Email – Thi kết thúc học phần (7 điểm): Tự luận TS P CÂU HỎI ÔN TẬP  Phần tự luận: – Thời gian làm bài: 60 phút – Học viên sử dụng tài liệu – (Nội dung câu hỏi tự luận học viên xem file đính kèm TS P CÂU HỎI ƠN TẬP Hãy phân tích lấy ví dụ chứng minh khả ứng dụng CNTT sử dụng phương tiện kĩ thuật trình đảm nhiệm giảng dạy học phần anh (chị)? Hãy phân tích lấy ví dụ chứng minh nguyên tắc sử dụng phương tiện kĩ thuật cơng nghệ q trình dạy học phần Anh (Chị)? Bằng lí luận thực tiễn, chứng minh nguyên tắc sử dụng phương tiện kĩ thuật cơng nghệ q trình dạy học Anh (Chị) phải đảm bảo theo nguyên tắc 3Đ? Anh (Chị) chọn chương học phần dạy dạy đề xuất ý tưởng sử dụng phương tiện kĩ thuật công nghệ nhằm đảm bảo nguyên tắc 3Đ? Anh (Chị) phân tích lấy ví dụ chứng minh ưu nhược điểm công nghệ thơng tin sử dụng q trình dạy học? TS P CÂU HỎI THỰC HÀNH Anh (chị) thiết kế giảng PowerPoint (phiên 2010 2013) theo chủ đề chuyên môn anh (chị) giảng dạy? Yêu cầu: Sử dụng tính Slide Master Ứng dụng VBA PP (ứng dụng ví dụ làm quen để tích hợp vào BG) HẾT TS P BÀI THI THỰC HÀNH (PP 2010/2013) (3 điểm) Nội dung Thang điểm Ghi Nội dung giảng với chuyên môn dạy quản lý 0.5 điểm Đề tài tự trừ điểm Sử dụng hiệu Slide Master điểm Sử dụng hiệu slide tương tác với VBA 1điểm Sử dụng hiệu Animation 0.5 điểm Nộp trễ hạn: Trừ điểm/24h TS P BÀI THI THỰC HÀNH (PP 2010/2013) (3 điểm) • SUBJECT (chủ đề thư) : Bài thi thực hành (NVSP K? BINH THANH) • Tên file PP: Tên Nhóm (3-4 hv) Ví dụ: Tên Nhóm pptm Lưu ý: Chỉ gửi lần đến GV để GV không thời gian download đối chiếu 10 TS P CÁC ĐỐI TƯỢNG CƠ BẢN Bước 4: Khi người dùng click vào “Chấm điểm” đưa điểm 0, opt1B chọn ta nâng điểm lên 1, tương tự opt2C chọn ta nâng điểm lên Private Sub lblChamDiem_Click() lblDiem.Caption = "0" If opt1b.Value = True Then lblDiem.Caption = lblDiem.Caption + If opt2C.Value = True Then lblDiem.Caption = lblDiem.Caption + End Sub 69 CÁC ĐỐI TƯỢNG CƠ BẢN Ví dụ 3: Sử dụng Image tạo trị chơi ghép hình Kết của ví dụ slide có mảnh hình nguồn không theo thứ tự, ô trống để người dùng đưa hình phù hợp vào 70 CÁC ĐỐI TƯỢNG CƠ BẢN Hướng dẫn chi tiết: Bước 1: Tạo Image đặt tên imgS1, imgS2, imgS3, imgS4 (dùng chứa hình nguồn), imgD1, imgD2, imgD3, imgD4 (làm khung để người dùng xếp hình), imgTemp (dùng làm trung gian chuyển hình từ nguồn sang đích–thuộc tính visible=false) Các Image có thuộc tính PictureSizeMode=fmPictureSizeModeStretch Bước 2: Dùng thuộc tính Picture hộp thoại Properties để hiển thị hình mong muốn Bước 3: Khi người dùng click vào hình nguồn đưa hình vào imageTemp Private Sub imgS1_Click() imgTemp.Picture = imgS1.Picture End Sub 71 CÁC ĐỐI TƯỢNG CƠ BẢN Hướng dẫn chi tiết: Bước 4: Khi người dùng click vào trống chuyển hình từ imageTemp vào ô trống Private Sub imgD1_Click() imgD1.Picture = imgTemp.Picture 'Refresh D1 imgD1.Visible = False imgD1.Visible = True End Sub 72 CÁC ĐỐI TƯỢNG CƠ BẢN Hướng dẫn chi tiết:  Bước 5: Khi người dùng click vào “Làm lại” tải lên hình rỗng vào trống Private Sub lblReset_Click() imgD1.Picture = LoadPicture("") imgD2.Picture = LoadPicture("") imgD3.Picture = LoadPicture("") imgD4.Picture = LoadPicture("") 'Refresh D1, D2, D3, D4 imgD1.Visible = False imgD1.Visible = True imgD2.Visible = False imgD2.Visible = True imgD3.Visible = False imgD3.Visible = True imgD4.Visible = False imgD4.Visible = True End Sub 73 Ví dụ 4: Dùng nút di chuyển để xem hình & học từ vựng Start CÁC ĐỐI TƯỢNG CƠ BẢN Hướng dẫn chi tiết: Bước 1: Tạo Image đặt tên imgHinh, imgText, Spin có tên gọi spn, có Min=1; Max=5 Bước 2: Các tập tin đặt thư mục Media gồm Hinh1.jpg đến Hình 5.jpg; Text1.jpg đến Text5.jpg Bước 3: Khi Người dùng thay đổi giá trị spin ta Load hình tương ứng Nếu có chuỗi: “D:\powerpoint” & “\media\Hinh” & & “.jpg” ta đường dẫn: “D:\powerpoint\media\Hinh2.jpg” Chú ý ta lấy vị trí tập tin powerpoint thông qua ActivePresentation.Path 75 CÁC ĐỐI TƯỢNG CƠ BẢN Private Sub spn_Change() imgHinh.Picture = LoadPicture(ActivePresentation.Path "\media\Hinh" & spn.Value & ".jpg") imgText.Picture = LoadPicture(ActivePresentation.Path "\media\Text" & spn.Value & ".jpg") 'Refresh imgHinh imgHinh.Visible = False imgHinh.Visible = True 'Refresh imgText imgText.Visible = False imgText.Visible = True End Sub  Bước 4: Nhấn Start ta gán giá trị Spin.Value=1 & & 76 WINDOWS MEDIA PLAYER (WMP) VớI ActiveX ta mở tất tập tin audio hay video mà Windows Media Player mở Để sử dụng ActiveX Click vào nút More Controls, sau chọn Windows Media Player vẽ lên Slide Thuộc tính Mơ tả url Chuỗi đường dẫn đến tập tin audio/video stretchToFit Nếu có giá trị true kéo giãn phim cho khít với kích thước WMP fullScreen True cho phép xem phim tồn hình 77 WINDOWS MEDIA PLAYER (WMP) Ví dụ 5: Dùng WMP để tạo slide cho phép người dung xem phim sau Kết ví dụ slide cho phép người dung xem hai đoạn phim điền chỗ trống từ thích hợp Sau người dung xem điểm làm lại 78 WINDOWS MEDIA PLAYER (WMP) Xem hai đoạn video điền vào chỗ trống từ phù hợp? She graduated six months ago He’s looking for a new dfdsgfds If he gives her the Job She’ll work very gfđhdhfd VIDEO VIDEO Scores Restart 79 WINDOWS MEDIA PLAYER (WMP)  Bước 1: Tạo đối tượng wmp, txt1,txt2,txt3, scores, restart, video1,video2  Bước 2: Tạo đường dẫn đến video1,video2 Private Sub Label1_Click() wmp.URL = "\media\video1.wmv" ActivePresentation.Path & End Sub  Bước 3: Tạo kiện scores 80 WINDOWS MEDIA PLAYER (WMP) Private Sub Label3_Click() Dim diem As Integer diem = If txt1.Text = "6" Then diem = diem + If txt2.Text = "secretary" Then diem = diem + If txt3 = "hard" Then diem = diem + MsgBox "Mark: " & diem & "/3" End Sub 81 WINDOWS MEDIA PLAYER (WMP)  Bước 4: Tạo kiện restart Private Sub Label4_Click() txt1.Text = "" txt2.Text = "" txt3.Text = "" End Sub 82 83 TS P