Tutorial membuat-quiz1
Download as DOCX, PDF0 likes316 views
Tutorial ini menjelaskan langkah-langkah membuat quiz pilihan ganda dengan PowerPoint menggunakan VBA. Langkah-langkahnya adalah menulis script VBA, mengimpor script ke PowerPoint, membuat slide soal dan pilihan jawaban serta mengintegrasikan script VBA ke tombol mulai, jawaban benar, dan jawaban salah untuk menghitung skor akhir.
Tutorial membuat-quiz1
- 1. TUTORIAL MEMBUAT QUIZ PILIHAN GANDA DENGAN POWERPOINT MEMANFAATKAN VBA LangkahMembuat 1. Ketik script berikutdalam notepad kemudiansimpandenganektensi.bas 2. Bukapowerpointkemudiantampilkan tool developer 3. Klik tool developer kemudianklik visual basic, makaakanmuncul editorvba 4. Klik file pada VBA kemudianklikimportpilih file ygsudahdisimpandenganektensi. Bas. Sehinggatampilberikutini 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, " Cek Jawaban!") If konfirmasi = vbYes Then nilai = nilai + 5 ActivePresentation.SlideShowWindow.View.Next End If End Sub Sub salah() konfirmasi = MsgBox("Yakin denganjawabananda?", vbYesNo, " Cek Jawaban!") If konfirmasi = vbYes Then ActivePresentation.SlideShowWindow.View.Next End If End Sub Sub jawab() ActivePresentation.SlideShowWindow.View.Next tampilkan End Sub Sub tampilkan() With ActivePresentation.Slides(108) .Shapes(2).TextFrame.TextRange.Text = nilai End With End Sub
- 2. 5. Buat Slide Powerpointuntukmembuatkuisdibagianpembukasepertiini yang dilengkapidenganpetunjuk. 6. Kemudianbuat slide untukmaster soalsepertiberikut : 7. Duplikasi slide soalsebanyaksoal yang dibutuhkandengancaraklikkananpilih duplicate slide, makaakandidapat slide yang samapersisdengan slide yang diduplikat, tinggaldigantisoaldanpilihanjawaban. MENGINTEGRASIKAN SCRIPT VBA 1. MemulaiQuis, pilihtombolmulai → klik insert → klik action tampilkotak dialog berikut 2. Dengancara yang samauntuk option jawabanklikinsert → klik action → klik Run makro, untukjawabanbenarplih Module1.benar, untuk yang salahpilih Module1.salah. 3. Selesaikansampaisoalterakhir Klik run program → pilih Run macro Pilih . Module1.mulai. Klik OK
- 3. 4. Buat slide untukmenampilkanhasilsepertiini 5. Padatombolpanahpilih run makro → tampilkan SelamatMencoba ‼‼! Semogaberhasil