MEMBUAT KUIS INTERAKTIF PADA MS. POWERPOINT

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()
nilai = 0
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub benar()
konfirmasi = MsgBox(“Yakin dengan jawaban anda?”, vbYesNo, ” Cek Jawaban!”)
If konfirmasi = vbYes Then
nilai = nilai + 10
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

 

   

3. Berilah Add text "Go" pada shapes tersebut, kemudian beri action. Caranya klik shapes (bukan tulisannya tapi lingkaran atau shapesnya) >> Insert >> Action >> Run Macro >> Mulai >> OK.

 

4. Pada slide 2-11 (disini saya membuat 10 soal pilihan ganda) buat soal pilihan ganda. Contohnya seperti berikut 

 

keterangan: pilihan ganda harus berupa shapes. Caranya Insert >> Shapes >> Round Diagonal Corner Rectangle >> Drag ke power point

5. Berilah Action untuk masing-masing jawaban pilihan ganda. Untuk A caranya Insert >> Action >> Run Macro >> Benar >> OK. Sedangkan untuk B, C, D caranya Insert >> Action >> Run Macro >> Salah >> OK. Seperti yang diperlihatkan pada gambar berikut

Untuk memberikan animasi pada shapes saat di klik berilah ceklis pada Highlight clik lalu Ok
Pada Soal no 2- 10 caranya sama.

6. Pada slide terakhir, buatlah  shapes yang memuat text "Score". Caranya seperti langkah 2 diatas.

  

7. Berilah Action shapes tersebut, caranya Klik shapes score >> Insert >> Action >> Run macro >> Jawab >> Ok.