Tutorial PowerPoint Berbasis VBA
Haii
para SOKIM (Sobat Kimia) :), penulis ingin menSalam semangat untuk SOKIM (Sobat
Kimia) pembaca setia, Gimana ini kabarnya? Semoga sehat selalu tentunya.
Hehehe, masih semangat kan untuk
pembelajaran kimianya. :) :)
Setelah kita membahs beberaps aplikasi kimia beerbasis linux. Kini penulis kembali ingin berbagi mengenai PowerPoint berbasis VBA. Ya itu VBA, Masih ingat kan ?? Hayo ingat nda hayo :D
Iya
tepat sekali, ini adalah lanjutan mengenai PowerPoint berbasis VBA ( Visual
Basic for Applicaton) yang waktu awal penulis membahas cara pengaktifan menu
developer pada Microsoft Office PowerPoint. Selain membahas itu, mari kita liat salah satu pemanfaatan
Visual basic dalam membuat kuis interaktif pada powerPoint. Nih mau tau caranya
: Penasaran ? Ayo
mulai dan coba, Untuk kesempatan kali ini kita akan membuat kuis pilihan ganda
berbasis VBA. Let’s go :)
Berikut langkah-langkahnya :
1. Membuka
program Microsoft Office PowerPoint
2. Selanjutnya
klik slidemaster, membuat slide master dengan beberapa tombol (dibuat dari
menambahkan shapes) sebagai menu. Contohnya seperti pada gambar berikut ini :
Kemudian close slimaster
3. Setelah
itu pada slide pertama sesuaikan dengan layout yang telah kita buat pada slidemaster dan tuliskan ucapan selamat datang serta sedikit
informasi tentang cara mengerjakan tes
4. Masih
pada slide pertama, siapkan tombol yang bertuliskan
“Start” / “Mulai”. Berikut tampilannya :
5. 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.
6. Selanjutnya
buatlah satu lagi slide untuk penutup dan
jangan lupa siapkan tombol untuk mengecek skor.
Setelah
itu tekan Alt + F11 untuk memunculkan Jendela
Macro
Setelah
jendela macro terbuka, pilih Insert -->
Module, kemudian Copy-Paste script berikut :
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.Next
End If
End Sub
Jika
sudah,kemudian save dan tutup jendela
macro, kemudian
7. Pada
slide pertama : Kilik Tombol “Start” kemudian
pilih Insert -- > Action, klik Run Macro --> mulai_kuis
8. Pada
slide ke 2 hingga slide ke 11: Setiap tombol jawaban
(teks juga bisa), berilah action dengan
cara : Pilih tombol --> Klik Menu Insert -->
Klik Icon Action --> Run Macro --> Pilih “Benar” untuk jawaban benar dan “salah”
untuk jawaban salah.
9. Pada
slide penutup: Pilih tombol “Cek Jawaban” lalu klik Insert --> Action -->
Run Macro --> cek_skor
berikut gambar pilihan pada menu action :
10. Agar
peserta tes tidak menekan tombol selain
yang di sediakan, lebih baik non aktifkan klik
pada semua slide.
11. Terakhir
simpan file anda. Untuk PowerPoint (2007 dan 2010)
simpan dengan format PPTM (PowerPoint Macro
– Enabled Presentation)
Cukup
mudah dan menarik bukan, masih belum percaya ? Coba buktikan sendiri ya :)
Untuk melihat contohnya, penulis telah mebuat powerpoint berbasis VBA dengan materi Kimia SMA "lemak" dengan menggunakan penambahan TES pada paket pembelajaran dengan model Pilihan Ganda dengan VBA :). Kawan SOKIM bisa download pada : http://www.4shared.com/file/UxHfpB6Lba/ICT_Lemak_80.html
Hanya
sedikit pengetahuan yang dibahas pada kesempatan kali ini, tapi ingat
PowerPoint berbasis VBA ini tetap dan selalu bisa dikembangkan oleh pengguna.
Baik mengenai pembuatn soal kuis, melakukan analisis dta atau
perhitungan-perhitungan yang membuat hal begitu mudah. Jadi tetap belajar dan
terus kembangkan pengetahuan :)
Semoga
bermanfaat kawan ^_^. Oia jangan lupa
komentarnya yah, hehehe. Banyak saran dan kritik itu bagus dan dinanti, tapi
saran atau kritik yang membagun dan bahasa yang sopanlah yang lebih baik, ;)
Salam Ilmiah, Salam Semangat :) :D
Oleh SN ^_^
Tidak ada komentar:
Posting Komentar