III.             Editing Peta

Seperti dijelaskan pada bab-bab awal, Aplikasi SIG mempunyai dua bentuk data yaitu data spatial dan data tabular. Untuk aktualisasi data, sepanjang itu adalah data tabular akan mudah untuk membuatnya karena seperti membuat editing database biasa. Yang menjadi masalah adalah bagaimana jika data spatialnya berubah. Misal ada tambahan lokasi titik, ada jalur-jalur jalan baru, ada pemisahan daerah propinsi yang mengakibatkan munculnya propinsi baru, dan sebagainya.

Yang paling mudah adalah memang menyerahkan pengubahan data spatial ini pada aplikasi GIS seperti arcview. Karena disitu sudah sangat lengkap tool-toolnya. Tetapi jika user menginginkan editing spatial pada aplikasi, tetap kita dapat memfasilitasi-nya. Sebenarnya dapat juga dibuat selengkap tool-toool arcview, tetapi akan cukup rumit programnya. Yang paling rumit adalah pengubahan bentuk atau letak sebuah object dalam peta. Di arcview kita dapat merubah lokasi object dengan menggeser vertex-vertex yang ada pada polygon atau polilne. Di dalam aplikasi mapobject, sayang sekali hal ini akan cukup rumit, walau sebenarnya bisa dilakukan. Maka editing peta yang akan dijelaskan disini hanyanya untuk menambah object dan menghapus object spatial, dan mengubah data non spatial.

Agar lebih sederhana, akan dipisah antara data tipe point, line, dan polygon. Sekali lagi  bahwa ini untuk penyederhanaan saja, sebenarnya dapat saja ketiga editing pada ketiga jenis ini digabung dalam ssatu form. Adapun desain form untuk editing dibuat seperti gambar 32.

Gambar 32. Desain editing Peta

Proses untuk editingnya adalah sebagai berikut: untuk menambah data, pertama klik pada tombol “tambah point”, setelah tombol ini diklik, tempatkan mouse pada peta di lokasi dimana mau ditambahkan object-nya. Untuk titik tinggal diklik sekali , sedang untuk line dan polygon akan membutuhkan beberapa kali klik karena data akan dibuat path demi path, yang jika telah selesai membuat seluruh path, ditutup dengan melakukan double klik. Untuk editing isi-isi field dan hapus object, harus dilakukan select terlebih dahulu pada object yang bersangkutan. Yaitu dengan cara klik tombol “select” dan kemudian klik di peta object mana yang ingin diselect. Setelah itu dapat dilakukan pengubahan isi field dengan menuliskan nilai-nilai pada textbox-textbox dibagian bawah tombol select. Isian ini  akan tersimpan jika dilakukan klik pada tombol “Simpan Attribut”. Sedang untuk hapusnya, tinggal dilakukan klik pada tombol hapus.

Untuk memberikan fungsi seperti diatas, yang perlu ditambahkan adalah (menggunakan kode pada form editing titik):

-         ubah penambahan layer-layer pada form load dalam bentuk pemanggilan terhadap suatu sub. Karena sub ini nanti akan sering dipanggil oleh lain-lain sub selama proses editing. Tambahkan bentuk tampilan object yang baru. Dilakukan dengan mensetting nilai-nilai pada object trackinglayer.symbol. tambahakan juga private variabel Recs, agar dapat diakses oleh semua sub dalam form ini

private recs as mapobjects2.records

Private Sub Form_Load()

    dc.Database = "c:\shapefile\mexico"

    If dc.Connect Then

       refreshdata   

    Else

        MsgBox "direktori peta tidak ditemukan"

    End If

    Map1.TrackingLayer.SymbolCount = 1

    Map1.TrackingLayer.Symbol(0).SymbolType = moPointSymbol

    Map1.TrackingLayer.Symbol(0).Color = moGreen

    Map1.TrackingLayer.Symbol(0).Style = moCircleMarker

    Map1.TrackingLayer.Symbol(0).Size = 8

End Sub

-         Tambahkan mode pada saat ingin melakukan penambahan object atau select object. Dapat ditentukan juga bentuk mousepointer-nya.

Private Sub Command5_Click()

    pMode = "tambah"

    Map1.MousePointer = moCross

End Sub

