Membuat Kuis dan Nilai Otomasti Keluar dari Power Point

Karena kesukaan/hobi surfing dan browsing jika ada waktu longgar (padahal waktu mepet pun disempetin buka internet juga :p) akhirnya nemu sebuah blog yaitu blognya bu ami dari Jombang yang membuat saya kepengen praktekin dan hasilnya wow mantap #lebay dikit ya :D

Sebelumnya intro dahulu, mengapa mesti power point? Khan ada banyak quiz maker?

Ya memang banyak software quiz maker dari A-Z tetapi alas an kita menggunakan power point supaya lebih simple saja tidak membuka banyak software ketika lagi asyik membuat materi ajar dan evaluasi.

Ok, langsung saja bagaimana sih membuat kuis di slide yang kita buat? Tentu saja buka terlebih dahulu software power pointnya, dan kalau sudah muncul power pointnya segera tekan tombol Alt+F11 pada keyboard, maka akan muncul jendela/form baru yaitu jendela yang akan digunakan untuk memasukkan script/kode VB yang mana kode tersebut akan berfungsi sebagai perintah macro yang akan kita gunakan untuk membuat kuis tanpa software yang lain lagi, berikut kodenya silakan di copy paste ke jendela baru tadi sebelumnya Insert – Module dulu ya :D

Dim nilai As Integer

Dim konfirmasi As String

Sub mulai()

konfirmasi = MsgBox("Anda akan segera mulai Kuis ini", vbYesNo)

If konfirmasi = vbYes Then

nilai = 1

ActivePresentation.SlideShowWindow.View.Next

End If

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

Harap diperhatikan untuk nilai, tanda ‘ dan tanda “ jika perlu diganti karena kadang berubah dari salinan word biasa ke tempat script VB tersebut, dan jika Anda paham bahasa pemrograman bisa diedit-edit untuk mendapatkan hasil yang lebih bagus.

Selanjutnya, ketika sudah dilakukan itu semua, kembali ke halaman power pointnya dan mulai kita membuat kuisnya. Sedangkan untuk konsep bebas missal slide pertama untuk judul Evaluasi kuisnya, slide kedua dan seterusnya untuk soal-soalnya.

Inti dari pembuatan kuis ini adalah kita tambahkan action pada objek yang kita pilih bisa dengan shape (soal dan jawaban pada shape satu-satu). Langkah pertama silakan isikan Slide 1 dengan judul kuis

Untuk lebih jelasnya bisa lihat video saya berikut ini http://www.youtube.com/watch?v=Ayy_1yFQiWE&feature=player_embedded