TƯƠNG TÁC VỚI KẾT QUẢ TRÊN MÁY TÍNH ĐỂ CÓ KẾT QUẢ ĐÚNG HOẶC SAI Tham khảo thêm các bài về Button, Option, Label, Text box, Image Người thực hiện : HỒNG ÚT Giáo viên trường: ĐỘC LẬP... Để
Trang 1UBND QUẬN PHÚ NHUẬN Phòng Giáo Dục – Đào tạo CLB Tin Học Q.PN
Chuyên đề
LẬP TRÌNH TƯƠNG TÁC TRONG POWER POINT
Thời gian thực hiện : ………
Địa điểm : ……….
NỘI DUNG CHUYÊN ĐỀ
1 HƯỚNG DẪN THỰC HÀNH TẠO MỘT MÁY TÍNH DƠN GIẢN
2 TƯƠNG TÁC VỚI KẾT QUẢ TRÊN MÁY TÍNH ĐỂ CÓ KẾT QUẢ ĐÚNG HOẶC SAI
Tham khảo thêm các bài về Button, Option, Label, Text box, Image
Người thực hiện : HỒNG ÚT Giáo viên trường: ĐỘC LẬP
Trang 2HƯỚNG DẪN TẠO VBA TRÊN POWERPOINT
1 Thiết lập chế độ bảo mật
Mặc định Powerpoint không cho phép chạy các macro vì các lý do về bảo mật Để thuận tiện
trong quá trình sử dụng VBA hãy thực hiện các bước sau để thiết lập lại chế độ bảo mật cho
Powerpoint
Đối với Microsoft Powerpoint 2003, Từ menu Tools, chọn Macro, chọn Security Trong tab
Security Level chọn mức Medium hoặc Low (tôi thường chọn Low để cho phép tất cả các Macro).
2 Bật thanh công cụ VBA
Mặc định thì bộ công cụ hỗ trợ làm việc trên VBA không được bật Hãy làm các bước sau để hiển thị thanh công cụ này:
Đối với Microsoft Powerpoint 2003, Click phải vào vị trí bất kỳ trên Toolbar, chọn Control
Toolbox.
3 Tạo các chữ theo mẫu
Trang 3Hướng dẫn chi tiết
1 Tạo các đối tượng (textbox)
* Chọn công cụ Text box (xem hình)
* Vẽ trên power point một Text box (cạnh chữ số
thứ 1)
* Click chuột phải lên đối tượng textbox vừa tạo,
chọn properties
* Đặt tên cho textbox ở ô (name) là TxtSo1
* Thay đổi font chữ ở ô Font …
* Thay đổi các thuộc tính khác …
2 Tương tự như vậy copy và dán ra thêm 2 đối tượng Textbox
nữa và đặt tên (Name) là TxtSo2, TxtKQ.
3 Tạo các đối tượng Command Button
* Chọn công cụ là Command button, vẽ trên power point 1 nút
bấm
* Click chuột phải lên đối tượng Command button vừa tạo, chọn
properties
* Đặt tên cho command Button ở ô (Name) là CmdSum.
* Gõ chữ SUM ở ô (Caption)
4 Tương tự ta copy và dán ra thêm 1 nút bấm nữa và đặt tên là
CmdReset và caption là Reset.
5 Viết code cho nút Sum
* Bấm double vào nút Sum sẽ chuyển sang màn hình mới và gõ
đoạn mã (code) sau:
Private Sub CmdSum_Click()
TxtKQ.Text = Val(TxtSo1.Text) + Val(TxtSo2.Text)
End Sub
6 Tương tự bấm 2 lần vào nút Reset
và gõ đoạn code sau
Private Sub CmdReset_Click()
TxtSo1.Text = ""
TxtSo2.Text = ""
TxtKQ.Text = ""
End Sub
7 Hoàn tất và xem thử :
* Bấm vào nút View Microsoft Power
point để trở lại mà hình Powerpoint như
trước
* Bấm phím F5 để view powerpoint
* Nhập vào thử 2 số
* Bấm nút Sum, xem kết quả
* Bấm nút Reset để làm lại