Private Sub Command7_Click()

    pMode = "select"

    Map1.MousePointer = moArrowQuestion

End Sub

-         Ubah onMouseDown pada object peta, tambahkan jika dilakukan saat 2 mode diatas akan melakukan apa. Disini proses akan dilakukan dalam sub, maka dalam mousedown ini dilakukan pemanggilan terhadap sub.

Case "tambah"

    TambahTitik Map1.Layers("kota"), x, y

Case "select"

    SelectTitik Map1.Layers("kota"), x, y

-         Buat fungsi TambahTitik dan SelectTitik. P

Private Sub TambahTitik(ml As MapObjects2.MapLayer, x As Single, y As Single)

    Dim p As New MapObjects2.Point

    Dim f As MapObjects2.Field

    Set recs = ml.Records

    Set f = recs.Fields("Shape")

    Set p = Map1.ToMapPoint(x, y)

    recs.Edit

    recs.AddNew

    f.Value = p

    recs.Update

    refreshdata

End Sub

Private Sub SelectTitik(ml As MapObjects2.MapLayer, x As Single, y As Single)

    Dim p As New MapObjects2.Point

    Set p = Map1.ToMapPoint(x, y)

    Set recs = ml.SearchByDistance(p, 0.1, "")

    Map1.TrackingLayer.ClearEvents

    If Not recs.EOF Then

        Text1.Text = recs.Fields("Name").Value

        Text2.Text = recs.Fields("Population").Value

        Map1.TrackingLayer.AddEvent recs.Fields("Shape").Value, 0

    End If

End Sub

-         terakhir tambahan fungsi untuk simpan attribut

Private Sub Command8_Click()

    recs.Edit

    recs.Fields("Name").Value = Text1.Text

    recs.Fields("Population").Value = Text2.Text

    recs.Update

End Sub

Contoh tampilan untuk proses editingpeta adalah seperti gambar 33.

Gambar 33. Contoh editing untuk peta jenis Point

Secara umum yang membedakan dengan tipe Lain dan Polygon hanyalah saat definisi symbol dalam trackinglayer symbol dan saat tambah object saja.

Untuk garis:

    Map1.TrackingLayer.SymbolCount = 1

    Map1.TrackingLayer.Symbol(0).SymbolType = moLineSymbol

    Map1.TrackingLayer.Symbol(0).Color = moGreen

    Map1.TrackingLayer.Symbol(0).Style = moSolidLine

    Map1.TrackingLayer.Symbol(0).Size = 2

Private Sub TambahGaris(ml As MapObjects2.MapLayer, x As Single, y As Single)

    Dim ln As New MapObjects2.Line

    Dim f As MapObjects2.Field

    Set recs = ml.Records

    Set f = recs.Fields("Shape")

    Set ln = Map1.TrackLine

    recs.Edit

    recs.AddNew

    f.Value = ln

    recs.Update

    refreshdata

End Sub

Untuk polygon:

    Map1.TrackingLayer.SymbolCount = 1

    Map1.TrackingLayer.Symbol(0).SymbolType = moFillSymbol

    Map1.TrackingLayer.Symbol(0).Color = moGreen

    Map1.TrackingLayer.Symbol(0).Style = moSolidFill

Private Sub TambahPoly(ml As MapObjects2.MapLayer, x As Single, y As Single)

    Dim ln As New MapObjects2.Polygon

    Dim f As MapObjects2.Field

    Set recs = ml.Records

    Set f = recs.Fields("Shape")

    Set ln = Map1.TrackPolygon

    recs.Edit

    recs.AddNew

    f.Value = ln

    recs.Update

    refreshdata

End Sub

Dengan contoh tampilan masing-masing

Gambar 34. Contoh editing untuk peta jenis Line

Gambar 35. Contoh editing untuk peta jenis Polygon

Comments

Search

contoh diagram alir wawan (125.161.160.xxx) 2009-01-17 04:41:01 alow mas, setelah saya membaca artikel yang ditulis oleh mas daniel, saya tertarik sekali, saya sedang penelitian buat skripsi saya tentang aplikasi gis menggunakan visual basic dan map object, kalau boleh tau contoh diagram alir membuat sofware aplikasi gis itu bagaimana ya mas, tolong pencerahan dari mas daniel terimakasih

