.:: Jasa Membuat Aplikasi Website,Desktop,Android Order Now..!! | | Order Now..!! Jasa Membuat Project Arduino,Robotic,Print 3D ::.

VB.NET :: Membangun GIS dengan MapWindowGIS Activex

0 komentar


بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم
bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Assalamu'alaikum warahmatullahi wabarakatuh


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

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com


atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين
Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
wassalamualaikum warahmatullahi wabarakatuh


Artikel VB.NET :: Membangun GIS dengan MapWindowGIS Activex, Diterbitkan oleh scodeaplikasi pada Kamis, 28 Juli 2016. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.

Tawk.to