Cara Pembuatan Kuis Pilihan Ganda di PowerPoint
Maschasil.com- Cara Pembuatan Kuis Pilihan Ganda di PowerPoint. Anda pasti tahu dengan Microsoft PowerPoint yang memang dijadikan salah satu paketan dari Microsoft dengan kegunaan dalam pembuatan slide presentasi, dari Microsoft PowerPoint juga bisa anda manfaatkan dalam pembuatan kuis misalnya game kuis yang sangatlah unik dan menarik.
Ketika hal ini banyak yang menggunakan dari beberapa kalangan seperti pendidikan, siswa, perkantoran dan lainnya, maka sebagian dari pendidikan ataupun para pendidi pastinya menggunakan yang namanya Microsoft PowerPoint yang dijadikan untuk ajang presentasi dalam media pembelajaran yang mudah untuk dilakukan. Baca : Cara Mudah Membuat Animasi di PowerPoint Biar Lebih Keren Tampilannya
Cara Pembuatan Kuis Pilihan Ganda di PowerPoint
1. Awal bisa buka Microsoft PowerPoint di PC ataupun laptop, setelah itu bisa tentukan dari tema slide kuis yang mau dibuat.
2. Selanjutnya anda bisa buat soal kuis.
3. Setelah itu pada slide 2,3,4 daan selanjutnya bisa dibuatkan pertanyaan kuis dari pilihan ganda.
4. Setelah itu pada slide yang terakhir bisa dibuat slide agar cek skor jawaban pada kuis tersebut.
5. Ketika dari isi slide tersebut sudah selesai, selanjutnya bisa tekan Alt+f11, dan akan muncul di jendela Microsoft Visual Basic.
6. Selanjutnya di Microsoft Visual Basic, bisa klik Insert, kemudian bisa pilih Module.
7. Sebelum melakukan pengisian module, anda bisa ketikkan beberapa koding program pada Notepad.
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 kamu?", 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 kamu?", 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
Kalau sudah selesai, kemudian bsia simpan di PC.
8. selanjutnya bisa buka Microsoft Visual Basik, setelah itu bisa copy program tadi.
9. setelah itu bisa ke Microsoft PowerPoint, kemudian bisa klik button Start di slide 1, setelah itu klik menu Insert, kemudian bisa pilih Action.
10. selanjutnya bisa klik Run Macro, kemudian pilih mulai_kuis.
11. setelah itu soal kuis dari pilih ganda, kemudian klik button jawaban benar setelah itu bisa lakukan cara yang sudah ada, namun ini bedanya di Run Macro pilih benar, kemudian di button jawaban pada Run Macro bisa pilih salah.
Baca : Ternyata Mudah! Cara Membuat Efek 3D PowerPoint dengan Cepat
12. Pada slide terakhir, agar bisa lihat skor dari jawabn, bisa klik button Nilai, setelah itu lakukan cara pada Run Macro kemudian pilih Skor.
13. Setelah itu ketika semuanya selesai, anda bsia test kuis, dengan klik Slide Show, bisa juga tekan F5.
14. Langkah selanjutnya bisa simpan file dengan dari format type dijadikan Power Point Enable Templete.
Demikian mengenai cara Cara Pembuatan Kuis Pilihan Ganda di PowerPoint. Dengan anda membuat kuis dengan adanya pilihan ganda yang memang lebih mudah digunakan pada PowerPoint. Semoga artikel ini bisa bermanfaat untuk anda semua. Terima kasih.
Belum ada Komentar untuk "Cara Pembuatan Kuis Pilihan Ganda di PowerPoint"
Posting Komentar