TUTORIAL PEMBUATAN SOAL PILIHAN GANDA

TUTORIAL MEMBUAT APLIKASI UNTUK SOAL PILIHAN GANDA PADA POWER POINT DENGAN VISUAL BASIC

Langkah yang harus dilakukan dalam membuat aplikasi ini adalah sebagai berikut:

1. Membuka powerpoint 2010

2. Pilih design sesuai keinginan

3. Slide pertama diberi keterangan materi yang didapat

4. Atur ppt sedemikian rupa

5. Masukkan sesuai yang ada pada judul pptnya

a.     Pendahuluan

b.     KI dan KD

c.      Indikator

d.     Tujuan pembelajaran

e.      Materi

f.       Tes (pilihan ganda)

6. Untuk membuat soal pilihan ganda, atur format ppt sedemikian rupa.

7. Memasukkan rumus terlebih dahulu, dengan cara menekan 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

8. Masukkan soal sesuai dengan nomornya (jumlah soal 15)

9. Ketika sudah selesai kemudian atur kerjanya :

a.     Pada tulisan start diblok kemudian pilih menu

Insert --> action --> hyperlink  --> run macro --> mulai_kuis --> OK.

b.     Untuk mengatur jawaban blog pilihan jawaban kemudian pilih menu

Insert --> action --> hyperlink  --> run macro --> benar (jika jawaban benar) atau salah (jika jawab salah) --> OK.

c.  Untuk slide terakhir diberi keterangan nilai,  sehingga ketika diklik check score kita bisa melihat jumlah jawaban yang benar, kemudian di atur dengan cara mengeblog tulisan “nilai” kemudian pilih menu

Insert --> action --> hyperlink  --> run macro --> cek skor --> OK.

d.     Agar semua tombol pada slide tidak bisa diklik, maka klik menu slide show, pilih set up slide show, pilih “browsed at kiosk (full screen)”.

10. Save document power point dengan save as type “power point macro-enable presentation” dengan nama power point terserah kita.

11. kemudian jalankan aplikasi dengan klik tombol slide show atau F5

Selamat mencoba

Semoga bermanfaat J