... Chào quý thầy cô !
Trong quá trình giảng dạy, để tạo hứng thú cho học sinh, các thầy cô thường tổ chức
cho học sinh tham gia các trò chơi học tập bằng các hình thức khác nhau như: ... “Thời gian”
Bước 2: Tạo hiệu ứng cho các hình
Chọn tất cả các hình cùng một lúc bằng cách ấn và giữ phím Ctrl, dùng chuột bấm lần
lượt vào các hình
Vào Slide Show, chọn Custom Animation. Chọn ...
Vào AutoShap...
... (ALT+F11), chọn Insert -> Module rồi gõ vào (ho c
copy) các dòng sau đây :
Const Slide_Number = 1
Const Thoi_Gian = 10
Sub Dem_ Nguoc( )
Dim Ngung As Boolean, Dem As Integer, Gio_Cu As Single, Gio_Moi ... Gio_Moi > Gio_Cu Then
Dem = Dem - 1
Gio_Cu = Gio_Moi
ActivePresentation.Slides(Slide_Number).Shapes(N). TextFrame.TextRange.Text =
Format (Dem, "00")
If Dem = 0...
... bất ngờ.
Để đồng hồ ho t động: click vào đồng hồ, và cần mở chế độ chạy
macro trong pp
Const Slide_Number = 3
Const Thoi_Gian = 5
Sub Dem_ Nguoc( )
Dim Ngung As Boolean, Dem As Integer, Gio_Cu ... Gio_Moi > Gio_Cu Then
Dem = Dem - 1
Beep
Gio_Cu = Gio_Moi
ActivePresentation.Slides(Slide_Number).Shapes(N).TextFrame.TextRange.Text =
Format (Dem, "00")
If Dem =...