CONTOH KUIS MENGGUNAKAN VBA PADA POWERPOINT

Kuis "STRUKTUR BUMI" untuk kelas 5 di atas adalah hasil pekerjaan saya membuat kuis menggunakan VBA.

VBA merupakan singkatan dari Visual Basic For Aplication. Jadi, VBA ini merupakan macro yang ada pada software Microsoft PowerPoint. Dengan menggunakan macro ini, kuis yang kita buat lebih interaktif dibandingkan dengan membuatnya pada Microsoft PowerPoint biasa.

Langkah-langkah untuk membuat kuis interaktif menggunakan VBA Powerpoint adalah :

1. Buka program Microsoft PowerPoint
2. Pada slide pertama tuliskan ucapan selamat datang atau informasi-infromasi mengenai kuis (cara mengerjakan maupun ketentuan-ketentuan lainnya).
3. Masih pada slide pertama, siapkan tombol yang bertuliskan start atau mulai (membuat tombol dengan insert --> shape)
4. Buka slide baru, buatlah soal dan pilihan jawabannya. Begitu juga pada slide kedua dan seterusnya. Satu slide berisi satu soal dan pilihan jawabannya.
5. Jika kita membuat kuis dengan 5 soal, maka kita akan membuat soal dari slide ke-2 hingga slide 6. Hal itu karena pada slide 1 digunakan untuk tombol start/mulai.
6. Buat satu slide lagi yaitu slide 7 untuk tombol skor.
7. Siapkan tombol untuk mengulang/menyudahi kuis pada slide ke-8.
8. Setelah itu, tekan Alt + F11 untuk memunculkan jendela Macro.
9. Setelah jendela Macro teruka, pilih Insert > Module, kemudia Copy-Paste script di bawah ini :

Dim nilai As Integer

Dim konfirmasi As String

Sub mulai_kuis()

nilai = 0

ActivePresentation.SlideShowWindow.View.Next

Ens Sub

Sub benar()

konfirmasi = MsgBox ("Yakin dengan jawaban anda?", vbYesNo, "Cek jawaban!")

If konfirmasi = cbYes Then

nilai = nilai+1

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.Next

End If

If konfirmasi = vbNo Then

ActivePresentation.SlideShowWindow.View.Next

End If

End Sub 

10. Jika sudah, tutup jendela macro kemudian :

• Pada slide pertama : Klik Tombol "Start" kemudian pilih Insert > Action, klik Run Macro > mulai_kui
• Pada slide ke-2 hingga slide ke-6, 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 ke-7 : Pilih tombol "Score" kemudian klik Insert > Action > Run Macro > cek_skor

• Pada slide penutup : Klik tombol "Ya" kemudian klik Insert > Action > Run Macro > Mulai,  Klik Tombol "Tidak" lalu klik Insert > Action > Run Macro > cek_skor