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 !!!

21 comments:

Unknown said...

kok gak bisa ya??

Nurlaela Muizah said...

type savenya pilih PowerPoint Macro-Enable Template

Unknown said...

kagak bisa..

Nurlaela Muizah 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,

OBAT HATI said...

mbk scorenya gk kelihatan salahnya diman ya

Lek Supri said...

saya ikuti petunjuknya kok tidak bisa jalan ya soalnya salahnya dimana

Lek Supri said...

trimakasih ternyata bisa,... setelah saya kopi ke ms wort baru dimasukan ke porpoin ...

NGANGSU KAWRUH said...

If konfirmasi = vbYes Then
nilai = nilai + 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Mau tanya nggih
Kalau soalnya 40, angka nilai 10 tak ganti 2,5 atau 2.5 kok tidak bisa. Mohon pencerahannya

geogile said...

Bunda untuk jumlah soal 40 atau 45, pemberian skornya bagaimana, krn td mau pakai tanda koma/ titik

Unknown said...

Maksudnya copy pastelah scribt vb berikut apa?

Unknown said...

Maksudnya copy pastelah scribt vb berikut apa?

Cobain said...

Saya bantu jawab ya pak, utk soalnya 40 soal. Angka 10 itu sebagai nilsi integer, jadi kalo bapak soalnya 40, angka 10 diganti 1, dan di sub jawab() ketik seperti ini :
sub jawab()
total = nilai * 5
MsgBox ("Skor Anda Adalah " & total)
end sub

intinya buat variable baru aja pak, haha.. thanks.

bloktikbina said...

terimakasih bantuannya...

Admin said...

Gak bisa blasss

inspirasi dari mimppi said...

SKORNYA GA MUNCUL BU

Abdul Muis said...

scrip kembali ke awal dan exit dari powerpoint, gimana ?

Unknown said...

Slide nya semua di copy ba?

Unknown said...

hasilnya suka beda beda yah,, kadang bener kadang salah

Adim said...

Kalo biar skor nya ngesave bgmna cara nya

Lusia Efaliani said...

kak mau tany kok untuk memunculkan halaman makro nggak bisa ya?

Post a Comment