Walaupun membuat soal pilihan berganda dengan Microsoft Powerpoint masih memiliki banyak kelemahan dan perlu pemrograman lebih lanjut, namun tetaplah teknik ini dapat digunakan dan dipelajari dengan mudah.
Ada beberapa langkah yang harus dipersiapkan :
(1) Disain soal yang akan dibuat
(2) Persiapan Coding pada VBA (Microsoft Visual Basic for Applications)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | Dim nilai As Integer Dim njawab As Byte Sub quiz_start() nilai = 0 ActivePresentation.SlideShowWindow.View.Next End Sub Sub jawab_benar() nilai = nilai + 1 ActivePresentation.SlideShowWindow.View.Next End Sub Sub jawab_salah() ActivePresentation.SlideShowWindow.View.Next End Sub Sub quiz_hasil() Dim ntotsoal As Integer Dim ntotnilai As Integer ntotsoal = 4 ntotnilai = (nilai / ntotsoal) * 100 njawab = MsgBox("Nilai Anda adalah: " & ntotnilai, vbOKOnly, "INFORMASI") End Sub Sub quiz_restart() nilai = 0 ActivePresentation.SlideShowWindow.View.GotoSlide (2) End Sub |
(3) teknik dan cara pembuatan dapat ditonton pada video dibawah ini.
Referensi:
Soal: http://nomensensitompul.blogspot.co.id/2016/03/soal-pilihan-ganda-uji-kompetensi-prestasi.html
The tutorial is detailed, clear and coherent! Thanks for the video! I am sure that I will be able to follow the instruction and solve the existing problem!
@free: thank’s for your comment
PENERAPAN METODE PEMBELAJARAN PEMECAHAN MASALAH (PROBLEM SOLVING) UNTUK MENINGKATKAN AKTIVITAS BELAJAR DAN HASIL BELAJAR SISWA PADA MATERI PEMBELAJARAN KELISTRIKAN Penelitian Tindakan Kelas pada Kompetensi Dasar Memperbaiki Sistem Pengapian Siswa Kelas XI TKR SMK Negeri 8 Bandung).