Langkah yang harus dilakukan dalam
membuat aplikasi yaitu:
- Membuka powerpoint 2010
- Membuat 12 slide baru
- Pilih design sesuai selera
- Slide pertama diberi keterangan soal pilihan ganda yang disesuaikan dengan materi. Tulisan bisa dibuat dengan wordart
Pada tulisan start diblok kemudian
pilih menu insert -->
action -->
hyperlink -->
next slide. Kemudian start diblok
lagi pilih menu insert -->
action -->
run macro --> mulai_kuis
5. Slide ke-2 sampai ke-12 berisi soal beserta butir pilihan ganda. Untuk membuat butir pilihan ganda, penulisannya secara manual. Jadi tidak menggunakan numbering.
6. Untuk slide terakhir diberi keterangan check
score, sehingga ketika diklik check
score kita bisa melihat jumlah jawaban yang benar. Setelah itu dibuat tanda
silang dan home yaitu dengan cara pilih menu insert, klik shape, pilih gambar
yang sesuai.
- Pada tulisan check score diblok kemudian pilih menu insert --> action --> run macro --> cek_score.
- tanda home diklik kemudian pilih menu insert --> action --> hyperlink to --> first slide
- tanda silang diklik kemudian pilih menu insert --> action --> hyperlink to --> end show
7. Agar
semua tombol pada slide tidak bisa diklik, maka klik menu slide show, pilih set
up slide show, pilih “browsed at kiosk (full screen)”.
8. Untuk memasukkan rumus, maka tekan alt+F11, maka akan muncul
lembar module code. Selanjutnya masukkan rumus kedalam view code:
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 + 1
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 (" Jawaban anda yang benar 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.Exit
End If
End Sub
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 + 1
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 (" Jawaban anda yang benar 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.Exit
End If
End Sub
9. Pada lembar power point ke-2 sampai ke-11. Untuk setiap butir pilihan ganda diblok satu per satu kemudian pilih menu insert --> action --> run macro --> benar/salah(pilih sesuai kunci jawaban)
10.
Save
document power point dengan save as type “power point macro-enable
presentation” dengan nama power point terserah kita.
11.
Menjalankan
aplikasi dengan klik tombol slide show atau F5
Selamat mencoba ^_^
Tidak ada komentar:
Posting Komentar