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 :

Leave a Reply

Please log in using one of these methods to post your comment:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s