Tutorial membuat skor di Power Point

Materi ini sebenarnya saya peroleh ketika saya mengikuti mata kuliah Pengantar Teknologi Informasi Bimbingan Ibu Dian Kurniati.tugas ini merupakan tugas terstuktur untuk mata kuliah tersebut dan di jadikan tugas kedua.awalnya sangat sulit di pahami namun setelah banyak mencoba dan melihat referensi yang begitu lengkap akhirnya tugas tersebut selesai dan berhasil di kumpulkan,
untuk teman teman pembaca yang ingin mencoba saya buat tutorialnya sebagai berikut.
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 nilai As Integer                                                                                              Dim konfirmasi As String                                                                                       Sub mulai() 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 jawab() ‘tombol untuk selesai MsgBox (” skor anda adalah ” & nilai)          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.
.
Jika Anda ingin mendownload hasil milik saya klik disini
.
atau lihat tutorial youtube berikut ini


NB : Size : 664 KB Via : mediafire Password Winrar: 12345