Tạo đồng hồ đếm ngược

Chia sẻ bởi Nguyễn Thành Chung | Ngày 14/10/2018 | 60

Chia sẻ tài liệu: Tạo đồng hồ đếm ngược thuộc Tư liệu tham khảo

Nội dung tài liệu:

TẠO ĐỒNG HỒ ĐẾM NGƯỢC
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é.

* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...

Người chia sẻ: Nguyễn Thành Chung
Dung lượng: 1,04MB| Lượt tài: 1
Loại file: doc
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)