Chemistry is Chemistry

Tutorial Soal Pilihan Ganda dengan PPT Visual Basic

Langkah yang harus dilakukan dalam membuat aplikasi yaitu:

1.      Membuka powerpoint 2010

2.     Membuat 12 slide baru

3.     Pilih design sesuai selera

4.     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

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

Kalau masih bingung, bisa komentar di kolom komentar ya, guys. J

Selamat mencoba :D