Saturday, November 2, 2024

Tutorial Animasi Logika Gerbang OR dengan Macro VBA Powerpoint

Beberapa waktu yang lalu, BATIK, Belajar Asyik dengan TIK telah berbagi tutorial animasi logika gerbang AND yang memanfaatkan Macro VBA Powerpoint. Dengan langkah serupa dan seedikit perubahan gambar dan script Macro VBA-nya, pada kesempatan kali ini BATIK ingin berbagi tutorial animasi logika gerbang OR dengan Macro  VBA. Pertama-tama kita persiapkan terlebuh dahulu gambar yang serupa dengan animasi logika gerbang AND yang telah kita buat beberapa waktu lampau dengan memberikan beberapa perubahan seperti gambar berikut ini :

Gambar diatas dibuat dari :

  • 1 objek shape Rectangle yang diberi Fill > Solid FIll : Blue, Accent 1 Lighter 60%.
  • 2 buah objek shape oval, masing masing di insert text + untuk sumbu positif dan diinsert text – untuk sumbu negatif
  • 11 buah objek shape line, 9 diberi warna hitam untuk jalur kabel positif dan 2 diberi warna merah untuk jalur kabel negatif
  • 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 :

  1. Fill > Solid Fill > Yellow. Transparency = 39%
  2. 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 OR sebagai berikut :

No sw1 sw2 Cahaya Lampu
1 0 (putus) 0 (putus) Padam
2 1 (terhubung) 0 (putus) Nyala
3 0 (putus) 1 (terhubung) Nyala
4 1 (terhubung) 1 (terhubung) Nyala

apabila switch di klik, maka switch akan bergerak menyambung garis yang menjadi kabel, lalu cahaya bohlamp akan menyala apabila sw1 dan sw2 sama-sama terhubung. Jika switch di klik sekali lagi maka switch akan berputar sehingga jalur terputus, dan cahaya bohlamp kembali padam. Langkah-langkahnya adalah sebagai berikut :

Seleksi objek Switch sw1. Add Animation > Emphasis > Spin. Ubah properties Effect animasi Spin. Amount = 45 Clock wise. Lalu klik OK.

Seleksi objek Switch sw1. Add Animation > Emphasis > Spin. Ubah properties Effect animasi Spin. Amount = 45 Counter Clock wise. Lalu klik OK.

Seleksi objek Switch sw2. Add Animation > Emphasis > Spin. Ubah properties Effect animasi Spin. Amount = 45 Clock wise. Lalu klik OK.

Seleksi objek Switch 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 VBA yang akan mengontrol terpenuhinya syarat-syarat gerbang OR 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 OR 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 OR varsw2 = 1 Then
ActivePresentation.Slides(1).Shapes(“Cahaya”).Visible = msoCTrue
Else
ActivePresentation.Slides(1).Shapes(“Cahaya”).Visible = msoFalse
End If
End Sub

Terlihat pada script macro VBA diatas, perbedaan antara script macro VBA animasi logika gerbang AND kita sebelumnya dengan animasi logika gerbang OR kali ini.
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

Langkah terakhir adalah memberikan action 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 OR kita selesai. Kita dapat jalankan, jika salah satu atau kedua switch sw1 atau sw2 terhubung, maka cahaya bohlam nyala, tetapi jika kedua-duanya OFF maka lampu akan padam sesuai dengan logika gerbang OR.

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. Yang berminat filenya, silahkan inbox via FB.

Robby Shadri, S.Kom, Bertugas sebagai staff pengelola sistem informasi dan jaringan di Lembaga Penjaminan Mutu Pendidikan (LPMP) Riau. Mengawali hobi dibidang pemrograman, baik berbasis Web, maupun berbasis Desktop. Disamping itu juga sebagai instruktur diklat khususnya untuk materi diklat media pembelajaran berbasis TIK.

Khusus untuk media pembelajaran, penulis memfokuskan diri untuk menulis tutorial-tutorial perancangan animasi media pembelajaran menggunakan aplikasi yang sudah familiar dikalangan guru di tanah air, yakni Ms. Powerpoint termasuk tutorial animasi media pembelajaran di lpmpriau.kemdikbud.go.id di rubrik BATIK. Belajar Asik dengan TIK. Jika ada yang ingin bertanya, silahkan berkomunikasi via FB https://www.facebook.com/robby.shadri