Membuat Soal Pilihan Ganda Menggunakan VBA-PowerPoint

PowerPoint adalah software presentasi yang sangat powerfull, berbagai tampilan dan animasi dapat dilakukan, tapi salah satu kelemahannya adalah bukan bahasa pemrograman, sehingga terkadang kurang interaktif. Untuk menambah interaktifitas perlu digabungkan dengan Visual Basic for Application (VBA). Berikut akan dijelaskan secara ringkas langkah-langkah membuat soal pilihan ganda menggunakan VBA in PowerPoint.

    1. Bukalah program aplikasi Microsoft PowerPoint
    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 3 soal, maka kita akan membuat soal dari slide ke 2 hingga slide ke 4.
    6. Selanjutnya buatlah satu lagi slide (slide ke-5) untuk penutup dan jangan lupa buatkan tombol untuk mengecek skor (Cek Jawaban).
    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 + 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.Next
End If
End Sub

vba-pp
    1. 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 4:

Setiap tombol jawaban (teks juga bisa dipakai), berilah action dengan cara : Pilih tombol/teks > 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

    1. Agar peserta tes tidak menekan tombol selain yang di sediakan, lebih baik non aktifkan klik pada semua slide. Caranya klik menu Peragaan Slide > Siapkan Peragaan Slide > pada Tipe peragaan: pilih “Dijelajah di kios (layar penuh)”, pada Opsi peragaan: pilih “Perlihatkan tanpa animasi” > klik OK.
    2. Terakhir simpan file anda. Untuk PowerPoint (2007 dan 2010) simpan dengan format PPTM (PowerPoint Macro – Enabled Presentation)

Berikut video tutorial di kanal Youtube

 

[youtube https://www.youtube.com/watch?v=u3XgW68ye8Q&w=560&h=315]

Leave a Reply

Your email address will not be published. Required fields are marked *