CHEMISTLICIOUS: 12 LANGKAH MUDAH MEMBUAT SOAL PILIHAN GANDA INTERAKTIF DENGAN POWER POINT

Aplikasi Powerpoint selama ini hanya digunakan untuk membuat suatu media presentasi atau bahan ajar yang bersifat satu (1) arah saja (non interaktif), dimana pengguna hanya berlaku sebagai pendengar atau penonton saja tanpa terlibat aktif dalam proses pembelajaran yang ada dalam media tersebut secara mandiri. Sebenarnya Powerpoint dapat digunakan untuk membuat suatu media pembelajaran interaktif. Berikut ini akan diulas langkah mudah membuat soal pilihan ganda interaktif yang dapat dipergunakan untuk pembelajaran mandiri dengan menggunakan Aplikasi Powerpoint.

Tahapan membuat bahan ajar interaktif :

Membuka Microsoft Power Point
Membuat slide dengan masing-masing slide terdiri dari satu soal
Memilih slide sesuai dengan selera
Persiapkan terlebih dahulu tab developer sudah muncul atau belum. apabila belum, cara memunculkannya adalah: klik File > Option > Customize Ribbon > Centang pada bagian Developer

Gambar 1. Cara memunculkan tab Developer

5. Pada slide pertama, buat button start guna memulai pertanyaan

Gambar 2. Tombol START pada slide pertama

6. Pada slide ke dua dan seterusnya isi dengan soal beserta opsi pilihan ganda. Setiap slide masing-masing berisi satu slide.

Gambar 3. Slide berisi soal dan opsi jawaban pilihan ganda

7. Pada slide terakhir buatlah button Cek Skor dan shape home dan silang

Gambar 4. Slide berisi Cek Skor, Home dan Silang

8. Untuk memasukkan perintah, pada developer pilih view code. Sehingga akan muncul slide lain. Lalu masukkan perintah sebagai 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 + 1

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 (" Jawaban anda yang benar 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.Exit

End If

End Sub

Gambar 5. Pengisian Kode

9. Untuk menentukan jawaban benar, pada jawaban benar blok, lalu pada menu insert pilih action. Dan pada run macro pilih benar. Untuk run macro dapat dipilih berbagai pilihan. Untuk pilihan salah jika memilih jawaban salah, untuk pilihan mulai jika memilih tombol start, dan pilihan cek skor ketika memilih cek jawaban.

Gambar 6. Pilihan pada Action pada menu insert

10. Untuk menjalankan masing-masing tanda, caranya dengan memblok tanda lalu pada menu insert pilih action. Untuk home pada pilihan hyperlink to pilih first slide. Sementara untuk tanda keluar pada hyperlink to pilih end show.