Membuat Kuis Acak Interaktif Dengan Powerpoint

Bagi sebagian orang yang berkecimpung dalam dunia presentasi tentulah sudah sangat familiar dengan yang namanya MS Powerpoint. Untuk menghasilkan presentasi yang baik tentu diperlukan proses pembelajaran yang panjang. Pada kesempatan kali ini akan saya sajikan tutorial pembuatan "KUIS ACAK INTERAKTIF". Tujuannya adalah agar soal yang kita buat dapat tampil secara acak, dengan demikian diharapkan siswa tidak menghafal kunci jawaban soal.
Langgkah-langkah pembuatannya sebagai berikut:
1. Buka Ms Powerpoint, kemudian klik Developer --> view code --> insert --> module
2. Ketikkan script berikut ini :
Dim nilai As Integer
Dim konfirmasi As String

Sub mulai()
nilai = 0
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub benar()
konfirmasi = MsgBox("Anda yakin dengan jawaban ini?", vbYesNo, " Cek Jawaban! ")
If konfirmasi = vbYes Then
nilai = nilai + 1
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub


Sub salah()
konfirmasi = MsgBox("Anda yakin dengan jawaban ini?", vbYesNo, " Cek Jawaban! ")
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub cek()
ActivePresentation.SlideShowWindow.View.Next
tampilkan
End Sub

Sub tampilkan()
With ActivePresentation.Slides(13)
.Shapes(2).TextFrame.TextRange.Text = nilai
End With
End Sub

Sub Acak()
Dim Iupper As Integer
Dim Ilower As Integer
Dim Ifrom As Integer
Dim Ito As Integer
Dim i As Integer
Iupper = 11
Ilower = 2
For i = 1 To 2 * Iupper
Randomize
Ifrom = Int((Iupper - Ilower + 1) * Rnd + Ilower)
Ito = Int((Iupper - Ilower + 1) * Rnd + Ilower)
ActivePresentation.Slides(Ifrom).MoveTo (Ito)
Next i
Exit Sub
End Sub

3. Selanjutnya pada slide 1,buatlah sebuah tombol "OK" dan beri Action --> Run Macro --> pilih "Acak".
Dan buat satu tombol lagi "Mulai" beri Action --> Run Macro --> pilih "mulai".
Untuk tombol "Mulai" ini kita beri animasi "Zoom" dan diatur agar muncul setelah tombol "OK" diklik. (Gunakan Trigger)

 

4.  Buat Slide ke 2 yang berisi soal dan pilihan jawaban seperti gambar berikut:

      Buat 4 buah tombol dan tempatkan pada pilihan jawaban A, B, C dan D.
      Pada masing-masing tombol beri Action --> Run Macro --> pilih "Salah".
5. Copy slide 2 ini dan paste sebanyak 9 kali (Sehingga ada 10 soal).
6. Buat Slide ke-12 seperti tampilan berikut:

   Tombol "Lihat Nilai" diberi Action  --> Run Macro --> pilih " Cek"
7. Slide ke 13 (terakhir) seperti berikut ini;

Pada slide ini ada TextBox yaitu tempat menampilkan nilai (Pada gambar bernilai 0) dan sebuah tombol "Close". Tombol ini diberi Action --> Hyperlink To --> End Show.

8. Selanjutnya kembali ke slide 2 (Soal pertama), untuk tombol pada jawaban benar, beri Action --> Run Macro --> pilih "benar".
Dilanjutkan pada slide 3 sampai slide 11, ganti soal dan atur tombol jawaban benar seperti langkah 8.


Demikianlah cara membuat kuis acak Interaktif. Apabila file kuis acak ini dijalankan, maka urutan soal akan selalu berubah. Semoga bermanfaat.
Contoh filenya dapat di download disini --> KUIS ACAK