Month: October 2013

Sebelum saya paparkan (dalam video) tentang bagaimana membuat quiz pilihan ganda (variasi lain), saya ingin bercerita sedikit tentang penggunaan visual basic for application di kalangan guru – guru di  jawa tengah (khususnya dalam lomba multimedia pembelajaran).

Juri – juri lomba multimedia pembelajaran interaktif LPMP Jawa Tengah tahun 2012

Tahun 2006 LPMP Jawa Tengah menyelenggarakan lomba pembuatan bahan ajar berbasis komputer untuk pertama kalinya, saat itu yang menjadi juara adalah karya multimedia pembelajaran interaktif (MPI) dari guru yang menggunakan perangkat lunak macromedia flash. Di kalangan guru pembuat MPI  pada saat itu (mungkin sampai sekarang) perangkat lunak macromedia/adobe flash  adalah yang paling populer dan yang paling diminati untuk dipelajari. Namun berdasarkan pemgamatan saya dari banyak pelatihan yang diselenggarakan di jawa tengah  hanya sedikit guru yang bisa benar-benar menguasai perangkat lunak tersebut, apalagi jika dengan “actionscript” nya. Dalam lomba bahkan pemenang pun (yang jelas-jelas menggunakan actionscript) jika diminta untuk mendemonstrasikan bagaimana membuat simulasi dengan actionscript hampir sebagian besar gagal, dan seringkali berdalih bahwa mereka membuatnya mengikuti tutorial dari buku.  Singkatnya, bagi sebagian besar guru di jawa tengah macromedia/adobe flash adalah perangkat lunak yang sangat mempesona tapi sulit untuk dikuasai dan dipelajari.

Berdasarkan pengalaman (kegagalan) di lomba pertama untuk menjadi pemenang, di mana saat itu saya menggunakan perangkat lunak macromedia/adobe director. Saya memutuskan untuk menggunakan powerpoint di lomba yang sama pada tahun 2007, di event lomba MPI seperti ini, siapa yang memperhitungkan powerpoint untuk menjadi juara? –  powerpoint untuk   melawan karya-karya MPI yang menggunakan flash ibaratnya kisah nabi Daud melawan Jalut (atau David vs Goliath). Pada tahap final, dipilihlah 10 karya dari sekitar 200 an karya yang mengikuti lomba.  Dan 9 dari karya yang lolos ke final semuanya dibuat dengan perangkat lunak flash, satunya-satunya powerpoint yang lolos adalah karya saya. Alhamdulillah, pada saat pengumuman para juara, karya saya menempati rangking 1. Sejak saat itu muncullah joke “lebih baik menggunakan powerpoint bercita rasa flash, daripada menggunakan flash tapi mirip powerpoint”. Pada lomba ini, pada bagian evaluasi/test saya sudah menggunakan visual basic for application (vba) for powerpoint sehingga setelah menyelesaikan test siswa/pengguna dapat melihat hasilnya.

Setelah 6 tahun berlalu, kini setiap tahun di lomba – lomba pembuatan multimedia pembelajaran interaktif di jawa tengah yang diselenggarakan oleh LPMP atau BPTIKP, karya MPI  yang menggunakan powerpoint dengan vba nya sudah tidak asing lagi. Meskipun saya tidak pernah bisa untuk ikut lomba lagi di Jawa Tengah, karena selalu ditunjuk menjadi juri 🙂 baik di LPMP ataupun BPTIKP Jawa Tengah. Era saya sebagai guru peserta lomba di Jawa Tengah memang harus berakhir, sebagai gantinya dengan “track record” sebagai juara lomba MPI tahun 2007, saya mengisi workshop-worskhop di LPMP, BPTIKP dan di sekolah-sekolah.

Berikut ini adalah cuplikan materi yang saya sampaikan di Workshop “VBA for Powerpoint ” pada tanggal 2, 16, 23 Februari 2013 di SMAN 3 Pekalongan.

Membuat Quiz Pilihan Ganda dalam Satu Slide

download : video tutorial quiz pilihan ganda

Script VBA untuk membuat quiz pilihan ganda dalam satu slide.

‘===================

‘Pilih Jawaban no. 1

‘===================

Sub pilihA1()
ActivePresentation.Slides(1).Shapes(“jawab1”).TextFrame.TextRange.Text = “A”
End Sub
Sub pilihB1()
ActivePresentation.Slides(1).Shapes(“jawab1”).TextFrame.TextRange.Text = “B”
End Sub
Sub pilihC1()
ActivePresentation.Slides(1).Shapes(“jawab1”).TextFrame.TextRange.Text = “C”
End Sub
Sub pilihD1()
ActivePresentation.Slides(1).Shapes(“jawab1”).TextFrame.TextRange.Text = “D”
End Sub
Sub pilihE1()
ActivePresentation.Slides(1).Shapes(“jawab1”).TextFrame.TextRange.Text = “E”
End Sub

‘===================

‘Pilih Jawaban no. 2

‘===================

