by Siti Asmaul Husna (932200315)
Berikut cara membuat kuis pada Microsoft Power Point:
1.
Buatlah soal kuis, dengan slide pertama ketik
seperti ini :
Slide ke-2, ke-3, ke-4 dan ke-5 berisi pertanyaan
yang ingin anda buat kuis. Seperti contoh.
Dan Slide terakhir berisi cek skor kuis. Seperti
ini.
2. Jika
sudah tekan alt+F11 lalu akan muncul Microsoft Visual Basic. Pilih menu insert
, kemudian pilih module. Jika sudah akan muncul .
3. Sebelum
kita mengisi kotak kosong. Ketik dahulu rumus pada notepad. Caranya klik
start-All Program- Accesories – pilih notepad. Jika sudah ketik rumus dibawah
ini lalu save di komputer anda.
Dim nilai As Integer
Dim konfirmasi As String
Sub mulai_kuis()
nilai = 0
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub benar()
konfirmasi = MsgBox("Yakin dengan jawaban anda?",
vbYesNo, " Cek Jawaban!")
If konfirmasi = vbYes Then
nilai = nilai + 2
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Sub salah()
konfirmasi = MsgBox("Yakin dengan jawaban anda?",
vbYesNo, " Cek Jawaban!")
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Sub cek_skor()
MsgBox (" skor anda adalah " & nilai)
konfirmasi = MsgBox(" Ingin Mengulangi kuis? ", vbYesNo)
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.First
End If
If konfirmasi = vbNo Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
4. Jika
sudah di save, lalu anda kembali pada microsoft visual basic lalu copy-paste
rumus tersebut pada kotak kosong. Catatan : jika ketikan anda ada yang berwarna merah berarti anda salah mengetik,
jika begitu periksa ulang sampai benar.
5. Jika
sudah lalu anda kembali ke Ms. Power Point , lalu klik gambar START Pada slide
pertama lalu pilih menu insert-action – pilih Run Macro – lalu pilih “mulai_kuis”.
6. Setelah
itu lakukan berulang pada slide kedua , klik jawaban salah lakukan cara seperti
diatas tapi pada run Macro pilih “salah”
sedangkan jawaban benar pilih “benar”.
Lakukan berulang pada pertanyaan kuis yang anda buat.
7. Jika
sudah lalu lakukan lagi hal yang sama pada slide terakhir seperti cara 5 dengan
diklik gambar SKOR dan pilih “skor” pada Run macro.
8. Jika sudah
selesai, silahkan anda coba kuis nya dengan cara klik Slide Show (F5). Dan jika ingin di simpan agar tidak
hilang editan kuisnya maka anda ganti di format type “Power
Point Enable Template”.
