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)

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

Leave a Reply

Your email address will not be published. Required fields are marked *

[+] kaskus emoticons nartzco

What is 9 + 13 ?
Please leave these two fields as-is: