Salah satu contoh yang bagus untuk memperagakan suatu koneksi secara otomatis yang diperlukan pada suatu titik koneksi tertentu adalah scenario penghubungan shape peralatan network ke dalam rak atau kabinet. Buka Rack Diagram dan ambil Rack shape yang ada di Rack-mounted Equipment stencil. Untuk mencoba contoh berikut ini, anda perlu membuat suatu list peralatan di Excel spreadsheet seperti yang anda lihat disini. Spreadsheet ini saya buat dengan kolum Asset Number, Equipment Type, Heights in U’s, Rack dan U Position
. Saya tidak menggunakan bahasa Indonsia dalam pengisian nama kolum karena kolum ini harus sama dengan yang ada di attribute Visio pada stencil network dan rack sehingga nanti pada saat pengisian cabinet secara otomatis terjadi dengan benar. Kemudian saya hubungkan data excel tadi itu ke Visio, saya pergi ke menu Data, Link Data to Shapes dan saya pilih tipe Excel sebagai databasenya lalu saya pilih lokasi file tersebut dan Next sampai Finish. Di External Data window susun Euqipment Type nya lalu pilih shape Cable Tray di Rack-mounted Equipment stencil dan ambil semua data Cable Tray di External Data window ke halaman. Lakukan hal yang sama untuk Patch Panelnya. Nah sekarang semua shape yang ada di External Data sudah di halaman, saya tinggal membuat koneksinya secara otomatis agar tiap shape ditaruh di rack secara benar sesuai dengan apa yang tertera pada External Data properties. Jika anda mau, anda bisa rubah Data Graphicnya agar tampilannya rapi.
Tekan tombol Alt dan F11 untuk membuka VBA Editor. Saya buat 2 module yang berisikan kode GetShapesByData dan ConnectRackEquipment dan 1 UserForm untuk mengeksekusi fungsi ConnectRackEquipment. Pada demonstrasi sebelumnya anda telah menggunakan kode GetShapesByData yaitu fungsi yang mengambil shapes sesuai dengan external data yang telah terhubung dan menklarifikasikan agar shape tersebut seseuai dengan kriteria shape data yang telah ditentukan sehingga bisa melakukan koneksi otomatis pada shape yang bersangkutan. Disini saya tambahkan kode ConnectRackEquipment yang fungsinya mencari semua shapes yang ada pada halaman untuk mencari shape yang lolos kualifikasi sebagai rack yakni yang mengandung elemen Prop.HoleSpacing shape data. Kemudian untuk tiap shape yang lolos kualifikasi, fungsi FindMyRackEquipment, yang memanggil fungsi GetShapesByData, mengembalikan list seluruh shape milik Rack dan kemudian membaca posisi U nya dan terakhir mengkoneksi peralatan network tersebut (cable tray dan patch panel) ke titik koneksinya rack.
Sekarang semuanya sudah siap, saya tekan Run dan klik tombolnya. Perhatikan bahwa Cable Tray dan Patch Panelnya otomatis masuk ke dalam rak cabinet dan masing masing terpasang secara benar sesuai dengan posisinya yang telah ditetapkan di External Data window. Silahkan konfirmasi kebenarannya.
Demikian demonstrasi ini anda telah mempelajari cara menggunakan kode dan metode dalam mempersingkat tugas menghubungkan peralatan network ke dalam rack sesuai dengan kriteria yang terdapat pada nilai posisi yang ditetapkan pada Excel spreadsheet.
. Saya tidak menggunakan bahasa Indonsia dalam pengisian nama kolum karena kolum ini harus sama dengan yang ada di attribute Visio pada stencil network dan rack sehingga nanti pada saat pengisian cabinet secara otomatis terjadi dengan benar. Kemudian saya hubungkan data excel tadi itu ke Visio, saya pergi ke menu Data, Link Data to Shapes dan saya pilih tipe Excel sebagai databasenya lalu saya pilih lokasi file tersebut dan Next sampai Finish. Di External Data window susun Euqipment Type nya lalu pilih shape Cable Tray di Rack-mounted Equipment stencil dan ambil semua data Cable Tray di External Data window ke halaman. Lakukan hal yang sama untuk Patch Panelnya. Nah sekarang semua shape yang ada di External Data sudah di halaman, saya tinggal membuat koneksinya secara otomatis agar tiap shape ditaruh di rack secara benar sesuai dengan apa yang tertera pada External Data properties. Jika anda mau, anda bisa rubah Data Graphicnya agar tampilannya rapi.
Tekan tombol Alt dan F11 untuk membuka VBA Editor. Saya buat 2 module yang berisikan kode GetShapesByData dan ConnectRackEquipment dan 1 UserForm untuk mengeksekusi fungsi ConnectRackEquipment. Pada demonstrasi sebelumnya anda telah menggunakan kode GetShapesByData yaitu fungsi yang mengambil shapes sesuai dengan external data yang telah terhubung dan menklarifikasikan agar shape tersebut seseuai dengan kriteria shape data yang telah ditentukan sehingga bisa melakukan koneksi otomatis pada shape yang bersangkutan. Disini saya tambahkan kode ConnectRackEquipment yang fungsinya mencari semua shapes yang ada pada halaman untuk mencari shape yang lolos kualifikasi sebagai rack yakni yang mengandung elemen Prop.HoleSpacing shape data. Kemudian untuk tiap shape yang lolos kualifikasi, fungsi FindMyRackEquipment, yang memanggil fungsi GetShapesByData, mengembalikan list seluruh shape milik Rack dan kemudian membaca posisi U nya dan terakhir mengkoneksi peralatan network tersebut (cable tray dan patch panel) ke titik koneksinya rack.
Sekarang semuanya sudah siap, saya tekan Run dan klik tombolnya. Perhatikan bahwa Cable Tray dan Patch Panelnya otomatis masuk ke dalam rak cabinet dan masing masing terpasang secara benar sesuai dengan posisinya yang telah ditetapkan di External Data window. Silahkan konfirmasi kebenarannya.
Demikian demonstrasi ini anda telah mempelajari cara menggunakan kode dan metode dalam mempersingkat tugas menghubungkan peralatan network ke dalam rack sesuai dengan kriteria yang terdapat pada nilai posisi yang ditetapkan pada Excel spreadsheet.
Langganan:
Posting Komentar (Atom)
0 comments:
Posting Komentar