Tutorial Membuat Soal Pilihan Berganda (Multiple Choices) Pada Microsoft PowerPoint

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)

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: " &amp; 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

0 0 votes

Article Rating

[+] kaskus emoticons nartzco

Security Question:

What is 6 + 13 ?

What is 3 + 3 ?

3 Comments

Inline Feedbacks

View all comments

free

6 years ago

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!

Author

anto2k

@free: thank’s for your comment

:2thumbup

tubegalore

4 years ago

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).