Membuat Sistem Informasi Geografis (SIG) dengan Visual Basic 6

 

Pemr Visual Basic. 18.12.2012. Teknik Sipil S1

Sebenarnya aplikasi untuk SIG banyak dijual di pasaran seperti ArcView atau ArcGiS. Tetapi berhubung mata kuliah kita Pemrograman Visual Basic, maka mari kita coba membuatnya. Sebenarnya prinsip SIG adalah integrasi antara raster data yang biasanya gambar peta (jpg/bmp) dengan vector data yang berupa database seperti lokasi banjir, perkantoran, kemacetan, dan sebagainya.

Pertemuan yang lalu kita telah bisa mengakses suatu database gambar, nah di sini kita coba vector data yang kita gunakan kita integrasikan dengan suatu peta pada form. Ambil contoh suatu peta dari www.maps.google.com kemudian simpan dengan nama, misalnya peta.jpg. Edit gambar tersebut untuk lokasi banjir, perkantoran, dan sarana umum. Cara sederhana adalah dengan men save as, kemudian ganti dengan nama banjir.jpg, perkantoran.jpg, dan saranaumum.jpg. Simpan di folder tertentu sebagai data. Buat project baru, dengan satu form.

Arahkah background (picture) ke peta. Tambahkan ADODC, Text, dan Command Button. Buat database dengan Access, jangan lupa simpan dalam format MDB (2003). Koneksikan dengan ADODC (lihat pembahasan yang lalu tentang akses ke database).

Buat satu table baru, misalnya data. Isi dengan data seperti di atas. Instruksi untuk memanggil gambar pada Command Button “Lihat” adalah sebagai berikut:

F = “D:\rahmadya\” & Text1.Text

Image1.Picture = LoadPicture(F)

Dan jika dijalankan hasilnya berikut ini, missal diklik data BANJIR, setelah ditekan tombol LIHAT akan tampil sebagai berikut.

Atau arahkan ke perkantoran misalnya, tekan LIHAT.

Selamat mencoba.

Iklan

Membuat Database Gambar

Ms Visual Basic 6. 0.12.2012. Tek Sipil S1

Ada dua jenis data gambar, yang pertama gambar diletakkan pada database, dan yang kedua gambar diletakan di folder tertentu sementara database hanya berisi link dan nama filenya. Buat dengan Microsoft access yang berisi nama gambar. Untuk mempermudah, copy gambar yang berada di my pictures ke lokasi folder VB anda.

Simpan dengan nama tertentu, misalnya gambar1.mdb (format ke access 2002-2003). Setelah itu buka Microsoft VB 6. Buat GUI sebagai berikut, seperti biasa tambahkan component adodc.

Lihat tata cara mengkoneksikan adodc1 ke database gambar1.mdb lewat connection string dan record source. Jika sudah, pada property text1, arahkan data source ke adodc1 dan data filed = picture.

Pada tombol LIHAT, masukan listing berikut ini:

F = “D:\rahmadya\” & Text1.Text

Image1.Picture = LoadPicture(F)

Perhatikan, lokasi D:\rahmadya\ sesuaikan dengan letak gambar di komputer Anda. Jalankan hingga muncul tampilan sebagai berikut.

Jika tombol LIHAT ditekan, akan memunculkan gambar1.jpg, atau tekan tombol next pada Adodc1 untuk melihat gambar yang lainnya.

Mengkoneksikan VB dengan ODBC

Open Database Connectivity (ODBC) merupakan alat bantu buatan Windows untuk menghubungkan suatu aplikasi dengan database tanpa langsung terhubung. Untuk itu kita harus membuat ODBC dari database yang telah kita buat. Jika sudah terbentuk, VB akan berkomunikasi dengan database lewat ODBC. Keuntungannya adalah jika kita akan migrasi ke software database lain, atau dalam satu aplikasi dilayani oleh lebih dari satu jenis database application, kita tidak perlu merubah setingan program.

