Membuat Soal Pilihan Ganda Dengan PowerPoint

17/10/2011 pakhermawan Visual Basic, 16

Posisi di : Happy Paperles - Real Quick Count Pilkada » Visual Basic » Membuat Soal Pilihan Ganda Dengan PowerPoint

Akhir – akhir ini  banyak pengunjung yang mencari media pembelajaran yang berbasis media komputer. Kali ini saya mau berbagi ilmu bagaimana cara membuat soal pilihan ganda menggunakan aplikasi PowerPoint dan Visual basic (Macro). Materi ini merupakan salah satu materi yang saya gunakan dalam IHT (in House Training) di SMK Panca Bhakti Banjarnegara yang bertema pemanfaatan PowerPoint dan Blog sebagai media Pembelajaran. IHT ini diselenggarakan selama 3 hari dari tanggal 5-7 Juli 2011. Semoga materi ini bisa menjadikan alternatif Bapak Ibu guru yang ingin mengembangkan media pembelajaran berbasis komputer, sekaligus sebagai media penyimpanan ilmu saya (maklum pelupa, hehehe…). Langsung saja, ikuti langkah berikut :

1. Pertama siapkan soalnya terlebih dahulu, 1 slide untuk satu soal. Slide pertama digunakan sebagai salam pembuka dan tombol konfirmasi untuk memulai mengerjakan soal, Slide ke 2 dan seterusnya berisi soal. Slide terakhir digunakan sebagai slam penutup dan tombol cek nilai. Jika Anda membuat dengan 10 soal berarti harus ada 12 Slide (Slide pembuka + slide 10 nomer soal + Slide penutup)

   .jobs

2. Buka Jendela Makro dgn cara tekan tombol Alt + F11 secara bersamaan
3. Copas-kan script berikut

Iklan Penting Nih Bapak Ibu guru, Siapa tau minat sama software penilaian ini.

Untuk artikel software penilaian klik disini

Dim nilai As Integer
Dim konfirmasi As String

Sub mulai()
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 + 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

1. Setelah itu anda tutup Visual Basic Editornya,
2. Boleh lah Bapak/ibu sampil minum the/kopi dulu biar fresh lagi
3. kemudian masuk ke slide yang pertama
4. Klik menu Insert  >> Action
5. Berikan Action makro :
   

   soal pilihan ganda dengan powerpoint

   • Mulai, hanya digunakan sekali di awal slide, fungsinya untuk memulai mengerjakan soal
   • Benar, setiap nomor / setiap slide hanya berisi 1 tombol bernilai benar, fungsinya untuk menandai jawaban benar
   • Salah, setiap nomor / setiap slide berisi lebih dari 1 tombol bernilai salah, fungsinya untuk menandai jawaban salah
   • Selesai, hanya digunakan sekali di akhir slide, fungsinya untuk mengetahui perolehan nilai

   Ingat 1 nomer hanya berisi 1 jawaban benar selebihnya harus diberi action makro salah

6. Terakhir simpan file anda. Untuk PowerPoint (2007 dan 2010) simpan dengan format PPTM

Contoh file download disini 

Incoming search terms:

• membuat soal pilihan ganda dengan powerpoint (103)
• soal power point 2007 pilihan ganda (73)
• membuat soal dengan powerpoint (67)
• cara membuat soal pilihan ganda dengan powerpoint (59)
• cara membuat soal interaktif (44)
• software pembuat soal pilihan ganda (44)
• cara membuat soal pilihan ganda (43)
• soal pilihan ganda visual basic (40)
• contoh soal powerpoint 2007 (36)
• soal vb (30)

Media Pembelajaran Independen, pilihan ganda, PowerPoint, soal, VB, Visual Basic

Update [9] – Real Quick Count Info : Pilihan Versi Akurat Real Quick Count