Bài giảng Mã lệnh trong powerpoint - Bài 1: Sử dụng text box - Label với bài trắc nghiệm đúng -sai

I) Thuộc tính – Phương thức – Sự kiện

-Thuộc tính:

Là những đặc điểm của đối tượng như: Chiều cao (Height), chiều rộng (Width), kiểu chữ (Font), màu nền (BackColor), nội dung (Caption), .Đa số các đối tượng đều có một số thuộc tính cơ bản giống nhau.

 

ppt8 trang | Chia sẻ: baobinh26 | Lượt xem: 799 | Lượt tải: 0download
Bạn đang xem nội dung tài liệu Bài giảng Mã lệnh trong powerpoint - Bài 1: Sử dụng text box - Label với bài trắc nghiệm đúng -sai, để tải tài liệu về máy bạn click vào nút TẢI VỀ ở trên
MÃ LỆNH TRONG POWERPOINT BÀI GIẢNG TƯƠNG TÁCBÀI 2SỬ DỤNG TEXT BOX - LABELVỚI BÀI TRẮC NGHIỆM ĐÚNG -SAIBiên soạn: Nguyễn Tuấn CườngTrường THCS Thái Sơn – An Lão – Hải Phòng(Tham khảo từ tài liệu: Giáo trình PowerPoint tương tác bằng VBA – Võ Tấn Dũng)(Xin hãy xem trước bài 1 nếu lần đầu bạn xem tài liệu này!)I) Thuộc tính – Phương thức – Sự kiệnThuộc tính: Là những đặc điểm của đối tượng như: Chiều cao (Height), chiều rộng (Width), kiểu chữ (Font), màu nền (BackColor), nội dung (Caption),..Đa số các đối tượng đều có một số thuộc tính cơ bản giống nhau.Phương thức: Là những hoạt động sẽ diễn ra của đối tượng khi bị tác động (như nhấp chuột, rê chuột quathì xuất hiện thông báo)Sự kiện: Là những tác động của người dùng vào đối tượng (như Click, DblClick, MouseMove, MouseUp..)II) Chuỗi đại diện cho các đối tượng Là các kí tự đầu tên của các đối tượng (được khuyên dùng). Tên đối tượngChuỗi đại diệnLabellblButtonbtnText BoxtxtCheck BoxchkPicture BoxpicSpin ButtonspnOption Boxopt Để sau này khi viết code khỏi nhầm lẫn thì bạn nên đặt tên các đối tượng theo quy ước như sau:Tên đối tượng = chuỗi đại diện kèm theo chuỗi từ gợi nhớ (viết hoa chữ đầu).Ví dụ:Tên Label: lblCauhoi1, lblDapan1Tên Button: btnDiem, btnLamlaiIII) Dùng Text Box và Label để tạo bài tập trắc nghiệm điền Đúng – Sai vào ô trống.1 - Ý đồ thiết kế: Tạo bài trắc nghiệm điền Đúng hoặc Sai vào ô trống, HS điền xong có thể xem điểm, có thể làm lại.2 – Quy trình thực hiện:- Tạo ra các đề cần trắc nghiệm bằng công cụ Text Box trên thanh Drawing.1. Tam giác cân có 2 cạnh bằng nhau2. Thứ 5 là ngày đầu tuần3. 12 – 4.2 = 44. Kiến có 4 chân.5. Việt Nam là thành viên của WTO.Hãy điền từ Đúng hoặc Sai vào ô trống cho thích hợp:- Vẽ một Text Box bằng công cụ Control Toolbox để HS điền Đúng hoặc sai về phía cuối câu cần điền. Đổi màu nền, màu chữ, font của Text Box nếu thấy cần thiết. (Nên dùng font có mã TCVN3 hoặc VNI)- Giữ phím Ctrl rồi dùng chuột kéo Text Box ra vị trí mới để tạo ra các bản sao giống nhau về định dạng(Hình trên tôi ví dụ có 5 câu cần điền  ta tạo 5 Text Box và đặt tên là txtDapan1, txtDapan2)2 – Quy trình thực hiện:1. Tam giác cân có 2 cạnh bằng nhau2. Thứ 5 là ngày đầu tuần3. 12 – 4.2 = 44. Kiến có 4 chân.5. Việt Nam là thành viên của WTO.Hãy điền từ Đúng hoặc Sai vào ô trống cho thích hợp:- Bây giờ ta tạo thêm ba Label dùng để tính điểm, hiển thị điểm và làm lại. Các Label này tôi bố trí phía dưới trông cho hợp lý. Các bạn cũng có thể đổi màu nền, Font thì nên chọn mã ABC hayVNI vì VBA không hỗ trợ tốt tiếng Việt trong mã Unicode. Đặt tên cho các Label lần lượt là lblTinhdiem, lblLamlai, lblDiem/10 Thao tác quan trọng nhất đã đến, đó là viết mã lệnh. Các bạn nhấp đúp vào bất kì đối tượng nào để hiện cửa sổ VBA. Đầu tiên ta viết mã để xóa trắng các txtDapan1, txtDapan2 và lblDiem. Các bạn nhấp đúp vào lblLamlai để hiện cửa sổ VBA. Nhập đoạn mã sau:txtDapan1.Text = ""txtDapan2.Text = ""txtDapan3.Text = ""txtDapan4.Text = ""txtDapan5.Text = ""lblDiem.Caption = ""vào dòng giữa của hai dòng:	Private Sub lblLamlai_Click()	End SubTa tiếp tục viết mã để khi HS điền đúng các câu trả lời xong nhấp vào lblTinhdiem thì điểm được cộng dồn và hiển thị trên lblDiem. Các bạn lại nhấp đúp vào lblTinhdiem để hiện cửa sổ VBA (ở đó đang có sẵn đoạn mã khi nãy, bây giờ lại xuất hiện cấu trúc như sau:	Private Sub lblTinhdiem_Click()	End Sub Các bạn nhập đoạn mã sau đây vào dòng giữa: lblDiem.Caption = "0"If txtDapan1.Text = "®óng" Then lblDiem.Caption = lblDiem.Caption + 2If txtDapan2.Text = "sai" Then lblDiem.Caption = lblDiem.Caption + 2If txtDapan3.Text = "®óng" Then lblDiem.Caption = lblDiem.Caption + 2If txtDapan4.Text = "sai" Then lblDiem.Caption = lblDiem.Caption + 2If txtDapan5.Text = "®óng" Then lblDiem.Caption = lblDiem.Caption + 2 Các chữ “Đúng” , “Sai” trong đoạn mã bị biến dạng các bạn cứ kệ nó (đó là do ta đánh chữ Việt – mã TCVN3 ở trong VBA). Công việc đã hoàn tất, bây giờ các bạn có thể xem thành quả của mình rồi. Nếu HS điền đúng thì mã lệnh điều khiển cho cộng dồn điểm 10/10, sai một phương án sẽ không được cộng dồn 2 điểm – còn 8,  Tôi để ví dụ hoàn chỉnh ở trang cuối cùng để các bạn tiện thử và tham khảo. Khi trình chiếu bạn nhớ đưa bộ gõ tiếng Việt về đúng mã đã đặt cho Text Box và Label. Ví dụ hoàn chỉnh về việc dùng Text Box và Label để tạo bài tập trắc nghiệm điền Đúng – Sai:Hẹn gặp lại các bạn trong bài 3 !1. Tam giác cân có 2 cạnh bằng nhau2. Thứ 5 là ngày đầu tuần3. 12 – 4.2 = 44. Kiến có 4 chân.5. Việt Nam là thành viên của WTO.Hãy điền từ Đúng hoặc Sai vào ô trống cho thích hợp:/10

File đính kèm:

  • pptVBA_Bai2.ppt