Buka Control Panel cari ODBC (untuk windows 7, bisa di cari di search ). Untuk windows xp, cari di Administrative Tools.

Pilih jenis driver yang sesuai, dalam hal ini Microsoft Access Driver (*.mdb, *.accdb). Klik Finish dan dilanjutkan dengan pembuatan nama ODBC. Pilih Database yang dituju:

Jika Anda berhasil membuat ODBC lengkap dengan target databasenya, pada jendela ODBC tampak database Anda.

Buka VB6 project yang lalu. Sekarang akan kita coba dengan menggunakan ODBC. Sorot objek ADODC1 yang menghubungkan vb dengan database.

Klik Build karena akan kita ganti koneksi dengan ODBC. Pilih provider: Microsoft OLE DB Provider for ODBC Driver karena kita akan menggunakan ODBC. Klik Next . Pilih ODBC yang baru saja Anda buat (Material).

Test Koneksinya.

Input Data Transaksi dengan Visual Basic 6 (ADODC)

Pada pertemuan minggu lalu (https://rahmadyatrias.wordpress.com/2012/10/30/koneksi-dua-tabel-dalam-satu-form/) kita membuat satu form yang berisi koneksi dua tabel (adodc1 dan adodc2). Sekarang kita akan mencoba mengimplementasikan suatu manipulasi terhadap tabel kedua, misalnya transaksi barang. Barang yang dijual harus berada pada tabel material.

Buat isian pada input transaksi. Karena barang yang dijual harus berada di tabel material (bagian atas), maka di sini diberi tombol tekan “cari brg” agar sebelum transaksi, barang dipastikan ada pada tabel material. Gunakan kode berikut di tombol ‘Cari Brg’

Private Sub Command5_Click()

Adodc1.Recordset.MoveFirst

Adodc1.Recordset.Find “kode=” + Text5.Text + “”

If Not Adodc1.Recordset.EOF Then

Text6.Text = Adodc1.Recordset.Fields(1)

Else

MsgBox “maaf barang tidak ada”

End If

End Sub

Sedangkan untuk mengaktifkan tombol tekan input, gunakan kode berikut (perhatikan posisi text1, text2, dst harus sesuai dengan nama yang anda buat).

Private Sub Command4_Click()

Adodc2.Recordset.AddNew

Me.Adodc2.Recordset.Fields(0) = Text4.Text

Me.Adodc2.Recordset.Fields(1) = Text6.Text

Me.Adodc2.Recordset.Fields(2) = Text7.Text

End Sub

Ketika tombol CARI BRG ditekan akan menampilkan nama barang. Selanjutnya tinggal mengisi kolom isian lainnya sebelum tombol input ditekan

Koneksi dua Tabel dalam Satu Form

Pemr VB 6, 30.10.2012, Tek Sipil S1

Melanjutkan materi minggu lalu, kita mencoba menambahkan satu table dalam satu Form di VB. Tambahkan satu tabel baru di Database yang telah Anda buat, misalnya tabel transaksi. Tabel ini berisi transaksi penjualan material.

Untuk latihan, isi field-field di tabel transaksi yaitu No, kode dan Total. Masukan satu record awal, misalnya pembelian barang dengan kode 001 sebesar 110000. Klik Database Tools, buat relasi antara tabel material dengan tabel transaksi. Perhatikan, kode barang pada transaksi harus terkoneksi dengan kode barang pada tabel material.

Jika sudah selesai, buka project VB yang lalu, tambahkan DBGrid dan ADODC baru untuk mengkoneksikan tabel transaksi ke form tersebut. Gunakan cara yang sama dengan materi minggu lalu.

Coba koneksikan sehingga jika dijalankan Data Grid di bawah akan berisi data transaksi. Lanjut minggu depan bagaimana mengisi kode-nya.

Membuat Menu dan MDI Form

Setelah pertemuan yang lalu berhasil membuat aplikasi RAB, sekarang kita coba membuat tampilan awal program yang disertai dengan menu. Suatu aplikasi terkadang memiliki lebih dari satu Form dalam sebuah project. Oleh karena itu kita harus mampu mengatur form mana yang muncul lebih dahulu. Biasanya form yang muncul terlebih dahulu adalah MDI Form. Buka IDE Microsoft Visual basic 6.0 Anda.

Setelah membuka VB 6.0 buka project RAB yang terdahulu. Atau jika filenya tidak ada buat form kosong saja seolah-oleh itu adalah form menghitung RAB. Pilih dengan mengklik bagian panah ke bawahnya, kemudian pilih MDI Form.

Karena MDI Form nanti yang pertama kali tampil saat program dijalankan, maka kita harus mengeset form mana yang muncul terlebih dahulu. Klik ‘Project’ – ‘project1.properties’. Pada isian startup object pilih ‘MDI Form’.

Jika dijalankan, VB akan menampilkan terlebih dahulu MDI Form Anda. Berikutnya kita akan membuat MENU yang berfungsi memanggil form RAB dan ‘keluar’. Klik ‘Tool’ – ‘Menu Editor ..’, isi menu sebagai berikut:

Pilih panah ke kenan atau kekiri untuk menjadikan menu itu sub menu atau tidak. Karena RAB dan Exit merupakan submenu File, maka harus kita geser ke kanan dengan menekan tombol panah ke kanan. Klik ‘OK’ jika sudah selesai. Maka pada MDI Form akan muncul menu yang baru saja dibuat. Klik ‘File- RAB’ pada MDI Form, maka Anda masuk ke kode memanggil program RAB. Isi dengan istruksi ‘Form1.show’ yang artinya menampilkan Form1. Jika Form1 sudah Anda ganti namanya, maka ikuti sesuai dengan nama formnya.

Test program Anda dengan menekan tombol run maka MDI akan muncul terlebih dahulu. Jika menu ‘File’ ditekan, akan muncul ‘RAB’ dan ‘Exit’. Tes dengan menekan ‘RAB’, harusnya form RAB akan muncul. Jika sudah, coba tambahkan gambar di MDI Form Anda, dengan mengklik ‘Picture’ di ‘Property
editor’ VB.

 

 

Koneksi VB dengan Database Gambar

A. MERANCANG DATABASE

Terkadang data yang ditampilkan pada VB berupa gambar seperti tanda tangan, foto, dan sebagainya. Bagaimana cara membuat database tersebut? Berikut cara yang sederhana dengan Microsoft Access 2007. Cara ini menggunakan file text pada database yang merupakan link ke file gambar. Berbagai macam cara dapat Anda cari di situs vb, misalnya forum vb-bego. Seperti biasa, buatlah database baru berformat Access 2002-2003.


Buat dua buah field, dengan salah satunya yang akan berisi hyperlink dari gambar yang akan ditayangkan pada Visual Basic 6. Klik kanan pada tabel (signature), pilih Open, setelah konfirmasi untuk menyimpan, masukan nama file-file gambar beserta ekstensinya.


Masukan sekitar empat atau lima data tanda tangan, atau file gambar lain jika tidak punya gambar tanda tangan. Berikutnya kita mulai membuat GUI dalam bentuk Form di Visual Basic. Jangan lupa file gambar juga diletakan di tempat path pada database. Jika sudah tutup Microsoft Access 2007 anda.

B. MERANCANG FORM

Lihat kembali tata cara mengkoneksikan database access ke visual basic (https://rahmadyatrias.wordpress.com/2011/06/06/memasukan-database-melalui-microsoft-visual-basic-6/ ).


Kemudian buat script sederhana sebagai berikut, lalu jalankan.


Hasilnya adalah sebagai berikut


Selamat Mencoba


Rahmadya Trias