iklan horizontal atas

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


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"

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel