Sản phẩm này rất hữu ích, nhưng khi tải về và sau khi làm như hướng dẫn vẫn không phát huy được tác dụng như CENTEA nói .Không biết tôi làm sai chỗ nào , hãy chỉ cho tôi với.

Xin cám ơn rất nhiều.

Sản phẩm rất hay. CENTEA có thể cho biết dùng phần mềm nào để file flash luôn nổi trên màn hình không vậy? Xin chào.

Xin giới thiệu với quý Thầy Cô, cách làm đồng hồ đếm ngược bằng ứng dụng VBA trong PowerPoint:
* Đầu tiên ta tạo ra một Textbox (để làm đồng hồ) theo cách làm bình thường. Định dạng Textbox đó theo ý mình muốn (Font, cỡ chữ, màu sắc, ...)
* Tạo hiệu ứng Appear cho text box này, và chọn With Previous trong mục Start (mục đích của việc làm này để đối tượng textbox có thuộc tính TextFrame, và để chúng ta biết tên của đối tượng TextBox, thông thường, tên các textbox sẽ là Shape i với i là thứ tự của Textbox đó có trong slide . Chúng ta cần ghi nhận số i này để khai báo trong dòng lệnh. Ví dụ: trong khung Custom Animation hiện Shape 2 nên i = 2 */
* Mở cửa sổ Visual Basic Editor (ALT+F11), chọn Insert -> Module rồi gõ vào (hoặc copy) các dòng sau đây :

Const Time = 20
Sub Dem_Nguoc()
Dim Ngung As Boolean, Dem As Integer, Gio_Cu As Single, Gio_Moi As Single, N As Integer
Ngung = False
Dem = Time
Gio_Cu = Int(Timer)
N = ActivePresentation.Slides.Count
ActivePresentation.Slides(N).Shapes(2). TextFrame.TextRange.Text = Format(Dem, "00")
Do While Not Ngung
DoEvents
Gio_Moi = Int(Timer)
If Gio_Moi > Gio_Cu Then
Dem = Dem - 1
Gio_Cu = Gio_Moi
ActivePresentation.Slides(N).Shapes(2). TextFrame.TextRange.Text = Format(Dem, "00")
If Dem = 0 Then Ngung = True
End If
Loop
End Sub

Trong đó:
Time là thời gian đếm (có thể thay đổi thông số này cho phù hợp)
N = ActivePresentation.Slides.Count (để ghi nhận thứ tự của slide trình diễn hiện tại)
ActivePresentation.Slides(N).Shapes(2). TextFrame.TextRange.Text = Format(Dem, "00"): gán nội dung cho textbox của đồng hồ có tên Shape 2 ở slide hiện tại. Nếu như ở bước tạo hiệu ứng cho Text Box, Thầy Cô ghi nhận được là Shape 5 thì thay số 2 bằng số 5 trong dòng lệnh này.
* Trở lại cửa sổ PP, vào View >> Toolbars, nhấn chọn Control Text Box
* Chọn nút Command Button rồi vẽ nút lệnh vào vị trí tùy ý trên Slide
* Khia báo thuộc tính cho nút lệnh bằng cách nhấn chuột phải vào nút lệnh, chọn Properties, ở mục Caption điền chữ Tinh gio
* Nhấp chuột phải vào nút lệnh vừa tạo, chọn View Code
* Trong cửa sổ hiện ra, gõ vào Dem_Nguoc (là tên của Module trên)

Thầy Cô nên tạo đồng hồ trước, sau đó chọn Insert Duplicate để tạo mới các slide có cùng đồng hồ trước khi soạn nội dung bài giảng. Mục đích của việc làm này giúp cho tên của textbox đồng hồ ở các slide là giống nhau.
Chúc quý Thầy Cô thành công.

Đoạn code trên, được chỉnh sửa lại từ đoạn code được cung cấp bởi Thầy giáo làng ở dayhocintel.org. Tuy nhiên, đoạn code của Thầy giáo làng không hoạt động được.

Tôi vừa tải Đồng hồ đếm ngược phiên bản 4c, khi chạy lần đầu tôi thấy rất ổn, nhưng khi nhấn vào nút Replay để thực hiện lại, thì không được, không thể nhập vào thời gian mới để chạy, lúc đó tôi phải exit và chạy lại từ đầu. Trường hợp lỗi tiếp theo là khi tôi mở chương trình lên, di chuyển đồng hồ sang nơi mới, lúc đó tôi cũng không thể nhập vào thời gian chạy, dù đó là lần chạy đầu tiên? CENTEA Info có thể giải thích và hướng dẫn giúp tôi chạy chương trình liên tục được không? Cảm ơn rất nhiều!