TRIK SOAL VBA Oleh AGUS BUDIANTO, S. Pd, M. Pd Bagi kita yang ingin memanfaatkan Visual Basic ini tidak harus memiliki software Microsoft Visual Basic 6.0 atau versi lainnya. Karena aplikasi Visual Basic ini sudah ada di Micrsoft Office 2007 maupun Microsoft Office 2010. Salah satunya di Microsoft Office Powerpoint, di mana berbagai kontrol aplikasi Visual Basic bisa kita lihat di menu developer. Secara default maka menu developer tidak langsung Nampak di deretan toolbar menu Microsoft Office Powerpoint. Untuk memunculkannya adalah dengan mengklik logo office button kemudian pilih Powerpoint Option dan beri tanda check list/centhang pada pada opsi Show Developer tab in Ribbon. Kemudia kita klik OK. Maka menu developer akan muncul. Aplikasi Visual Basic (VBA) untuk Microsoft Office Powerpoint selama ini banyak digunakan untuk membuat soal evaluasi, di mana nilai siswa akan muncul otomatis ketika selesai mengerjakan soal.
Page 1 of 8
Berikut ini langkah-langkahnya: 1. Pastikan anda sudah memiliki Arsip soal, sehingga Anda cukup meng-copy paste saja soal tersebut ke dalam slide. 2. Bukalah Ms Powerpoint dan buatlah Slide baru.
Bukalah Jendela Macro dengan menekan tombol Alt + F11 secara bersamaan. Klik Insert…..Module…….maka akan tampil seperti dibawah ini.
Copy-paste lah / ketik script VB berikut:
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, ” Cek Jawaban!”) If konfirmasi = vbYes Then nilai = nilai + 1 ActivePresentation.SlideShowWindow.View.Next
Page 2 of 8
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 jawab() „tombol untuk selesai MsgBox (” skor anda adalah ” & nilai) End Sub
Sesuaikan Score soal, dengan mengganti angka 1, pada Nilai = nilai + 1.
Jika sudah, kecilkan SAJA dan kembalilah ke halaman Ms Powerpoint anda.
Page 3 of 8
3. Pada Slide ke-1 (digunakan untuk menampilkan Informasi tentang kuis), Ketikkan Judul Kuis / Semua Informasi tentang Kuis. Dan pada bagian bawah slide, buatlah Autoshape (tombol) dengan teks di dalamnya “Start Quiz” dengan cara :
Pilih menu Insert, Shape, Pilih Action Button, Custom. Buatlah bentuk Kotak.
Selanjutnya akan muncul kotak dialog Action Setting, Pilih Run Macro, dan pilih “mulai” dan Klik OK.
Page 4 of 8
Posisi masih di slide 1 Non-aktifkan Transisi (untuk semua slide) , dengan menghilangkan tanda Checklist pada pilihan Transition, On mouse click. Hal ini supaya user hanya bisa menjalankan slide dengan menekan tombol “Start Quiz“.
4. Pada Slide ke-2, berisi soal kuis.
Setiap slide berisi 1 soal kuis.
Ketikkan Soal kuis yang ke-1 beserta Option-nya.
Page 5 of 8
Masing- masing Option menempati Autoshape /TextBox yang berbeda. Jadi jika pada 1 soal terdapat 5 Option, maka harus ada Textbox / Autoshape dengan Jawaban didalamnya, sebanyak 5 buah.
Untuk membuat Option, lakukan seperti anda membuat Tombol “START QUIZ” .
Ketika tampil Kotak dialog Action Setting, (hidupkan dulu kotaknya)
Pilihan Benar, untuk Option Jawaban yang BENAR
Pilihan Salah, untuk Option Jawaban yang SALAH
Page 6 of 8
1 Soal, hanya berisi 1 jawaban benar selebihnya harus diberi action makro salah.
Jika sudah, Klik OK.
Ulangi untuk Option yang lain dengan pilihan Macro yang sesuai (BENAR/SALAH).
5. Ulangi langkah 4 untuk soal kuis yang lain, pada slide berikutnya. 6. Dan Pada Slide terakhir, digunakan sebagai Review kuis atau anda juga bisa memberi tombol “Cek Nilai” untuk melihat hasil nilai kuis (ikuti langkah 3).
Pada pilihan Run Macro, pilih “Jawab“
Klik OK.
Page 7 of 8
7. Terakhir simpan file anda. Untuk PowerPoint (2007 dan 2010) simpan dengan format PPTM (PowerPoint Macro – Enabled Presentation)
8. Selesai! Jalankan Kuis dengan menekan Tombol F5. CATATAN: KELEMAHAN SCRIP VBA INI 1. Pada saat diujicobakan hanya sekali saja, jika ingin mencoba lagi harus ditutup dulu dikarenakan program akan membaca secara terus menerus. 2. Program ini berlaku mulai office 2007 keatas.
Page 8 of 8
