RUMUS MACRO UNTUK MEMBUAT APLIKASI QUIZ DI MICROSOFT OFFICE POWERPOINT

Silahkan dicopi kode macro berikut, pastekan kedalam module powerpoint dengan langkahnya :

1. Bukalah Ms Powerpoint dan buatlah Slide baru. 

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

3. Pilih menu Insert, pilih Module

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 + 20
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

Thank, Semoga Bermanfaat.