KÍNH CHÚC CÁC THẦY CÔ GIÁO NĂM MỚI 2017 NHIỀU THÀNH CÔNG VÀ HẠNH PHÚC

Chào mừng quý vị đến với (¯`•,•´¯)THƯ VIỆN LÝ - HÓA BẬC THCS(¯`•,•´¯).

Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.

Tạo đồng hồ đếm ngược trong PowerPoint rất nhanh

Nhấn vào đây để tải về
Hiển thị toàn màn hình
Báo tài liệu có sai sót
Nhắn tin cho tác giả
Nguồn:
Người gửi: Phạm Văn Biển (trang riêng)
Ngày gửi: 14h:59' 08-08-2014
Dung lượng: 1.0 MB
Số lượt tải: 1574
Số lượt thích: 0 người
TạO ĐồNG Hồ ĐếM NGƯợC TRONG POWERPOINT RấT NHANH
giaoanhay.com đã có bài viết tạo đồng hồ đếm ngược theo cách thủ công tức là mình tự vẽ hình và tự tạo hiệu ứng. Nhưng theo cách này nếu làm thời gian đếm ngược lớn như 1 phút cho đến hàng giờ quả là quá mất thời gian. Nó chỉ thích hợp cho làm 10 đến 15 giây thôi. Tuy nhiên bạn cũng phải biết bản chất của nó chính là các hình vẽ và số xếp chồng lên nhau rồi tạo hiệu ứng cho nó xuất hiện mỗi hiệu ứng xuất hiện cách nhau 1 giây. Nhưng hôm nay giaoanhay.com sẽ hướng dẫn các bạn tạo đồng hồ đếm ngược có sử dụng mã lập trình để phần mềm tự vẽ và chọn hiệu ứng cho mình. Mình chỉ làm thêm vào là chèn âm thanh cho mỗi giây và phóng to số lên nếu cần. Sau đây là các bước theo hình:



 Và đây là đoạn mã lập trình các bạn cần copy để dán vào cửa sổ trên. Đoạn mã này cần lưu đâu đó để sử dụng lâu dài.
và ta có thể sửa số thời gian đếm ngược cho phù hợp với bài dạy của mình:
Mã:
 
Sub dem_nguoc() Dim oshp As Shape Dim oshpRng As ShapeRange Dim osld As Slide Dim oeff As Effect Dim i As Integer Dim Iduration As Integer Dim Istep As Integer Dim dText As Date Dim texttoshow As String On Error GoTo errhandler If ActiveWindow.Selection.ShapeRange.Count > 1 Then MsgBox "Hay chon mot doi tuong la shape!" Exit Sub End If Set osld = ActiveWindow.Selection.SlideRange(1) Set oshp = ActiveWindow.Selection.ShapeRange(1) oshp.Copy
Istep = 1   `thoi gian nhay tung hinh Iduration = 120 `so giay can dem
For i = Iduration To 0 Step -Istep Set oshpRng = osld.Shapes.Paste With oshpRng .Left = oshp.Left .Top = oshp.Top End With dText = CDate(i 3600 & ":" & ((i Mod 3600) 60) & ":" & (i Mod 60)) If Iduration < 60 Then texttoshow = Format(dText, "Ss") Else     If Iduration < 3600 Then         texttoshow = Format(dText, "Nn:Ss")     Else         texttoshow = Format(dText, "Hh:Nn:Ss")     End If End If oshpRng(1).TextFrame.TextRange = texttoshow Set oeff = osld.TimeLine.MainSequence _ .AddEffect(oshpRng(1), msoAnimEffectFlashOnce, , msoAnimTriggerAfterPrevious) oeff.Timing.Duration = Istep Next i oshp.Delete Exit Sub errhandler: MsgBox "**ERROR** - Ban chua chon doi tuong?" End Sub
 















 Vậy là ta đã có 1 đồng hồ đếm ngược 120 giây (2 phút). Bạn nên làm thử 10 giây để dễ quan sát. 120 giây chờ nó chạy hết lâu quá.  Nếu bạn muốn làm 1 đồng hồ khác với thời gian đếm ngược khác thì mở 1 file mới và làm tương tự. Sau đó copy các đồng hồ ở các file khác nhau chung vào 1 file để làm thư viện đồng hồ đếm ngược . Bao giờ cần cái nào thì chọn vào đồng hồ đó nhấn Ctrl+A để chọn hết đối tượng của đồng hồ đó rồi dán vào slide cần dùng
 Hướng dẫn thì rườm rà thế nhưng làm quen rồi thì chỉ mất 30 giây là xong thôi. Bây giờ giaoanhay,com chuyển sang ghi video cho bạn dễ quan sát nhé.

No_avatarf

phần lập trình bị lỗi bạn ơi! xem lại giúp mình với

 

 
Gửi ý kiến

Cảm ơn

THƯ VIỆN LÝ – HÓA BẬC THCS XIN CẢM ƠN QUÝ THẦY CÔ GIÁO ĐÃ GHÉ THĂM Bản quyền thuộc về PHẠM VĂN BIỂN - TRƯỜNG THCS ĐỒNG MINH – VĨNH BẢO – HẢI PHÒNG EMAIL : bien22@gmail.com Phone : 0922868589 hoặc 0904811605