CARA MEMBUAT KUIS PILIHAN GANDA DI POWER POINT

1. Buka power pointnya
2.Pada jendela View pilih macros
3. Tulis apa saja yang anda mau (contohnya mulai_kuis) dan pilih creat
4.setelah macro terbuka dan copy paste kan kode dibawah ini:

Dim nilai As Integer
Dim konfirmasi As String
Sub mulai_kuis()
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 cek_skor()
MsgBox (" skor anda adalah " & nilai)
konfirmasi = MsgBox(" Ingin Mengulangi kuis? ", vbYesNo)
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.First
End If
If konfirmasi = vbNo Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

5.Jika sudah, tutup jendela macro, kemudian

• Pada slide pertama :  Kilik Tombol “Start” kemudian pilih Insert > Action, klik Run Macro > mulai_kuis
• Pada slide ke 2 hingga slide ke 11 :  setiap tombol jawaban (teks juga bisa), berilah action dengan cara : Pilih tombol > Klik Menu Insert  >  Klik Icon Action > Run Macro > Pilih “Benar” untuk jawaban benar dan “salah” untuk jawaban salah.
• Pada slide penutup :  pilih tombol “Cek Jawaban” lalu klik Insert > Action > Run Macro > cek_skor
•  
• Terakhir simpan file anda. Untuk powerpoint (2007 dan 2010) simpan dengan format PPTM (PowerPoint Macro – Enabled Presentation)