Contoh untuk membuat kuis di powerpoint 2007/2010
1. Bukalah Ms Powerpoint dan buatlah Slide baru.
• Bukalah Jendela Macro dengan menekan tombol Alt + F11 secara bersamaan.
• Pilih menu Insert, Module dan Copy-paste lah script VB berikut pada halaman module tersebut disebelah kanan warna putih:
Dim nilai As Integer
Dim konfirmasi As String
Sub mulai()
nilai = 0
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub benar()
konfirmasi = MsgBox(“Apakah Anda Yakin Jawaban Anda?”, vbYesNo, ” Cek Jawaban!”)
If konfirmasi = vbYes Then
nilai = nilai + 1
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Sub salah()
konfirmasi = MsgBox(“Apakah Anda Yakin Jawaban Anda?”, vbYesNo, ” Cek Jawaban!”)
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Sub jawab()
‘tombol untuk selesai
MsgBox (” skor anda adalah ” & nilai)
End Sub
• Sesuaikan Score soal, dengan mengganti angka 1, pada Nilai=nilai+1.
• Jika sudah, kembali-lah ke halaman Ms Powerpoint anda.
2. Pada Slide ke-1 (digunakan untuk menampilkan Informasi tentang kuis), Ketikkan Judul Kuis / Semua Informasi tentang Kuis. Dan pada bagian bawah slide, buatlah Autoshape (tombol) dengan teks di dalamnya “Start ” dengan cara :
• Pilih menu Insert, Shape, Pilih Action Button, Custom. Buatlah bentuk Kotak.
• Selanjutnya akan muncul kotak dialog Action Setting, Pilih Run Macro, dan pilih “mulai” dan Klik OK.
Berikut adalah screenshotnya:
Non-aktifkan Transisi, dengan menghilangkan tanda Checklist pada pilihan Transition, On mouse click. Hal ini supaya user hanya bisa menjalankan slide dengan menekan tombol “Start “.
3. Pada Slide ke-2, berisi soal kuis.
• Setiap slide berisi 1 soal kuis.
• Ketikkan Soal kuis yang ke-1 beserta Option-nya.
• Masing- masing Option menempati Autoshape /TextBox yang berbeda. Jadi jika pada 1 soal terdapat 5 Option, maka harus ada Textbox / Autoshape dengan Jawaban didalamnya, sebanyak 5 buah. Dalam contoh dibawah ini hanya 3, didalam kotak jawaban terdapat 1 jawaban yang benar dan lainnya salah.
Berikut contoh screenshotnya:
Pada soal diatas kalau diklik salah satu jawaban akan muncul pesan konfirmasi seperti dibawah ini:
Untuk membuat pilihan jawaban , lakukan seperti anda membuat Tombol “START” . yaitu dengan menu insert > Shapes > ActionButton kemudian pilih tombol kotak
• Ketika tampil Kotak dialog Action Setting, pilih :
o Pilihan Benar, untuk pilihan Jawaban yang BENAR
o Pilihan Salah, untuk pilihan Jawaban yang SALAH
Berikut screenshotnya:
Jawaban yg benar
Jawaban yg salah
• 1 Soal, hanya berisi 1 jawaban benar selebihnya harus diberi action makro salah.
• Jika sudah, Klik OK.
Ulangi untuk pilihan jawaban yang lain dengan pilihan Macro yang sesuai (BENAR/SALAH)
4. Ulangi langkah 4 untuk soal kuis yang lain sampai berapa 5 atau 10 soal caranya seperti itu, pada slide berikutnya.
Dan Pada Slide terakhir, digunakan sebagai Review kuis atau anda juga bisa memberi tombol “Cek Nilai” untuk melihat hasil nilai kuis (ikuti langkah 2).
• Pada pilihan Run Macro, pilih “Jawab“
• Klik OK.
7. Terakhir simpan file anda. Untuk PowerPoint (2007 dan 2010) simpan dengan format PPTM (PowerPoint Macro – Enabled Presentation); untuk backup simpan juga dengan format PPSX; PPTX atau PPS untuk powerpoint 97-2003
8. Selesai! Coba Jalankan Kuis dengan menekan Tombol F5 untuk melakukan evaluasi. Apakah link jawaban soal sudah benar atau masih ada kesalahan.
Terimakasih, selamat mencoba semoga berhasil, bila ada kesulitan
Kontak: parsi.yono@gmail.com atau 085228453885
Langganan:
Postingan (Atom)