Media Pembelajaran sangat diperlukan dalam kegiatan pembelajaran
supaya kegiatan pembelajaran di kelas sangat menarik dan mengesankan.
Misalkan, kita membuat media
pembelajaran berupa quiz pembelajaran. Berikut cara membuat quiz interaktif
untuk mata pelajaran matematika.
CARA MEMBUAT QUIZ INTERAKTIF
1. Buatlah soal kuis, dengan slide pertama
tulis seperti ini:
2. Slide ke-2, slide ke-3, slide ke-4, dan
slide ke-5 berisi pertanyyan yang ingin Anda membuat kuis. Misalkan membuat
soal tentang Persamaan dan Pertidaksamaan Kuadrat.
3. Dan slide terkahir berisi cek skor
kuis. Seperti gambar berikut ini.
4. Jika sudah tekan alt + F11 pada keyboard lalu akan muncul Microsoft Visual Basic. Pilih
menu insert , kemudian pilih module. Jika sudah akan muncul seperti
gambar berikut.
5. Sebelum kita mengisi kotak kosong.
Ketik dahulu rumus pada notepad. Caranya klik start-All Program- Accesories –
pilih notepad. Jika sudah ketik rumus dibawah ini lalu save di komputer anda.
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 + 2
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
6.
Jika sudah di save, lalu anda kembali pada microsoft visual basic lalu
copy-paste rumus tersebut pada kotak kosong. Catatan : jika ketikan anda ada
yang berwarna merah berarti anda salah mengetik, jika begitu periksa ulang
sampai benar.
7.
Jika sudah lalu anda kembali ke Ms. Power Point , lalu klik gambar START
Pada slide pertama lalu pilih menu insert-action – pilih Run Macro – lalu pilih
“mulai_kuis”.
8.
Setelah itu lakukan berulang pada slide kedua , klik jawaban salah
lakukan cara seperti diatas tapi pada run Macro pilih “salah” sedangkan jawaban
benar pilih “benar”. Lakukan berulang pada pertanyaan kuis yang anda buat.
9.
Jika sudah lalu lakukan lagi hal yang sama pada slide terakhir seperti
cara 5 dengan diklik gambar SKOR dan
pilih “skor” pada Run macro.
10. Jika sudah selesai, silahkan anda coba kuis nya dengan
cara klik Slide Show (F5). Dan jika ingin di simpan agar tidak hilang editan
kuisnya maka anda ganti di format type
“Power Point Enable Template”.
Langkah-langkahnya dapat didownload dibawah ini
Facebook
