Script VBA untuk membuat hitung mundur (countdown timer) di Powerpoint

Artikel ini saya tulis karena sering mendapat pertanyaan dari peserta workshop tentang “bagaimana membuat countdown timer” atau hitung mundur dengan powerpoint.

Berikut ini adalah langkah-langkah membuat “countdown timer” powerpoint

1. Pada slide pertama, siapkan dua buah textbox yang diberi nama “start” dan “tampilanJam” dan satu buah tombol “mulai”

hitungmundur1

 

 

2. Pada slide kedua buat sebuah tombol “ulangi” dan sebuah shapes untuk keluar (exit)

hitungmundur2

3. Kemudian insert module pada Visual Basic Editor (Alt+F11), dan copy paste script berikut ini :

‘Script VBA untuk Hitung Mundur
https://abdulkarim.wordpress.com
Sub mulai_Initialize()
With ActivePresentation.Slides(1)
.Shapes(“start”).TextFrame.TextRange.Text = “Hitung Mundur”
End With
End Sub
Sub Waktu()
Static waktuberjalan As Boolean
If waktuberjalan = True Then
End
Else
waktuberjalan = True
Dim waktuberkurang As Integer
Dim xwaktu As Date
xwaktu = Now
With ActivePresentation.Slides(1)
.Shapes(“start”).TextFrame.TextRange.Text = “Waktu yang tersisa”
With .Shapes(“tampilanJam”)

waktuberkurang = InputBox(“Lama Waktu Hitung Mundur”, “Pengaturan Waktu”)
Do While (waktuberkurang > -1)
If Format(Now, “ss”) <> Format(xwaktu, “ss”) Then
xwaktu = Now
.TextFrame.TextRange.Text = Format(TimeValue(Format(Now, “hh:mm:ss”)) – TimeSerial(Hour(Now), Minute(Now), Second(Now) + waktuberkurang), “hh:mm:ss”)
waktuberkurang = waktuberkurang – 1
DoEvents
End If
Loop
End With
waktuberjalan = False
MsgBox (“Waktu habis!… klik ‘OK’ untuk mengulangi hitung mundur.”)
SlideShowWindows(1).View.GotoSlide (2)
End

End With
End If
End Sub
Sub ulangi()
With ActivePresentation.Slides(1)
.Shapes(“start”).TextFrame.TextRange.Text = “Hitung Mundur”
SlideShowWindows(1).View.GotoSlide (1)
End With
End Sub

5. Selanjutnya pada tombol mulai (slide1), insert >  action > run macro “Waktu” dan pada tombol ulangi (slide2) insert > action > run macro “ulangi”

Link download : powerpoint countdown timer

Selamat mencoba dan semoga bermanfaat!

Author: Abdul Karim

Integrasi Matematika dan Teknologi merupakan fokus perhatian saya, dalam memberikan kontribusi kepada pendidikan matematika di Indonesi

5 thoughts on “Script VBA untuk membuat hitung mundur (countdown timer) di Powerpoint”

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s