Tuesday, 9 April 2013

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

 

GOOD LUCK !!!

5 comments:

ARIEF HERMAWAN said...

kok gak bisa ya??

Nurlaela Mu'izah said...

type savenya pilih PowerPoint Macro-Enable Template

Wahyu Diansyah said...

kagak bisa..

Nurlaela Mu'izah said...

download aja contoh powerpointnya PPT LOGIKA-MATEMATIKA DISKRIT,,di postingan berikutnya

Padmadita Nanda Pratiwi said...

Maaf saya mau bertanya, kebetulan materi di sekolah saya saat ini u/ mapel TIK juga sama seperti ini (membuat kuis dengan PPT). Saya sudah mengikuti semuanya, sudah memasukkan action macro ke begian2 yang diperlukan tetapi saat saya tes mengapa jawaban yang seharusnya benar tidak mengeluarkan dialog box 'Apakah yakin dengan jawaban Anda?', tetapi jawaban yang salah mau mengeluarkan dialog box tersebut? Mohon pencerahannya,

Post a Comment