ºÝºÝߣ

ºÝºÝߣ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
Download to read offline
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