Membuat Soal PG dengan PowerPoint

Setelah selesai melakukan seatu Proses Belajar Mengajar (PBM) di kelas, biasanya guru melakukan evaluasi  (pengukuran) , berupa tagihan ulangan atau quiz. Dari hasil evaluasi tersebut bisa diketahui berapa jumlah siswa yang di atas Kriteria Ketuntasan Mengajar (KKM) maupun berapa jumlah siswa yang di bawah KKM. Untuk siswa yang di atas KKM , seorang  guru akan memberikan program pengayaan, sedangkan untuk yang di bawah KKM akan diberikan program perbaikan.

Naah...hubungannya  ulangan/quiz dengan program perbaikan dan pengayaan, nantinya  akan dibuatlah suatu bentuk soal. Salah satu bentuk soalnya misalkan adalah Pilihan Ganda (PG). Agar mudah dan praktis kita akan coba membuat bentuk soal PG dengan menggunakan aplikasi dari Micrsoft Office PowerPoint.

Untuk totorialnya saya kutip dari blognya Mas Vilanata

1. Bukalah program aplikasi Power Point
2. Pada slide pertama tuliskan ucapan selamat datang dan sedikit informasi tentang cara mengerjakan tes
3. Masih pada slide pertama, siapkan tombol yang bertuliskan “Start” / “Mulai”
4. Buka slide baru, pada slide kedua dan seterusnya, buatlah soal dan pilihan jawabannya.
5. Satu slide berisi satu soal, jadi jika tes terdiri dari 10 soal, maka kita akan membuat soal dari slide ke 2 hingga slide ke 11.
6. Selanjutnya buatlah satu lagi slide untuk penutup dan jangan lupa siapkan tombol untuk mengecek skor.
7. Setelah itu tekan Alt + F11 untuk memunculkan Jendela Macro
8. Setelah jendela macro terbuka, pilih Insert > Module, kemudian Copy-Paste script 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

Untuk selanjutnya ikuti :

• Jika sudah, tutup jendela macro, kemudian
• Pada slide pertama :  Kilik Tombol “Start” kemudian pilih Insert > Action, klik Run Macro > mulai_kuis
• Pada slide ke 2 hingga slide ke 11 :  setiap tombol jawaban (teks juga bisa), berilah action dengan cara : Pilih tombol > Klik Menu Insert  >  Klik Icon Action > Run Macro > Pilih “Benar” untuk jawaban benar dan “salah” untuk jawaban salah.
• Pada slide penutup :  pilih tombol “Cek Jawaban” lalu klik Insert > Action > Run Macro > cek_skor
• Agar peserta tes tidak menekan tombol selain yang di sediakan, lebih baik non aktifkan klik pada semua slide
• Terakhir simpan file anda. Untuk PowerPoint (2007 dan 2010) simpan dengan format PPTM (PowerPoint Macro – Enabled Presentation)

Alhamdulillah, semoga bermanfaat dan tetap semangat.
Untuk contohnya...bersambung :D  

 Referensi : http://id.4presentation.net/