Cara Membuat Kuis Menggunakan Microsoft Power Point

Berikut cara membuat kuis pada Microsoft Power Point:

1.   Buatlah soal kuis, dengan slide pertama ketik seperti ini :

Slide ke-2, ke-3, ke-4 dan ke-5 berisi pertanyaan yang ingin anda buat kuis. Seperti contoh.

Dan Slide terakhir berisi cek skor kuis. Seperti ini.

2.  Jika sudah tekan alt+F11 lalu akan muncul Microsoft Visual Basic. Pilih menu insert , kemudian pilih module. Jika sudah akan muncul .

3.  Sebelum kita mengisi kotak kosong. Ketik dahulu rumus pada notepad. Caranya klik start-All Program- Accesories – pilih notepad. Jika sudah ketik rumus dibawah ini lalu save di komputer anda.

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 + 2

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 (" skor anda 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

4.  Jika sudah di save, lalu anda kembali pada microsoft visual basic lalu copy-paste rumus tersebut pada kotak kosong. Catatan : jika ketikan anda ada yang berwarna merah berarti anda salah mengetik, jika begitu periksa ulang sampai benar.

5.  Jika sudah lalu anda kembali ke Ms. Power Point , lalu klik gambar START Pada slide pertama lalu pilih menu insert-action – pilih Run Macro – lalu pilih “mulai_kuis”.

6.  Setelah itu lakukan berulang pada slide kedua , klik jawaban salah lakukan cara seperti diatas tapi pada run Macro pilih “salah” sedangkan jawaban benar pilih “benar”. Lakukan berulang pada pertanyaan kuis yang anda buat.

7.  Jika sudah lalu lakukan lagi hal yang sama pada slide terakhir seperti cara 5 dengan diklik  gambar SKOR dan pilih “skor” pada Run macro.

8.  Jika sudah selesai, silahkan anda coba kuis nya dengan cara klik Slide Show (F5). Dan jika ingin di simpan agar tidak hilang editan kuisnya maka anda ganti di format type  “Power Point Enable Template”.