Bài soạn Lam dong ho dem nguoc bang VBA

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. . 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_Cu Then Dem = Dem - 1 Gio_Cu = Gio_Moi ActivePresentation.Slides(N).Shapes(2). TextFrame.TextRange.Text = Format (Dem, "00") If Dem = 0 Then