SCRIPT MACRO PEMBUATAN KUIS INTERAKTIF POWER POINT

Silahkan copas script berikut untuk membuat kuis interaktif.

Dim nilai As Integer
Dim konfirmasi As String

Sub mulai()
nilai = 10
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


Ini contoh hasilnya!.