MÃ LỆNH TRONG POWERPOINT
BÀI GIẢNG TƯƠNG TÁC
BÀI 5

SHOCKWAVE FLASH (SWF)
LOAD VÀ ĐIỀU HƯỚNG CÁC ĐOẠN PHIM
(Xin hãy xem trước bài 1,2,3,4 nếu lần đầu bạn xem tài liệu này!)
1- Ý tưởng thiết kế:
Tạo Slide trình chiếu các đoạn phim Flash sao cho khi chọn nút bấm có tên bài hát thì bài đó được tải từ nơi lưu trữ ra và chạy. Người dùng có thể chọn bài khác ngay lập tức (nếu thích) bằng cách bấm vào nút tên tương ứng.
Trong khi đoạn phim chạy , người dùng có thể điều hướng đoạn phim (Stop, Play, Next, Back).
Bạn có thể dùng chức năng này để tương tác giữa người dùng và nhiều đoạn phim, xem tới, xem lui… theo ý đồ giảng dạy.
2- Quy trình thực hiện:
- Trên thanh Control Toolbox ta chọn công cụ More Controls (hình cái búa) một danh sách thả xuống chọn tiếp mục ShockWave Flash Object (ở gần cuối danh sách). Bây giờ con trỏ có hình dấu (+), bạn kéo chuột trên slide để tạo cửa sổ trình chiếu đoạn phim. Đặt tên (chuột phải vào đối tượng rồi chọn Name dòng trên cùng) cho đối tượng này là swf (xem hình dưới ).
Tiếp đến bạn tạo 4 Button phía bên phải, 3 nút để tải bài hát ra còn một nút để Reset lại chương trình. Đặt tên 3 nút đầu là btnBai1, btnBai2, btnBai3 và btnXemlai. Tại thuộc tính Caption của 3 nút đầu ta gõ tên bài hát, nút cuối ta gõ “ Xem lại ” (bạn nhớ đổi font cho khỏi bị lỗi chữ, nên dùng font VNI…).
Sau cùng ta tạo 4 Button để thực hiện các chức năng điều hướng đoạn phim đang trình chiếu, lần lượt đặt tên là btnStop, btnPlay, btnNext, btnBack. Tại thuộc tính Caption ta gõ tên hiển thị cho mỗi nút bấm.
Bây giờ đến lúc ta viết code rồi, nháy đúp vào nút “Xem lại” để mở cửa số VBA, bạn nhập vào đoạn code sau (để đưa chương trình về trạng thái ban đầu):
Private Sub btnXemlai_Click()
swf.Movie = " No Movie“
End Sub
- Lần lượt nhấp đúp tại 3 nút tên bài hát bạn nhập lệnh tải bài hát từ nơi lưu trữ ra (thư mục lưu trữ các đoạn phim cần đặt ngang cấp với bài trình chiếu này), tôi đặt tên cho thư mục này là media nên đoạn code có cú pháp như sau:
- Nếu chưa nhớ được các lệnh thì bạn nên copy nguyên đoạn mã trên để dán vào trong VBA. Ý nghĩa của đoạn code trên là sẽ tải đúng đoạn phim được ấn định trong đường dẫn khi người dùng click vào các nút tương ứng.
Private Sub btnBai1_Click()
swf.Movie = ActivePresentation.Path & "mediaThe_Family.swf"
End Sub

Private Sub btnBai2_Click()
swf.Movie = ActivePresentation.Path & "mediaHappybirthday.swf"
End Sub

Private Sub btnBai3_Click()
swf.Movie = ActivePresentation.Path & "mediauild_a_snowman.swf"
End Sub
Tên cửa sổ trình chiếu
Thuộc tính của swf
Hành động trình diễn theo thuộc tính Path (đường dẫn)
Đường dẫn tới nơi lưu trữ đoạn phim và tên đoạn phim đặt trong dấu nháy kép: “ “
Bây giờ ta viết code cho các nút điều hướng, thao tác nháy kép các nút bấm để mở cửa sổ VBA các bạn hẳn đã nhớ rõ rồi. Bạn lần lượt mở cửa sổ VBA đối với mỗi nút btnStop, btnPlay, btnNext, btnBack và nhập các đoạn code sau:

Private Sub btnStop_Click()
swf.Playing = False
End Sub

Private Sub btnPlay_Click()
swf.Playing = True
End Sub

Private Sub btnNext_Click()
swf.Forward
End Sub

Private Sub btnBack_Click()
swf.Back
End Sub
Bạn nhớ thêm các thuộc tính mới của cửa số trình chiếu phim swf là: Playing, Forward, Back. Vậy là đã xong, bạn có thể bắt đầu thưởng thức tác phẩm của mình rồi !
Hẹn gặp lại các bạn trong bài 6 !
Bạn có thể điều hướng đoạn phim như Stop, Play, Next, Back như một phần mềm trình chiếu phim thực thụ. Do đây là phim swf nên mỗi lần Next, Back thì đoạn phim nhảy tới hay nhảy lui một số Frame ngắn không rõ rệt lắm, bạn muốn nhảy tới-lui một đoạn dài thì cần nháy liên tục nhiều lần (giống như liên tục nháy đúp vậy!)
- Bây giờ bạn đã có thể bắt tay vào làm một Anbum cho riêng mình rồi. Chúc các bạn thành công!.