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

Belum ada Komentar untuk "Membuat Kuis Interaktif Ms Power Point"

Posting Komentar

Silahkan berkomentar sesuai pendapat Anda...

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel