...

INTEGRASI DENGAN APLIKASI LAIN

by user

on
Category: Documents
0

views

Report

Comments

Transcript

INTEGRASI DENGAN APLIKASI LAIN
BAB 11
MENGELOLA FILE & OLE (OBJECT LINGKING EMBEDDING)
Bab ini akan membahas Control-control mengelola file dan object lingking Embedded yang digunakan menglink
program-program software seperti Microsaot Word, Excel, power point, Paint dan seterusnya. Dan juga dapat membuka
sebuah file yang sudah terbentuk dari software tersebut diatas, bahkan dapat juga membuat file baru yang kosong untuk
nantinya diisi dengan data lewat interface Visual basic (form/lembarkerja pada VB).
11.1 MENGELOLA FILE
Kita dapat melakukan pengelolaan file yeng tersipan dalam folder yang terdapat atau terhubung/tersambung ke
system computer kita pada UI (User interface Visual Basic, lewat objects file (Control-Control file) yang disediakan oleh
Visaul Basic 6.0.
Didalam menampilkan atau memanggil sebuah file, atau juga menyimpan sebuah file ada lanakah-langkah yang
harus dilakukan terstruktur (sesuai level atau hirarki dan tingkatan yang musti dilewatkan berurutan). Diantaranya :
- Untuk menampilkan file, perlu membuka direktori penyimpanannya.
- File disimpan pada susunan bertingkat-tingkat dan akan lebih mudah apabila organisasi file menggunakan model diagram
pohon untuk menempilkan tingkat-tingkat direktori.
- Seperti pada File Manager atau Windows explorer.
11.1.1 MENGHANDLE LEWAT DRIVE TYPES
Visual Basic 6.0 menyediakan beberapa Control atau object untuk kebutuhan mengelola file yaitu :
- File Listbox, untuk menampilkan semua file pada direktori yang sedang dibuka.
- DirList Box, untuk menampilkan semua direktori atau folder pada drive yang sedang diaktifkan.
- DriveList Box, untuk menampilkan semua drive yang terdapat pada computer.
Letak ketiga kontrol pada toolbox seperti gambar ToolBox dibawah ini:
Gbr ToolBox. Lokasi Kontrol File
Kontrol-kontrol file
Ketiga kontrol pada pemakaiannya saling terkait sesuai hirarkinya.
- Pertama DriveListBox, dibawahnya DirListBox dan terakhir FileListBox
- Perubahan informasi pada DriveListBox akan menyebabkan perubahan pada kedua kontrol ditingkat bawahnya yaitu :
DirListBox dan FileListBox
- Sebaliknya perubahan pada FileListBox tidak akan mempengaruhi kedua Kontrol yang tingkatnya berada diatasnya.
11.1.2 IMPLEMENTASI CONTROL FILE DI VB
1. Buatlah Proyek baru dan pasangkan ketiga kontrol file, seperti terlihat pada gambar 11.1. dibawah ini :
Object Label
Object DriveList Box
Object File Listbox
Object DirList Box
Gbr 11.1 Hasil Rancangan/Disain ke 3 control file
Integrasi dengan aplikasi lain (OLE)
1
Gbr 11.2 Memilih Drive
Gbr 11.3 Folder dari drive D:\ yang dipilih muncul
Gbr 11.4 Memilih Folder
Gbr 11.5 Tampil file dari folder yang dipilih pada label
Simpanlah Project1, tersebut. Dengan nama ProjectOLEFile.pvb dan nama formnya : FORMOLEFile.frm.
2. Tambahkan form baru (Form2) pada projectOLEFile diatas, Buatlah UI (User interface) pada Form2, dengan
menggunakan ketiga kontrol file, seperti terlihat pada gambar dibawah ini :
Integrasi dengan aplikasi lain (OLE)
2
Gbr 11.6. Disain ketiga control file
Agar bisa dilaksanakan pimilhan dirive, folder dan file pada saat aplikasi di Run atau dilaksanakan, buatlah code untuk
pelaksanaan tersebut, gunakan metode change agar bisa berpindah kursor ke tampilan file dari folder yang dipilih dengan
kata lain code dengan metode change digunakan untuk mengaitkan ketiga control file tersebut, sehingga bisa bekerja
secara normal. Sekarang lakukan cara berikut untuk mengetikan code :
1. Klik ganda kontrol DriveListBox yang tampak pada disan /rancangan form diatas. Maka tuliskan kode berikut ini.
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
EndSub
Kode diatas berarti perubahan yang terjadi di kontrol drive harus diikuti oleh kontrol direktori.
2. Klik ganda kontrol DirListBox, dan tuliskan kode berikut ini.
Private Sub Dir1_Change()
File1.Path = Dir1.Path
EndSub
3. Klik ganda kontrol FileListBox, lalu tuliskan kode berikut :
Private Sub File1 _Click()
MsgBox “ Anda sedang klik pada File: “& File1.Path&”\”&File1.Filename
EndSub
Atau Coba anda tambahkan Object label pada rancangan form pada gambar 11.6 diatas, hasilnya lihat Gbr 11.1. Lalu
click ganda object label tersebut, ketikan kode berikut :
Private Sub File1 _Change()
Label1.Cation = File1.Path&”\”&File1.Filename
EndSub
Simpanlah ProjectOLEFile.pvb dan beri nama form2 tersebut : FORMOLEFile01.frm.
Langkah selanjutnya, tentukan StartUp Objek, yaitu : Dari menu Project | pilih Project1Propertie | Tentukan StartUp Object
ke Form2
Kemudian Cobalah jalankan ProjectOLEFile.pvb | Click Start (►) yang terdapat pada toolbar.
Cobalah pilih drive, kemudian Pilih folder, setelah itu coba pilih file yang akan dibuka dan perhatiakan Hasilnya : Jika
mengubah drive, maka seluruh informasi pada direktori dan drive juga akan berubah. Dan perubahan pada direktori
(DirListBox) akan diikuti oleh FileListBox.
Kemudian kliklah salah satu file, program akan memberikan tanggapan seperti berikut :
Gbr 11.7. Program menampilkan informasi yang bersesuaian
Integrasi dengan aplikasi lain (OLE)
3
Gbr 11.8 Tanggapan FileListBox
11.1.3 MENYARING FILE BERDASARKAN EXTENSI
Berdasarkan Ekstensi File
- Kita menginginkan agar hanya file jenis tertentu saja yang ditampilkan.
- VB 6 memiliki fasilitas berupa properti pattern dari control FileListBox
- Nilai yang harus diisikan ke pattern adalah jenis ekstensi file. Contoh file eksekusi : *.exe, File MS-Word : *.doc
- Secara default nilainya adalah *.*, seperti gambar berikut ini
Gbr 11.9 Pattern bernilai *.*
-
Kalau anda terpaksa menuliskan kode untuk pengubahan nilai tersebut, jangan lupa untuk menambahkan pasangan tanda
petik. Misalnya seperti berikut ini :
File1.Pattern=”*.exe”
Berdasarkan Atribut File VVV
* Kita bisa menyaring file berdasarkan atribut file
* File dibedakan berdasarkan atributnya, antara lain archive, hidden, Read Only dan system.
* Semua property tersebut telah tercantum pada Window Properties, anda tinggal mengaktifkan dg mengganti nilainya
menjadi True. Lihat gambar dibawah ini :
Gbr 11.10 Properti Atribut File
11.1.4 Cara Lain Menampilkan File
Selain dengan kontrol FileListBox kita bisa menampilkan nama file pada tempat lain misalnya pada kontrol-kontrol
seperti TextBox, ListBox, Label atau Form. Sarana yang digunakan adalah fungsi Dir$(N,A), Argumen fungsi ini ada dua
yaitu :
N adalah Nama & Path File
A adalah Atribut File, Argumen ini tidak harus digunakan.
Contoh :
Dim Pilihan as string
Pilihan = Dir$(“C:\*.txt”)
Print Pilihan
Kode diatas akan memilih sebuah file dengan ekstensi .txt yang terletak di root direktori. File pertama yang ditemukan akan
ditampilkan pada form.
Menampilkan Nama File pada Form
Langkahnya :
1. Buat Proyek baru, pasangkan sebuah tombol seperti gambar dibawah ini :
Integrasi dengan aplikasi lain (OLE)
4
Gbr 11.11 Rancangan Tampilan
2. Klik ganda tombol, lalu isikan kode berikut :
Private Sub Command1_Click()
Dim Pilihan as string
Pilihan = Dis$(“C:\*.txt”)
Print Pilihan
End Sub
3. Jalankan program dan tekanlah tombol, hasilnya seperti berikut :
Gbr 11.12 Hasil Program
Menampilkan Banyak File sekaligus
Kita ingin menampilkan semua file *.txt dengan cara menggunakan perulangan While Wend seperti berikut ini :
Private Sub Command1_Click()
Dim Pilihan as string
Pilihan = Dir$(“C:\*.txt”)
While Not Pilihan = “ “
Print Pilihan
Pilihan = Dir$
Wend
End Sub
Jalankan program dan tekanlah tombol, Hasilnya sebagai berikut :
Gbr 11.13 Seluruh File *.txt ditampilkan pada form
Menampilkan Nama File pada kontrol label
Untuk menampilkan sebuah nama file pada kontrol Label, gunakan nama file terpilih sebagai nilai property Caption.
Kontrol label dengan nama Label1, kode lengkapnya adalah :
Private Sub Command1_Click
Dim Pilihan as string
Integrasi dengan aplikasi lain (OLE)
5
Pilihan = Dir$(“C:\*.txt”)
Label1.Caption = Pilihan
End Sub
Jalankan program dan tekanlah tombol, Hasilnya sebagai berikut :
Gbr 11.14 Label menampilkan file
Menampilkan pada TextBox
Kontrol TextBox bernama Text1, anda bisa memasangkan sebuah nama file yang ditemukan sebagai nilai property Text.
Kodenya seperti berikut :
Private Sub Command1_Click
Dim Pilihan as string
Pilihan = Dir$(“C:\*.txt”)
Text1.Text = Pilihan
End Sub
Jalankan program dan tekanlah tombol, Hasilnya sebagai berikut :
Gbr 11.15 TextBox menampilkan nama file
Menampilkan pada ListBox
Kontrol ListBox bisa menampilkan file terpilih, menggunakan metode AddItem(kontrol ListBox bernama List).
Private Sub Command1_Click
Dim Pilihan as string
Pilihan = Dir$(“C:\*.txt”)
While.Not.Pilihan=””
List1.AddItem Pilihan
Pilihan = Dir$
Wend
End Sub
Jalankan program dan tekanlah tombol, Hasilnya sebagai berikut :
Integrasi dengan aplikasi lain (OLE)
6
Gbr 11.16 ListBox menampilkan nama file
11.2 OLE (Object Linking and Embedding)
Digunakan untuk integrasi dengan aplikasi lain
Adalah teknologi yang memungkinkan programmer dari aplikasi berbasis windows dapat membuat program yang dapat
menampil kan objek dari program aplikasi lain dan memungkinkan pemakai menyunting objek dari program aplikasi lain
melalui aplikasi berbasis windows tersebut.
Pada OLE ada dua jenis hubungan yaitu : Linking dan Embedding. Yang pertama adalah terbentuk hubungan antara
kedua aplikasi, sedangkan yang kedua yaitu jika ada perubahan data maka data tersebut akan diperbaharui dikedua aplikasi
langsung, meskipun salah satu aplikasi sedang tidak aktif.
11.2.1 MEMBUAT OBJECT LINKED
Linking (Linked) adalah terbentuk hubungan antara kedua aplikasi, jika ada perubahan data maka data tersebut akan
diperbaharui dikedua aplikasi langsung, meskipun salah satu aplikasi sedang tidak aktif.
Tapi dengan metode lingking (Linked) ini, kita tidak dapat membuat file baru yang kosong untuk nantinya diisi dengan
data.
Untuk membuat sebuah objek Linked (terhubung) :
1.
2.
3.
4.
5.
Desain objek OLE dari toolbox ke form.
Pada kotak dialog Insert Object, tandai pilihan Create From File.
Tekan tombol Browse, sehingga kotak dialog untuk mencari file akan muncul. Pilih file yang akan dihubungkan.
Klik insert untuk kembali ke kotak dialog insert object.
Tandai pilihan Link, lalu klik Ok untuk menghubungkan objek yang telah anda pilih.
Visual Basic juga memungkinkan data pada objek terhubung untuk diganti dengan data dari aplikasi lain, walaupun
program sedang tidak dijalankan. Agar program tersebut mampu membaca perubahan yang terjadi, tambahkan perintah
berikut : Nama_Kontrol_OLE.Update
Untuk membuat file aplikasi lain terhubung ke Form/lembar kerja Vb, selanjutnya data_file tersebut di modificasi pada
form Vb, dan Perubahan datanya akan terjadi (atau diperbaharui) di kedua aplikasi :
Lakukan langkah-langkah berikut :
1. Click OLE yang terdapat pada ToolBox, Disain Object OLE ke form
Gbr 11.17 ToolBox dan Disain OLE pada Form
2. Akan tampil Jendela insert object berikut ini :
Integrasi dengan aplikasi lain (OLE)
7
Gbr 11.18 Insert Object
3. Clicklah/tandailah Option Create from File | akan tampil jendela insert Object kedua, seperti dibawah ini Gbr 11.19
Click/tandai Check pada tulisan Link sampai muncul tanda Checknya, seperti tampak dibawah ini pada Gbr 11.19:
|
Gbr 11.19 Jendela insert Object ke 2 Dan Click Tanda Check Link
3. Click Tombol Browse | tampil jendela Browse lihat Gambar 11.20 dibawah ini | Lalu Pilihlah Folder dengan mengclick
tanda panah pada kotak Look ini | Kemudian Pilih File yang ingin di kerjakan data nya | terakhir Click Tombol Open, |
hasilnya lihat Gambar 11.21 dibawah ini :
Gbr 11.20 Jendela Browse
Pada jendela browse ini kita dapat memilih file yang akan di tampilkankan/link ke form kerja VB, Terlebih dulu pilih foldernya
baru pilih dan click file data nya, yaitu VB01 documen Word | click Tombol Open, hasilnya sebagai berikut :
Integrasi dengan aplikasi lain (OLE)
8
Gbr 11.21 File VB01 (Doc Word)Tampil di form
4.Click kanan Mouse untuk mengaktifkan object OLE tersebut, seperti terlihat pada gambar 11.22 dibawah ini | Click Edit |
Disain OLE pada Form Akan aktif Documen Word bisa di modifikasi dan IDE Vb menu Tool nya akan tersetting / berganti
menjadi menu Word, lihat hasinya Pada gambar 11.23 :
Gbr 11.22 Mengaktifkan DisainOLE di Form
5. Perhatikan menuToolbar Visual basic Dibawah ini sudah berganti dengan menu Word. Pada tampilan OLE dalam
keadaan Edit ini kita bisa melakukan Modifikasi (perubahan, penambahan) data :
Gbr 11.23a Mengatur Pargraf Data DocWord
Atau di Run terlebih dulu, setelah itu dapat dilakukan modifikasi (perubahan, penambahan) data. Sekarang simpanlah
terlebih dulu Form OLE diatas, Kemudian Cobalah jalankan ProjectOLEFile | Click Start (►) yang terdapat pada toolbar.
Dan hasilnya sebagai berikut :
Integrasi dengan aplikasi lain (OLE)
9
Gbr 11.23b OLE dalam status Running
Perubahan Data yang telah dilakukan, akan masuk pada data aslinya di document Word.
Hal ini bisa dilakukan untuk Link data aplikasi lainya, seperti Excel, ClipArt, dan lain-lain.
11.2.2 MEMBUAT OBJECT EMBEDDED
Berbeda dengan Objek Linked, object Embedded selain dapat membuka sebuah file juga dapat membuat file baru
yang kosong untuk nantinya diisi dengan data. Cara membuat sebuah object embedded sama dengan object Linked, hanya
saja pilihan Link tidak ditandai.
Menyisipkan Object
A. Disini kita akan melakukan Insertkan object : Microsoft Office Worksheet Excel, ikuti langkah-langkah berikut ini :
Langkah :
1. Desain objek OLE dari toolbox ke form.
2. Pada kotak dialog Insert Object, tandai pilihan Create New (lihat gambar
1.24 yaitu jendela Insert OBject)
3. Pilih dan Klik salah satu objek pada kotak daftar Object Type, misalnya
Microsoft Excel
Gbr 11.24 Kotak dialog Insert Object
4. Click Tombol OK, akan masuk/tampil Worksheet Excel pada Form/lembar kerja VB, lihat gambar 11.25 dibawah ini :
Integrasi dengan aplikasi lain (OLE)
10
Gbr 11.25 Worksheet Excel muncul pada OLE
Worksheet Excel pada gambar diatas sedang tidak aktif, Ukuran Disain Ole pada Form bias diperberas atauu diperkecil
(dirubah), Agar bias Worksheet Excel digunakan | Click kanan Mouse pilih Edit, lihat tampilan dibawah ini :
Gbr 11.26 Aktifkan Worksheet Excel Click kanan Mose | Click Edit
5. Perhatikan Gambar 11.27 dan gambar 11.28 dibawah ini, worksheet Excel dalam keadan aktif, menu toolbar berganti
menjadi menu ToolBar Excel
Gbr 11.27 Worksheet Excel Aktif dalam OLE
Integrasi dengan aplikasi lain (OLE)
11
Gbr 11.28 Worksheet Excel Aktif | Click menu Insert | Tamabah baris & kolom
6. Masukan data pada worksheet Excel, anda dapat menjalankan aplikasi Excel Layaknya anda menjalankan excel
langsung dalam softwarenya, Semua operasi matematika, kolom, baris, data, dan sebagai nya yang dapatdilakukan
dlam Excel, di Worksheet Excel pada OLE juga bisa. berikut ini, lihat gambar 11.29 dibawah ini :
Gbr 11.29 Mengisi data dalam Worksheet Excel
B. Sekarang kita melakukan insert Object : Microsoft Office Excel Chart, ikuti langkahnya.
Langkah :
1. Desain objek OLE dari toolbox ke form.
2. Pada kotak dialog Insert Object, tandai pilihan Create New (lihat gambar
1.20 yaitu jendela Insert OBject)
3. Pilih dan Klik salah satu objek pada kotak daftar Object Type Pilih Microsoft Office Excel Chart :
Gbr 11.30 Kotak dialog Insert Object
4. Chart Klik OK, tampil grafik Excel pada Form (lihat gbr.11.31) dibawah ini :
Integrasi dengan aplikasi lain (OLE)
12
Gbr 11.31 Pemilihan Objek MS Excel Chart
5. Jalankan program. Sebuah grafik data Excel kini tersedia pada aplikasi kita. Lihat Gbr 11.31 Excel Chart. Klik ganda
grafik tersebut akan memanggil ‘Excel Mini’ pada aplikasi kita seperti pada gbr 11.32. Aplikasi ini memiliki toolbar chart
untuk mengedit tampilan grafik
6. Aplikasi ini disamping memiliki toolbar chart untuk mengedit tampilan grafik. Juga menampilkan data Grafik yang tidak
pernah kita susun. Bahkan Anda bisa mengubah data grafik tersebut dengan membuka lembar kerja sheet1. Lihat
gambar 11.32. Disana ada tujuh menu yang telah disediakan. Masing-masing menyimpan perintah yang akan membantu
pekerjaan kita.
Gbr 11.32 Grafik Excel / Excel Chart
Gbr 11.33 Data Grafik Excel
Lihat gambar 11.33 diatas, pada taskbar pinggiran bawah worksheet Terlihat Chart1, Sheet1,
Clicklah Sheet1,perhatikan kolom A : ada tujuh menu yang telah disediakan. Masing-masing menyimpan perintah yang akan
membantu pekerjaan kita.
Bila kita mengubah data angka yang ada di kolom B, C dan D maka grafik nya juga berubah, Clicklah Chart1 yang tampak
pada taskbar diseblah sheet1, untuk melihat perubahan grafik,
11.4. LATIHAN SOAL KASUS
Soal A :
Cobalah anada Lakukan langkah-langkah berikut ini, untuk menyambungkan Aplikasi Word ke Form/lembar kerja VB,
buatlah data Excel (File) yang baru, di lembar kerja VB, ikuti cara dibawah ini :
1. clicklah objek OLE dari toolbox Disain ke form.
2. Pada kotak dialog Insert Object, tandai pilihan Create New (lihat gambar
11.20, yaitu jendela Insert OBject)
3. Pilih/Klik salah satu objek pada kotak daftar Object Type Pilih Microsoft Office Excel
Integrasi dengan aplikasi lain (OLE)
13
4. Klik OK, file yang dipilih akan tampil pada kontrol OLE !.
5.Jalankan program, lalu klik ganda kontrol OLE, akan tampil toolbar MS Excel. Selanjutnya dapat dilakukan pengeditan
menggunakan menuyang terdapat toolbar. Cobalah Lakukan !.
Soal B.
Buatlah disain atau rancangan Form seperti tampak dibawah ini. Gunakan Object Label, dan ketiga object/control FILE.
Kemudian buatlah code/program nya, gunakan metode change. untuk mengaitkan ketiga control file tersebut, sehingga bisa
bekerja secara normal
Yaitu : Agar kursor dapat berpindah ke tampilan file dari folder yang dipilih atau dari dirive ke tampilan folder,
Soal C.
Gbr B1. Tiga Control File
Buatlah Tampilan Form seperti tampak dibawah ini. Gunakan Object atau control OLE. Coba modifikasi (Lakukan
perubahan, penambahan) data Word tersebut :
Kemudian. Jalankan program,
lalu
klik
ganda kontrol OLE, akan tampil toolbar MS WORD. Selanjutnya dapat dilakukan
Gbr C1.
Data
Doc.Word
pengeditan menggunakan menu yang terdapat toolbar. Cobalah Lakukan !.
Soal D
Buatlah Project baru, disain Form nya dengan Object OLE, ikuti langkah dibawah ini :
1. Clicklah objek OLE dari toolbox Disain ke form.
2. Pada kotak dialog Insert Object, tandai pilihan Create New (lihat gambar
11.30, yaitu jendela Insert OBject)
3. Pilih/Klik salah satu objek pada kotak daftar Object Type Pilih Microsoft Office Paint
4. Klik OK, file yang dipilih akan tampil pada kontrol OLE, Lalu aktifkan Disain OLE pad Form | Click kanan Mouse | Click
EDIT, lihat tampilan Gbr D1 | Click Colors pada menu ToolBar | Click Edit Colors, lihat tampilan Gambar D2.dibawah
ini !.
Gbr D1. Aplikasi Paint dalam OLE
Integrasi dengan aplikasi lain (OLE)
14
Gbr D2. Paint disain, memilih warna
Kemudian. Anda ciptakan/lakukan membuat tampilan gambar yang menarik. Jalankan program, lalu klik ganda kontrol OLE,
akan tampil toolbar MS WORD. Selanjutnya dapat dilakukan pengeditan menggunakan menu yang terdapat toolbar.
Cobalah Lakukan !.
Selamat mencoba
Integrasi dengan aplikasi lain (OLE)
15
Fly UP