«

»

May 21

Membuat Soal Pilihan Ganda

  1. Bukalah program aplikasi Power Point
  2. Pada slide pertama tuliskan ucapan selamat datang dan sedikit informasi tentang cara mengerjakan tes
  3. Masih pada slide pertama, siapkan tombol yang bertuliskan “Start” / “Mulai”
  4. Buka slide baru, pada slide kedua dan seterusnya, buatlah soal dan pilihan jawabannya.
  5. Satu slide berisi satu soal, jadi jika tes terdiri dari 10 soal, maka kita akan membuat soal dari slide ke 2 hingga slide ke 11.
  6. Selanjutnya buatlah satu lagi slide untuk penutup dan jangan lupa siapkan tombol untuk mengecek skor.
  7. Setelah itu tekan Alt + F11 untuk memunculkan Jendela Macro
  8. Setelah jendela macro terbuka, pilih Insert > Module, kemudian Copy-Paste script berikut :

    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 anda?", vbYesNo, " Cek Jawaban!")
    If konfirmasi = vbYes Then
    nilai = nilai + 10
    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 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
  9. Jika sudah, tutup jendela macro, kemudian
    • Pada slide pertama :  Kilik Tombol “Start” kemudian pilih Insert > Action, klik Run Macro > mulai_kuis
    • Pada slide ke 2 hingga slide ke 11 :  setiap tombol jawaban (teks juga bisa), berilah action dengan cara : Pilih tombol > Klik Menu Insert  >  Klik Icon Action > Run Macro > Pilih “Benar” untuk jawaban benar dan “salah” untuk jawaban salah.
    • Pada slide penutup :  pilih tombol “Cek Jawaban” lalu klik Insert > Action > Run Macro > cek_skor

    ok Membuat Soal Pilihan Ganda

  10. Agar peserta tes tidak menekan tombol selain yang di sediakan, lebih baik non aktifkan klik pada semua slide (baca di sini)
  11. Terakhir simpan file anda. Untuk PowerPoint (2007 dan 2010) simpan dengan format PPTM (PowerPoint Macro – Enabled Presentation)
| Mau download template ppt gratis karya anak bangsa? Silakan kunjungi Free PowerPoint Templates |
Jika tulisan ini bermanfaat, kami akan senang sekali jika anda klik

Sampaikan Komentar Anda

Skip to comment form

  1. hizkia

    permisi gan, klau seumpamanya kita mo bkin , lebih dari 10 atw kurang , scriptnya utk ke macro ttp sprti itu atw gmn ya ? tks

    1. Vilanata

      Scriptnya masih seperti di atas. hanya anda perlu menambah atau mengurangi jumlah slide untuk menampilkan soal. (satu soal = satu slide)

  2. Riana

    Infonya bagus bgt!!!! Thanx!!!!

    1. Vilanata

      Yup.. sama-sama.. :)

  3. daryati, NSw

    mohon ijin copy, sy jg mau belajar……….terima kasih ilmunya semoga bermanfaat……….

    1. Vilanata

      Iya.. silakan.. :)
      Aamiin…

  4. Rakhman

    Thanks ilmunya, izin copas

    1. Vilanata

      Silakan.. jangan lupa mencantumkan link sumber ya..??!! :)

  5. HART

    tok copy paste script ya semua ya, pake #code# juga?

    1. Vilanata

      Silakan copy dari kata dim sampai sub … jika belum berhasil, silakan bertanya di sini lagi.. :)

  6. chiekgu

    makasih untuk share ilmunya,,
    kalau di tambah batas waktu penyelesaian tiap sola bisa ga ya? gimana caranya?
    kalau ada tambahkan tutorial bahasa menulis pemograman nya
    terima kasih…

    1. Vilanata

      Iya sama-sama.. :)
      anda bisa memanfaatkan perpindahan slide otomatis di menu transition > Advance slide > beri centang di after (atur waktu sesuai kebutuhan) .
      Terimakasih atas sarannya.. :)

Leave a Reply

Your email address will not be published. Required fields are marked *