Kita bertemu kembali dengan Batik, Belajar Asyik dengan TIK. Kali ini kita akan berbagi tutorial animasi gerbang AND dengan menggunakan Macro VBA. Apa itu Macro VBA ? VBA, merupakan singkatan dari Visual Basic for Applications adalah bahasa pemrograman yang dikembangkan oleh Microsoft. Mudahnya VBA ini adalah script pemrograman yang sesuai namanya, mirip dengan pemrograman Visual Basic yang dapat kita gunakan untuk melengkapi produk aplikasi Microsoft seperti Word, Excell, Acces dan Powerpoint. Nah, khusus untuk Powerpoint, Macro VBA akan sangat bermanfaat untuk melengkapi animasi yang dibuat dengan Powerpoint. Pada kesempatan kali ini kita akan membuat animasi gerbang AND dengan menggunakan Macro VBA Powerpoint.
Pertama-tama, persiapkan terlebih dahulu beberapa objek didalam slide seperti gambar berikut ini :
Gambar diatas dibuat dari :
- 1 objek shape Rectangle yang diberi Fill Texture stationery.
- 2 buah objek shape oval, masing masing di insert text + untuk sumbu positif dan diinsert text – untuk sumbu negatif
- 6 buah objek shape line, 3 diberi warna hitam untuk jalur kabel + dan 3 diberi warna merah untuk jalur kabel –
- Fitting dan bohlamp, silahkan berkreasi dengan menggunakan objek-objek shape yang ada.
- 2 buah word art, masing masing sw1 dan sw2
Selanjutnya tambahkan cahaya lampu dan 2 buah objek shape line yang diberi warna biru dan dibuat agak tebal, lalu diberi kemiringan 45 derajat. Ubah nama masing-masing objek shape line ini pada panel seleksi menjadi sw1 dan sw2 Objek cahaya pijar bohlamp menggunakan objek shape oval yang berbentuk lingkaran. Buat objek oval berbentuk lingkaran diatas bohlamp yang sudah dibuat sebelumnya, lalu ubah properti berikut ini :
- Fill > Solid Fill > Yellow. Transparency = 39%
- Glow and Soft Edges > Glow Size = 73 pt, Glow Transparency = 60%, Soft Edges Size = 30 pt.
sehingga terbentuk seperti gambar berikut ini :
Ubah nama objek cahaya bohlamp ini pada Selection Pane manjadi Cahaya.
Langkah selanjutnya memberikan efek animasi pada saklar sw1 dan sw2. Skenarionya sesuai dengan prinsip gerbang AND sebagai berikut :
No | sw1 | sw2 | Cahaya Lampu |
1 | 0 (putus) | 0 (putus) | Padam |
2 | 1 (terhubung) | 0 (putus) | Padam |
3 | 0 (putus) | 1 (terhubung) | Padam |
4 | 1 (terhubung) | 1 (terhubung) | Nyala |
apabila saklar di klik, maka saklar akan bergerak menyambung garis yang menjadi kabel, lalu cahaya bohlamp akan menyala apabila sw1 dan sw2 sama-sama terhubung. Jika saklar di klik sekali lagi maka saklar akan berputar sehingga jalur terputus, dan cahaya bohlamp kembali padam. Langkah-langkahnya adalah sebagai berikut :
Seleksi objek Switch/saklar sw1. Add Animation > Emphasis > Spin. Ubah properties Effect animasi Spin. Amount = 45 Clock wise. Lalu klik OK.
Seleksi objek Switch/saklar sw1. Add Animation > Emphasis > Spin. Ubah properties Effect animasi Spin. Amount = 45 Counter Clock wise. Lalu klik OK.
Seleksi objek Switch/saklar sw2. Add Animation > Emphasis > Spin. Ubah properties Effect animasi Spin. Amount = 45 Clock wise. Lalu klik OK.
Seleksi objek Switch/saklar sw2. Add Animation > Emphasis > Spin. Ubah properties Effect animasi Spin. Amount = 45 Counter Clock wise. Lalu klik OK.
Langkah berikutnya klik 2 kali animasi pertama, lalu klik tab Timing, klik Trigger, klik Start Effect on Click Off = sw1. Susun kembali urutan animasi seperti yang sudah kita buat sebelum membuat trigger seperti gambar berikut ini :
Jangan lupa untuk merubah status visible cahaya bohlamp menjadi false atau padam. Caranya klik dan hilangkan gambar mata yang ada pada bagian kanan kotak objek Cahaya di panel seleksi.
Langkah berikutnya adalah membuat macro yang akan mengontrol terpenuhinya syarat-syarat gerbang AND seperti pada tabel diatas. Jika ribbon menu Developer belum aktif, silahkan diaktifkan terlebih dahulu. Caranya silahkan baca mengaktifkan menu developer powerpoint. Klik menu Developer > Macros. Ketikkan sw1, lalu klik tombol Create. Maka dijendela editor macro akan muncul :
Sub sw1()
End Sub
Langkah berikutnya, ketikkan script program berikut ini diantara Sub sw1() dan End Sub sehingga menjadi seperti script dibawah ini :
Sub sw1()
If varsw1 = 0 Then
varsw1 = 1
Else
varsw1 = 0
End If
If varsw1 = 1 And varsw2 = 1 Then
ActivePresentation.Slides(1).Shapes(“Cahaya”).Visible = msoCTrue
Else
ActivePresentation.Slides(1).Shapes(“Cahaya”).Visible = msoFalse
End If
End Sub
Tutup jendela editor macro, ulangi langkah serupa untuk script berikutnya. Klik menu Developer > Macros. Ketikkan sw2, lalu klik tombol Create. Maka dijendela editor macro akan muncul :
Sub sw2()
End Sub
Langkah berikutnya, ketikkan script program berikut ini diantara Sub sw2() dan End Sub sehingga menjadi seperti script dibawah ini :
Sub sw2()
If varsw2 = 0 Then
varsw2 = 1
Else
varsw2 = 0
End If
If varsw1 = 1 And varsw2 = 1 Then
ActivePresentation.Slides(1).Shapes(“Cahaya”).Visible = msoCTrue
Else
ActivePresentation.Slides(1).Shapes(“Cahaya”).Visible = msoFalse
End If
End Sub
Langkah berikutnya, tambahkan script berikut ini dibagian paling atas :
Public varsw1 As Integer
Public varsw2 As Integer
Sub OnSlideShowPageChange(ByVal objWindow As SlideShowWindow)
varsw1 = 0
varsw2 = 0
ActivePresentation.Slides(1).Shapes(“Cahaya”).Visible = msoFalse
End Sub
Penjelasan :
DIawal program kita mendeklarasikan 2 variabel public yaitu varsw1 dan varsw2. Pada event OnSlideShowPageChange, artinya pada saat slide mulai dijalankan, maka variabel publik varsw1 dan varsw2 diberi nilai awal 0. Demikian juga objek shape Vahaya diubah status visiblenya menjadi false, agar cahaya lampunya padam.
Langkah terakhir adalah mengaitkan program macro yang sudah kita buat diatas dengan masing-masing switch yaitu sw1 dan sw2 agar dapat menyalakan cahaya bohlamp saat kedua switch berstatus ON. Caranya seleksi/klik objek shape sw1, lalu klik menu Insert > Action sehingga tampil gambar berikut :
Dengan langkah yang sama, hubungkan juga macro sw2 dengan Action objek shape sw2. Animasi gerbang AND kita selesai. Kita dapat jalankan, jika kedua saklar sw1dan sw2 terhubung, maka cahaya bohlam nyala, tetapi jika salah satu saklar atau kedua-duanya OFF maka lampu akan padam sesuai dengan logika gerbang AND.
Langkah terakhir, simpan file animasi kita dengan type PowerOoint Macro-enable presentation.
Demikian tutorial Batik, Belajar Asyik dengan TIK kali ini, selamat berkarya untuk anak bangsa.
pak Robby saya minta dikirimi file lengkap tutorialnya untuk saya share ke teman2 MGMP
Permintaan Bapak telah admin teruskan ke yang bersangkutan