VBA dalam PowerPoint

Evaluasi hasil belajar diperlukan untuk mengetahui capaian kompetensi peserta didik.  Alat ukur evaluasi hasil belajar biasa dibedakan menjadi 2, yaitu: 1) tes dan 2) non tes.  Instrument tes sering disebut tes terlulis (paper and pencil test) berdasar bentuknya dibedakan menjadi 2, yaitu: 1) uraian (subjective test) dan 2) pilihan ganda (objective test). Berdasar tujuan dan waktu pelaksanaan dapat dibedakan menjadi 3, yaitu: 1) tes formatif, 2) tes sumatif dan 3) tes diagnostik. Pengetahuan tentang validitas dan reliabilitas soal sangat dibutuhkan dalam pengembangan instrument pengukur hasil belajar peserta didik.

Pilihan Ganda dalam PowerPoint
Soal pilihan ganda atau sering disebut objective test karena pemeriksaannya dilakukan secara objektif.  Logika benar salah dalam pemeriksaan soal pilihan ganda dapat dikembangkan dalam PowerPoint menggunakan Visual Basic for Application (VBA).  Pemanfaatan aplikasi ini dapat meningkatkan interaktifitas peserta didik dengan media dalam proses pembelajaran.

1.    Script VBA
Pertama  salin script dibawah ini menggunakan aplikasi Notepad,

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 + 20
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 skor()
ActivePresentation.SlideShowWindow.View.Next
tampilkan
End Sub

Sub tampilkan()
With ActivePresentation.Slides(8)
.Shapes(2).TextFrame.TextRange.Text = nilai
End With
End Sub

Simpan dengan nama script.bas dalam folder khusus  untuk memudahkan import script ke PowerPoint.  Manajemen file dengan melakukan pengaturan folder penyimpanan yang baik, dapat menjamin kemudahan pengembangan aplikasi yang dibuat selanjutnya.

Tutorial.

Disampaikan dalam “Pelatihan Pengemabangan Bahan Ajar Digital”

SMPIT Nur Hidayah, Surakarta (Agas, 14 Juli 2012)