Kamis, 24 Maret 2011

Membangun GIS dengan MapWindowGIS Activex

Selamat datang, okeh langsung aja yak, disini saya akan mengenalkan suatu Activex yang digunakan dalam VB.NET atau biasa disebut Visual Basic atau Microsoft Visual Basic atau apalah sebutan lainnya, pokoknya intinya bahasa pemrograman visual basic. Activex ini bernama MapWindowGIS Activex.

Pada hakikatnya MapWindowGIS ini sebenarnya tidak hanya bisa digunakan dalam Visual Basic, tetapi juga pada delphi serta pada semua bahasa pemrograman yang mendukung Activex Control, tetapi karena saya lebih familiar dengan Visual Basic jadi saya memakai Visual Basic aja yak. oiya karena MapWindowGIS ini merupakan aplikasi yang bersifat Open Source, jadi semuanya bersifat gratisssss....tis.

okeh kita mulai saja ya,

1.langkah pertama yang kita ambil untuk membangun aplikasi ini tentu saja kita membutuhkan program API VB.NET terinstall pada komputer anda OK, saya sendiri menggunakan VB.NET 2008 Express Edition.

2.langkah kedua yaitu mendownload Activex MapWindowGIS dari http://www.mapwindow.org
setelah sampai pada situs MapWindow langsung kita mengarah ke Tab Download Activex, oiya MapWindow ini juga menyediakan program GIS Open Source kita bisa download dari situs tersebut juga.

ini ada tips-tips download Activex:
- setelah kita membuka tab "Downloads" akan muncul popup, pada popup tersebut buka popup "MapWindow Activex" kita akan diarahkan pada page download.
- pada page download activex ini kita diberikan beberapa pilihan, seperti:

a.MapWinGIS47SRa-x86-Setup.exe ini merupakan paket Activex Installer untuk windows 32-bit.
b.MapWinGIS47SRa-x64-Setup.exe ini merupakan paket Activex Installer untuk Windows 64-bit.
c.MapWinGIS47SRa-x86.zip hanya berisi Activex Control, tanpa Installer untuk Windows 32-bit
d.MapWinGIS47SRa-x64.zip hanya berisi Activex Control, tanpa Installer untuk Windows 64-bit

saran saya, pilih pilihan a, karena kebanyakan windows yang kita gunakan adalah yang 32-bit machines, dan juga karena pilihan a sudah berbentuk paket installer jadi kita tinggal install tekan next, next dan selesai

oiya jika yang menggunakan Windows 64-bit pilih yang option b yak OK.

Tampilan situs MapWindowGIS :



3.langkah ketiga, setelah MapWIndowGIS Activex di download langkah selanjutnya adalah menginstall pada komputer anda, anda langsung saja klik MapWinGIS47RC-x86-Setup.exe dan langkah-langkah instalasi akan otomatis dijalankan, seperti program-program lain.

Setelah ketiga langkah diatas dijalankan, maka inilah saatnya saat yang paling berbahagia dan di tunggu-tunggu, yaitu membangun aplikasi GIS kita sendiri.

oiya.....oiya lagi ni, untuk membangun aplikasi ini di VB.NET ya kita harus mengenal syntaxnya VB dulu, jadi bagi yang belum mengenal dengan syntax dari VB saya harap belajar dahulu....OK.

Untuk langkah paling awal adalah pengenalan, jadi saya akan memberi contoh aplikasi sederhana GIS memakai MapWInGIS :

OKE kita mulai yak,

1.pertama kita buka Program Visual Basic, Visual Basic 2008 khususnya, setelah program VB terbuka buatlah project baru dengan cara klik pada Tab File > New Project setelah itu anda akan terbuka Window "New Project" dengan nama Project default yaitu "WindowsApplication1" kita bisa mengganti nama default tersebut dengan apa saja, seperti "kambingguling" atau "BajingLoncat" dan lain-lain, tapi kalo saya memakai nama "ContohGIS-1", untuk lebih lengkapnya lihat gambar dibawah ini dan tekan OK

Window VB


Window New Project

2.setelah itu secara otomatis Program VB akan membuat default Form yang bernama Form1, seperti gambar di bawah ini


3.setelah itu kita akan menambah MapWindow Activex pada VB, yaitu dengan cara :
- klik kanan pada Window "ToolBox" yang berada di kanan window project kita
- akan muncul popup window seperti gambar dibawah ini


