Cara Membuat Soal Kuis dengan scor di Ms.PPT

Berikut ini langkah-langkahnya:

1. Pastikan anda sudah memiliki Arsip soal, sehingga Anda cukup meng-copy paste saja soal tersebut ke dalam slide.

2. 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 NAMA, NIM As String
Dim NILAI, N1, N2, N3, N4, N5, N6, N7, N8, N9, N10 As Double
Dim KON, PRED As String

Sub MULAI()
N1 = 0
N2 = 0
N3 = 0
N4 = 0
N5 = 0
N6 = 0
N7 = 0
N8 = 0
N9 = 0
N10 = 0
NAMA = InputBox("MASUKKAN TERLEBIH DAHULU NAMA ANDA", "INPUT NAMA")
NIM = InputBox("MASUKKAN TERLEBIH DAHULU NIM ANDA", "INPUT NIM")
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub N1B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N1 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N1S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N1 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N2B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N2 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N2S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N2 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N3B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N3 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N3S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N3 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N4B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N4 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N4S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N4 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N5B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N5 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N5S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N5 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N6B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N6 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N6S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N6 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N7B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N7 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N7S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N7 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N8B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N8 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N8S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N8 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N9B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N9 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N9S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N9 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N10B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N10 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N10S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N10 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub KELUAR()
KON = MsgBox("MOHON DICEK LAGI JAWABAN " & NAMA & " SELAGI MASIH ADA WAKTU", vbYesNo, "KONFIRMASI KELUAR")
If KON = vbNo Then
ActivePresentation.SlideShowWindow.View.Exit
End If
End Sub

Sub TAMPIL()
NILAI = N1 + N2 + N3 + N4 + N5 + N6 + N7 + N8 + N9 + N10
ActivePresentation.SlideShowWindow.View.GotoSlide (12)
With ActivePresentation.Slides(12)
If NILAI >= 75 Then
.Shapes(4).TextFrame.TextRange.Text = "Selamat " & NAMA & " Anda LULUS!"
Else
.Shapes(4).TextFrame.TextRange.Text = "Mohon maaf  " & NAMA & " Anda TIDAK LULUS"
End If
.Shapes(1).TextFrame.TextRange.Text = "NAMA = " & NAMA
.Shapes(2).TextFrame.TextRange.Text = "NIM = " & NIM
.Shapes(3).TextFrame.TextRange.Text = "NILAI = " & NILAI
End With
With ActivePresentation.Slides(12)
.Shapes(1).TextFrame.TextRange.Text = "NAMA = " & NAMA
.Shapes(2).TextFrame.TextRange.Text = "NIM = " & NIM
.Shapes(3).TextFrame.TextRange.Text = "NILAI = " & NILAI
If NILAI >= 75 Then
.Shapes(4).TextFrame.TextRange.Text = "Selamat " & NAMA & " LULUS!"
Else
.Shapes(4).TextFrame.TextRange.Text = "Mohon maaf  " & NAMA & " TIDAK LULUS"
End If
End With
End Sub

Sub TestMe()
    SimpanSlide (13), "d:" & NAMA & ".pptx"
    ActivePresentation.SlideShowWindow.View.GotoSlide (13)
End Sub

Sub SimpanSlide(noSlide As Long, namaFile As String)

    Dim y As Presentation
    Dim x As Long

    ActivePresentation.SaveCopyAs namaFile
    Set y = Presentations.Open(namaFile, , , False)

    For x = 1 To noSlide - 1
        y.Slides(1).Delete
    Next

    For x = y.Slides.Count To 2 Step -1
        y.Slides(x).Delete
    Next

    y.Save
    y.Close

End Sub

• Sesuaikan Score soal, dengan mengganti angka 1, pada Nilai=nilai+1.

• Jika sudah, kembali-lah ke halaman Ms Powerpoint anda.
  

3. Pada Slide ke-1 (digunakan untuk menampilkan Informasi tentang kuis), Ketikkan Judul Kuis / Semua Informasi tentang Kuis. Dan pada bagian bawah slide, buatlah Autoshape(tombol) dengan teks di dalamnya “Start Quiz” dengan cara :

• Pilih menu Insert, Shape, Pilih Action Button, Custom. Buatlah bentuk Kotak.

• Selanjutnya akan muncul kotak dialog Action Setting, Pilih  Run Macro, dan pilih “mulai” dan Klik OK.

Non-aktifkan Transisi, dengan menghilangkan tanda Checklist pada pilihan Transition, On mouse click. Hal ini supaya user hanya bisa menjalankan slide dengan menekan tombol “Start Quiz“.

4. Pada Slide ke-2, berisi soal kuis.

• Setiap slide berisi 1 soal kuis.
• Ketikkan Soal kuis yang ke-1 beserta Option-nya.
• Masing- masing Option menempati Autoshape /TextBox yang berbeda. Jadi jika pada 1 soal terdapat 5 Option, maka harus ada Textbox / Autoshape dengan Jawaban didalamnya, sebanyak 5 buah.

Untuk membuat Option, lakukan seperti anda membuat Tombol “START QUIZ” .

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

• 1 Soal, hanya berisi 1 jawaban benar selebihnya harus diberi action makro salah.
• Jika sudah, Klik OK.
• Ulangi untuk Option yang lain dengan pilihan Macro yang sesuai (BENAR/SALAH).

5. Ulangi langkah 4 untuk soal kuis yang lain, pada slide berikutnya.

6. Dan Pada Slide terakhir, digunakan sebagai Review kuis atau anda juga bisa memberi tombol “Cek Nilai” untuk melihat hasil nilai kuis (ikuti langkah 3).

• Pada pilihan Run Macro, pilih “Jawab“
• Klik OK.

7. Terakhir simpan file anda. Untuk PowerPoint (2007 dan 2010) simpan dengan format PPTM (PowerPoint Macro – Enabled Presentation)
8. Selesai! Jalankan Kuis dengan menekan Tombol F5.

download file (PDF)
download file (PPT)