MapInfo Pro 10.5 | Overlay map dan editing map

Dengan MapInfo 10.5 editing/update map vector menjadi semakin mudah. Ada tools Bing Hybrid sehingga peta Bing dapat di load ke dalam MapInfo secara otomatis. Saya biasanya menggunakan Google Map atau Bing Map untuk membandingkan tingkat update data vektor yang dimiliki selain dengan survey dan data dari GPS. Untuk mengupdate map vektor dari Google Map atau Bing cukup dengan overlay data vektor dengan peta dari Google map atau Bing Map. Kemudian tambahkan ruas jalan yang belum ada.

Bing Map

Hybrid Bing

Tampilan Hibrid Bing pada MapInfo 10.5

Vector Map

Vector Map

Vector Map ditampilkan dalam tabel yang berbeda

Overlay Bing dan Vector

Overlay Bing dan Vector

Selanjutnya proses Register Vector Map dan Raster juga sangat mudah dengan mengaktifkan terlebih dahulu Tools –> Register Vector dari Tool Manager.

Register Vector

Register Vector

Atau baca artikel sebelumnya Register Peta.

Selanjutnya Silakan edit Peta Vector dengan membandingkan ruas jalan pada Bing Map dengan ruas jalan data. [dch]

Membuat Applikasi GIS Desktop-2

Find Jalan

1. Klik Project > Add Form untuk menambah form baru, kemudian set property nya seperti berikut :

Tambahkan form tersebut dengan tombel, label dan combobox sehingga akan berbentuk seperti pada gambar berikut :

2. Buat property dari masing-masing bagian seperti berikut :

Combo Box

Tombol

a. Klik tombol Trace Jalan dua kali, isi kodenya seperti berikut :

b. Klik tombol CLOSED dua kali, isi kodenya seperti berikut :

Private Sub Cmdclose_Click()

Formfindjalan.Visible = False

End Sub

Find Universitas

1. Klik Project > Add Form untuk menambah form baru kemudian set propetynya seperti berikut :

Tambah form tersebut dengan tombol, label, text dan ComboBox sehingga akan berbentuk seperti gambar berikut :

2. Buat properti dari masing-masing bagian seperti berikut :

ComboBox

Tombol

Text

a. Klik tombol TRACE Universitas dua kali,isikan kode seperti berikut :

b. Klik tombol CLOSE dua kali,isikan kode seperti berikut :

Private Sub Cmdexit_Click()

Formfinduniv.Visible = False
End Sub

Find Hotel

1. Klik Project ? Add Form untuk menambah form baru, kemudian set propertinya seperti berikut :

Sama seperti diatas tambah form tersebut dengan tombol, label, dan ComboBox sehingga akan berbentuk seperti gambar berikut :

2. Buat propertinya dari masing-masing bagian seperti berikut :

ComboBox

Tombol

Text

a. Klik tombol Trace Hotel dua kali, isikan kode seperti berikut :

b. Klik tombol CLOSE dua kali, isikan kodenya seperti berikut :

Private Sub Cmdclose_Click()

Formfindhotel.Visible = False

End Sub

Dengan demikian kita sudah membuat semua form yang kita rancang, Selanjutnya jalankan applikasi yang telah dibuat dengan menekan F5 dan akan muncul tampilan GIS seperti berikut :

Klik Find Universitas, kemudian pilih Universitas pada combo box, lalu trace universitas yang diinginkan. MapWindows akan menampilkan lokasi unversitas yang kita trace tersebut seperti gambar berikut :

Selesai… Pengembangan lebih lanjut terserah Anda..

Membuat Applikasi GIS Desktop-1

Akan dibuat applikasi GIS desktop sederhana yakni GIS Kota Bandung. Applikasi ini dibuat dengan menggunakan MapInfo Professional 8.0, Ms. Visual Basic untuk perancangan User Interfacenya dan MapBasic sebagai interface antara MapInfo dan Visual Basic. Disini MapBasic berfungsi sebagai DDE (Dynamic Data Exchange).DDE adalah interprocess communication method untuk OS (Operating System) Windows yang berisi passing data antara proses dan sinkronisasi event. DDE menggunakan shared memory untuk mengubah data anatara applikasi dan protokol untuk melakukan sinkronisasi passing data. Peta yangdigunakan adalah peta Kota Bandung dapat segera di download disini.

