際際滷

際際滷Share a Scribd company logo

Tutorial membuat-quiz1

Download as DOCX, PDF
Didik Purnomo
Didik Purnomo

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.

1 of 3
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.際際滷ShowWindow.View.Next End Sub Sub benar() konfirmasi = MsgBox("Yakin denganjawabananda?", vbYesNo, " Cek Jawaban!") If konfirmasi = vbYes Then nilai = nilai + 5 ActivePresentation.際際滷ShowWindow.View.Next End If End Sub Sub salah() konfirmasi = MsgBox("Yakin denganjawabananda?", vbYesNo, " Cek Jawaban!") If konfirmasi = vbYes Then ActivePresentation.際際滷ShowWindow.View.Next End If End Sub Sub jawab() ActivePresentation.際際滷ShowWindow.View.Next tampilkan End Sub Sub tampilkan() With ActivePresentation.際際滷s(108) .Shapes(2).TextFrame.TextRange.Text = nilai End With End Sub
5. Buat 際際滷 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
4. Buat slide untukmenampilkanhasilsepertiini 5. Padatombolpanahpilih run makro tampilkan SelamatMencoba 錫! Semogaberhasil

More Related Content

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.際際滷ShowWindow.View.Next End Sub Sub benar() konfirmasi = MsgBox("Yakin denganjawabananda?", vbYesNo, " Cek Jawaban!") If konfirmasi = vbYes Then nilai = nilai + 5 ActivePresentation.際際滷ShowWindow.View.Next End If End Sub Sub salah() konfirmasi = MsgBox("Yakin denganjawabananda?", vbYesNo, " Cek Jawaban!") If konfirmasi = vbYes Then ActivePresentation.際際滷ShowWindow.View.Next End If End Sub Sub jawab() ActivePresentation.際際滷ShowWindow.View.Next tampilkan End Sub Sub tampilkan() With ActivePresentation.際際滷s(108) .Shapes(2).TextFrame.TextRange.Text = nilai End With End Sub
  • 2. 5. Buat 際際滷 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