- Buat satu slide baru/new slide pada MS Power Point
- Pada Slide Pertama sertakan petunjuk atau cara mengerjakan soal, jumlah soal, waktu dan hal penting lainnya dan buat satu tombo mulai
- Pada slide ke 2 dan seterusnya biat soal dan pilihan ganda (A, B, C, D) dan setiap soal tentukan satu pilihan yang benar (Buat satu slide satu soal)
- Pada slide terakhir atau penutup siapkan satu tombol Selesai & Cek Hasil
- Setelah soal selesai tekan tombol Alt + F11
- Pada layar akan tampil jendela makro dan copy skrip berikut :
Dim nilai As Integer
Dim konfirmasi As String
Sub mulai_kuis()
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 + 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 cek_skor()
MsgBox (" skor anda adalah " & nilai)
konfirmasi = MsgBox(" Ingin Mengulangi kuis? ", vbYesNo)
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.First
End If
If konfirmasi = vbNo Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
- Jika sudah tutup jendela macro, kemudian
- Pada slide pertama : klik tombol "mulai" kemudian pilih insert > Action, klik Run Macro > mulai_kuis
- Pada slide ke 2 hingga 11 : setiap tombol jawaban (teks juga bisa), berilah action dengan cara : Pilih tombol > Klik Menu Start > Klik Icon Action > Run Macro > Pilih "Benar" untuk jawaban benar dan "salah" untuk jawaban salah.
- Pada slide penutup : pilih tombol "Selesai & Cek Hasil" lalu klik > Action > Run Macro > cek_skor. Selengkapnya seperti gambar berikut.
- Terkahir simpan file anda. Untuk Power Point (2007 dan 2010) simpan dengan format PPTM (PowePoint Macro - Enabel Presentation)
Selanjutnya untuk melihat semua tampilan presentasi tekan tombol F5 pada keybord.
Selamat mencoba dan silakan sekarang di presentasikan ke siswa
sumber : semua ini saya dapatkan dari pengalaman saat diklat
No comments:
Post a Comment