- Buatlah sebuah soal sejumlah 5 buah
- Untuk slide awal wajib di beri tombol MULAI / START
- Slide terakhir untuk tombol CEK NILAI
- Jadi total slide yang dibuat sejumlah 7
setelah itu buka window macro dengan menekan bersaman ALT + 11 nanti akan keluar jendela Visual Basic .
Dilanjutkan dengan Insert - Module. Isikan Script berikut ini (COPAS saja lah... ) :
=================================================================
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 skor()
'tombol untuk selesai
MsgBox (" nilai anda adalah " & nilai)
End Sub
=================================================================
setelah itu simpan dengan file type PowerPoint Macro-Enabled Presentasion.
Selamat berkreasi!! jangan lupa di jalankan ya...
