TUTORIAL MEMBUAT POWER POINT UNTUK PILIHAN GANDA MENGGUNAKAN VISUAL BASIC FOR APPLICATION (VBA)

 TUTORIAL MEMBUAT POWER POINT UNTUK PILIHAN GANDA MENGGUNAKAN VISUAL BASIC FOR APPLICATION (VBA)

1.      Membuat soal dalam bentuk power point seperti contoh dibawah ini:

untuk point jawaban tidak disarankan untuk menggunakan opsi “Numbering”. Hal ini dilakukan agar point jawaban dapat diklik atau dipilih.

2.      Simpan file Power Point dengan File nama sesuai dengan keinginan, misalnya: Soal-soal penyetaraan reaksi redoks dan sel elektrokimia. Untuk Save as type yaitu Power Point Macro-Enabled Presentation.

3.      Agar pada power point tidak biasa sembarang klik, dapat diatur dengan cara pilih menu SLIDE SHOW. Klik SET UP SLIDE SHOW, maka akan muncul tampilan seperti dibawah ini.

Pada Show type pilih Browsed at a look (full screen). Klik OK

4.       Tekan Alt + F11, akan muncul tampilan seperti dibawah ini:

5.      Selanjutnya pilih menu INSERT, pilih submenu MODULE. Muncul tampilan seperti dibawah ini:

6.      Isi kan perintah dibawah ini pada Module (copy paste).

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

7.      Setelah rumus dimasukkan kembali ke PPT awal.

8.      Blok salah satu opsi jawaban, contoh opsi “a.” dan seterusnya. Seperti pada dibawah ini:

9.      Klik INSERT, pilih ACTION sehingga akan muncul tampilan seperti dibaah ini:

10.  Pilih RUN MACRO. Pilih Benar untuk Jawaban yang BENAR, Salah untuk jawaban yang SALAH, mulai_kuis untuk menu START, dan cek_skor untuk menu CEK. Klik OK.

11.  Selesai.