MEMBUAT SCORE KUIS PADA POWERPOINT

MEMBUAT SCORE KUIS PADA POWERPOINT

Berikutinilangkah-langkahnya:

1. PastikanandasudahmemilikiArsipsoal, sehinggaAndacukupmeng-copy paste sajasoaltersebutkedalam slide.

2. BukalahMsPowerpointdanbuatlah Slide baru.

• BukalahJendela Macro denganmenekantombol Alt + F11 secarabersamaan.

• 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 denganjawabananda?”, vbYesNo, ” CekJawaban!”)
If konfirmasi = vbYes Then
nilai = nilai + 1
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub salah()
konfirmasi = MsgBox(“Yakin denganjawabananda?”, vbYesNo, ” CekJawaban!”)
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub jawab()
‘tomboluntukselesai
MsgBox (” skorandaadalah ” &nilai)
End Sub

• Sesuaikan Score soal, denganmenggantiangka 1, pada Nilai=nilai+1.

• Jikasudah, kembali-lahkehalamanMsPowerpointanda.

3. Pada Slide ke-1 (digunakanuntukmenampilkanInformasitentangkuis), KetikkanJudulKuis / SemuaInformasitentangKuis. Dan padabagianbawah slide, buatlah Autoshape (tombol) denganteks di dalamnya “Start Quiz” dengancara :

• Pilih menu Insert, Shape, Pilih Action Button, Custom. Buatlahbentuk Kotak.

• Selanjutnyaakanmunculkotak dialog Action Setting, Pilih  Run Macro, danpilih “mulai” danKlik OK.

Non-aktifkan Transisi, denganmenghilangkantanda Checklist padapilihan Transition, On mouse click. Hal inisupaya user hanyabisamenjalankan slide denganmenekantombol “Start Quiz“.

4. Pada Slide ke-2, berisisoalkuis.

• Setiap slide berisi 1 soalkuis.
• KetikkanSoalkuis yang ke-1 beserta Option-nya.
• Masing- masing Option menempati Autoshape /TextBox yang berbeda. Jadijikapada 1 soalterdapat 5 Option, makaharusada Textbox / Autoshape denganJawabandidalamnya, sebanyak 5 buah.

Untukmembuat Option, lakukansepertiandamembuatTombol “START QUIZ” .

• KetikatampilKotak dialog Action Setting, pilih :
• Pilihan Benar, untuk Option Jawaban yang  BENAR
• Pilihan Salah, untuk Option Jawaban yang SALAH

• 1 Soal, hanyaberisi 1 jawaban benar selebihnyaharusdiberi action makro salah.
• Jikasudah, Klik OK.
• Ulangiuntuk Option yang laindenganpilihan Macro yang sesuai (BENAR/SALAH).

5. Ulangi langkah 4 untuksoalkuis yang lain, pada slide berikutnya.

6. Dan Pada Slide terakhir, digunakansebagai Review kuisatauandajugabisamemberitombol “CekNilai” untukmelihathasilnilaikuis (ikutilangkah 3).

• Padapilihan Run Macro, pilih “Jawab“
• Klik OK.

7. Terakhirsimpan file anda. Untuk PowerPoint (2007 dan 2010) simpandengan format PPTM(PowerPoint Macro – Enabled Presentation)
8. Selesai! JalankanKuisdenganmenekanTombol F5.