Category: VBA for Powerpoint

Learn to Code : VBA for Powerpoint di Jawa Tengah + Tutorial membuat quiz pilihan ganda

Abdul Karim2 Comments

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

36525_10200287541057456_263781926_nJuri – 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.

P1010286

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

Learn to Code : Membuat simulasi warna RGB (Red – Green – Blue) pada powerpoint

Abdul KarimLeave a comment

Pada posting kali ini, akan dijelaskan bagaimana membuat simulasi warna RGB (Red – Green – Blue) pada powerpoint menggunakan visual basic for application.

download : video tutorial membuat simulasi warna RGB

Script VBA untuk membuat simulasi warna RGB

Private Sub SpinButton1_Change()
ActivePresentation.Slides(1).Shapes(“kotakRGB”).Fill.BackColor.RGB = RGB(Val(SpinButton1), Val(SpinButton2), Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakRGB”).Fill.ForeColor.RGB = RGB(Val(SpinButton1), Val(SpinButton2), Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakRed”).Fill.BackColor.RGB = RGB(Val(SpinButton1), 0, 0)
ActivePresentation.Slides(1).Shapes(“kotakRed”).Fill.ForeColor.RGB = RGB(Val(SpinButton1), 0, 0)
ActivePresentation.Slides(1).Shapes(“angkaRed”).TextFrame.TextRange.Text = Val(SpinButton1)
End Sub

Private Sub SpinButton2_Change()
ActivePresentation.Slides(1).Shapes(“kotakRGB”).Fill.BackColor.RGB = RGB(Val(SpinButton1), Val(SpinButton2), Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakRGB”).Fill.ForeColor.RGB = RGB(Val(SpinButton1), Val(SpinButton2), Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakGreen”).Fill.BackColor.RGB = RGB(0, Val(SpinButton2), 0)
ActivePresentation.Slides(1).Shapes(“kotakGreen”).Fill.ForeColor.RGB = RGB(0, Val(SpinButton2), 0)
ActivePresentation.Slides(1).Shapes(“angkaGreen”).TextFrame.TextRange.Text = Val(SpinButton2)
End Sub

Private Sub SpinButton3_Change()
ActivePresentation.Slides(1).Shapes(“kotakRGB”).Fill.BackColor.RGB = RGB(Val(SpinButton1), Val(SpinButton2), Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakRGB”).Fill.ForeColor.RGB = RGB(Val(SpinButton1), Val(SpinButton2), Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakBlue”).Fill.BackColor.RGB = RGB(0, 0, Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakBlue”).Fill.ForeColor.RGB = RGB(0, 0, Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“angkaBlue”).TextFrame.TextRange.Text = Val(SpinButton3)
End Sub

download : file latihan membuat simulasi warna RGB

 

VBA for PowerPoint : Mengenal bilangan – Banyaknya Mobil 1 – 10

Abdul KarimLeave a comment

Pada tutorial kali ini akan dijelaskan bagaimana cara membuat ilustrasi “mengenal bilangan”

Langkah pertama : buat TextBox biasa kemudian beri nama “angka”, selanjutnya insert picture “mobil” kemudian copy 9 kali sehingga jumlahnya menjadi 10 dan beri nama mobil1, mobil2, mobil3 sampai dengan mobil10. Tambahkan satu obyek ActiveX Control “SpinButton1”

gambar

Langkah kedua :

Ketikkan pada module (pada microsoft vba editor insert module) , prosedur berikut ini :


Sub hideMobil()

For i = 1 To 10

ActivePresentation.Slides(1).Shapes(i).Visible = msoFalse

Next

End Sub

Langkah ketiga :

Klik kanan pada SpinButton1, kemudian pilih view code akan tampil editor vba pada slide1, ketikkan script berikut :

Private Sub SpinButton1_Change()

hideMobil

For i = 1 To Val(SpinButton1)

