Script VB Untuk Membuat Quiz di PowerPoint

Script VB Untuk Membuat Quiz di PowerPoint

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

__________________
Catatan:
yang dikasih warna merah bisa kita gantu.

Angka 1, itu menunjukan bobot nilai per butir soal. Kalau bobot nilainya 2 tinggal diganti menjadi 2.