Silakan copy coding berikut:

Dim nilai As Double
Dim konfirmasi As String
Sub mulai()
nilai = 0
konfirmasi = MsgBox(“Yakin akan mulai tes?”, vbYesNo, “Kata Pembuka”)
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.Next
End If
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 tampilkan_nilai()
ActivePresentation.Slides(12).Shapes(6).TextFrame.TextRange.Text = nilai
nilai = Format(nilai, “0.0#”)
MsgBox “Nilai Anda? ” & (nilai * 10) / 6, vbOKOnly, “Hasil Anda”
End Sub