Mohon tunggu...
Robby Shadri
Robby Shadri Mohon Tunggu... -

Ingin menjadi yang berguna bagi sesama

Selanjutnya

Tutup

Pendidikan

Kuis Multiple Choice Menggunakan Power Point dan Macro VBA

20 November 2011   03:00 Diperbarui: 25 Juni 2015   23:26 1448
+
Laporkan Konten
Laporkan Akun
Kompasiana adalah platform blog. Konten ini menjadi tanggung jawab bloger dan tidak mewakili pandangan redaksi Kompas.
Lihat foto
Bagikan ide kreativitasmu dalam bentuk konten di Kompasiana | Sumber gambar: Freepik

Kali ini saya akan sharing kepada sobat sekalian bagaimana caranya membuat Kuis Multiple Choice Menggunakan Power Point dan Macro VBA. Langkah awal tentu yang harus dilakukan adalah mengaktifkan Ribbon developper. Selanjutnya buatlah halaman pembuka seperti gambar berikut ini : Dari gambar diatas terlihat, bahwa kita menambahkan satu objek Command Button yang sobat semilir dapat ambil dari Ribbon Developper. Selanjutnya buat soal-soal seperti gambar dibawah ini. Untuk kali ini cukup buat dua soal pada dua slide saja. Masing-masing slide 1 soal.

Selanjutnya diiringi dengan membuat slide ke empat sebagai slide penilaian hasil jawaban yang dilakukan pengguna nantinya :
Dari gambar terlihat, sobat semilir diminta untuk memasukkan 1 (satu) command button untuk memulai perhitungan, dan 1 (satu) Text box untuk menampilkan hasil penilaian. Selanjutnya yang akan kita lakukan adalah mengisi macro VBA pada tempat-tempat tertentu. Aktifkan kembali slide 1. Click kanan Command Button yang telah dibuat sebelumnya, pilih menu properties. Ubah properties Caption menjadi Mulai. Setelah itu klik dua kali Commond Button Mulai sehingga tampil Microsoft Visual Basic Editor dan ketikkan beberapa Macro VBA berikut ini : Private Sub CommandButton1_Click() nilai = 0 ActivePresentation.SlideShowWindow.View.Next Slide4.TextBox1 = 0 End Sub Kemudian lanjutkan menulis macro VBA berikut tepat dibawah End Sub Command Button1 diatas : Sub benar() konfirmasi = MsgBox("Yakin dengan jawaban anda?", vbYesNo, "Cek Jawaban!") If konfirmasi = vbYes Then nilai = nilai + 50 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 tampil() Slide4.TextBox1 = nilai End Sub Damn tambahkan script berikut ini dibagian atas Private Sub CommandButton1_Click() : Dim nilai As Integer Dim konfirmasi As String Selanjutnya tekan tombol Alt + F11atau klik tombol dengan gambar berikut ini :
Hal ini untuk kembali ke lembar slide power point yang berisi soal yang sedang kita buat. Selanjutnya aktifkan slide nomor 4 . Ubah Caption Command Button dengan cara sebelumnya menjadi Hitung. Setelah itu klik dua kali Command Button Hitung dan tulis Macro VBA berikut ini : Private Sub CommandButton1_Click() Slide1.tampil End Sub Setelah itu, kita akan memberikan Action untuk setiap opsi jawaban, apakah opsi jawaban benar atau salah, yang kita lakukan adalah Select Opsi jawaban pertama soal nomor 1 seperti gambar berikut, dilanjutkan dengan mengklik Action pada Ribbon Insert :
Sehingga tampil jendela Action Setting seperti gambar dibawah ini :
Jika opsi jawaban benar, maka pilih Run Macro, Slide1.Benar, dan jika salah, pilih Run Macro Slide1.Salah. Lakukan ini untuk semua opsi jawaban pada semua nomor soal. Langka selanjutnya adalah simpan file power point yang baru saja kita buat, jangan lupa Save As Type dipilih Power Point Macro Enable Presentation.
Demikian semoga bermanfaat, untuk informasi lebih jelas dan download file yang sudah jadi, silahkan kunjungi http://semilirhati.blogspot.com/2011/11/kuis-multiple-choice-power-point-dan.html

Baca konten-konten menarik Kompasiana langsung dari smartphone kamu. Follow channel WhatsApp Kompasiana sekarang di sini: https://whatsapp.com/channel/0029VaYjYaL4Spk7WflFYJ2H

Mohon tunggu...

Lihat Konten Pendidikan Selengkapnya
Lihat Pendidikan Selengkapnya
Beri Komentar
Berkomentarlah secara bijaksana dan bertanggung jawab. Komentar sepenuhnya menjadi tanggung jawab komentator seperti diatur dalam UU ITE

Belum ada komentar. Jadilah yang pertama untuk memberikan komentar!
LAPORKAN KONTEN
Alasan
Laporkan Konten
Laporkan Akun