Menggunakan VBScript Untuk Label ArcGIS

Dalam ArcGIS, kita dapat mempercantik dan mempermudah perlabelan dengan menggunakan expression. Terdapat 3 script / bahasa yang bisa kita gunakan dalam menulis expression: vbscript, python dan jscript. Kali ini akan dibahas scipt yang umum dipakai pada ArcGIS dengan menggunakan bahasa vbscript.

Vbscript sendiri adalah bahasa pemrograman yang cukup populer, VBScript dikembangkan oleh Microsoft Corporation. VBScript merupakan sebuah bahasa skrip turunan dari bahasa pemrograman Visual Basic for Applications (VBA) yang digunakan di dalam Microsoft Office dan beberapa platform pengembangan buatan Microsoft lainnya.

Berikut Script yang umum dipakai pada ArcGIS :

Contoh kita memiliki 5 field tabel [Nomor] , [Label] , [Luas] , [Panjang] dan [Keterangan]

FID	ID	Nomor	Label	Luas	Panjang	Keterangan
0	0	25	HP	23,759	125,368	Terpasang

NO	Fungsi	Script	Hasil	Keterangan
1.	Untuk mengatur ketelitian angka di belakang koma	Round ([Luas], 2)	23,76	Ganti 2 dengan ketelitian yang anda inginkan
2.	Merubah text menjadi huruf besar	Ucase ([Keterangan])	TERPASANG
3.	Merubah text menjadi huruf kecil	Lcase ([Keterangan])	terpasang
4.	Untuk mengurutkan text kebawah	[Nomor] & vbnewline & [Label]	25 HP
5.	Merubah font	"<FNT name='Arial' size='14'>" & [keterangan] & "</FNT>"	Terpasang
7.	Merubah warna text	"<CLR red='255' green='0' blue='255'>" & [Keterangan] & "</CLR>"	Terpasang
8.	Bold	"<BOL>" & [Keterangan]  & "</BOL>"	Terpasang
9.	Italic	"<ITA>" & [Keterangan]  & "</ITA>"	Terpasang
10.	Underline	"<UND>" & [Keterangan]  & "</UND>"	Terpasang
11.	All capitals	"<ACP>" & [Keterangan]  & "</ACP>"	TERPASANG
12.	Small capitals	"<SCP>" & [Keterangan]  & "</SCP>"	terpasang
13.	Merubah text menjadi Superscript	"<SUP>" & [Keterangan]  & "</SUP>"	Terpasang
14.	Merubah Text menjadi Subscript	"<SUB>" & [Keterangan]  & "</SUB>"	Terpasang
15.	Menggabungkan text	[Label]&”.”&[Nomor]	HP.25

Untuk menyisipkan text dalam label cukup memberikan kode [field1]&”text yang ingin dimasukkan”&[field2]. Selain menggunakan & bisa juga menggunakan +.

Selain script-script sederhana diatas dengan vbscript kita juga bisa menggunakan script yang lebih rumit, misal kita memiliki field [namasungai] dengan record “mahakam”. Kita ingin menambahkan “S.” Dan membuat huruf pertama menjadi kapital serta text tersebut italic seperti “S. Mahakam”.

Cukup masukan script berikut:

Function FindLabel ( [namasungai] )

  FindLabel = "S. " + PCase ([namasungai])

End Function

Function PCase(strInput)

  Dim iPosition

  Dim iSpace

  Dim strOutput

  iPosition = 1

  Do While InStr(iPosition, strInput, " ", 1) <> 0

    iSpace = InStr(iPosition, strInput, " ", 1)

    strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))

    strOutput = strOutput & LCase(Mid(strInput, iPosition + 1, iSpace - iPosition))

    iPosition = iSpace + 1

  Loop

  strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))

  strOutput = strOutput & LCase(Mid(strInput, iPosition + 1))

  PCase = strOutput

End Function

Untuk memastikan script yang kita tulis benar usahakan selalu melakukan verifikasi dengan mengklik tombol verify pada dialog box expression. Script yang kita buat bisa disimpan dengan mengklik “SAVE” dan sewaktu-waktu kita memerlukannya kita tidak perlu menuliskannya lagi, namun cukup load script tersebut.

Selain digunakan dalam membuat label, script juga digunakan untuk perhitungan field atau field calculator. Hal ini akan dbahas dalam artikel berikutnya.

Semoga bermanfaat.