Dalam modul ini, kita akan membuat penghitung waktu mundur di Microsoft PowerPoint menggunakan Macro di Aplikasi Visual Basic. Tidak seperti modul lain di mana VBA tidak digunakan, kita tidak perlu mengetik setiap angka dan menambahkan animasi.

VBA Macros fokus pada mengotomatisasi pekerjaan Anda dalam waktu yang paling singkat untuk meningkatkan efisiensi proyek Anda.

Countdown PPT ini dapat disematkan dalam berbagai proyek, modul, dan Permainan PowerPoint. Anda dapat mengunduh modul dan kode ini secara gratis dan menjadikan presentasi Anda lebih interaktif.

Sub countdown()

Dim time As Date
time = Now()

Dim count As Integer
count = 30 'assuming 30 seconds'

time = DateAdd("s", count, time)

Do Until time < Now()
DoEvents
ActivePresentation.Slides(1).Shapes("countdown").TextFrame.TextRange = Format((time - Now()), "hh:mm:ss")
Loop
        
End Sub

Skema Countdown PowerPoint

Dim time As Date
time = Now()

Output untuk Sekarang () adalah waktu dan tanggal saat ini.

Dalam pengkodean kami, kami menambah waktu saat ini dengan “menghitung” detik, yaitu 30 detik dalam kode kami.
Kami menambahkan “hitung” detik menggunakan kode berikut:

Dim count As Integer
count = 30 'assuming 30 seconds'
time = DateAdd("s", count, time)

Saya akan merujuk pada waktu baru ini di mana 30 detik ditambahkan sebagai waktu baru di masa depan .

Kami kemudian menunggu waktu saat ini untuk mengejar waktu mendatang yang baru.
Sementara itu kami menggunakan Fungsi Do Hingga untuk memperbarui bentuk “hitung mundur”.

Kustomisasi format PPT Countdown Timer

Berikut ini adalah sintaks untuk berbagai format waktu tampilan di Aplikasi Visual Basic:Hanya Detik

Gunakan format “ss” jika Anda ingin hanya detik yang terlihat.Menit & Detik Jam & Menit & Detik

Do Until time < Now()
DoEvents
ActivePresentation.Slides(1).Shapes("countdown").TextFrame.TextRange = Format((time - Now()), "hh:mm:ss")
Loop

Jika Anda ingin memahami modul ini lebih detail, silakan tonton video YouTube saya di mana saya mengajarkan seluruh VBA Macro dalam banyak detail sehingga Anda dapat memodifikasi ini dengan cara terbaik dan menyesuaikannya untuk Modul dan Game PowerPoint Anda.

Cara Kerja Hitung Mundur:

Kami memiliki dua variabel utama:

1) Waktu Saat Ini + “hitung” detik ( waktu mendatang yang baru )

2) Waktu Saat Ini

Pada awalnya kami mengambil waktu saat ini dan menambahkan “menghitung” detik dan menyimpannya dalam variabel waktu . Variabel waktu dengan demikian berisi waktu masa depan yang baru .

Kami kemudian menunggu waktu saat ini untuk mengejar waktu masa depan yang baru dan sampai itu terjadi kami memperbarui bentuk “hitung mundur” dengan perbedaan waktu mendatang yang baru dan waktu saat ini .

Pemberitahuan Pop-Up MsgBox saat hitung mundur selesai

Jika waktu mendatang kami yang baru dilampaui oleh waktu saat ini, kami dapat dengan mudah menambahkan pop-up Kotak Pesan dengan fungsi Jika-Maka. Alih-alih Kotak Pesan, Anda juga dapat memainkan efek suara atau mengalihkan presentasi ke slide tertentu.

If time < Now() Then
'add your code here'
MsgBox "Time Up!"
End If

Menyesuaikan Nilai Hitung Mundur dalam Mode SlideShow.

Jika Anda ingin mengubah nilai coutdown dan menyesuaikannya tanpa menyentuh kode, kita dapat menambahkan ActiveX Element Textbox dengan nama “TBSeconds” di slide kami. Pengguna dapat mengetik di dalam “TBSeconds” dan nilainya akan digunakan sebagai pengganti “hitungan” detik.

Kita dapat membaca angka yang dimasukkan di dalam “TBSeconds” dengan potongan kode berikut:

'and instead of assigning count = 30 we can assign the following:'
count = ActivePresentation.Slides(1).Shapes("TBSeconds").OLEFormat.Object.Value

Anda juga dapat memiliki bentuk di luar slide dan mengubah teksnya, kami dapat meminta VBA membaca nilai di dalam bentuk “timelimit” dengan potongan kode berikut:

count = ActivePresentation.Slides(1).Shapes("timelimit").TextFrame.TextRange

PENGHITUNG WAKTU MUNDUR DI SEMUA SLIDE PRESENTASI POWERPOINT

Sekarang jika kita perlu menyematkan penghitung waktu mundur yang sama di seluruh slide PowerPoint yang akan sesuai dengan penghitungan mundur, yaitu jika ada penghitung waktu selama 30 detik dan Anda pergi ke slide berikutnya dengan 15 detik tersisa, slide berikutnya harus memiliki timer dan harus dilanjutkan dari 15 detik saja. Tidak masalah setelah berapa detik Anda memutuskan untuk pergi ke slide berikutnya atau lagi slide sebelumnya.

Timer hitung mundur PowerPoint ini akan hadir sepanjang Slide Show dan akan memiliki semua fitur yang disebutkan di atas dalam situs web ini.

Untuk mencapai ini, kita perlu menambahkan For Loop .

Untuk Loop

Menggunakan For Loop di PowerPoint VBA, semua slide dalam kisaran i (yaitu 1 hingga 10) akan diperbarui hingga waktu saat ini melewati waktu mendatang yang baru.

For i = 1 To 10 'assuming you want the countdown to be throughout the first ten slides'
ActivePresentation.Slides(i).Shapes("countdown").TextFrame.TextRange = Format((time - Now()), "hh:mm:ss")
Next i

Kode PPT VBA Countdown Terakhir:

Sub countdown()

Dim time As Date
time = Now()

Dim count As Integer
count = ActivePresentation.Slides(1).Shapes("timelimit").TextFrame.TextRange
time = DateAdd("s", count, time)

Do Until time < Now()

    DoEvents
    
    For i = 1 To 5
        ActivePresentation.Slides(i).Shapes("countdown").TextFrame.TextRange = Format((time - Now()), "ss")
    Next i
    
    If time < Now() Then
        For i = 1 To 5
            ActivePresentation.Slides(1).Shapes("countdown").TextFrame.TextRange = "Time up!"
        Next i
        ActivePresentation.SlideShowWindow.View.GotoSlide (6)
    End If
    
Loop

End Sub

Sumber: https://pptvba.com/countdown/#code