Coding Skor untuk Powerpoint (Script vba untuk pilihan ganda)

Dim nilai As Integer

Dim konfirmasi As String

 

Sub mulai()

nilai = 0

ActivePresentation.SlideShowWindow.View.Next

End Sub

 

Sub benar()

konfirmasi = MsgBox("Yakin denganjawabananda?", vbYesNo, "   CekJawaban!")

If konfirmasi = vbYes Then

nilai = nilai + 1

ActivePresentation.SlideShowWindow.View.Next

End If

End Sub

 

Sub salah()

konfirmasi = MsgBox("Yakin denganjawabananda?", vbYesNo, "    CekJawaban!")

If konfirmasi = vbYes Then

ActivePresentation.SlideShowWindow.View.Next

End If

End Sub

 

Sub jawab()

'tomboluntukselesai

MsgBox (" skorandaadalah " & nilai)

End Sub

Sumber : https://youtu.be/kovAlorGntI