Membuat Soal Pilihan Ganda

Menggunakan Aplikasi Visual Basic dalam PowerPoint

Langkah-langkahnya sebagai berikut :

. Bukalah program aplikasi Power Point

. Pada slide pertama tuliskan ucapan selamat datang dan sedikit informasi tentang cara

mengerjakan tes

. Masih pada slide pertama, siapkan tombol yang bertuliskan “Start” / “Mulai”

. Buka slide baru, pada slide kedua dan seterusnya, buatlah soal dan pilihan jawabannya.

. 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.

. Selanjutnya buatlah satu lagi slide untuk penutup dan jangan lupa siapkan tombol untuk mengecek skor.

. Klik Office Button -> Power Point Option -> Popular-> Show Developer Tab In The Ribbon

Memasukkan Action Script Visual Basic

Klik Developer -> View Code-> Insert ->  Module

Masukkan Script Visual Basic:

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

Hasilnya Sebagai berikut ;

Klik Save / Gambar Disket  --> CLOSE

Memberikan Action Pada Tombol / Button

Klik Pada Tombol Pilihan a   - Insert - Action - Run Macros - Pilih Salah/Benar/Mulai Kuis/Hasil- OK

Catatan :

Pilih Salah jika Jawaban Pilihan jawaban itu Salah

Pilih Benar jika Jawaban Pilihan jawaban itu Benar

Pilih  Mulai Kuis, Untuk memulai Test(Start)

Pilih Cek Skor, Untuk Melihat Hasil Test

Terakhir simpan file anda. Untuk PowerPoint (2007 dan 2010) simpan dengan format PPTM (PowerPoint Macro – Enabled Presentation).

Bagaimana??

Tertarik untuk mencoba?

Selamat mencoba kawan...:)