pilihlah "Choose Items...." dan akan muncul window "Choose ToolBox Items" seperti gambar di bawah ini



pilihlah Tab "COM Components" dan carilah "Map Control" di dalam list dan centanglah kemudian klik OK, maka secara otomatis pilhan Tool "Map Control" akan muncul di dalam tool box.


4.setelah kita menambah MapWindow Activex ke dalam VB, saatnya kita menambah tool-tool mapwindow tersebut ke dalam aplikasi kita.

di dalam project kita ini telah terdapat Form dengan nama "Form1" nah di dalam form ini kita akan mengorganisir control, serta tool yang ada dlam VB sehingga membentuk suatu Form GIS sederhana.

- pertama yang kita butuhkan adalah container, lebih khususnya adalah "SplitContainer" di dalam jendela toolbox, letakan "SplitContainer" tersebut ke dalam "Form1" kemudian atur Properties menjadi "Horizontal Splitter Orientation" dan atur letak Spliter Container seperti pada gambar


- setelah itu tambahkan lagi Split Container kedalam container yang berada di bagian bawah "Form1", sehingga terbentuk seperti ini


- kemudian atur properties "BorderStyle" kedua split container menjadi "Fixed3D" dan untuk "SplitContainer1" atur properties "IsFixedPanel" menjadi True, seperti gambar ini


- kemudian masukan masukan control "Label" pada Container paling atas, lalu rubah "Text" label menjadi dari "Label1" menjadi "ContohGIS-1" untuk font serta ukuran dan warna terserah anda, setelah itu masukan "Map Control" pada container yang sebelah kanan, maka secara otomatis akan ada tool Map control dengan nama default "AxMap1", dan atur properties AxMap1 menjadi Dock "Fill", seperti gambar ini


- nah setelah control map berada pada Form maka kita membutuhkan control map seperti "Zoom In", "Zoom Out", "Zoom Extension", dan "Pan", untuk itu kita masukan "Button" dan atur seperti pada gambar


5.nah sekarang tinggal membangun script yang akan mengontrol GIS sederhana ini

oiya sebelumnya kita membutuhkan data .shp untuk dimasukan ke dalam GIS sederhana ini, kalo saya sendiri menggunakan data .shp dengan nama "kec.shp", kec.shp ini adalah data kecamatan kota Semarang.

oiya lagi, mulai detik ini saya beranggapan bahwa anada telah familier dengan VB, yah itu juga sebenarnya karena saya agak males untuk menjelaskan, nantinya kan jadi terlalu panjang gitu, jadi setelah ini saya akan menunjukan funtion serta mehod yang terdapat dalam MapWindow Acivex aja

OKE kita mulai :

- buka jendela code untuk Form1, kemudian tambahkan event "Load" untuk Form1, pada event load tambahkan coding seperti ini

Dim sf As New MapWinGIS.Shapefile

sf.Open("C:/data/kec.shp")"ini dimana anda meletakan data shp anda, saya sendiri meletakannya di C:/data/kec.shp"
AxMap1.AddLayer(sf, True)

untuk lebih jelasnya lihat gambar


anda bisa langsung melihat hasilnya dengan memulai debuging aplikasi anda

- nah sekarang tinggal menambah control map sepeti "Zoom In, "Zoom Out", "Zoom Extension", dan "Pan", tambahkan code ini pada setiap event "Click" pada tombol anda

untuk Button Zoom In "AxMap1.CursorMode = MapWinGIS.tkCursorMode.cmZoomIn"

untuk Button Zoom Out "AxMap1.CursorMode = MapWinGIS.tkCursorMode.cmZoomOut"

untuk Button Zoom Extension "AxMap1.ZoomToMaxExtents()"

untuk Button Pan "AxMap1.CursorMode = MapWinGIS.tkCursorMode.cmPan"

untuk lebih jelasnya lihat gambar


okeh sepertinya sudah siap aplikasi anda, anda tinggal mencobanya dan lihat hasilnya, dan anda bisa tunjukan kepada teman, saudara, bapak, ibu, dosen, guru, dsb

terimakasih sudah melihat tulisan saya ini, semoga hal ini dapat berguna bagi anda


Sumber :

http://www.mapwindow.org