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..