Tutorial Pilihan Ganda

 MEMBUAT  SOAL PILIHAN GANDA 

 Menggunakan Visual Basic for Application in PowerPoint

Langkah yang harus dilakukan dalam membuat aplikasi yaitu:

1. Membuka powerpoint 20102.
2. Membuat 12 slide baru
3. Pilih design sesuai selera
4. Slide pertama diberi keterangan soal pilihan ganda yang disesuaikan dengan materi. Tulisan  bisa dibuat dengan wordart

  

         Pada tulisan start diblok kemudian pilih menu insert --> action--> hyperlink 

         --> next slide. Kemudian start diblok lagi pilih menu insert --> action --> 

         run macro  --> mulai kuis

         5.  Slide ke-2 sampai ke-12 berisi soal beserta butir pilihan ganda. 

            Untuk membuat butir  pilihan ganda, penulisannya secara manual. 

            Jadi tidak menggunakan numbering.   

       

        6. Untuk slide terakhir diberi keterangan check score,  sehingga ketika diklik 

        check score kita bisa melihat jumlah jawaban yang benar. Setelah itu dibuat 

        tanda silang dan home yaitu dengan cara pilih menu insert, klik shape, pilih 

        gambar yang sesuai. 

• Pada tulisan check score diblok kemudian pilih menu insert--> action --> run macro --> cek_score.  

• tanda home diklik kemudian pilih menu insert --> action--> hyperlink to --> first slide

•  tanda silang diklik kemudian pilih menu insert --> action--> hyperlink to --> end show

      7.      Agar semua tombol pada slide tidak bisa diklik, maka klik menu slide show,

            pilih set up slide show, pilih “browsed at kiosk (full screen)”.

       8.     Untuk memasukkan rumus, maka tekan alt+F11, maka akan muncul 

             lembar module code. Selanjutnya masukkan rumus kedalam view code:

             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 + 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 cek_skor()
 MsgBox (" Jawaban anda yang benar 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.Exit
 End If
 End Sub

      9.   Pada lembar power point ke-2 sampai ke-11. Untuk setiap butir pilihan 

           ganda diblok satu per satu kemudian pilih menu insert -->action --> run 

           macro -->  benar/salah(pilih sesuai kunci jawaban)

    10.  Save document power point dengan save as type “power point macro-enable 

          presentation” dengan nama power point terserah kita.

    11.  Menjalankan aplikasi dengan klik tombol slide show atau F5