» » Membuat Kuis Interaktif Ms Power Point

Membuat Kuis Interaktif Ms Power Point

Langsung saja berikut ini cara menciptakan media pembelajaran memakai Ms. Power Point

1. Bukalah Ms Powerpoint dan buatlah Slide baru.
  • Bukalah Jendela Macro dengan menekan tombol Alt + F11 secara bersamaan.
  • Pilih sajian 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 balasan 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 balasan anda?", vbYesNo, " Cek Jawaban!")
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Sub jawab()
'tombol untuk selesai
MsgBox (" skor anda yaitu " & nilai)
End Sub






2. Pada Slide 1 kita buat shapes yang akan menghubungkan ke slide kuis. Caranya klik Insert >> Shapes >> Oval. Lalu buat bundar pada slide 1 dengan mendrag dan menekan shift biar bentuknya simetri.
contohnya ibarat gambar berikut.

https://guruprofesionalyes.blogspot.com//search?q=membuat-kuis-dan-nilai-otomasti-keluar
https://guruprofesionalyes.blogspot.com//search?q=membuat-kuis-dan-nilai-otomasti-keluar

dan ini hasilnya.. DOWNLOAD
Buat lebih berguna, kongsi:
close