Cara Membuat Score Kuis Interaktif pada Ms. Powerpoint

Cara Membuat Score Kuis Interaktif pada Ms. Powerpoint

Hai Sobat,  kali ini saya akan berbagi cara membuat kuis dengan score pada Ms. Powerpoint. Kebetulan saya mendapat tugas dari Kuliah Pengantar Teknologi Informasi, jadi, sekalian kita bahas pada kesempatan ini. 

Langsung kita mulai saja,  Jika sebelumnya anda sudah pernah membuat kuis di Ms. Powerpoint tanpa ada scorenya. Maka sekarang anda bisa mengeditnya kembali dan memberi nilai tertentu pada soal kuis anda.

Berikut ini langkah-langkahnya:

1.        Bukalah Ms Powerpoint dan buatlah Slide baru.

• Bukalah Jendela Macro dengan menekan tombol Alt + F11 secara bersamaan.

• Pilih menu Insert, Module dan Copy-paste lah script VB berikut:

Dim nilai As Integer
Dim konfirmasi As String

Sub mulai()
nilai = 0
ActivePresentation.SlideShowWindow.View.Next

End Sub

Sub benar()
konfirmasi = MsgBox(“Yakin dengan jawaban anda?”, vbYesNo, ”Cek Jawaban!”)
If konfirmasi = vbYes Then
nilai = nilai + 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub salah()
konfirmasi = MsgBox(“Yakin dengan jawaban anda?”, vbYesNo, ”Cek Jawaban!”)
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub jawab()
‘tombol untuk selesai

MsgBox (” skor anda adalah ” & nilai)
End Sub

• Sesuaikan Score soal, dengan mengganti angka 10, pada Nilai=nilai+10.

• Jika sudah, kembali-lah ke halaman Ms Powerpoint anda.

2.        Slide ke-1 (digunakan untuk menampilkan Informasi tentang kuis), Ketikkan Judul Kuis / Semua Informasi tentang Kuis. Dan pada bagian bawah slide, buatlah Autoshape (tombol) dengan teks di dalamnya “Start Quiz”  yanga akan menghubungkan ke slide kuis dengan cara :

• Pilih menu Insert, Shape, Pilih Action Button, Custom. Buatlah bentuk Kotak.

• Selanjutnya akan muncul kotak dialog Action Setting, Pilih Run Macro, dan pilih “mulai” dan Klik OK.

3.        Pada slide 2 buatlah soal pilihan ganda, usahakan untuk setiap slide 1 soal beserta option-nya. Buat tombol pilihan ganda sesuai jumlah option. 

Untuk membuat Option, lakukan seperti anda membuat Tombol “START QUIZ” . klik insert>action>atur action setting dengan klik run macro>pilih benar jika jawaban tersebut BENAR atau pilih salah jika jawaban tersebut SALAH. Lakukan hal serupa untuk soal-soal berikutnya sampai selesai

4.        Dan Pada Slide terakhir, digunakan sebagai Review kuis atau anda juga bisa memberi tombol “Cek Nilai” untuk melihat hasil nilai kuis.

• Pada pilihan Run Macro, pilih “Jawab“
• Klik OK.

5.        Terakhir simpan file anda. Untuk PowerPoint (2007 dan 2010) simpan dengan format PPTM (PowerPoint Macro – Enabled Presentation)

6.         Selesai! Jalankan Kuis dengan menekan Tombol F5.