Bài giảng cách dùng VBA cho PowerPoint - 3

Chia sẻ: Cao Thi Nhu Kieu | Ngày: | Loại File: PDF | Số trang:11

Thêm vào BST

Báo xấu

136
lượt xem 48
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Lấy các thông số về cửa sổ Vidu02 Đọc tệp

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Bài giảng cách dùng VBA cho PowerPoint - 3

Lấy các thông số về cửa sổ Vidu02
Đọc tệp C:\Presentations TracNghiem1.txt Read Line CommandButton1
Gi¶i ph−¬ng tr×nh bËc hai Gi¸o viªn : Lª V¨n Huúnh Tr−êng :THBC KTTH Hµ Néi-ESTIH
ThuËt to¸n Em giải phương trình Phương trình bậc 2 có dạng tổng quát như sau: ax2 + bx + c = 0 trong đó: a, b, c là các hệ số cho trước. a ≠ 0. x là nghiệm cần tìm. Cách giải : Tính định thức ∆ : Bước 1 : ∆ = b2 – 4ac Nếu ∆ < 0 : Phương trình vô nghiệm. Bước 2 : Tới Bước 5 Nếu ∆ = 0 : Phương trình có nghiệm kép Bước 3 : x1 = x2 = -b/2/a Tới Bước 5 Bước 4 : −b+ ∆ −b− ∆ x1 = , x2 = 2a 2a Bước 5 : Kết thúc
ax + bx + c = 0 2 a= 1 b= 4 c= 2 ∆= 8 PH¦¥NG TR×NH Cã HAI NGHIÖM THùC PH¢N BIÖT x1= x1 = -0.585786437626905 x2= x2 = -3.41421356237309
Trắc nghiệm đơn giản
Sử a t h i ế t k ế m ẫ u 1. Tạo một trình diễn mới 2. Tạo Slide giới thiệu 3. Áp đặt thiết kế mẫu (Format\Slide Design…) 4. Mở View\Master, chọn Slide Master 5. Chọn TitleMaster 6. Vẽ một shape hình mũi tên ở góc phải phía dưới 7. Copy mũi tên đó. Chọn SlideMaster. 8. Paste mũi tên đó vào SlideMaster 9. Tạo một nhãn (Label) 1. Đặt tên nhãn là lbResult. Xóa bỏ Caption 2. Đặt BackStyle là 0-fmBackStyleTransparent 3. Đặt Font là .VnArial, cỡ chữ 28 4. Đặt Visible là False 10. Chọn Close Master View
Giao diện 1. Tạo slide mới 2. Viết một câu hỏi trắc nghiệm 3. Viết 4 phương án trả lời (văn bản,đồ họa…) 4. Vào Visual Basic Editor 5. Thêm module
Vi ế t m ã Sub Dung() SlideMaster.txtResult.Caption = "§óNG" SlideMaster.txtResult.Visible = True End Sub Sub Sai() SlideMaster.txtResult.Caption = "SAI" SlideMaster.txtResult.Visible = True End Sub Sub Hide() SlideMaster.txtResult.Visible = False ActivePresentation.SlideShowWindow.View.Next End Sub
Áp đặt Actions Settings 1. Quay lại PowerPoint 2. Chọn phương án đúng 3. Chọn Slide Show\Action Settings… 4. Chọn Run Macro 5. Chọn Macro Dung 6. Chọn lần lượt các phương án sai 7. Chọn Slide Show\Action Settings… 8. Chọn Run Macro 9. Chọn Macro Sai