Tool yang juga digunakan oleh kedua aplikasi yaitu file info.mbx yang merupakan aplikasi dari mapbasic. Cara membuat file info.mbx :

  1. Buka Map Basic, kemudian klik File > New

  2. Ketikkan source code seperti pada tabel -1 berikut kedalam file

  3. Simpan dengan nama info.mb, kemudian klik File > Compile from file sehingga didapatkan file info.mbx

Langkah pertama untuk membuat aplikasi ini adalah pembuatan form utama, caranya :

Gambar 2. Tampilan Menu Utama

  1. Buka Visual Basic. Buat form baru yang akan kita gunakan sebagai form utama. Isi property dari form sebagai berikut :

  2. Letakan PictureBox pada daerah yang akan kita letakan workspace dari MapInfo, set property yang sesuai beri nama mapframe

  3. Letakan tombol-tombol sesuai dengan kebutuhan aplikasi GIS yang kita buat, set propertinya dengan yang sesuai. sebagai contoh buat sesuai dengan gambar 2.

  4. Klik dua kali form lalu ketikan program berikut :

Keterangan :

Inisialisasi lingkungan peta

Langkah pertama dalam pembuatan aplikasi GIS ini adalah menghubungkan dengan Program MapInfo. Perintah CreateObject() digunakan untuk memasukan MapInfo ke background Visual Basic ketika Mapinfo belum dibuka.

Set mapinfo = CreateObject(“MapInfo.Application”)

Jika Mapinfo sudah dibuka ( dan belum dimasukan dengan perintah CreateObject) kita harus menggunakan perintah berikut :

Set mapinfo = GetObject(, “MapInfo.Application”)

Didalam program diatas yang menjalankan fungsi untuk inisialisasi peta adalah :

Mengirimkan perintah ke MapInfo

Ketika MapInfo sudah terinisialisasi kita sudah siap untuk mengirimkan perintah ke MapInfo. Pekerjaan ini dengan menggunakan syntak yang ada di MapBasic dikirimkan ke MapInfo melalui OLE dengan menggunkan metode Do, sebagai contoh untuk membuka workspace diaplikasi ini kita gunakan :

Szstr = “Run Application “”bandung.wor””

Mapinfo.do szstr

Atau dengan menggunakan :

Mapinfo.do “Run Application “”bandung.wor”””

Perintah lain dari MapInfo yang meminta nilai adalah dengan perintah Eval. Sebagai contoh untuk mendapatkan window ID dari front active Window Mapinfo :

Szstr = mapinfo.eval(“FrontWindow()”)

Sebagai contoh dibawah ini adalah kombinasi perintah Do dan Eval :

Reparenting MapInfo Windows

Reparenting adalah masalah yang penting untuk bisa menampilkan MapInfo di aplikasi Visual Basic. Ketika window di reparent maka Mapinfo menjadi child windows dari aplikasi Visual Basic. Perintah dibawah ini berarti dialog box Mapinfo dan pesan kesalahan menjadi tanggung jawab program gabungan (integrated mapping)

Mapinfo.do “set application window” & MapViewform.hwnd

Dalam pengesetam diatas , mapviewform adalah nama dari form utama dari aplikasi visual basic (VB). Semua window MapInfo juga harus di reparented jika kita ingin memasukan kedalam penggunaan di aplikasi VB. Nama window dari MapInfo yang mungkin untuk digunakan program aplikasi adalah : MapBasic, Help, Statistics, Legend, Info, Ruler, Message. Sebagai contoh untuk me-reparent ruler window :

Mapinfo.do “set Window ruler parent “ & Mapviewform.hwnd

Menggunakan tombol toolbar

Tombol MapInfo dapat direparent. Untuk membuat fungsi dari tombol MapInfo di program aplikasi dengan menggunakan perintah seperti dibawah ini :

Private Sub ZoomIn_Click()

mapinfo.RunMenuCommand 1705

End Sub

1705 adalah nomor dari tool zoom in di mapbasic.bas . Kita dapat menggunakan fungsi yang lain yang tersedia di menu.def, icons.def, mapbasic.def

    1. Klik dua kali tombol geser layar, isikan kode berikut

    mapinfo.runmenucommand 1702

    2. Klik dua kali tombol Kursor panah, isikan kode berikut

