Tutorial Membuat Quiz Pilihan Ganda Menggunakan VBA pada Power Point

Sebagai tulisan pembuka pada blog ini saya ingin berbagi pengetahuan dengan teman –teman guru tentang pembuatan quiz interaktif sederhana menggunakan VBA pada power point.

Materi ini  awalnya saya pelajari dari soal yang dibuat oleh Pak Agus Dwianto dan setelah belajar dengan gigih dan usaha yang pantang menyerah akhirnya saya dapat membuatnya sendiri.

Jika teman-teman ingin belajar , disini saya akan memberikan tutorial  dasarnya saja dan dengan soal yang seadanya, nanti teman-teman silahkan berkreasi sendiri, oke?

Berikut langkah-langkahnya
1. Buka Ms Powerpoint

2. klik menu home - new slide – pilih Blank

3. klik menu Developer....

4. Pada menu developer pilih Command Button, dan buat di slide

5. Untuk edit tulisan klik kanan Command Button – command button objec – edit, ketik kata MULAI

6. Di slide berikutnya buat soal dengan menggunakan Tekt Box

7. Untuk membuat option A,B,C dan D juga dengan menggunakan Command Button

8. Buat soal sesuai dengan keperluan di slide berikutnya.

9. Di slide terakhir untuk nilai yang akan muncul menggunakan Label, sedangkan untuk keterangan ketuntasan menggunakan Command Button....

Bagian properties

10. Sekarang kita kembali ke slide kedua klik MULAI – properties – edit command butoon dengan kata mulai.

11. Di slide berikutnya pada bagian option klik A – properties – edit command button dengan A, demikian pula dengan option B, C dan D, begitu pula soal-soal di slide berikutnya.

12. Pada slide terkhir klik tempat nilai – properties – edit label dengan kata nilai, demikian pula untuk ketuntasan edit dengan kata keterangan.

Bagian kode

13. Untuk kode pada slide kedua , klik mulai – View Code , copy kode  berikut:

Dim nilai As Integer

Dim keterangan As String 

Private Sub mulai_Click()

Slide4.nilai.Caption = 0

Slide4.keterangan.Caption = ""

ActivePresentation.SlideShowWindow.View.Next

End Sub

14. kode pada slide berikutnya yaitu untuk kode option klik optin A – View Code lalu isi/copy kode berikut:

Private Sub A_Click()

Slide4.nilai.Caption = Val(Slide4.nilai)

ActivePresentation.SlideShowWindow.View.Next

End Sub

Private Sub B_Click()

Slide4.nilai.Caption = Val(Slide4.nilai)

ActivePresentation.SlideShowWindow.View.Next

End Sub

Private Sub C_Click()

Slide4.nilai.Caption = Val(Slide4.nilai) + 10

ActivePresentation.SlideShowWindow.View.Next

End Sub

Private Sub D_Click()

Slide4.nilai.Caption = Val(Slide4.nilai)

ActivePresentation.SlideShowWindow.View.Next

End Sub

(catatan: + 10 ditulis pada jawaban yang dianggap benar)

15. Pada slide terakhir copy kode berikut:

Private Sub keterangan_Click()

If nilai >= 15 Then

keterangan.Caption = "Tuntas. Selamat !"

Else

keterangan.Caption = "Tidak Tuntas. belajar lagi !"

End If

End Sub

 Cukup sekian , teman-teman silahkan berkreasi dengan kodenya sesuai dengan kebutuhan.

Untuk melihat hasilnya teman-teman silahkan lihat di sni