MEMBUAT SOAL INTERAKTIF MENGGUNAKAN VBA (Visual Basic Aplications) 1. Buat dokumen baru 2. Pilih layout slide yang sesuai 3. Matikan atau nonaktifkan tombol sembarang tempat/tombol, klik mouse atau keyboard, agar slide akan perpindah ke slide lainya hanya dengan menekan tombol navigasi yang sudah dibuat/disiapkan. Cara menonaktifkan onklik mouse sebagai berikut : KLik Slide Show Set up Slide Show Kemudian pilih Browsed at a kiosk (full screen Lalu klik OK
4. Buat slide halaman depan/mulai soal yang berisi keterangan soal ( jumlah Soal , jenis soal, bobot soal, dll)
©Copyright - Munir, A.Md 2015
5. Pada halaman depan soal, beri tombol navigasi MULAI dengan cara sebagai berikut. Buat tombol MULAI dengan menggunakan Shapes Rectangle,kemudian beri wana dan efek, lalu atur letak /posisi tombol seperti gambar di bawah ini. a. Klik menu Insert lalu pilih Shapes Rounded Rectangle kemudian klik dan drug di bagian bawah b. Beri Teks MULAI pada tombol dengan cara klik kanan tombol Rounded Rectangle lalu pilih Edit Text
6. Buatlah macro nya dengan cara Klik menu Developer Macro pada kolom macro name isikan/ketik mulai lalu klik Create
©Copyright - Munir, A.Md 2015
7. Tuliskan / ketik Scrip sebagai berikut Sub mulai() benar = 0 salah = 0 ActivePresentation.SlideShowWindow.View.Next End Sub
8. Kemudian Buat link tombol mulai ke Run Macro Mulai dengan cara : Aktifkan / Klik tombol mulai kemudian Klik menu Insert Action Klik Run Macro mulai Klik OK
©Copyright - Munir, A.Md 2015
9. Langkah selanjutnya adalah membuat slide baru untuk soal, Buatlah slide baru yang isinya Soal 1, pertanyaan, dan pilihan jawaban. Lihat gambar di bawah ini,
10. Buatlah Macro JwbBenar dengan cara Klik menu Developer Macro pada kolom macro name isikan/ketik JwbBenar lalu klik Create
11. Tuliskan / ketik Scrip sebagai berikut Sub JwbBenar() Dim benar As Integer benar = benar + 1 End Sub ©Copyright - Munir, A.Md 2015
12. Kemudian Buat link pada tombol pilihan jawaban yang benar (kunci jawaban ) misalkan jawaban yang bener adalah pilihan A ke Run Macro JwbBenar dengan cara : Aktifkan / Klik tombol Pilihan A kemudian Klik menu Insert Action Klik Run Macro JwbBenar Klik OK
13. Langkah selanjutnya adalah membuat Macro JwbSalah dengan cara Klik menu Developer Macro pada kolom macro name isikan/ketik JwbSalah lalu klik Create
©Copyright - Munir, A.Md 2015
14. Tuliskan / ketik Scrip sebagai berikut Sub JwbSalah() Dim salah As Integer salah = salah + 1 End Sub
15. Kemudian Buat link pada tombol pilihan jawaban yang salah misalkan jawaban yang salah adalah pilihan B ke Run Macro JwbSalah dengan cara : ©Copyright - Munir, A.Md 2015
Aktifkan / Klik tombol Pilihan B kemudian Klik menu Insert Action Klik Run Macro JwbSalah Klik OK
16. Kemudian buatlah tombol Lanjut / Next untuk melanjutkan soal berikutnya, dengan menggunakan Shapes Rectangle,kemudian beri wana dan efek, lalu atur letak /posisi tombol seperti gambar di bawah ini. a. Klik menu Insert lalu pilih Shapes Rounded Rectangle kemudian klik dan drug di bagian bawah b. Beri Teks Lanjut pada tombol dengan cara klik kanan tombol Rounded Rectangle lalu pilih Edit Text
©Copyright - Munir, A.Md 2015
17. Buatlah macro nya dengan cara Klik menu Developer Macro pada kolom macro name isikan/ketik Lanjut lalu klik Create
18. Kemudian Tuliskan / ketik Scrip sebagai berikut Sub Lanjut() ActivePresentation.SlideShowWindow.View.Next End Sub 19. Buat link tombol Lanjut ke Run Macro Lanjut dengan cara : Aktifkan / Klik tombol Lanjut kemudian Klik menu Insert Action Klik Run Macro Lanjut Klik OK
©Copyright - Munir, A.Md 2015
20. Untuk membuat soal ke 2,3 dan seterusnya ulangi langkah no 9 sampai 19 21. Langkah terakhir adalah membuat Slide untuk Skor atau Cek Nilai, Buat slide baru dan beri judul NILAI ANDA
22. Klik menu Developer pada ribbon Controls pilih dan klik Command Button Kemudian KLik dan Drug pada Slide
23. Kemudian Klik menu Developer Visual Basic Insert User Forms , akan muncul tampilan seperti gambar di bawa ini
©Copyright - Munir, A.Md 2015
24. Lalu Klik View Toolbox 25. Dengan menggunakan Label A buatlah 3 kotak Command ( Jawaban Benar, Jawaban Salah, dan Nilai Anda ) pada Userform1
©Copyright - Munir, A.Md 2015
26. Buatlah Kotak disamping menggunakan Text Box pada Toolbox
27. Kemudian klik 2 x menu Cek nilai pada slide NIlai Anda
28. Kemudian masukkan scrip berikut Private Sub CommandButton1_Click() ©Copyright - Munir, A.Md 2015
UserForm1.Show End Sub
29. Sekarang coba di slideshow pada slide Nilai Anda , kemudian Klik tombol “ Cek NIlai “ akan Tampil seperti gambar dibawah ini
30. Untuk membuat Skor , Klik 2x menu Cek Nilai pada Slide NIlai Anda kemudian masukkan/tambahkan scrip berikut yang berwarna biru : Private Sub CommandButton1_Click() Dim jmlsoal As Integer Dim nilai As Double jmlsoal = 5 UserForm1.TextBox1 = benar UserForm1.TextBox2 = salah nilai = (benar / jmlsoal) * 100 UserForm1.TextBox3 = nilai UserForm1.Show End Sub 31. Cobalah hasilnya dengan menekan tombol keyboard F5 Bila belum terisi jumlah benar dan salahnya, klik salah satu tombol Action, masuk Macro, ketik script di baris paling atas seperti pada lingkaran atas, dan beri tanda petik di depan perintah Dim seperti lingkaran bawah : ©Copyright - Munir, A.Md 2015
32. Lakukan slide show dengan tekan tombol F5 di keyboard lalu kerjakan soalnya dan lihat hasil dari Cek Nilai apakah sudah benar ? 33. Agar jawaban hanya sekali Klik maka diperlukan animasi tambahan dengan cara sebagai berikut: a. Buat Shapes Rectangle (warna putih, transparan, no line) Letakkan di atas tombol A B
b. Kemudian beri animasi dengan cara klik Animation Appear
©Copyright - Munir, A.Md 2015
c. Kemudian klik Timing Triger Start effct on clik of Oval5: A
©Copyright - Munir, A.Md 2015
d. Dan Lakukan hal yang sama untuk pilihan B e. Kemudian ulangi dan lakukan hal yang sama untuk soal-soal berikutnya .
34. Simpan file tersebut dengan klik menu File kemudian pada save as type pilih PowerPoint Macro-Enabled Presentation kemudian klik SAVE
©Copyright - Munir, A.Md 2015