mapinfo.runmenucommand 1701

    3. Klik dua kali tombol zoom in, isikan kode berikut

mapinfo.runmenucommand 1705

    4. Klik dua kali tombol zoom out, isikan kode berikut

mapinfo.runmenucommand 1706

    5. Klik dua kali tombol ruler, isikan kode berikut

mapinfo.runmenucommand 1710

    6. Klik dua kali tombol Info, isikan kode berikut

Dim Direc, Embex As String

Embex = “info”

Direc = “Run Application “”” + Mapviewform.gszAppDir + Embex & “.mbx”””

Mapviewform.mapinfo.do Direc

    7. Klik dua kali tombol Radius, isikan kode berikut

mapinfo.runmenucommand 1703

    8. Klik dua kali tombol layer, isikan kode berikut

mapinfo.runmenucommand 801

    9. Klik dua kali tombol find, isikan kode

formfind.Visible = True

    10. Klik dua kali tombol select, isikan kode berikut

Mapviewform.mapinfo.runmenucommand 301

    11. Klik dua kali tombol thematic, isikan kode berikut

Mapviewform.mapinfo.runmenucommand 307

    12. Klik dua kali tombol EXIT, isikan kode berikut

End

Kemudian kita tambahkan module pada project window, dalam program ini kita beri 3 module yang juga digunakan pada aplikasi emergency GIS. Untuk pengembangan bisa ditambah dengan module yang lain.

Ikuti langkah berikut :

1.Tambah Modul, beri nama MapBasic. Isi Modul MapBasic ini dengan isi dari MapBasic.def

2. Tambah Modul Browser, isi dengan kode berikut :

3. Tambah Modul PrintOut, isi kode berikut :

Setelah pembuatan form utama, berikutnya yang akan dibuat adalah form find, yang terdiri dari tombol-tombol pilihan pencarian. Langkah-langkahnya :

  1. Pertama kita akan membuat form menu find utama. Pada window project klik kanan kemudian pilih add > form. Tambah form tersebut dengan tombol dan text, serta label, ComboBox sehingga akan berbentuk seperti gambar 3.

Gambar 3. Tampilan Find

isi propertinya seperti berikut :

Buat tombol seperti gambar dan berinama tombol tersebut :

2. Klik Tombol FIND JALAN dua kali, isikan kodenya seperti berikut :

Private Sub Cmdjalan_Click()

Formfind.Visible = False

Formfindjalan.Visible = True

End Sub

3. Klik tombol FIND UNIVERSITAS dua kali, isikan kodenya seperti berikut :

Private Sub Cmduniv_Click()

Formfind.Visible = False

Formfinduniv.Visible = True

End Sub

4. Klik tombol FIND HOTEL dua kali, isikan kodenya seperti berikut :

Private Sub Cmdhotel_Click()

Formfind.Visible = False

Formfindhotel.Visible = True

End Sub

5. Klik tombol EXIT dua kali, isikan kodenya sebagai berikut :

Private Sub Cmdexit_Click()

Formfind.Visible = False

End

Dengan demikian kita telah membuat form find, selanjutnya akan dibuat form find jalan, find universitas, dan find hotel.

to be continued…. (selanjutnya find jalan)

MapBasic The Basic

MapBasic merupakan bahasa skrip yang digunakan untuk mengoptimalkan kerja GIS pada MapInfo Professional. Sebagai software pengembangan MapBasic terdiri dari text editor, compiler, linker dan online help. Dengan MapBasic kita dapat mengendalikan data yang ada pada MapInfo dan dapat pula menambah menu yang ada pada MapInfo. Untuk membuka MapBasic dilakukan dengan mengklik icon MapBasic pada folder dimana MapBasic di Install. Kemudian akan muncul tampilan seperti berikut :

Sebagai latihan pertama ketikan perintah seperti ini pada form kosong tersebut:

PRINT “ SELAMAT DATANG DI MAPBASIC “

Setelah ditulis simpan dengan nama SELAMATDATANG, klik File>Compile from File pilih file yang disimpan tadi yakni SELAMATDATANG.mb kemudian kompile dengan menekan CTRL + U.

Hasil dari program yang kita buat adalah seperti berikut :

