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