Permainan Interaktif “KARTU PENEBAK TANGGAL LAHIR”

Sebagai selingan dikala siswa merasa jenuh dengan pelajaran yang dirasa cukup melelahkan, sebagai alternatif untuk mencairkan suasana, ada baiknya diisi dengan permainan-permainan ringan. Salah satunya adalah permainan menebak tanggal lahir seorang siswa dengan bantuan kartu. Kartu yang dibutuhkan terdiri dari 5 buah kartu seperti berikut ini:

 Satu per satu kartu ditunjukkan kepada siswa dan ditanyakan apakah tanggal lahirnya ada pada kartu tersebut. Siswa cukup menjawab “Ada” atau “Tidak”. Setelah kelima kartu ditunjukkan dan diperoleh jawaban siswa, maka kita berusaha untuk menebak tanggal lahir siswa tersebut.

Kini permainan itu sudah saya buat dalam powerpoint, sehingga siswa tinggal menekan tombol “ADA” atau “TIDAK” dari setiap kartu yang muncul. Setelah jawaban dari kartu kelima, maka otomatis akan dimunculkan tanggal lahir siswa tersebut.

Cara membuatnya:

1.       Buka Powerpoint

2.       Buat tampilan berikut pada slide 1

3.       Klik tombol “LANJUT” -->Insert --> Action --> Hyperlink to --> NEXT SLIDE

4.       Slide 2 sampai slide ke 6 masing-masing berisi tabel angka KARTU 1 sampai KARTU 5.
Misalnya untuk slide 2, tampilannya seperti berikut ini:

5.       Slide ke-7, buat tampilan seperti berikut:

 Pada Slide 7 ini, Klik tombol "Close" --> Insert --> Action --> Hyperlink to --> End Show".

6.       Klik Developer --> View Code --> Insert --> Module,  kemudian ketik script berikut ini
Dim tgl As Integer
Sub mulai()
tgl = 0
ActivePresentation.SlideShowWindow.View.GotoSlide (3)
End Sub

Sub tampilkan()
With ActivePresentation.Slides(12)
.Shapes(4).TextFrame.TextRange.Text = tgl
End With
End Sub

Sub ya1()
tgl = tgl + 1
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub ya2()
tgl = tgl + 2
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub ya3()
tgl = tgl + 4
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub ya4()
tgl = tgl + 8
ActivePresentation.SlideShowWindow.View.Next
End Sub


Sub ya5()
tgl = tgl + 16
ActivePresentation.SlideShowWindow.View.Next
tampilkan
End Sub

Sub tdk1()
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub tdk2()
ActivePresentation.SlideShowWindow.View.Next
tampilkan
End Sub

7.       Atur Action dari tiap tombol “ADA” dan “TIDAK” dari slide 2 hingga slide 6, sebagai berikut:
Mulai dari Slide 2.
Klik tombol “ADA” --> Insert --> Action --> Run Macro -->”ya1”
Klik tombol “Tidak” --> Insert --> Action --> Run Macro -->”tdk1”
Pada slide 3 hingga slide ke 6 caranya sama, hanya “ya1” diganti dengan “ya2” hingga “ya5”. 
Pada Slide6, tombol "Tidak" diberi Action "tdk2”

8.       Terakhir simpan powerpoint dalam save as type : Powerpoint Macro-Enable Presentation.

Demikianlah tutorial cara membuat “KARTU PENEBAK TANGGAL LAHIR”.

File yang sudah jadi dapat di download di sini --> KARTU PENEBAK TANGGAL LAHIR