Membuat Kuis Interaktif Ms Power Point

Langsung saja berikut ini cara membuat media pembelajaran menggunakan Ms. Power Point

1. Bukalah Ms Powerpoint dan buatlah Slide baru.

• Bukalah Jendela Macro dengan menekan tombol Alt + F11 secara bersamaan.

• Pilih menu Insert, Module dan Copy-paste lah script VB berikut:

Dim nilai As Integer

Dim konfirmasi As String

Sub mulai()

konfirmasi = MsgBox("Anda akan segera mulai Kuis ini", vbYesNo)

If konfirmasi = vbYes Then

nilai = 1

ActivePresentation.SlideShowWindow.View.Next

End If

End Sub

Sub benar()

konfirmasi = MsgBox("Yakin dengan jawaban anda?", vbYesNo, " Cek Jawaban!")

If konfirmasi = vbYes Then

nilai = nilai + 1

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 jawab()

'tombol untuk selesai

MsgBox (" skor anda adalah " & nilai)

End Sub

2. Pada Slide 1 kita buat shapes yang akan menghubungkan ke slide kuis. Caranya klik Insert >> Shapes >> Oval. Lalu buat lingkaran pada slide 1 dengan mendrag dan menekan shift agar bentuknya simetri.

contohnya seperti gambar berikut.

http://pembelajarantiksd.blogspot.com/2013/04/membuat-kuis-dan-nilai-otomasti-keluar.html
http://bundascout.blogspot.com/2013/04/cara-membuat-kuis-interaktif-pada-ms.html

dan ini hasilnya.. DOWNLOAD

Share: