Membuat Kuis Interaktif dengan Powerpoint

 

Assalamua’alaikum sahabat ppkn,,

pada bingung ya bikin tugasnya pak said suil,,

Gampang kok friend, bukannya sok tau, karna gua emang tau, saya hanya ingin sekedar membantu rekan-rekan semua dan bukan juga sok-sok baik karna gua emang baik,,,hahaha piiis ( redam emosi anda )

Ok, langsung saja bagaimana sih membuat kuis pada slide powerpoint? 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). 

bagi yang belum paham bisa tanya langsung,,,

Semoga berhasil,,,

Dan siap2 untuk kuis,,