Anonymous (122.139.62.xxx) 2009-05-27 01:40:09 cheap wow power leveling cheapest wow power leveling my wow gold buy wow gold replica replica rolex CHEAP wow power level BUY power leveling replica rolex replica CHEAPEST power leveling MY wow power level cheap rs gold good BUY wow gold replica rolex CHEAPEST wow gold cheap lotro gold buy wow gold my wow gold cheapest wow gold CHEAP wow gold zmc

Women Buy Ugg Boots (125.78.240.xxx) 2010-02-27 07:38:10 With all the boots [url=http://www.zhjugg.com/new-product-ugg-bailey-  button-58 03-grey-boots-p-]UGG Bailey Button Grey[/url] included in Ugg Australia’s Classic Collection range the Bailey chenwei Button is lined ugg cardy oatmeal with twin faced Grade A sheepskin. Also there is the UGG Bailey Button traditional suede heel guard to ensure that not only is this area protected but offers this part of the boot support. Ugg Cardy Boots Plus within the boots you find each pair has sock liners that are made from sheepskin PU foam so increasing the level of Ugg Cardy comfort a person feels when wearing them.

激安 ユニフォ& 激安 ユ| (220.161.165.xxx) 2010-02-27 08:48:42 LCZ  読売巨人軍は 、ビ ;ジターゲ&# 12540;ムで着用& #12377; 427;夏季限定のӎ 0;| 69;マービジタ ーユニホ ;ーム&# 12301;を 採用しま 2377;。ユニフォーム...このユニ ホӦ 0; ムの 発表会見&# 12364;１２日（&# 26376;A 289;、東京・大৔ 3;ஹ 0;の球団事務 所で開か れ、&# 12481;ームを代表  375;て 坂本勇人選手&# ...

MBT Shoes mbt uk (220.161.165.xxx) 2010-02-27 10:17:22 When you purchase Mbt shoes you achieve shoes that appeal mbt shoes to your sense of style while insuring a shoe that does not cause pain and discomfort after a day mbt trainers shoes of being on your feet. And after your purchase you know you have shoes that are going to outlast shoes found in most stores. Created for comfort and long lasting, MBT shoes utilize the highest quality leather and materials. If you experience mbt uk discomfort from your foot perspiring during the day MBT Shoes applies a sock lining in the lining of the shoe where you foot rests. mbt shoe This allows your feet to stay dry during the most challenging active days.hlm

nike-shox (125.78.242.xxx) 2010-02-27 16:37:27 rr Today, the nike shox basketball shoes are popular around the world. wholesale nike shox shoes started out as an American company, but have since expanded around the globe. They're now available in 120 countries. shox r4 with an emphasis on walking shoes, the engineers at New Balance know the importance of a proper fit and offer a wide range of widths and sizes. Often recommended by podiatrists, nike running shoes take an "endorsed by no one" stance, preferring to let their technology and comfort sell their shoes instead of paying a celebrity athlete to do it for them. Additionally, nike shox monster are available in a variety of styles, each designed for different needs-motion control, extra support, off road, use etc. New Balance makes running, walking, tennis, cross-training and basketball shoes for men and women, and also offers a line of kids' ...

timberland (220.161.165.xxx) 2010-02-27 17:01:49 mm Apparently, 21,000 boots imported by Timberland from Thailand have lead paint on the insole, violating federal lead paint rules. I'm guessing this paint was used for printing of the logo inside the boot. Please note Dear Readers, these are Timberland waterproof and children are particularly sensitive to the effects of lead and lead poisoning. Avoid a lead paint accident that could injure or hurt your child. When I first saw this I thought, "How do you make Timberland work boots? Where's the risk of accident or injury?" Then I read further and saw, "lead paint." The headline reads:"Timberland Recalls Timberland for kids Due to Violation of Lead Paint Standard"The U.S. Consumer Product Safety Commission announced a voluntary recall of these boots. Consumers should stop using recalled products immediately.

Only registered users can write comments!

Powered by !JoomlaComment 3.26

3.26 Copyright (C) 2008 Compojoom.com / Copyright (C) 2007 Alain Georgette / Copyright (C) 2006 Frantisek Hliva. All rights reserved."