Membuat Quiz Interaktif dengan Visual Basic for Applications(VBA) pada Powerpoint Agus Dwianto, S.Pd
[email protected] http://www.sangpengajar.com Lisensi Dokumen: Copyright © 2012-2015 formulasi.or.id Seluruh dokumen di formulasi.or.id dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari formulasi.or.id.
Pengantar Perkembangan dunia IT saat ini semakin memanjakan para penggunanya. Berbagai program komputer bisa kita manfaatkan untuk mendukung pembelajaran, baik untuk pengolahan administrasi hingga pembuatan media pembelajaran. Dari berbagai program komputer tersebut yang paling banyak dimanfaatkan oleh pengguna adalah Microsoft Office. Multimedia Pembelajaran Interaktif(MPI) berbasis Microsoft Office Powerpoint tidak kalah dengan multimedia pembelajaran yang dibuat dengan program lainnya ketika dapat memadukan konten media dengan berbagai animasi, suara, video, maupun pemrograman menggunakan VBA. Pada tutorial ini akan dibahas mengenai cara membuat quiz interaktif dengan Visual Basic for Applications(VBA) pada Powerpoint.
Membuat quiz Langkah pertama, buka Microsoft Office Powerpoint kemudian buatlah menu pembuka soal evaluasi pada slide 1. Sedangkan, pada slide ke-2 sampai dengan slide ke-11 buatlah 10 buah soal evaluasi seperti pada gambar di bawah ini(anda juga bisa menambahkan background atau template agar lebih menarik).
1
Contoh pembuka soal evaluasi
Contoh soal evaluasi
2
Pada slide ke-12 buatlah menu untuk menampilkan nilai, misalnya :
Kemudian pada slide ke-13 sisipkan shape untuk menampilkan nilai, misalnya :
3
Membuat penilaian dengan VBA Untuk membuat penilaian dengan VBA, langkah pertama tampilkan menu developer dengan cara klik “Office button” > klik “Powerpoint Options” > klik “Show Developer tab in the Ribbon” > klik “OK”.
Kemudian klik “Developer” > klik “Visual Basic” > klik “Insert” > klik “Module”
4
Kemudian copy > paste script di bawah ini pada Module1 : Dim nilai As Integer Dim konfirmasi As String Sub mulai() nilai = 0 ActivePresentation.SlideShowWindow.View.Next End Sub Sub benar() konfirmasi = MsgBox("Anda yakin dengan jawaban ini?", vbYesNo, " Cek Jawaban! ") If konfirmasi = vbYes Then nilai = nilai + 10 ActivePresentation.SlideShowWindow.View.Next End If End Sub Sub salah() konfirmasi = MsgBox("Anda yakin dengan jawaban ini?", vbYesNo, " Cek Jawaban! ") If konfirmasi = vbYes Then ActivePresentation.SlideShowWindow.View.Next End If End Sub Sub cek() ActivePresentation.SlideShowWindow.View.Next tampilkan End Sub Sub tampilkan() With ActivePresentation.Slides(13) .Shapes(2).TextFrame.TextRange.Text = nilai End With End Sub
5
Jika anda melakukan langkah ini dengan benar maka akan tampil seperti pada gambar di bawah ini :
Keterangan : Pada script “nilai = nilai + 10” silahkan sesuaikan dengan jumlah soal anda. Angka 10 di sini adalah skor untuk tiap nomor soal jika dijawab benar. Pada script “Slide (13)” silahkan sesuaikan dengan nomor slide di mana nilai siswa akan ditampilkan. Pada script “Shapes (2)” silahkan sesuaikan dengan nomor shape dimana nilai siswa akan ditampilkan. Kemudian kita hubungkan setiap tombol dengan script VBA dengan cara klik kanan pada tombol > klik “Insert” > klik “Action” > klik “Run macro” , kemudian pilih macro sesuai tabel di bawah ini : Tombol
Run macro
Mulai Opsi jawaban benar Opsi jawaban salah Cek Nilai
mulai benar salah cek
Seperti ditunjukkan pada gambar di bawah ini :
6
Run macro pada tombol “Mulai”
Run macro pada setiap tombol Opsi jawaban benar
7
Run macro pada setiap tombol Opsi jawaban salah
Run macro pada tombol “Cek Nilai” Pembuatan quiz interaktif dengan VBA telah selesai. Silahkan dicoba dijalankan dengan menenkan “slide show” atau F5. Berikut ini contoh tampilan slide jika langkah-langkah anda benar :
8
Terakhir, silahkan simpan file anda dengan memberi nama file dan pilih type penyimpanan (Save as type) : “Powerpoint Macro-Enabled Presentation” .
9
Demikian tutorial mengenai cara membuat quiz interaktif dengan Visual Basic for Applications(VBA) pada Powerpoint. Semoga bermanfaat.
Biografi Penulis Agus Dwianto, S.Pd 19810808 200501 1 008 Menyelesaikan S1 Pendidikan Fisika di Jurusan P. MIPA FKIP Universitas Sebelas Maret tahun 2004. Saat ini mengajar di SMP Negeri 2 Paranggupito Kabupaten Wonogiri. Menjadi kontributor beberapa blog/website pendidikan, diantaranya blog http://www.formulasi.or.id dan http://www.m-edukasi-web.id . Aktif di dunia multimedia pembelajaran dan blog pendidikan. Prestasi yang pernah diraih diantaranya Juara 1 Teacher Blog Competition Insan Cendekia Tahun 2012 dan Juara 2 Lomba Pembuatan Bahan Ajar Mandiri Berbasis Komputer/Multimedia LPMP Jawa Tengah. Tulisan-tulisannya bisa dilihat di blog pribadinya, yaitu http://www.sangpengajar.com maupun http://www.indonesiacerdas.web.id. Penulis dapat dihubungi via : e-mail :
[email protected] , Facebook : https://www.facebook.com/agusdwianto81 , HP : 081 5678 1414 8.
10