Contoh -2

Ketikan script dibawah ini :

Declare Sub Main
Sub Main
Dim jum as smallint
Open Table “D:\Program Files\MapInfo\Professional\DATA\TUT_DATA\TUT_USA\USA\states.tab” interactive
Map From States
Select * From states Where pop_1990 < pop_1980
Browse State_Name,Pop_1990, Pop_1980 From selection
End Sub

Script diatas membuka file states.tab dan menampilkan data hasil query di sebuah Browser windows.

Contoh -2
‘***************************************************
‘Program: Menu1.mb
‘Tujuan : Membuat menu control
‘***************************************************
‘** Declare
Declare Sub Main
Declare Sub OpenInitialMap
Declare Sub DemoReport
Declare Sub DemoMap
Declare Sub ExitMenu
‘***************************************************
‘*Function : Main
‘*tujuan : program utama
‘***************************************************
Sub Main
‘*Membuat Menu Baru
Create Menu “MenuFunctions” as
“Report” Calling DemoReport,
“Map” Calling DemoMap,
“(-“,
“Exit MenuFunction” Calling ExitMenu
Alter Menu Bar Add “MenuFunctions”
‘***OpenInitialMap
Call OpenInitialMap
End Sub
‘***************************************************
‘*Function: OpenIntialMap
‘*Tujuan : Membuka peta dulu
‘***************************************************
Sub OpenInitialMap
Open Table “D:\Program Files\MapInfo\Professional\DATA\Tut_Data\Tut_Usa\USA\STATES.TAB” Interactive
Map From STATES
End Sub
‘***************************************************
‘*Function : DemoReport
‘*tujuan : menandai yang punya record > 5000000
‘***************************************************
Sub DemoReport
Select * From STATES
where pop_1990 > 5000000
into TEMP_STATES
‘* Menampilkan browsernya
Browse * from TEMP_STATES
End Sub
‘***************************************************
‘*Function : DemoMap
‘*Tujuan: Membuat peta thematic yang pop_1990
‘***************************************************
Sub DemoMap
‘*Membuat layer thematic
Shade STATES with Pop_1990 Ranges
Apply all use color Brush (2,255,1700000)
400000 : 1500000 Brush (2,100000,1700000),
1500000: 3500000 Brush (2,500000,1700000),
3500000: 5500000 Brush (2,900000,1700000),
5500000: 29800000 Brush (2,1200000,1700000)
Default Brush(2,1700000,1700000)
End Sub
‘***************************************************
‘*Function : ExitMenu
‘*Tujuan : Keluar
‘***************************************************
Sub ExitMenu
Create Menu Bar As Default
‘***Keluar
Terminate Application “menu1.mbx”
End Sub

Setelah di Compile maka akan muncul tampilan seperti berikut pada MapInfo Professional :

Transformasi Peta ke HTML dengan MapInfo

MapInfo Professional merupakan salah satu software GIS (Geographic Information System) yang powerfull. Untuk dapat membuat peta berbasis web maka kita membutuhkan code HTML dari peta tersebut. MapInfo memiliki HTML Image tool yang mampu menambilkan peta dalam format HTML. Sebagai contoh kita buka salah satu file peta pada MapInfo Professional. Disini saya menggunakan file World Map pada direktori Tut Data/tut_Aust/World/world yang saya peroleh Free Data MapInfo Professional.

  1. Pilih File > Open (world map.tab)

  1. Pilih file petanya kemudian klik Open.

  2. Peta Dunia di tampilkan.

  3. Gunakan HTML Image Tool. Kalo belum active bisa di tambahkan dari menu tools > Tool Manager.

  1. Centang Loaded dan Autoloaded kemudian klik OK.

  2. Setelah active maka dari menu tools pilih HTML Image Map > HTML Image Map.

  1. Kemudian akan muncul kotak dialog seperti diatas.

  2. Tentukan layer apa saja yang ingin diambil HTM codenya.

  3. Tentukan nama file HTML nya

  4. Tentukan ukuran gambar dan format gambar (JPEG atau PNG)

  5. Tentukan letak file HTML nantinya

  6. Klik OK

Tunggu beberapa saat selama MapInfo melakukan proses transformasi. Setelah berhasil buka file tadi di Browser.

Selesai