ActivePresentation.Slides(1).Shapes(i).Visible = msoTrue

Next

ActivePresentation.Slides(1).Shapes(“angka”).TextFrame.TextRange.Text = Val(SpinButton1)

End Sub

VBA for Powerpoint : Penyelesaian Sistem Persamaan Linear Dua Variabel (SPLDV)

Abdul KarimLeave a comment

Pada tutorial kali ini akan dijelaskan bagaimana cara membuat powerpoint untuk menentukan penyelesaian sistem persamaan linear dua variabel (SPLDV).

Langkah pertama : buat TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6 dengan TextBox (ActiveX Control), kemudian buat TextBox “nilaiX” dan “nilaiY” dengan Text Box biasa. Dan buat tampilan seperti pada gambar berikut ini.

gambar

 

Langkah kedua :

Ketikkan script berikut ini pada module, kemudian run macro untuk prosedur “hapus” dengan tombol clear, dan prosedur “hitung_x_y dengan tombol hitung.

Sub hapus()

Slide1.TextBox1.Text = “-“

Slide1.TextBox2.Text = “-“

Slide1.TextBox3.Text = “-“

Slide1.TextBox4.Text = “-“

Slide1.TextBox5.Text = “-“

Slide1.TextBox6.Text = “-“

ActivePresentation.Slides(1).Shapes(“nilaiX”).TextFrame.TextRange.Text = “…”

ActivePresentation.Slides(1).Shapes(“nilaiY”).TextFrame.TextRange.Text = “…”

End Sub

Sub hitung_x_y()

Dim a, b, c, d, p, q As Integer

a = Val(Slide1.TextBox1.Text)

b = Val(Slide1.TextBox2.Text)

p = Val(Slide1.TextBox3.Text)

c = Val(Slide1.TextBox4.Text)

d = Val(Slide1.TextBox5.Text)

q = Val(Slide1.TextBox6.Text)

If a * d – b * c <> 0 Then

ActivePresentation.Slides(1).Shapes(“nilaiX”).TextFrame.TextRange.Text = (d * p – b * q) / (a * d – b * c)

ActivePresentation.Slides(1).Shapes(“nilaiY”).TextFrame.TextRange.Text = (a * q – c * p) / (a * d – b * c)

Else

MsgBox (“SPLDV tidak mempunyai penyelesaian tunggal”)

End If

End Sub

VBA for PowerPoint : Menampilkan dan menyembunyikan gambar dengan toggle button

Abdul KarimLeave a comment

Ketika kita mengetik soal pilihan ganda pada slide powerpoint, seringkali kita menjumpai masalah “bagaimana menempatkan gambar dengan ukuran yang sesuai, tetapi sayangnya ruang untuk gambar tidak cukup lagi. Salah satu trik untuk mengatasi masalah tersebut adalah dengan menyembunyikan gambar tersebut dan digantikan dengan sebuah tombol (toggle button) , sedangkan untuk menampilkannya kita klik “toggle button”. Pada tutorial ini, akan dijelaskan langkah-langkah untuk melakukan hal tersebut.

Langkah pertama : sisipkan sebuah toggle button – Developer – Toggle Button (Active X Control), kemudian seleksi Toggle Button – klik kanan – properties – pada bagian Caption ketikkan “lihat gambar”

gbr1

Langkah kedua : Sisipkan gambar yang akan ditampilkan/sembunyikan, Insert –  Picture – kemudian klik pada gambar pilih menu format –  Selection Pane sehingga tampil panel Selection and Visibility, beri nama “gambar 1”

gbr2

Langkah ketiga

Klik kanan Toggle Button pilih View Code sehingga tampil VBA editor dan ketikkan

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = False Then

ActivePresentation.Slides(1).Shapes(“gambar 1”).Visible = msoFalse

Else

ActivePresentation.Slides(1).Shapes(“gambar 1”).Visible = msoTrue

End If

End Sub