Tutorial Membuat Soal Pilihan Ganda di Powerpoint

            Microsoft Power Point biasanya digunakan sebagai media presentasi ataupun membuat media pembelajaran. Dalam pembuatan media pembelajaran ataupun presentasi haruslah menarik dan interaktif agar tidak membuat jemu. Yang menjadi pertanyaan, bisakah anda membuatnya menjadi lebih menarik dan interaktif?  Agar  media pembelajaran menjadi lebih interaktif maka anda dapat memadukan antara visual basic dengan Power Point. 

           Dengan memadukan antara Visual Basic dengan Power Point anda dapat membuat pertanyaan interaktif dimana anda ataupun pengguna nantinya dapat memilih pertanyaan lewat power point kemudian hasilnya langsung ditabulasi. Berikut langkah-langkah memadukannya, selamat membaca.

1. Buka lembar kerja microsoft power point anda. Buatlah beberapa slide, slide pertama digunakan sebagai        pembuka dan slide berikutnya dapat digunakan sebagai soal dan hasil evaluasi

2. Pastikan tab Developer pada powerpoint (Jika belum aktif, baca cara mengaktifkan tab Developer, klik      disini)

3. Klik Visual Basic

4. Akan muncul tampilan seperti berikut, lalu klik insert > Module

5. Kemudian copaskan scrip di bawah ini, tempelkan pada lembar Visual Basic.

Dim nilai As Integer

Dim konfirmasi As String

Sub mulai()

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 jawab()

'tombol untuk selesai

MsgBox (" skor anda adalah " & nilai)

End Sub

6. Klik tab seperti pada gambar untuk kembali ke slide Microsoft Powerpoint

7. Buat tombol untuk memulai soal, klik tan Insert > Action > Run Macros> Mulai_kuis.

    Untuk membuat tombol keluar, Insert>Action> Hiperlink to >End slide

8. Untuk memasang macro ada pilihan jawaban benar adalah dengan cara : masuk ke slide soal yang akan di            pasang macro, select pilihan jawaban  Insert > Action > Run Macro > Benar > OK.

              Langkah yang sama dilakukan untuk memilih jawaban salah : select pilihan jawaban > Insert > Action                               >Run Macro > Salah >OK

9. Untuk mengecek jawaban, langkahnya sama seperti membuat option benar/salah : select tombol cek >         Insert > Action >Run Macro >Cek_skor >OK.

10. Powerpoint dapat dijalankan

Demikian uraian singkat tips dan trik pembuatan latihan soal dengan umpan balik dengan Microsoft PowerPoint menggunakan VBA. Semoga bermanfaat selamat berkreatifitas