Membuat Soal atau Kuis dengan Visual Basic pada Microsoft Power Point

Berikut langkah membuat soal atau kuis dengan Visual Basic pada Microsoft power point:

1. Buatlah soal kuis dengan slide pertama berisi animasi MULAI

2. Lalu untuk slide ke-2, ke-3, dan seterusnya berisi soal-soal yang telah diketahui jawaban benar atau salah pada masing-masing option yakni option  “a, b, c, d, atau e”

3. Dan slide terakhir dengan animasi CEK NILAI seperti berikut

4. Jika sudah tekan alt+F11 lalu akan muncul Microsoft Visual Basic, pilih menu insert  - module. Jika sudah akan muncul seperti berikut

Lalu masukkan rumus atau kode editing berikut pada Visual Basic :

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, "Konfirmasi Jawaban")

If konfirmasi = vbYes Then

nilai = nilai + 20

ActivePresentation.SlideShowWindow.View.Next

End If

End Sub

Sub salah()

konfirmasi = MsgBox("Yakin dengan jawaban anda?", vbYesNo, "Konfirmasi Jawaban")

If konfirmasi = vbYes Then

ActivePresentation.SlideShowWindow.View.Next

End If

End Sub

Sub cek_nilai()

ActivePresentation.Slides(7).Shapes(2).TextFrame.TextRange.Text = nilai

End Sub

Catatan : Jika rumus yang diketik ada yang berwarna merah berarti ada kesalahan pada penulisannya sebaiknya periksa ulang rumus sampai benar.

5. Jika sudah lalu kembali ke slide awal dan klik animasi MULAI kemudian pilih menu Insert - Action – Run Macro – Mulai

6. Selanjutnya klik masing-masing option kemudian pilih menu Insert - Action – Run Macro – Salah untuk jawaban SALAH, dan pilih menu Insert - Action – Run Macro – Benar untuk jawaban yang BENAR. Lakukan cara tersebut pada setiap pertanyaan kuis yang telah dibuat

7. Kemudian  pada slide CEK NILAI klik CEK NILAI kemudian pilih menu Insert - Action – Run Macro – Cek Nilai

8. Silahkan dicoba kuisnya dengan cara klik Slide Show (F5)

9. Untuk menyimpan kuis agar tidak hilang editannya maka pada saat menyimpan ubah format type menjadi  Power Point Macro - Enabled Presentation atau dengan format type pptm.

10. Pada saat kita membuka kembali slide kuis Visual Basic, biasanya program tidak akan berjalan. Agar kode editing yang sudah kita masukkan tadi berhasil dijalankan maka pada saat power point sudah terbuka, klik Options lalu pilih Enable this content