Sub pilihA2()
ActivePresentation.Slides(1).Shapes(“jawab2”).TextFrame.TextRange.Text = “A”
End Sub
Sub pilihB2()
ActivePresentation.Slides(1).Shapes(“jawab2”).TextFrame.TextRange.Text = “B”
End Sub
Sub pilihC2()
ActivePresentation.Slides(1).Shapes(“jawab2”).TextFrame.TextRange.Text = “C”
End Sub
Sub pilihD2()
ActivePresentation.Slides(1).Shapes(“jawab2”).TextFrame.TextRange.Text = “D”
End Sub
Sub pilihE2()
ActivePresentation.Slides(1).Shapes(“jawab2”).TextFrame.TextRange.Text = “E”
End Sub

‘===================

‘Pilih Jawaban no. 3

‘===================

Sub pilihA3()
ActivePresentation.Slides(1).Shapes(“jawab3”).TextFrame.TextRange.Text = “A”
End Sub
Sub pilihB3()
ActivePresentation.Slides(1).Shapes(“jawab3”).TextFrame.TextRange.Text = “B”
End Sub
Sub pilihC3()
ActivePresentation.Slides(1).Shapes(“jawab3”).TextFrame.TextRange.Text = “C”
End Sub
Sub pilihD3()
ActivePresentation.Slides(1).Shapes(“jawab3”).TextFrame.TextRange.Text = “D”
End Sub
Sub pilihE3()
ActivePresentation.Slides(1).Shapes(“jawab3”).TextFrame.TextRange.Text = “E”
End Sub

‘===================

‘Pilih Jawaban no. 4

‘===================

Sub pilihA4()
ActivePresentation.Slides(1).Shapes(“jawab4”).TextFrame.TextRange.Text = “A”
End Sub
Sub pilihB4()
ActivePresentation.Slides(1).Shapes(“jawab4”).TextFrame.TextRange.Text = “B”
End Sub
Sub pilihC4()
ActivePresentation.Slides(1).Shapes(“jawab4”).TextFrame.TextRange.Text = “C”
End Sub
Sub pilihD4()
ActivePresentation.Slides(1).Shapes(“jawab4”).TextFrame.TextRange.Text = “D”
End Sub
Sub pilihE4()
ActivePresentation.Slides(1).Shapes(“jawab4”).TextFrame.TextRange.Text = “E”
End Sub

‘===================

‘Procedure periksa jawaban

‘===================

Sub periksa()
Dim jawaban, kunciJawab, rBenar, rSalah As Variant
Dim i As Integer
Dim nilai As Integer
Dim j1, j2, j3, j4 As String
j1 = ActivePresentation.Slides(1).Shapes(“jawab1”).TextFrame.TextRange.Text
j2 = ActivePresentation.Slides(1).Shapes(“jawab2”).TextFrame.TextRange.Text
j3 = ActivePresentation.Slides(1).Shapes(“jawab3”).TextFrame.TextRange.Text
j4 = ActivePresentation.Slides(1).Shapes(“jawab4”).TextFrame.TextRange.Text
jawaban = Array(j1, j2, j3, j4)
kunciJawab = Array(“A”, “A”, “A”, “A”)
rBenar = Array(“responBenar_1”, “responBenar_2”, “responBenar_3”, “responBenar_4”)
rSalah = Array(“responSalah_1”, “responSalah_2”, “responSalah_3”, “responSalah_4”)
For i = 0 To 3
If jawaban(i) = kunciJawab(i) Then
nilai = nilai + 25
ActivePresentation.Slides(1).Shapes(rBenar(i)).Visible = True
ActivePresentation.Slides(1).Shapes(rSalah(i)).Visible = False
Else
nilai = nilai + 0
ActivePresentation.Slides(1).Shapes(rBenar(i)).Visible = False
ActivePresentation.Slides(1).Shapes(rSalah(i)).Visible = True
End If
Next
ActivePresentation.Slides(1).Shapes(“nilaiAnda”).TextFrame.TextRange.Text = nilai
ActivePresentation.Slides(1).Shapes(“periksa_btn”).Visible = False
ActivePresentation.Slides(1).Shapes(“reset_btn”).Visible = True
End Sub

‘===================

‘Procedure Reset

‘===================

Sub reset()
Dim jawab, rBenar, rSalah As Variant
Dim i As Integer
jawab = Array(“jawab1”, “jawab2”, “jawab3”, “jawab4”)
rBenar = Array(“responBenar_1”, “responBenar_2”, “responBenar_3”, “responBenar_4”)
rSalah = Array(“responSalah_1”, “responSalah_2”, “responSalah_3”, “responSalah_4”)
For i = 0 To 3
ActivePresentation.Slides(1).Shapes(jawab(i)).TextFrame.TextRange.Text = “”
ActivePresentation.Slides(1).Shapes(rBenar(i)).Visible = False
ActivePresentation.Slides(1).Shapes(rSalah(i)).Visible = False
Next
ActivePresentation.Slides(1).Shapes(“nilaiAnda”).TextFrame.TextRange.Text = “0”
ActivePresentation.Slides(1).Shapes(“periksa_btn”).Visible = True
ActivePresentation.Slides(1).Shapes(“reset_btn”).Visible = False
End Sub

download : file latihan membuat quiz pilihan ganda dalam satu slide