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

0 0 votes
Article Rating
Subscribe
Notify of
guest
CommentLuv badge
[+] kaskus emoticons nartzco

 
What is 1 + 0 ?
Please leave these two fields as-is:
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!

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