PENERAPAN SISTEM INFORMASI DALAM PENGELOLAAN DAERAH ALIRAN SUNGAI DI HUTAN PENDIDIKAN GUNUNG WALAT
HILHAMSYAH PUTRA HASKA
DEPARTEMEN MANAJEMEN HUTAN FAKULTAS KEHUTANAN INSTITUT PERTANIAN BOGOR BOGOR 2012
RINGKASAN
HILHAMSYAH PUTRA HASKA, E14070042. Penerapan Sistem Informasi dalam Pengelolaan Daerah Aliran Sungai (DAS) di Hutan Pendidikan Gunung Walat (HPGW). Dibimbing oleh HENDRAYANTO. Hutan Pendidikan Gunung Walat (HPGW), sebagai salah satu kawasan hutan dengan tujuan khusus sebagai hutan pendidikan telah banyak melakukan pengambilan data mengenai hidrologi untuk penelitian, akan tetapi data dan hasil dari penelitian tersebut belum terorganisir dengan baik sehingga informasi kurang cepat dapat diperoleh, dan digunakan oleh para pelaku dalam sistem pengelolaan DAS. Untuk dapat mengorganisasi data dengan lebih baik perlu dibangun Sistem Informasi Pengelolaan Daerah Aliran Sungai yang dapat menyampaikan informasi menjadi lebih baik dan dapat diakses dengan cepat oleh seluruh pelaku sistem pengelolaan DAS dan mempermudah dalam pengambilan keputusan guna pembangunan HPGW berdasarkan DAS. Penelitian ini bertujuan merancang dan membangun sistem informasi pengelolaan data sumberdaya dan lingkungan HPGW khususnya data Daerah Aliran Sungaiyang berbasis komputer. Metode yang digunakan adalah analisis pengembangan sistem informasi yang bertujuan untuk menghasilkan sistem operasi yang efektif berdasarkan kebutuhan informasi para pengguna dengan menggunakan Microsoft Access dan Visual Basic 6.0. Sistem informasi yang dihasilkan diberi nama Sistem Informasi Hidrologi Pengelolaan Daerah Aliran Sungai (SIH-PDAS). Sistem informasi yang dihasilkan terdiri dari enam menu utama, yaitu menu profil HPGW, hidrologi, erosi sedimentasi, pemetaan, perhitungan dan manajemen data. Setiap menu terkoneksi dengan menu yang lainnya sehingga mempermudah dalam pengaplikasiannya. Dengan adanya sistem informasi ini diharapkan memberikan kemudahan kepada pengguna dalam pengelolaan dan pencarian data hidrologi dan DASdi Hutan Pendidikan Gunung Walat, Sukabumi.
Kata kunci: sistem informasi, hidrologi, Daerah Aliran Sungai, Visual Basic 6.0, Hutan Pendidikan Gunung Walat.
SUMMARY
HILHAMSYAH PUTRA HASKA. Implementation of Information system for Watershed Management in Gunung Walat Education Forest (GWEF).Under Supervision of HENDRAYANTO. Gunung Walat Education Forest (GWEF), as one of the forest areas with the special purpose for education, has been collecting hydrological datafor researches purposes. However, most of data and the research results are not organized well. Therefore, the information relatively slowly to retrieve and utilize by stakeholders and management as well. In relation to provide information faster, Watershed Management Information System is needed to be developed.This Information System will help the decision maker to decide the right policy for GWEF development. This research aims to design and build information systems data management of GWEF resources and environment based on watershed. The method used is the development analysis of information systems in order to produce an effective operating system based on the needs of the users using Microsoft Access and Visual Basic 6.0. The information system is named as The Hydrology Information System of Watershed Management (HIS-WM). The information system resulted from this research consists of six main menus, i.e GWEF profile, hydrology, soil erosion, sedimentation, mapping, calculation and data management. Each menu is connected each other to create user friendly operation. By this information system, searching hydrological and watershed data will be easier for users and all of the related stakeholders.
Keywords: information system, hidrology, watershed, Visual Basic 6.0, Gunung Walat Education Forest
PERNYATAAN Dengan ini saya menyatakan bahwa skripsi Penerapan Sistem Informasi dalam Pengelolaan Daerah Aliran Sungai di Hutan Pendidikan Gunung Walat adalah karya saya sendiri dengan arahan dosen pembimbing dan belum diajukan dalam bentuk apapun kepada perguruan tinggi manapun. Sumber informasi yang berasal atau dikutipdari karya ilmiah yang diterbitkan maupun tidak diterbitkan dari penulis lain telah disebutkan dalam teks dan dicantumkan dalam daftar pustaka di bagian akhir skripsi.
Bogor, Oktober 2012
Hilhamsyah Putra Haska
LEMBAR PENGESAHAN Judul Penelitian
: Penerapan Sistem Informasi dalam Pengelolaan Daerah Aliran Sungai di Hutan Pendidikan Gunung Walat
Nama Mahasiswa
: Hilhamsyah Putra Haska
NRP
: E 14070042
Mayor
: Manajemen Hutan
Menyetujui: Dosen Pembimbing,
Dr. Ir. Hendrayanto, M.Agr. NIP. 19611126 1986011 001
Mengetahui: Ketua Departemen Manajemen Hutan
Dr.Ir. Didik Suharjito, MS NIP.19630401 1994031 001
Tanggal Lulus :
i
RIWAYAT HIDUP Penulis dilahirkan di Kota Solok, Sumatera Barat pada tanggal 25 Februari 1989 sebagai anak ketiga dari empat bersaudara dari ayah bernama Hayunas Sukandar dan ibu bernama Kasmawati B.Ac. Pada tahun 2007 penulis lulus dari SMAN 1 Kota Solok dan melanjutkan pendidikan di Departemen Manajemen Hutan, Fakultas Kehutanan, Institut Pertanian Bogor melalui jalur Undangan Seleksi Masuk IPB (USMI). Selama menuntut ilmu di IPB, penulis pernah mendapatkan beasiswa Pengembangan Prestasi Akademis (PPA) pada tahun 2008 dan beasiswa Bantuan Belajar Mahasiswa (BBM) pada tahun 2009-2011. Penulis aktif di beberapa
organisasi yaitu
sebagai
Ketua
divisi
kewirausahaan HMI (Himpunan Mahasiswa Islam) Fakultas Kehutanan IPB pada tahun 2007, anggota Forest Management Students Club (FMSC) pada tahun 20082011, divisi olahraga Ikatan Pelajar Mahasiswa Minang (IPMM) (2007-2011), anggota Ikatan mahasiswa Solok (2007-2011), divisi medis pada kepanitiaan Bina Corps Rimbawan (BCR) pada tahun 2009, divisi komisi disiplin pada kepanitiaan Temu Manajer tahun 2009. Penulis juga pernah mengikuti kegiatan Praktek Pengenalan Ekosistem Hutan (P2EH) di Sancang Timur-Papandayan, Praktek Pengelolaan Hutan (P2H) di Hutan Pendidikan Gunung Walat, serta Praktek Kerja Lapang (PKL) di wilayah IUPHHK-HA PT Ratah Timber, Provinsi Kalimantan Timur.
ii
KATA PENGANTAR Puji dan syukur penulis ucapkan kehadirat Allah SWT karena atas berkah dan rahmahNya skripsi yang berjudul Penerapan Sistem Informasi dalam Pengelolaan Daerah Aliran Sungai di Hutan Pendidikan Gunung Walat ini dapat terselesaikan juga. Penulis menyadari bahwa tanpa bantuan dan bimbingan baik moril maupun materil dari berbagai pihak, skripsi ini tidak dapat terselesaikan dengan baik. Oleh karena itu, penulis menyampaikan terima kasih sebesar-besarnya kepada: 1.
Orang tua dan keluarga tercinta, atas dukungannya kepada penulis untuk selalu berusaha mencapai hasil yang terbaik.
2.
Dr. Ir. Hendrayanto, M.Agr selaku dosen pembimbing skripsi yang telah membimbing penulis dari awal hingga akhir proses penyusunan skripsi ini.
3.
Dr. Nining Puspaningsih, M.Si selaku dosen pembimbing akademik dan juga selaku dosen moderator seminar penulis yang telah memberikan banyak masukan dalam penulisan skripsi ini.
4.
Dr.Ir. Yeni A. Mulyani, M.Sc selaku dosen penguji komprehensif dan Dr.Ir. Muhdin, M.Sc selaku ketua sidang komprehensif, yang telah memberikan banyak masukan dan motivasi dalam penulisan skripsi ini.
5.
Segenap pihak pengelola Hutan Pendidikan Gunung Walat (HPGW) yang telah
menerima
dan
memberi
kesempatan
kepada
penulis
untuk
melaksanakan penelitian di lokasi tersebut. 6.
Rekan-rekan dari Vilper (Kresna Handoyo, Dwi Puji, Nori, Qori, Wahyu, Anggi, Mahmud, Angga, Eddy, Brian, Febri, Shandi) atas semangat, inspirasi dan bantuannya selama proses penelitian hingga penyusunan skripsi.
7.
Rekan-rekan seperjuangan dari Laboratorium Hidrologi Hutan dan Daerah Aliran Sungai (DAS), yaitu Hangga, Popi, Maria, Rangga, Yayat, Budi, Nina, Finny, Indri, Soni, Andri, Rahma, Slem, Dinda, Nizar, Endra, dan Wahyu atas bantuan dan dukungannya selama penulisan skripsi.
8.
Rekan-rekan Fakultas Kehutanan IPB khususnya departemen Manajemen Hutan 44 atas dukungan dan bantuannya selama proses penelitian hingga penyusunan skripsi.
iii
Penulis menyadari skripsi ini masih jauh dari kesempurnaan, untuk itu kritik dan saran yang membangun sangat penulis harapkan demi kesempurnaan skripsi ini. Semoga tulisan ini dapat bermanfaat bagi semua.
Bogor, Oktober 2012 Hilhamsyah Putra Haska
iv
DAFTAR ISI Nomor
Halaman
KATA PENGANTAR ............................................................................................... ii DAFTAR ISI…………….……………………...………………………………..iv DAFTAR TABEL ..................................................................................................... vi DAFTAR GAMBAR ............................................................................................... vii DAFTAR LAMPIRAN ............................................................................................ ix BAB I PENDAHULUAN ....................................................................................... 1 1.1
Latar Belakang .......................................................................................... 1
1.2
Tujuan........................................................................................................ 2
1.3
Manfaat...................................................................................................... 2
1.4
Batasan Masalah ....................................................................................... 3
BAB II TINJAUAN PUSTAKA ............................................................................ 4 2.1
Sistem Informasi ....................................................................................... 4
2.1.1
Konsep dasar sistem informasi ............................................................ 4
2.1.2
Komponen sistem informasi ................................................................ 4
2.2
Basis Data.................................................................................................. 6
2.2.1
Konsep dasar basis data ....................................................................... 6
2.2.2
Sistem manajemen basis data .............................................................. 6
2.2.3
Model entity relationship ..................................................................... 7
2.3
Microsoft Visual Basic 6.0....................................................................... 8
2.4
Daerah Aliran Sungai (DAS) ................................................................... 9
2.4.1
Karakteristik fisik DAS ...................................................................... 10
2.4.2
Karakteristik Biologi DAS ................................................................. 14
2.4.3
Sosial ekonomi.................................................................................... 15
2.5
Hidrologi ................................................................................................. 16
2.5.1
Siklus hidrologi................................................................................... 16
2.5.2
Neraca air ............................................................................................ 17
2.6
Aliran Permukaan ................................................................................... 17
2.6.1
Persamaan aliran permukaan ............................................................. 17
2.6.2
Metode kurva number SCS (Soil Conservation Service)................. 18
2.6.3
Pengelompokan hidrolika tanah ........................................................ 19
2.7
Erosi ......................................................................................................... 20
v
2.7.1
Universal Soil Loss Equation (USLE) .............................................. 21
2.7.2
Indeks Bahaya Erosi (IBE) ................................................................ 22
2.8
Dampak Erosi dan Aliran Permukaan ................................................... 23
BAB III METODOLOGI ..................................................................................... 24 3.1
Waktu dan Lokasi Penelitian ................................................................ 24
3.2
Alat dan Bahan........................................................................................ 24
3.3
Metode Pengumpulan Data .................................................................... 24
3.4
Analisis Data ........................................................................................... 25
3.4.1
Tahap Perencanaan Sistem Informasi ............................................... 26
3.4.2
Tahap Analisis Sistem Informasi....................................................... 27
3.4.3
Tahap Perancangan Sistem Informasi ............................................... 28
3.4.4
Tahapan Implementasi Sistem Informasi .......................................... 30
3.4.5
Tahap Validasi Sistem Informasi ...................................................... 30
BAB IV KONDISI UMUM .................................................................................. 32 BAB V HASIL DAN PEMBAHASAN .............................................................. 36 5.1
Rencana Sistem Informasi ..................................................................... 36
5.2
Hasil Analisis Sistem Informasi ............................................................ 36
5.2.1
Kebutuhan pelaku sistem informasi .................................................. 36
5.2.2
Hasil Formulasi Masalah Sistem informasi ...................................... 37
5.2.3
Hasil identifikasi sistem informasi .................................................... 38
5.3
Rancangan Sistem Informasi ................................................................. 44
5.3.1
Diagram Blok...................................................................................... 44
5.3.2
Diagram alir data ................................................................................ 45
5.3.3
Rancangan database ........................................................................... 59
5.3.4
Entity relationship .............................................................................. 60
5.4
Implementasi Sistem Informasi ............................................................. 63
5.3
Validasi Sistem Informasi ...................................................................... 77
BAB VI
KESIMPULAN DAN SARAN ............................................................ 79
6.1
Kesimpulan ............................................................................................. 79
6.2
Saran ........................................................................................................ 80
DAFTAR PUSTAKA .............................................................................................. 81 LAMPIRAN…………………...…..…….……………………………………..83
vi
DAFTAR TABEL Nomor
Halaman
Tabel 1.
Daftar kriteria indeks bahaya erosi ............................................... 22
Tabel 2.
Distribusi luas kemiringan lereng .................................................. 33
Tabel 3.
Distribusi jenis dan kelas kepekaan tanah ..................................... 33
Tabel 4.
Hasil Analisis kebutuhan pelaku terhadap sistem informasi hidrologi pengelolaan daerah aliran sungai HPGW ...................... 37
vii
DAFTAR GAMBAR Nomor
Halaman
Gambar 1
Blok sistem informasi yang berinteraksi. ........................................ 5
Gambar 2
Diagram alir pengumpulan data. .................................................... 25
Gambar 3
Diagram alir pembuatan sistem informasi. .................................... 26
Gambar 4
Diagram alir perencanaan sistem informasi. ................................. 27
Gambar 5
Diagram alir analisis sistem informasi. .......................................... 28
Gambar 6
Tahap Perancangan Sistem Informasi. ........................................... 30
Gambar 7
Diagram alir implementasi dan validasi sistem informasi ............ 31
Gambar 8
Peta Lokasi Penelitian. .................................................................... 32
Gambar 9
Diagram lingkar sebab akibat SIH-PDAS HPGW. ....................... 39
Gambar 10
Diagram input-output SIH-PDAS HPGW. .................................... 42
Gambar 11
Diagram blok SIH-PDAS HPGW. ................................................. 45
Gambar 12
Diagram alir menu utama. .............................................................. 46
Gambar 13
Diagram alir Profil HPGW ............................................................. 48
Gambar 14
Diagram alir hidrologi ..................................................................... 49
Gambar 15
Diagram alir menu erosi sedimentasi ............................................ 50
Gambar 16
Diagram alir menu pemetaan. ........................................................ 51
Gambar 17
Diagram alir menu perhitungan ...................................................... 53
Gambar 18
Diagram alir menu manajemen data ............................................. 54
Gambar 19
Diagram alir Menu Manajemen Data spasial sub menu profil HPGW .............................................................................................. 56
Gambar 20
Diagram alir Menu Manajemen Data non spasial sub menu profil HPGW .............................................................................................. 57
Gambar 21
Diagram alir Menu Manajemen Data sub menu hidrologi ........... 58
Gambar 22
Diagram alir sub menu erosi sedimentasi ...................................... 59
Gambar 23
Struktur Hubungan Entitas (entity relationship structure) pada database SIH-PDAS. ....................................................................... 62
Gambar 24
Form login pengguna (user). .......................................................... 63
Gambar 25
Form login untuk admin ................................................................. 64
Gambar 26
Tampilan menu utama. .................................................................... 64
Gambar 27
Tampilan sub menu visi misi .......................................................... 66
Gambar 28
Tampilan sub menu karakteristik biologi. ..................................... 66
viii
Gambar 29
Tampilan sub menu karakteristik fisik ........................................... 67
Gambar 30
Tampilan sub menu sosial ekonomi ............................................... 67
Gambar 31
Tampilan menu hidrologi sub menu pengertian ............................ 68
Gambar 32
Tampilan menu hidrologi sub menu proses-proses....................... 69
Gambar 33
Tampilan menu hidrologi sub menu neraca air. ............................ 69
Gambar 34
Tampilan menu erosi sedimentasi submenu pendugaan erosi USLE................................................................................................ 70
Gambar 35
Tampilan menu erosi sedimentasi sub menu tolerable soil loss. .. 71
Gambar 36
Tampilan menu erosi sedimentasi sub menu IBE-TBE. ............... 71
Gambar 37
Tampilan menu erosi sedimentasi submenu Sedimentasi. ........... 72
Gambar 38
Tampilan menu pemetaan ............................................................... 73
Gambar 39
Tampilan menu perhitungan sub menu perhitungan debit. .......... 74
Gambar 40
Tampilan Menu Perhitungan Sub menu perhitungan erosi .......... 75
Gambar 41
Tampilan sub menu profil HPGW. ................................................ 76
Gambar 42
Tampilan sub menu hidrologi. ........................................................ 76
Gambar 43
Tampilan menu manajemen data sub menu erosi sedimentasi. .... 77
ix
DAFTAR LAMPIRAN Nomor
Halaman
Lampiran 1 Struktur Database………………………………………………83 Lampiran 2 List Coding Aplikasi………………………...............................88 Lampiran 3 Petunjuk Aplikasi SIH-PDAS………………..………………..89
1
BAB I PENDAHULUAN
1.1
Latar Belakang Informasi merupakan hal yang sangat fundamental dalam kehidupan,
karena semua orang membutuhkan informasi baik untuk menetapkan tujuan maupun sebagai pemandu agar tujuan dapat dicapai secara efektif. UndangUndang Republik Indonesia Nomor 7 tahun 2004 tentang Sumber Daya Air, menyuratkan bahwa untuk mendukung pengelolaan sumber daya air, pemerintah dan pemerintah daerah menyelenggarakan pengelolaan sistem informasi, meliputi informasi mengenai kondisi hidrologis,
hidrometeorologis, hidrogeologis,
kebijakan sumber daya air, prasarana sumber daya air, teknologi sumber daya air, lingkungan pada sumber daya air dan sekitarnya, serta kegiatan sosial ekonomi budaya masyarakat yang terkait dengan sumber daya air. Pengelolaan sistem informasi ini dapat dilakukan melalui kerja sama dengan pihak lain. Berdasarkan narasi Undang-Undang tersebut dapat diartikan bahwa sistem informasi sumberdaya air sangat penting untuk diselenggarakan oleh instansi pemerintah, pemerintah daerah dan pengelola sumber daya untuk mendukung keberhasilan pengelolaan sumberdaya air. Hutan Pendidikan Gunung Walat (HPGW) merupakan lahan berhutan yang berfungsi sebagai pengendali hasil air sehingga merupakan sumber air bersih yang penting bagi masyarakat, terutama masyarakat di sekitarnya, dan lebih khusus lagi bagi masyarakat yang tinggal di bagian selatan HPGW yang dialiri anak sungai yang mengalir sepanjang tahun, yaitu anak sungai Cipeureu, Citangkalak, Cikabayan, Cikatomas dan Legok Pusar yang berhulu di HPGW. Pengelolaan HPGW berdampak terhadap masyarakat. Dampak tersebut terutama dampak yang terjadi melalui sistem hidro-orologi melalui jaringanjaringan sungai yang berasal dari HPGW. Kuantitas, kualitas dan waktu pengaliran dari HPGW dipengaruhi oleh banyak faktor, diantara iklim, sifat geologi dan tanah, morfologi, dan sifat penutupan lahannya. HPGW sebagai salah satu kawasan hutan dengan tujuan khusus yaitu untuk pendidikan telah banyak melakukan kegiatan pengelolaan dan
2
penelitian, Informasi mengenai hasil kegiatan dan hasil penelitian tersebut belum dikelola dengan baik, sehingga belum dapat dengan mudah diakses baik oleh pengelola, maupun pengguna, terutama untuk kegiatan yang terkait dengan hidrologi HPGW. Untuk mengelola data dasar dan hasil-hasil kegiatan, baik pengelolaan maupun penelitian diperlukan sistem informasi yang berbais teknologi komunikasi dan informasi (information and communcation technology, ICT). Penelitian ini mencoba membangun suatu Sistem Informasi Hidrologi dan Pengelolaan DAS di Hutan Pendidikan Gunung Walat sebagai instrumen pengelolaan dan penyampaian informasi yang lebih baik dan dapat diakses dengan lebih mudah oleh seluruh lapisan masyarakat, serta mempermudah dalam pengambilan keputusan guna pembangunan HPGW selanjutnya. 1.2
Tujuan
Penelitian ini bertujuan untuk: a. Menghasilkan suatu rancangan proses dan basis data yang akan digunakan di dalam sistem informasi yang akan dihasilkan. b. Menghasilkan suatu sistem informasi untuk: 1. Pendataan karakteristik-karakteristik kawasan HPGW berdasarkan DAS (Daerah Aliran Sungai). 2. Pengelolaan data, interpretasi data dan analisis data hidrologis di DAS HPGW. 3. Pengorganisasian data hasil penelitian di HPGW tentang hidrologi dan DAS yang pernah dilakukan. 4. Penyimpanan, pemeliharaan serta pembuatan laporan database pada sistem informasi hidrologis yang dibangun. 1.3
Manfaat Penelitian ini memfokuskan kepada manajemen informasi mengenai
karakteristik-karakteristik hidrologis dari sub DAS yang ada di HPGW, serta pengolahan data hidrologi (khususnya pendugaan erosi dan pendugaan debit air sungai) secara cepat dan efisien, sehingga diharapkan para pengambil kebijakan dalam instansi tersebut maupun pihak-pihak lain yang berkepentingan dapat
3
menggunakan hasil penelitian ini sebagai bahan pertimbangan dalam pengambilan keputusan dalam pembangunan dan pengelolaan DAS di HPGW. 1.4
Batasan Masalah Mengingat begitu luasnya ruang lingkup pada penelitian ini dan mengingat
banyaknya komponen yang mempengaruhi dalam pengelolaan suatu areal , maka
penulis membatasi permasalahan tersebut. Penulis membatasi pengaplikasian sistem informasi untuk pengelolaan HPGW, khususnya dibidang pengelolaan DAS.
4
BAB II TINJAUAN PUSTAKA
2.1
Sistem Informasi
2.1.1 Konsep dasar sistem informasi Menurut Sutabri (2004), sistem adalah sekelompok unsur yang erat hubungannya satu dengan yang lain, yang berfungsi bersama-sama untuk mencapai tujuan tertentu dan informasi adalah data yang telah diklarifikasikan atau diolah atau diinterpretasikan untuk digunakan dalam proses pengambilan keputusan. Selanjutnya Suyatno (2003) menjelaskan informasi adalah data yang sudah diolah menjadi bentuk yang lebih berguna dan lebih berarti bagi manusia. Sistem informasi merupakan penerapan di dalam organisasi untuk mendukung informasi yang dibutuhkan oleh semua tingkat manajemen. Telah diketahui bahwa informasi merupakan hal yang sangat penting bagi manajemen di dalam pengambilan keputusan. Sistem informasi adalah suatu sistem di dalam suatu organisasi yang mempertemukan kebutuhan pengolahan transaksi harian yang mendukung fungsi operasi organisasi yang bersifat manajerial dengan kegiatan strategi dari suatu organisasi untuk dapat menyediakan kepada pihak luar tertentu dengan laporan-laporan yang diperlukan (Sutabri, 2004). 2.1.2
Komponen sistem informasi Menurut Jogiyanto (1999) mengatakan bahwa sistem informasi disebut
sebagai istilah blok bangunan (building block), antara lain blok masukan (input block), blok model (model block), blok basis data (database block), blok teknologi (technology block) dan blok kendali (control block). Keenam blok tersebut saling berinteraksi satu dengan yang lainnya membentuk satu kesatuan untuk mencapai sasarannya (Gambar 1). 1) Blok masukan, input mewakili data yang masuk ke dalam sistem informasi. Input disini termasuk metode-metode dan media yang digunakan untuk menangkap data yang akan dimasukan. 2) Blok model, terdiri dari kombinasi prosedur, logika dan model matematik yang akan memanipulasi data input dan data yang tersimpan di basis data
5
dengan cara yang sudah ditentukan untuk menghasilkan keluaran yang diinginkan. 3) Blok keluaran, merupakan produk yang dihasilkan dari sistem informasi yang berupa informasi yang baik serta bermanfaat dan dokumentasi yang berguna untuk semua tingkatan manajemen semua pemakai. 4) Blok teknologi, merupakan suatu toolbox dalam sistem informasi. Teknologi digunakan untuk menerima masukan, menjalankan model, menyimpan dan mengakses data, menghasilkan dan mengirimkan keluaran dan membantu pengendalian dari sistem secara keseluruhan. Teknologi terdiri dari tiga bagian utama, yaitu teknisi (humanware atau brainware), perangkat lunak (software) dan perangkat keras (hardware). 5) Blok basis data, merupakan kumpulan dari data yang saling berhubungan satu dengan yang lainnya, tersimpan di perangkat keras komputer dan untuk mengakses atau memanipulasinya digunakan perangkat lunak yang disebut dengan DBMS (Database Management System). Data perlu disimpan dalam basis
data
untuk
keperluan
penyediaan
informasi
lebih
lanjut.
Pengorganisasian terhadapa basis data sangat perlu dilakukan agar informasi yang dihasilkan baik dan efesien kapasitas penyimpanannya. 6) Blok kendali, perlu dirancang dan diterapkan untuk meyakinkan bahwal halhal yang dapat merusak sistem dapat dicegah ataupun dapat langsung segera diperbaiki. Hal yang dapat merusak sistem informasi seperti bencana alam, kecurangan-kecurangan, kegagalan-kegagalan yang terjadi di dalam sistem, ketidakefesienan, sabotase, dan lain-lain. Pemakai
Pemakai
Input
Model
Teknologi
Dasar
Output
Pemakai
Pemakai Kendali
data Pemakai
Gambar 1
Pemakai
Blok sistem informasi yang berinteraksi.
6
2.2
Basis Data
2.2.1 Konsep dasar basis data Menurut Abdul (2003) diacu dalam Rachmat (2010) basis data (database) adalah suatu pengorganisasian sekumpulan data saling terkait sehingga memudahkan aktivitas untuk memperoleh informasi. Selanjutnya menurut Suyatno (2003), database adalah sebuah koleksi informasi yang terkomputerisasi sehubungan
dengan
topik
tertentu.
Database
membantu
manusia
mengorganisasikan informasi yang mana informasi tersebut saling terkait dan menjadikannya sebuah bentuk yang logis untuk akses dengan mudah. Stephen dan Plew (2000) diacu dalam Rachmat (2010) menyatakan bahwa basisdata adalah mekanisme yang digunakan untuk menyimpan informasi atau data. Dengan basis data pengguna dapat menyimpan data secara terorganisasi. Setelah data disimpan, informasi harus mudah diambil. Cara data disimpan dalam basis data yaitu menentukan seberapa mudah mencari informasi berdasarkan banyak kriteria. Data harus mudah ditambahkan kedalam basis data, dimodifikasi dan dihapus. 2.2.2 Sistem manajemen basis data Menurut Ramakrishan dan Gehrke (2003) diacu dalam Rachmat (2010), sistem manajemen basis data (DBMS) adalah perangkat lunak yang didesain untuk membantu memelihara dan memanfaatkan kumpulan data yang besar. Selanjutnya Waljiyanto (2003) diacu dalam Pradipta (2010), sistem manajemen data adalah kumpulan program yang digunakan untuk membuat dan mengelola basis data. Suatu sistem manajemen basis data merupakan hasil sistem perangkat lunak yang secara umum dapat digunakan untuk melakukan pemrosesan dalam hal pendefinisian, penyusunan dan manipulasi basis data untuk berbagai aplikasi. Pendefinisian basis data meliputi spesifikasi tipe data, struktur dan pembatasan (constraints) dari data yang harus disimpan dalam basis data. Penyusunan basis data meliputi proses masukan data dalam media penyimpanan data yang harus dikontrol oleh sistem manajemen basis data. Manipulasi basis data meliputi pembuatan
pertanyaan
(query)
untuk
mendapatkan
informasi
tertentu,
pembaharuan (updating) data dan pembuatan laporan (report generation). Waljiyanto (2003) diacu dalam Rosadi (2010) menjelaskan bahwa data
7
disimpan dalam satu tempat di dalam pendekatan basis data dengan definisi data yang tetap sehingga dapat diakses oleh beberapa pemakai dengan berbagai program aplikasi melalui kontrol sistem manajemen basis data. Karakteristik utama sistem manajemen basis data menurut Waljiyanto (2003) diacu dalam Rosadi (2010) adalah sebagai berikut: 1) Pendefinisian data. Basis data tidak hanya berisi data itu sendiri tetapi juga termasuk definisi atau deskripsi dari data yang disimpan. Definisi data disimpan dalam sistem katalog yang berisi informasi tentang struktur tiap berkas, tipe dan format penyimpanan tiap item data. Semua informasi yang disimpan dalam sistem katalog ini biasa disebut meta-data. 2) Pemisahan program data. Sistem manajemen basis data mengakses program ditulis secara terpisah untuk suatu tujuan tertentu. Struktur berkas data disimpan dalam sitem katalog yang terpisah dengan program aplikasi, yang biasanya disebut dengan program dan data saling bebas (program-data independent) 3) Penggunaan data. Basis
data pada umumnya digunakan oleh beberapa
pemakai untuk kepentingan penggunaan yang berbeda pula. Data yang diperlukan bisa saja bersifat secara eksplisit tersimpan dalam basis data atau pemakai harus melakukan pemrosesan tersendiri untuk memperoleh data atau informasi yang diinginkan. Dalam hal ini sistem manajemen basis data harus mampu mengakomodasi beberapa pemakai untuk beberapa kepentingan. 4) Pemakaian data bersama. Basis data dengan sistem manajemen basis data memungkinkan beberapa pemakai mengakses data yang sama pada waktu bersamaan pula. Untuk menjamin bahwa data yang diakses tidak terjadi kesalahan maka harus ada kontrol yang terintegrasi terhadap basis data (concurrency control). 2.2.3 Model entity relationship Fathansyah (2004) diacu dalam Rachmat (2010) menyatakan bahwa model data yang paling popouler digunakan dalam perancangan basis data adalah model keterhubungan entitas (entity relationship model). Selanjutnya Haryanto (2008) diacu dalam Pradipta (2010) menjelaskan bahwa pada model entity realationship, data sebenarnya diterjemahkan dengan memanfaatkan perangkat konseptual
8
menjadi sebuah diagram data, yang umumnya disebut dengan diagram entity relathionship atau diagram E-R. Ada dua komponen utama pembentuk E-R ini, yaitu entitas dan relasi. Kedua komponen tersebut dideskripsikan lebih jauh melalui sejumlah atribut atau property. Menurut Haryanto (2008) diacu dalam Pradipta (2010), relasi di antara dua entitas dapat berupa: 1) Satu ke Satu (One to One), berarti setiap entitas pada himpunan entitas A berhubungan dengan paling banyak satu entitas pada himpunan entitas B. Sebaliknya setiap entitas pada himpunan entitas B berhubungan paling banyak satu entitas pada himpunan entitas A. 2) Satu ke Banyak (One to Many), berarti setiap entitas pada himpunan entitas A dapat berhubungan dengan banyak entitas pada himpunan B, tetapi tidak sebaliknya, dimana setiap entitas pada himpunan entitas B berhubungan paling banyak satu entitas pada himpunan entitas A. 3) Banyak ke Satu (Many to One), berarti setiap entitas pada himpunan A dapat berhubungan dengan paling banyak satu entitas pada himpunan entitas B, tetapi tidak sebaliknya, dimana setiap entitas pada himpunan entitas B berhubungan dengan banyak entitas pada himpunan entitas A. 4) Banyak ke Banyak (Many to Many), berarti setiap entitas pada himpunan entitas A dapat berhubungan dengan banyak entitas pada himpunan entitas B, demikian juga sebaliknya. 2.3 Microsoft Visual Basic 6.0 Program Micrososft Visual Basic 6.0 adalah bahasa pemrograman berbasis Microsoft Windows. Sebagai bahasa pemrograman Micrososft Visual Basic 6.0 didesain untuk dapat memanfaatkan fasilitas yang tersedia dalam Microsoft Windows. Micrososft Visual Basic 6.0 juga merupakan bahasa pemrograman Object Oriented Programming (OPP), yaitu pemrograman yang berorientasi objek. Micrososft Visual Basic 6.0 menyediakan obyek-obyek yang sangat kuat, berguna dan mudah dipakai. Dengan fasilitas tersebut membuat Micrososft Visual Basic 6.0 menjadi diidamkan oleh programer (Agus, 2000). Menurut Kurniadi (2000) diacu dalam Rachmat (2010), ada beberapa keistimewaan Micrososft Visual Basic 6.0 yaitu:
9
1) Menggunakan platform pembuatan program yang diberi nama Developer Studio, sehingga dapat belajar bahasa pemrograman lainnya dengan mudah dan cepat. 2) Memiliki compiler handal yang dapat menghasilkan file executable yang lebih cepat dan efesien dari sebelumnya. 3) Memiliki beberapa tambahan sarana Wizard, sehingga dapat mempermudah dalam pembuatan aplikasi dengan mengotomatisasi tugas-tugas tertentu. 4) Kemampuan membuat AxtiveX dan fasilitas internet yang lebih banyak. 5) Sarana akses data lebih cepat dan handal untuk membuat aplikasi database. 2.4
Daerah Aliran Sungai (DAS) Manan (1976) diacu dalam Hendrayanto (2003) menjelaskan bahwa
Daerah Aliran Sungai (DAS) sebagai terjemahan dari watershed secara harfiah diartikan sebagai setiap permukaan miring yang mengalirkan air. Dalam konteks unit kajian dan unit pengelolaan, DAS didefinisikan sebagai bentang lahan yang dibatasi oleh topografi pemisah aliran (topographic divide), yaitu punggungpunggung bukit/gunung yang menangkap curah hujan kemudian menyimpan dan mengalirkannya melalui saluran-saluran pengaliran ke satu titik patusan (outlet). Titik patusan umumnya berupa muara sungai di laut, kadang-kadang di danau. Suatu DAS yang titik patusannya berada di sungai diistilahkan sebagai sub DAS dari sungai tempat titik patusan berada. Daerah Pengaliran Sungai (DPS) merupakan terminologi lain yang mempunyai arti yang sama dengan pengertian DAS. Daerah Aliran Sungai (DAS) mempunyai karakteristik khusus serta berkaitan erat dengan unsur utamanya seperti jenis tanah, tata guna lahan, topografi, kemiringan dan panjang lereng. Keberadaan hutan mutlak untuk dipertahankan pada suatu daerah aliran sungai guna menjaga fungsi ekologi, sosial budaya dan ekonomi (Dwiprabowo et al. 2001). Ukuran DAS sangat bervariasi dari sangat kecil (beberapa hektar) sampai sangat besar (ribuan hektar). DAS berukuran sangat kecil dicirikan oleh adanya sungai utama berhulu dibukit-bukit yang berbatasan langsung dengan laut. Sungai utamanya umumnya bersifat intermittent, yaitu hanya berair pada saat hujan dan beberapa saat setelah hujan berhenti. DAS yang sangat besar berhulu di
10
pegunungan yang jauh dari laut. Sungai utamanya secara umum bersifat perennial, yaitu berair hampir sepanjang tahun (Hendrayanto, 2003). 2.4.1 Karakteristik fisik DAS 2.4.1.1 Tanah Tanah merupakan suatu benda alami heterogen yang terdiri atas komponenkomponen padat, cair, dan gas, dan mempunyai sifat serta perilaku yang dinamik. Sebagai sumberdaya alam, tanah mempunyai dua fungsi utama, yaitu (1) sebagai matriks tempat akar tumbuhan berjangkar dan air tanah tersimpan, dan (2) sebagai sumber unsur hara bagi tumbuhan. Hilang atau menurunnya fungsi tanah inilah yang disebut dengan kerusakan atau degradasi tanah. Untuk fungsi tanah yang kedua dapat diperbaiki dengan pemupukan. Sedangkan hilangnya fungsi pertama tidak mudah diperbaiki atau di perbaharui karena memerlukan waktu yang lama untuk pembentukan tanah (Arsyad, 2006). Menurut Riquir (1977) diacu dalam Arsyad (2006) kerusakan tanah dapat terjadi oleh (1) kehilangan unsur hara dan bahan organik dari daerah perakaran, (2) terakumulasinya garam di daerah perakaran (salinisasi), terkumpulnya atau terungkapnya unsur atau senyawa yang merupakan racun bagi tumbuhan, (3) penjenuhan tanah oleh air (water logging) dan (4) erosi. Kerusakan tanah oleh satu atau banyak proses tersebut menyebabkan berkurangnya kemampuan tanah untuk mendukung pertumbuhan tumbuhan. Menurut Arsyad (2006) berbagai tipe tanah mempunyai kepekaan terhadap erosi yang berbeda-beda. Kepekaan erosi tanah yaitu mudah atau tidaknya tanah terosi adalah fungsi berbagai interaksi sifat-sifat fisik dan kimia tanah. Sifat-sifat fisik dan kimia tanah yang mempengaruhi erosi adalah (1) sifat-sifat tanah yang mempengaruhi infiltrasi, permeabilitas dan kapasitas menahan air, dan (2) sifatsifat tanah yang mempengaruhi ketahanan struktur tanah terhadap dispersi dan penghancuran agregat tanah oleh tumbukan butir-butir hujan dan aliran permukaan. Adapun sifat-sifat tanah yang mempengaruhi erosi adalah (a) tekstur, (b) struktur, (c) bahan organik, (d) kedalaman, (e) sifat lapisan tanah, dan (f) tingkat kesuburan tanah. 2.4.1.2 Iklim Menurut Regariana (2006), iklim adalah kondisi rata-rata cuaca dalam
11
waktu setahun waktu yang penyelidikannya dilakukan dalalm waktu yang lama (minimal 30 tahun) dan meliputi wilayah yang luas. Iklim di bumi sangat dipengaruhi oleh posisi matahari terhadap bumi. Terdapat beberapa klasifikasi iklim di bumi ini yang ditentukan oleh letak geografis. Secara umum kita dapat menyebutnya sebagai iklim tropis, lintang menengah dan lintang tinggi. Di daerah beriklim basah, faktor/unsur iklim yang mempengaruhi erosi adalah hujan. Besarnya curah hujan, intensitas, dan distribusi hujan menentukan kekuatan dispersi hujan terhadap tanah, jumlah dan kekuatan aliran permukaan serta tingkat kerusakan erosi yang terjadi. Berikut adalah unsur-unsur dari iklim: 2.4.1.2.1. Suhu Udara Suhu udara adalah kondisi panas atau dinginnya udara. Faktor-faktor yang mempengaruhi tinggi rendahnya suhu di suatu daerah adalah: 1) Lama penyinaran matahari 2) Sudut datang Sinar matahari 3) Relief permukaan bumi 4) Banyak sedikitnya awan 5) Perbedaan letak lintang (Regariana, 2006). Kondisi panasnya udara mempengaruhi siklus hirologi pada proses evaporasi dan intersepsi sehingga nanti siklus hidrologi bisa menjadi lebih aktif. Di daerah tropika basah siklus hidrologi terjadi secara aktif dan presipitasi dalam bentuk curah hujan lebih banyak daripada evaporasi. Di daerah gurun, energi mencukupi tetapi kelembaban kurang, evaporasi selalu terjadi setiap saat bila air tersedia tetapi presipitasi sangat jarang sehingga siklus hidrologi menjadi pasif (Handoko, 1993). 2.4.1.2.2. Curah Hujan Curah hujan adalah jumlah air hujan yang turun dalam suatu daerah pada waktu tertentu. Alat pengukur curah hujan disebut dengan Rain Gauge. Curah hujan diukur dalam rentang waktu harian, bulanan, tahunan. Faktor yang mempengaruhi curah hujan: 1.) Topografi, 2.) Jarak perjalanan angin di atas medan datar 3.) Arah angin sejajar Garis pantai 4.) Arah lereng medan. Intensitas hujan menyatakan menyatakan besarnya hujan yang jatuh dalam suatu waktu yang singkat yaitu 5, 10, 15, atau 30 menit, yang dinyatakan dalam mm jam-1 atau cm jam-1(Regariana, 2006).
12
2.4.1.2.3. Kelembaban Di udara terdapat uap air yang berasal dari penguapan samudera (sumber utama). Sumber lainnya berasal dari danau-danau, sungai-sungai, tumbuhtumbuhan, dan sebagainya. Makin tinggi suhu udara, makin banyak uap air yang dapat dikandungnya. Hal ini berarti makin lembab udara tersebut. Alat untuk mengukur kelembaban udara disebut dengan Hygrometer. Ada dua macam kelembaban udara: 1. Kelembaban absolut, ialah banyaknya uap air yang terdapat di udara pada suatu tempat yang dinyatakan dengan banyaknya gram uap air dalam 1 m3 udara. 2. Kelembaban relatif udara, ialah perbandingan jumlah uap air dalam udara (kelembaban absolut) dengan jumlah uap air maksimum yang dapat dikandung oleh udara tersebut dalam suhu yang sama dan dinyatakan dalam persen (%). Pada suatu wilayah belum tentu terjadi siklus hidrologi secara aktif. Siklus hidrologi memerlukan energi panas dan kelembaban yang cukup. Di daerah tropika basah siklus hidrologi terjadi secara aktif dan presipitasi dalam bentuk curah hujan yang diterima lebih besar dari evaporasi. Di daerah gurun, energi mencukupi tetapi kelembaban kurang, evaporasi selalu terjadi setiap saat bila air tersedia tetapi presipitasi sangat jarang sehingga siklus hidrologi menjadi pasif (Regariana, 2006). 2.4.1.2.4. Angin Secara sederhana, angin dapat dibatasi sebagai gerakan horizontal udara relatif terhadap permukaan bumi. Dengan asumsi bahwa seluruh gerakan udara secara vertikal kecepatannya dapat diabaikan karena relatif rendah (<1ms -1) akibat diredam oleh gaya grativasi bumi. Walaupun aliran udara ke atas penting dalam pembentukan awan dan hujan, kecepatan pergerakan horizontal jauh lebih besar dan mempengaruhi proses- proses cuaca. Agar siklus hidrologi setimbang, harus ada transfer air atau uap air. Angin merupakan faktor pendukung agar terjadinya siklus pertukaran lengas (uap air, air atau awan) antara daratan dan lautan. Transfer lengas ini terjadi melalui arus laut atau arus massa udara. Transfer uap air antara daratan dan lautan terjadi bersama-
13
sama dengan angin darat dan angin laut. Pada umumnya angin laut lebih lembab. Transfer ke laut juga terjadi melalui limpasan. Sebesar 20% dari presipitasi di daratan dikembalikan ke laut dan sisanya (80%) kembali ke atmosfer melalui penguapan. Karena daratan menerima presipitasi lebih besar daripada penguapan, maka kelebihan air ini (22000 km2 per tahun) dikembalikan ke laut melalui limpasan dan transfer uap air (Handoko,1993). 2.4.1.2.5. Tekanan Udara Tekanan udara adalah gaya berat kolom udara dari permukaan tanah sampai puncak atmosfer per satuan luas. Gaya ini ditimbulkan oleh percepatan ke bawah berupa gravitasi (g) dan massa udara (m). Hasil perkalian keduanya disebut berat (W), oleh karena itu tekanan udara pada setiap titik (P) merupakan berat total udara di atas titik tersebut persatuan luas (A). Menurut Handoko (1993), semakin jauh dari permukaan bumi tekanan udara akan berkurang karena lapisan atmosfer yang semakin tipis (persamaan hidrostatis). Perubahan tekanan dengan ketinggian tergantung dari kerapatan udara. Tekanan berubah sangat cepat dengan ketinggian kalau kerapatan udara tinggi sedang perubahannya akan lebih perlahan jika kerapatan udaranya rendah. Perubahan tekanan sebesar 200 mb terjadi dengan perubahan ketinggian 2 km pada lapisan yang paling bawah. 2.4.1.3 Topografi Kemiringan dan panjang lereng adalah dua sifat topografi yang paling berpengaruh terhadap aliran permukaan dan erosi. Unsur lain yang mungkin berpengaruh adalah konfigurasi, keseragaman dan arah lereng (Arsyad, 2006). Kemiringan lereng dinyatakan dalam derajat atau persen. Dua titik yang berjarak 100 m yang mempunyai selisih tinggi 10 m membentuk lereng 10%. Kecuraman lereng 100% sama dengan kecuraman lereng 45º. Selain dari memperbesar jumlah aliran permukaan, semakin curam lereng juga memperbesar kecepatan aliran permukaan yang dengan demikian memperbesar energi angkut aliran. Selain itu, dengan semakin besarnya miringnya lereng, jumlah butir-butir tanah yang terpercik kebagian bawah lereng oleh tumbukan butir-butir hujan semakin banyak (Arsyad,2006). Panjang lereng dihitung mulai dari titik pangkal mulai terjadinya aliran
14
permukaan sampai suatu titik dimana air masuk ke dalam saluran atau sungai, atau dimana kemiringan lereng berubah demikian rupa sehingga kecepatan aliran permukaan berubah. Air yang mengalir di permukaan tanah akan terkumpul di ujung lereng. Dengan demikian berarti lebih banyak air yang mengalir dan semakin besar kecepatannya di bagian bawah lereng daripada bagian atas lereng. Akibatnya adalah bahwa tanah di bagian bawah lereng mengalami erosi lebih besar daripada bagian atas (Arsyad,2006). Lereng permukaan tanah dapat berbentuk cembung (kovek) dan cekung (konkav). Pengamatan secara umum menunjukkan bahwa erosi lembar lebih hebat pada permukaan cembung daripada permukaan cekung. Sedangkan pada erosi cekung terbentuk erosi alur atau parit (Arsyad,2006). 2.4.1.4 Geologi Faktor-faktor geologi mempengaruhi siklus hidrologi khususnya pada air tanah. Faktor geologi yang mempengaruhinya adalah formasi geologi. Formasi geologi adalah formasi batuan atau material lain yang berfungsi menyimpan air dalam jumlah besar. Proses pembentukan air tanah tersebut dikenal dengan akifer (aquifer). Akifer pada dasarnya adalah kantong air yang berada dalam tanah. Akifer dibedakan menjadi akifer bebas (unconfined aquifer) dan akifer terkekang (confined aquifer) (Asdak, 1995). Akifer bebas terbentuk ketika tinggi permukaan air tanah (water table) menjadi batas atas zona tanah jenuh. Tinggi permukaan air tanah berfluktuasi tergantung pada jumlah dan kecepatan air (hujan) masuk ke dalam tanah, pengambilan air tanah, dan permeabilitas tanah. Akifer terkekang juga dikenal sebagai artesis, terbentuk ketika air tanah dalam dibatasi oleh lapisan kedap air sehingga tekanan di bawah lapisan kedap air tersebut lebih besar daripada tekanan atmosfer. Formasi geologi tertentu, baik yang terletak pada zona bebas (unconfined aquifer) maupun zona terkekang (confined aquifer), dapat memberikan pengaruh tertentu pula terhadap keberadaan air tanah (Asdak, 1995). 2.4.2 Karakteristik Biologi DAS Menurut Styzen dan Morgan (1995) dalam Asdak (1995), Vegetasi merupakan lapisan pelindung atau penyangga antara atmosfer dan tanah. Suatu vegetasi penutup tanah yang baik seperti rumput yang tebal atau rimba yang lebat
15
akan menghilangkan pengaruh hujan dan topografi terhadap erosi. Vegetasi mempengaruhi siklus hidrologi melalui pengaruhnya terhadap air hujan yang jatuh dari atmosfer ke permukaan bumi, ke tanah dan batuan di bawahnya. Oleh karena itu, ia mempengaruhi volume air yang masuk ke sungai dan danau, ke dalam tanah dan cadangan air tanah. Bagian vegetasi yang ada di atas permukaan tanah, seperti daun dan batang menyerap energi perusak hujan, sehingga mengurangi dampaknya terhadap tanah, sedangkan bagian vegetasi yang ada dalam tanah, yang terdiri atas sistem perakaran, menigkatkan kekuatan mekanik tanah. Pengaruh vegetasi terhadap aliran permukaan dan erosi dapat dibagi dalam (1) intersepsi air hujan, (2) mengurangi kecepatan aliran permukaan dan kekuatan perusak hujan dan aliran permukaan, (3) pengaruh akar, bahan organik sisa-sisa tumbuhan
yang
jatuh
dipermukaan tanah,
dan kegiatan-kegiatan
yang
berhubungan dengan pertumbuhan vegetatif (Asdak,1995). Sedangkan fauna mempunyai pengaruh tidak langsung terhadap DAS. Fauna di daerah sekitar DAS sangat bergantung dengan ekositem dan kondisi dari DAS itu sendiri (Asdak, 1995). 2.4.3 Sosial ekonomi Menurut Arsyad (2006), pada akhirnya manusialah yang menentukan apakah tanah yang diusahakannya akan rusak dan menjadi tidak produktif atau menjadi baik dan produktif secara lestari. Banyak faktor yang menentukan apakah manusia akan memperlakukan dan merawat serta mengusahakan tanahnya secara bijakasana sehingga menjadi lebih baik dan memberikan pendapatan yang tinggi untuk jangka waktu yang tidak terbatas, antara lain (a) luas tanah pertanian yang diusahakannya, (b) jenis dan orientasi usaha taninya, (c) status penguasaan tanah, (d) tingkat pengetahuan dan penguasaan teknologi petani yang mengusahakannya, (e) perimbangan harga antara produk pertanian dan harga sarana produksi dan kebutuhan petani, (f) sistem perpajakan, (g) sumber modal yang diperlukan petani, (h) infrastruktur dan fasilitas kesejahteraan petani, dan (i) untuk petani kecil adalah keuntungan dalam waktu singkat yang akan mereka terima.
16
2.5
Hidrologi Menurut US Federal Council for Science and Technology
dalam
Hendrayanto (2009), Hidrologi merupakan ilmu yang membahas air di bumi, terjadinya, sirkulasinya, dan agihannya (distribution), sifat-sifat kimia dan fisikanya dan reaksinya terhadap lingkungan, termasuk reaksinya terhadap bendabenda hidup. Jika salah satu komponen dari siklus hidrologi terganggu, maka akan berdampak pada komponen yang lain. Dampak yang ditimbulkan akibat terganggunya siklus antara lain, terjadinya kekeringan pada musim kemarau dan terjadinya banjir pada musim hujan akibat limpasan permukaan lebih besar dari kapasitas atau daya tampung sungai. 2.5.1 Siklus hidrologi Secara global jumlah air tetap. Air global berubah dalam bentuk dan ketersediaannya. Air merupakan material yang membuat kehidupan terjadi di bumi. Air juga merupakan bagian penting dari sumber daya alam yang memiliki karakteristik khusus dan berbeda dengan sumber daya lainnya. Air bersifat sumber daya terbarukan dan dinamis. Hidrologi merupakan suatu ilmu yang berkaitan dengan air bumi, terjadinya, peredaran dan distribusinya, sifat-sifat kimia dan fisikanya, serta reaksinya terhadap lingkungan termasuk hubungannya dengan makhluk-makhluk hidup (Seyhan, 1990). Air yang jatuh ke bumi (presipitasi) akan mengalami berbagai peristiwa, kemudian akan menguap ke udara (evapotranspirasi) menjadi awan (kondensasi) dan dalam bentuk hujan, salju, dan embun jatuh kembali ke bumi. Peristiwa ini terjadi terus berulang dan merupakan siklus tertutup ini dinamakan dengan siklus air atau siklus hidrologi (Arsyad, 2006). Air hujan yang jatuh ke permukaan bumi sebagian akan tertahan oleh tumbuhan dan sebagian lagi akan jatuh ke permukaan tanah melalui sela-sela daun (throughfall) atau mengalir ke permukaan tanah melalui permukaan batang (stem flow). Sebagian air yang sampai di permukaan tanah terinfiltrasi atau masuk ke dalam tanah dan bergerak ke bawah masuk ke dalam jalur tanah dibawah yang jenuh, dibawah muka air tanah. Air pada jalur ini mengalir perlahan melaui akuifer ke alur sungai atau langsung ke laut (Wilson, 1993).
17
2.5.2 Neraca air Neraca air (water balance) merupakan penjelasan mengenai hubungan antara aliran masuk (inflow) dan aliran keluar (outflow) di suatu daerah untuk suatu periode tertentu. Jika perhitungan neraca air dilakukan pada suatu daerah tertentu yang terbatas maka aliran kedalam dan aliran keluar dari debit serta penambahan air tanah akan berbeda (Sosrodarsono & Takeda 2003, diacu dalam Hendrayanto 2009). Neraca air merupakan alat untuk mendekati nilai-nilai hidrologis proses yang terjadi di lapangan. Neraca air juga dapat didefinisikan sebagai selisih antara jumlah air yang diterima oleh tanaman dan kehilangan air dari tanaman beserta tanah melalui proses evapotranspirasi. Menurut Hendrayanto (2009), peneracaan air adalah suatu metode kuantitatif untuk mempelajari keseimbangan antara masukan (inputs) dengan unsur-unsur pengambilan (extractions) dan luaran (output) sebagai hasil (yield). Secara global (menggunakan satuan sistem bumi, hydrosfer) nilai rata-rata dari setiap komponen dalam siklus hidrologi tersebut relatif konstan, tetapi dalam satuan yang lebih kecil (regional scale), misal pulau atau Daerah Aliran Sungai (DAS) besaran tersebut berubah-ubah menurut waktu dan bisa dikatakan tidak bersifat siklik, tetapi lebih tepat dikatakan sebagai "aliran air" udara-daratanbadan air-udara.
Sistem global merupakan sistem tertutup sementara dalam
sistem regional merupakan sistem terbuka. Peneracaan air merupakan suatu perhitungan yang sederhana yang didasarkan atas prinsip konservasi massa. Anggapan utama yang digunakan dalam peneracaan air adalah jumlah dari semua unsur-unsur aliran adalah sama dengan nol apabila masukan diberi notasi positif dan kehilangan-kehilangan air untuk aliran ditandai negatif. Dalam suatu bentuk yang lebih umum, maka persamaan neraca air adalah: Inflow + Outflow + Perubahan Penyimpanan = 0 di mana jumlah inflow (+) dan outflow (-) adalah sama dengan perubahan penyimpanan. 2.6
Aliran Permukaan
2.6.1 Persamaan aliran permukaan Aliran permukaan terjadi ketika laju air hujan yang sampai ke tanah melebihi laju infiltrasi. Ketika air hujan jatuh ke tanah yang kering, laju infiltrasi
18
biasanya sangat tinggi, tetapi laju infiltrasi tersebut akan berkurang saat tanah berubah menjadi basah/jenuh. Ketika tanah sudah jenuh/terisi air maka proses runoff akan mulai terjadi. Menurut SWAT (Soil and Water Assessment Tools), ada 2 metode untuk melakukan pendugaan aliran permukaan : 1) metode kurva number SCS (Soil Conservation Service) dan 2) metode infiltrasi Green & ampt (Neitschs et all,2005). 2.6.2 Metode kurva number SCS (Soil Conservation Service) Persamaan runoff SCS merupakan model empiris yang muncul dan sering digunakan pada tahun 1950an. Persamaan ini dikembangkan untuk melihat konsistensi runoff berdasarkan pendugaan jumlah runoff dibawah penggunaan lahan yang bervariasi dan tipe tanah areal tersebut. Persamaan kurva number SCS adalah: Qsurf =
…………………..(1)
Qsurf merupakan akumulasi runoff (mm H2O), Rday merupakan curah hujan harian (mm H2O), Ia merupakan konstanta/abstrak dari simpanan permukaan, intersepsi dan infiltrasi untuk runoff (mm H 2O) dan S merupakan parameter simpanan (mm H2O). Parameter simpanan bervariasi secara spatial karena perubahan pada tanah, penggunaan lahan, manajemen lahan dan kemiringan/slope dan secara temporal perubahan-perubahan tersebut mempengaruhi kadar air tanah (Neitschs et all, 2005). Persamaan untuk parameter simpanan adalah: S= 25.4 (
……………………(2)
CN merupakan kurva number untuk harian. Nilai Ia biasanya mendekati nilai 0.2S, sehingga persamaan menjadi: Qsurf =
………………….(3)
Runoff hanya akan terjadi ketika Rday>Ia. Kurva number SCS merupakan fungsi dari kemampuan permeabilitas tanah, penggunaan lahan dan kondisi air tanah. Waktu puncak aliran permukaan diperlukan untuk membuat hidrograf desain bagi keperluan penguraian (routing) aliran permukaan melalui simpanan reservoir atau untuk menyatukan hidrograf dari beberapa DAS (Arsyad 2006).
19
Waktu surut suatu hidrograf segi tiga diambil sebesar 1,67 Tp, sehingga seluruh waktu untuk mengalir (Tb) adalah 2,67 Tp. Laju puncak aliran permukaan dari hidrograf segi tiga adalah : q = 0,0021 Q A/Tp………………….(4) Q adalah volume aliran permukaan dalam m3 , q adalah laju puncak aliran permukaan dalam m3 detik-1, A adalah luas DAS dalam hektar, dan Tp adalah waktu puncak dalam jam (Arsyad 2006). 2.6.3 Pengelompokan hidrolika tanah U.S. Natural Resource Conservation Servie (NRCS) dalam Neitschs (2005) mengklasifikasikan tanah ke dalam 4 kelompok hidrologic berdasarkan karakteristik
infiltrasi dari tanah tersebut.
NRCS
Soil Survey (1996)
mendefinisikan kelompok hidrologic tanah tersebut sebagai kelompok tanah yang mempunyai kesamaan potensial runoff pada kondisi cuaca dan kondisi penutupan area sama. Keempat kelompok tanah tersebut adalah: A, B, C dan D. Definisi dari masing-masing kelas tersebut adalah: A: (potensial runoff sedikit). Tanah ini memiliki laju infiltrasi yang tinggi bahkan ketika sudah jenuh. Grup tanah ini memiliki solum yang dalam, memiliki drainase yang baik sampai sangat baik. Grup tanah ini didominasi oleh pasir dan kerikil. Grup tanah ini memiliki laju transmisi air yang tinggi. B: grup tanah yang memiliki laju infiltrasi sedang ketika jenuh. Grup tanah ini mempunyai solum tanah yang agak dalam sampai dalam, memiliki kemampuan drainase agak baik sampai baik dan memiliki tekstur tanah yang halus sampai agak kasar. Grup tanah ini memiliki laju transmisi air dengan tingkatan sedang. C: grup tanah yang memiliki laju infiltrasi yang lambat ketika jenuh. Grup tanah ini memiliki lapisan yang menahan air bergerak ke bawah dan mempunyai tekstur agak halus sampai halus. Grup tanah ini memiliki laju transmisi air yang lambat. D: (potensial runoff tinggi). Grup tanah ini mempunyai laju infiltrasi yang sangat lambat ketika jenuh. Grup tanah ini memiliki lapisan liat di dekat permukaan tanah hingga ke lapisan material yang kedap air. Grup ini memiliki laju transmisi air yang sangat lambat.
20
2.7
Erosi Menurut Arsyad (2006), erosi merupakan peristiwa pindahnya atau
terangkutnya tanah atau bagian-bagian tanah dari suatu tempat ke tempat lain oleh media alami. Proses yang terjadi pada erosi meliputi; pengikisan, pengangkutan dan pengendapan yang disebabkan oleh media alami yaitu angin dan air. Erosi oleh angin disebabkan oleh kekuatan angin, umumnya erosi ini terjadi di daerah yang beriklim kering. Di daerah beriklim basah seperti indonesia peristiwa erosi lebih sering disebabkan oleh air. Energi kinetik yang disebabkan oleh air hujan dapat menyebabkan/ menghancurkan agregat tanah. Menurut bentuknya, erosi dibedakan dalam erosi lembar, erosi alur, erosi parit, erosi tebing sungai, longsor dan erosi internal. Erosi lembar (sheet erosion) adalah pengangkutan lapisan tanah yang merata tebalnya dari suatu permukaan tanah. Kekuatan butir-butir hujan dan aliran permukaan yang merata diatas permukaan tanah merupakan penyebab erosi. Erosi alur (rill erosion) adalah pengangkutan tanah dari alur-alur tertentu pada permukaan tanah yang merupakan parit-parit kecil dan dangkal. Erosi alur terjadi karena air mengalir di permukaan tanah tidak merata tetapi berkonsentrasi pada alur tertentu sehingga pengangkutan tanah terjadi pada tempat aliran permukaan terkonsentrasi. Kecenderungan terjadinya erosi alur lebih dipengaruhi oleh cara bertanam dan sifat fisik tanah dari pada air hujan. Erosi parit (gully erosion) proses terjadinya sama dengan erosi alur, tetapi alur yang terbentuk sudah demikian besarnya sehingga tidak dapat lagi dihilangkan dengan pengolahan tanah biasa. Erosi parit dapat berbentuk V atau U, bergantung pada kepekaan erosi substratanya. Bentuk V adalah bentuk yang umum terdapat pada daerah-daerah yang substratanya mudah lepas dan umumnya berasal dari batuan sendimen. Erosi tebing sungai (River bank erosion) terjadi sebagai akibat pengikisan tebing sungai oleh terjangan aliran sungai yang kuat pada belokan sungai. Erosi tebing akan terjadi lebih hebat, jika vegetasi penutup tebing tidak ada atau jika pengelolaan tanah dilakukan sampai ke pinggir tebing sungai. Longsor (Landslide) adalah suatu bentuk erosi yang pengangkutan atau pemindahan atau gerakan tanah terjadi pada saat bersamaan dalam volume besar.
21
Berbeda dari bentuk erosi lainnya, pada tanah longsor pengangkutan tanah dalam volume besar terjadi sekaligus. Longsor terjadi sebagai akibat meluncurnya suatu volume tanah di atas suatu lapisan kedap air serta tanah yang jenuh. Erosi internal adalah terangkutnya butiran-butiran tanah ke bawah ke dalam celah-celah atau pori-pori tanah, sehingga tanah menjadi kedap air dan udara. Erosi internal mungkin tidak menyebabkan kerusakan berarti karena sebenarnya bagian-bagian tanah tidak terangkut keluar tempat tersebut, dan tanah akan baik kembali setelah dilakukan pengolahan tanah (Arsyad, 2006). 2.7.1 Universal Soil LossEquation (USLE) Menurut Ispriyanto (2001), Universal Soil Loss Equation (USLE)
memungkinkan perencana menduga laju rata-rata erosi suatu bidang tanah tertentu pada suatu kecuraman lereng dengan pola hujan tertentu untuk setiap macam pertanaman dan tindakan pengelolaan (tindakan konservasi tanah) yang mungkin dilakukan atau sedang digunakan. USLE adalah suatu model erosi yang dirancang untuk memprediksi erosi jangka panjang dari erosi lembar atau alur di bawah keadaan tertentu. Perkiraan jumlah erosi yang akan terjadi pada suatu lahan bila pengolahan lahan tidak mengalami perubahan dilakukan dengan menggunakan rumus USLE : A = R K x Ls C P........................(5) Dimana, A: Jumlah erosi (ton/ha/tahun), R: Faktor erosivitas hujan, K: Faktor erodibilitas tanah, LS : Faktor panjang dan kemiringan lereng, C: Faktor tanaman (penggunaan tanaman), P: Faktor teknik konservasi tanah. Berdasarkan hasil perbandingan besarnya erosi hasil pengukuran pada petak erosi standar (Wischmeter plot) dan erosi hasil pendugaan diketahui bahwa model USLE memberikan dugaan yang lebih tinggi untuk tanah dengan laju erosi rendah, dan erosi dugaan yang lebih rendah untuk tanah dengan laju erosi tinggi. Berdasarkan beberapa kelemahan tersebut, model USLE disempurnakan menjadi RUSLE (Revised USLE) dan MUSLE (Modifed USLE) dengan menggunakan teori erosi modern dan data-data terbaru, tetapi masih tetap berbasis plot (Kundarto 2005). USLE menggunakan curah hujan sebagai indikator energi perusak agregat tanah, MUSLE dan RUSLE menggunakan jumlah aliran permukaan untuk mensimulasi erosi dan hasil sendimen. Subsitusi ini
22
memberikan beberapa keuntungan : ketepatan prediksi model tersebut meningkat, keperluan menggunakan rasio pelepasan dihilangkan dan hasil sendimen untuk satu peristiwa hujan dapat dihitung (Arsyad 2010). 2.7.2 Indeks Bahaya Erosi (IBE) Persamaan USLE akan memberikan besarnya erosi tertinggi pada sebidang lahan jika kita menganggap faktor C dan P masing-masing bernilai satu, atau sering juga dikenal dengan istilah erosi potensial (potensial erosion risk). Sehingga persamaannya menjadi : (Arsyad, 2006) A = R K x LS……………….(6) Menurut Hammer (1981) dalam Arsyad (2006) menjelaskan bahaya erosi dapat dinyatakan dalam indeks bahaya erosi yang didefinisikan sebagai berikut: IBE =
………………..(7)
Tolerable Soil Loss menyatakan besarnya erosi yang measih dapat dibiarkan atau ditoleransi. Hammer (1981) dalam Arsyad (2006) menggunakan konsep kedalaman ekivalen (equivalen depth) dan umur guna (resources life) tanah untuk menetapkan nilai T suatu tanah. Kedalaman ekivalen adalah kedalaman tanah yang setelah mengalami erosi produktivitasnya berkurang dengan 60% dari tanah yang tidak terosi. Menurunnya produkktivitas tanah oleh erosi disebabkan oleh menurunnya kandungan unsur hara tanah dan menurunnya sifat-sifat fisik tanah. Penentuan kategori (harkat) hasil perhitungan indeks bahaya erosi pada masing-masing satuan lahan di suatu DAS dapat ditentukan dengan cara memasukkan pada klasifikasi Indeks Bahaya Erosi yang disajikan pada Tabel 1. Tabel 1.
Daftar kriteria indeks bahaya erosi
Nilai Indeks Bahaya Erosi
Harkat
< 1,0
Rendah
1,01-4,0
Sedang
4,01-10,0
Tinggi
>10,01
Sangat Tinggi
Sumber : Arsyad, 2006
23
2.8
Dampak Erosi dan Aliran Permukaan Menurut Arsyad (2006), hilangnya satu atau beberapa unsur hara dari daerah
perakarannya menyebabkan merosotnya kesuburan tanah, sehingga tanah tidak mampu menyediakan unsur hara yang cukup dan seimbang untuk mendukung pertumbuhan tanaman secara normal. Tanah yang dikatakan rusak kalau lapisan bagian atasnya atau top soil (ketebalan 15 - 35 cm) memang telah banyak terkikis dan atau dihanyutkan oleh arus air hujan, sehingga lapisan tersebut menjadi tipis atau bahkan hilang (Kartasapoetra, 1986). Erosi dan sendimentasi menjadi penyebab utama berkurangnya produktivitas suatu lahan pertaniaan dan berkurangnya kapasitas saluran atau sungai akibat pengendapan material hasil erosi (Hardiyatmo, 2006). Menurut Sihite (2001), banyak dampak yang terjadi dapat diamati pada badan-badan air yang ada seperti sungai, danau, atau waduk sehingga dampak yang ditimbulkan disebut dampak instream. Sedangkan dampak yang lain dapat terjadi sebelum partikel-partikel tanahtersebut mencapai badan-badan air atau sesudahnya seperti dijumpai pada kejadian banjir, penggunaan air untuk kebutuhan domestik, irigasi, atau yang lain sehingga dampak yang ditimbulkan disebut sebagai dampak off-stream. Dampak erosi tanah di tapak (on site) merupakan dampak yang dapat terlihat langsung kepada pengelola lahan yaitu berupa penurunan produktivitas. Hal ini berdampak pada kehilangan produksi, peningkatan penggunaan pupuk dan kehilangan lapisan olah tanah yang akhirnya mengakibatkan timbulnya tanah kritis. Dampak erosi tanah di luar penggunaan lahan (off site) merupakan dampak yang sangat besar pengaruhnya. Sendimen hasil erosi tanah dan kontaminan yang terbawa bersama sendimen dapat menimbulkan kerugian dan biaya yang sangat besar dalam kehidupan. Bentuk dampak di luar penggunaan lahan antara lain adalah : (i) pelumpuran dan pendangkalan waduk; (ii) tertimbunnya lahan pertanian dan bangunan; (iii) memburuknya kualitas air dan (iv) kerugian ekosistem perairan (Sihite 2001).
24
BAB III METODOLOGI
3.1
Waktu dan Lokasi Penelitian Pengumpulan data dilakukan pada bulan September 2011 di Hutan
Pendidikan Gunung Walat (HPGW), Cibadak. Perancangan aplikasi dilaksanakan pada bulan Oktober 2011 sampai dengan Oktober 2012. 3.2
Alat dan Bahan Dalam penelitian ini bahan yang digunakan adalah data curah hujan, data
jenis tanah, data jenis tegakan, data-data karakteristik hidrologis tegakan dan datadata spasial HPGW, sedangkan alat yang yang digunakan adalah: 1) Seperangkat komputer atau laptop. 2) Software Microsoft Access dan EMS MySQL Serversebagai alat utama dalam pembuatan database. 3) Microsoft Visual Basic6.0, sebagai alat utama dalam disain sistem informasi. 4) Adobe Photoshop CS, CorelDRAW X4, ArcView 3.3, Seagate Crystal Report dan MySQL Connector sebagai alat tambahan dalam disain sistem informasi. 3.3
Metode Pengumpulan Data Secara garis besar, informasi yang terdapat pada Sistem Informasi
Hidrologi-Daerah Aliran Sungai (SIH-DAS) yang nantinya akan dikembangkan ini terbagi atas beberapa kategori, yaitu informasi yang sifatnya menampilkan berbagai teori-teori dalam hidrologi, informasi yang menampilkan berbagai hasil penelitian mengenai hidrologi di HPGW dan informasi yang sifatnya hasil dari proses pengolahan data menggunakan software ini sendiri. Pengumpulan data untuk informasi yang sifatnya teori-teori dan hasil penelitian tersebut didapatkan dari literatur/bahan pustaka atau berupa data sekunder. Informasi yang sifatnya proses pengolahan data, datanya berasal dari dataa lapangan di HPGW. Diagram alir kegiatan pengumpulan data disajikan dalam Gambar 2.
25
Pengumpulan Data
Studi literatur berkas dan dokumen
Data curah hujan Data jenis tegakan Data jenis tanah Data kondisi HPGW Rumus-rumus dan ketentuan-ketentuan dalam pengolahan data hidrologi
ya
tidak
Mencukupi ?
Selesai
Gambar 2 3.4
Diagram alir pengumpulan data.
Analisis Data Metode analisis data yang digunakan adalah metode pengembangan sistem
informasi, yaitu cara penyelesaian persoalan terhadap masalah manajemen data dan informasi yang dilakukan dengan cara mengidentifikasi sejumlah kebutuhankebutuhan informasi yang ada pada suatu sistem sehingga dapat menghasilkan suatu operasi dari sistem informasi yang dianggap efektif. Metode pengembangan sistem informasi ini terdiri dari lima tahap, yaitu (1) tahap perencanaan sistem informasi, (2) tahap analisis sistem informasi, (3) tahap perancangan sistem informasi, (4) tahap implementasi sistem informasi dan (5) tahap validasi sistem informasi. Tahapan-tahapan tersebut disajikan dalam Gambar 3.
26
Mulai
Pengumpulan Data
Perencanaan Sistem Informasi
Analisis Sistem Informasi
Perancangan Sistem Informasi
Implementasi Sistem Infomasi
Validasi Sistem Informasi
Memuaskan
tidak
? ya Sistem Informasi HidrologiDaerah Aliran Sungai
Selesai
Gambar 3
Diagram alir pembuatan sistem informasi.
3.4.1 Tahap Perencanaan Sistem Informasi Perencanaan sistem informasi (Gambar 4) merupakan langkah awal dalam membangun sebuah sistem informasi. Pada tahap ini ditentukan lingkup proyek atau sistem yang akan dituangkan dalam sistem informasi. Lingkup proyek atau batasan sistem adalah seluruh sub sistem yang melakukan aktifitas pengelolaan atau berkaitan dengan HPGW. Pada tahap ini juga direncanakan penamaan sistem informasi yang akan dibuat dan kebutuhan hardware dan software dalam membangun sistem informasi.
27
Perencanaan Sistem Informasi
Menentukan tujuan, batasan, dan lingkungan sistem informasi
Sudah ditentukan?
tidak
ya Tujuan, batasan, dan lingkungan sistem informasi
Selesai
Gambar 4
Diagram alir perencanaan sistem informasi.
3.4.2 Tahap Analisis Sistem Informasi Tahap analisis sistem informasi (Gambar 5) terdiri dari tiga bagian, yaitu analisis kebutuhan informasi, formulasi masalah, dan identifikasi sistem informasi. Pada tahap analisis kebutuhan informasi dicari secara selektif kebutuhan informasi bagi masing-masing pelaku atau subjek
dalam sistem
pengelolaan HPGW. Tahap formulasi permasalahan bertujuan merumuskan permasalahan yang ada dalam pengelolaan HPGW, khususnya mengenai pengelolaan DAS, baik itu masalah ekologi, ekonomi, maupun sosial. Permasalahan yang terjadi dapat diketahui dari studi berkas, literatur dan wawancara. Identifikasi sistem informasi dibuat dengan tujuan untuk mendapatkan gambaran sistem informasi secara garis besar. Identifikasi sistem informasi ini dilakukan dengan pembuatan dua diagram, yaitu (1) diagram lingkar sebab akibat (causal loop) yang bertujuan untuk menggambarkan hubungan antar komponen di dalam sistem informasi dan (2) diagram input-output yang bertujuan untuk menggambarkan masukan dan keluaran serta kontrol dari sistem informasi hidrologi-daerah aliran sungai.
28
Analisis sistem informasi
Informasikebu tuhan pelaku sistem informasi
Analisis kebutuhan pelaku sistem informasi
Sudah sesuai ?
Permasalahan pengelolaan data informasi
Elemenelemen yang terlibat dalam sistem informasi
Formulasikan permasalahan
Membuat diagram
Laporan mengenai permasalahan terkait data dan informasi
Diagram sebab akibat dan diagram inputoutput
tidak
ya Tabel analisis kebutuhan pelaku sistem informasi
Selesai
Gambar 5
Diagram alir analisis sistem informasi.
3.4.3 Tahap Perancangan Sistem Informasi Tahap perancangan sistem informasi disajikan dalam Gambar 6. Tahap ini menjelaskan perancangan sistem informasi yang akan dibuat. Perancangan sistem informasi mendesain suatu proses dihasilkannya informasi, yaitu terdiri dari proses input data, pengolahan data dan proses penyajian data (ouput data). Informasi akan dihasilkan dengan memanfaatkan data yang tersimpan pada basis data yang ada. Output atau informasi yang dihasilkan pada akhirnya dapat dimanfaatkan oleh berbagai pihak yang membutuhkan. Tahap perancangan sistem informasi terdiri dari: 1. Perancangan cara kerja sistem dengan diagram blok. 2. Perancangan database. 3. Perancangan relasi tabel. Perancangan cara kerja sistem dengan diagram blok merupakan pembuatan diagram blok yang bertujuan untuk menggambarkan garis besar cara kerja sistem
29
informasi yang akan dibuat. Diagram blok juga berisi komponen-komponen yang terlibat dalam sistem informasi. Database dapat diartikan sebagai kumpulan data yang terdiri atas satu ataulebih tabel yang terintegrasi satu sama lain, dimana setiap pemakai (user) diberi wewenang untuk dapat mengakses (mengubah, menghapus, menganalisa, menambah, memperbaiki) data dalam tabel-tabel tersebut. Tahapan-tahapan dalam melakukan perancangan database ialah: 1. Pembuatan tabel, tabel berfungsi sebagai tempat menyimpan data dan merupakan suatu kumpulan data yang berhubungan dengan topik tertentu. Penggunaan tabel bertujuan untuk menyederhanakan logika terhadap pandangan data. 2. Pembuatan field yang merupakan tempat dimana data atau informasi dalam kelompok yang sama atau sejenis dimasukan. Field itu pada umumnya tersimpan dalam bentuk kolom vertikal pada tabel. 3. Perancangan relasi tabel, dibuat dengan menggunakan diagram entity relationship. Relasi yang dibuat dengan tujuan untuk memperlihatkan hubungan antara tabel-tabel yang berada pada database. Relasi yang dibangun menggunakan relasional one to one ( satu ke satu) yang berarti setiap entity pada suatu himpunan dengan entity pada himpunan entity yang lainnya. One to many (satu ke banyak) yang berarti setiap entity pada suatu himpunan entity dapat berhubungan dengan banyak entity pada hubungan entity yang lainnya. Secara garis besar relasi antar tabel dirancang untuk mendapatkan informasi mengenai kondisi hidrologi di Hutan Pendidikan Gunug Walat, seperti informasi debit dan erosi. Informasi mengenai debit membutuhkan data sebagai berikut: data jenis dan pengelompokan tanah, data kondisi hidrologi suatu area, data curah hujan, data luas DAS, dan waktu debit puncak. Kemudian data ini digunakan pada persamaan SCS-CN ( Persamaan 3). Informasi mengenai erosi membutuhkan data sebagai berikut: curah hujan bulanan untuk menentukan indeks erosivitas hujan bulanan (R), data jenis tanah untuk menentukan indeks erodibilitas tanah (K), data panjang dan kemiringan lereng untuk menentukan indeks kemiringan dan panjang lereng (LS), data jenis
30
penutupanan lahan dan upaya konservasi indeks penutupan lahan dan upaya konservasi (CP), data ketebalan solum tanah untuk menentukan nilai Tolerable Soil Loss (TSL). Kemudian data ini digunakan pada persamaan pendugaan erosi USLE ( Persamaan 5).
Perancangan Sistem Informasi
Komponen yang terlibat dalam sistem informasi
Pembuatan tabel dan field Dengan Microsoft Accsess dan MySQL Manager
Data Spasial
Membuat relasi tabel
Proses dengan ArcView 3.3
Input data sumberdaya dan lingkungan DAS dan Tegakan
Transpormasi ke shapefile (SHP)
Membuat diagram blok
Sudah benar ?
tidak
Merancang Interface ya Diagram blok sistem informasi
Database SIHDAS
Interface Visual Basic dan Map Object
Selesai
Gambar 6
Tahap Perancangan Sistem Informasi.
3.4.4 Tahapan Implementasi Sistem Informasi Tahapan implementasi sistem mencakup coding (pengkodean program) dan instalasi
(pemasangan
program).
Program
aplikasi
dirancang
dengan
menggunakan bahasa pemrograman Visual Basic 6.0 dan penyimpanan data dilakukan pada Microsoft Access 2007 dan EMS MySQL Manager 3. 3.4.5 Tahap Validasi Sistem Informasi Pada tahap ini dilakukan ujicoba sistem informasi yang telah disusun. Proses validasi ini diperlukan untuk memastikan bahwa sistem informasi yang dibangun sudah benar, sesuai karakteristik yang ditetapkan dan tidak ada kesalahan-kesalahan yang terkandung di dalamnya. Proses validasi dapat
31
dilakukan secara bertahap. Pada tahap pertama, pengujian dilakukan dengan mengecek alur sistem secara keseluruhan. Pada tahap kedua dilakukan pengecekan dengan sample data dan dilakukan penelusuran yang sudah berjalan dengan benar dan beroperasi sesuai dengan logika sistem informasi. Tahap implementasi dan validasi sistem informasi disajikan dalam Gambar 7. Implementasi Sistem
Pengkodeaan program dengan Visual Basic
Validasi sistem informasi
Uji coba sistem informasi
Memuaskan ?
tidak
ya Sistem Informasi HidrologiDaerah Aliran Sungai (SIHDAS)
Selesai
Gambar 7
Diagram alir implementasi dan validasi sistem informasi
32
BAB IV KONDISI UMUM
4.1
Lokasi dan Luas Kawasan Hutan Pendidikan Gunung Walat (HPGW)terletak di 2,4 km dari
poros jalan Sukabumi-Bogor (Desa Segog). Dari Simpang Ciawi berjarak 46 km dan dari Sukabumi 12 km. Secara geografis Hutan Pendidikan Gunung Walat berda pada 106°48’27”sampai 106°50’29” Bujur Timur dan -6°54’23” sampai 6°55’23” Lintang Selatan (Gambar 8). Secara adminitrasi pemerintahan HPGW terletak di kecamatan Cibadak, Kabupaten Sukabumi. Sedangkan secara administrasi kehutanan termasuk dalam wilayah Dinas Kehutanan Sukabumi.
Gambar 8
Peta Lokasi Penelitian.
Luas Kawasan Hutan Pendidikan Gunung Walat adalah 359 Ha, terdiri dari tiga blok, yaitu blok Timur (Cikatomang) seluas 120 Ha, blok barat (Cimenyan) seluas 125 Ha, dan blok Tengah (Tangkalak) seluas 114 Ha (Fahutan IPB,2009). 4.2 Topografi dan Iklim HPGW terletak pada ketinggian 460-715 m dpl. Topografi bervariasi dari landai sampai bergelombang terutama di bagian selatan, sedangkan bagian utara
33
mempunyai topografi yang semakin curam. Pada punggung bukit kawasan ini terdapat dua patok triangulasi KN 2.212 (670 m dpl) dan KN 2.213 (720 m dpl). Kemiringan lereng di HPGW dibagi menjadi lima kelas yang disajikan dalam tabel 2. Tabel 2.
Distribusi luas kemiringan lereng
Kelas Kemiringan Lereng 0 - 8,0 8 -15,0 15,0 - 25,0 25,0 - 40,0 > 40 Total
Luas Ha 44,44 16,33 61,64 133,98 102,6 359,00
% 12,38 4,55 17,17 37,32 28,58 100,00
Sumber :hasil analisis peta digital jenis tanah HPGW (1983)
Klasifikasi iklim HPGW menurut Schmidt dan Ferguson termasuk tipe B (14,3-33,3%), dengan nilai Q= 14,33-33% dan banyaknya curah hujan tahunan berkisar dari antara 1600 – 4400 mm. Suhu udara maksimum di siang hari 29°C dan minimum 19°C di malam hari(Fahutan IPB, 2009). 4.2
Tanah dan Hidrologi Tanah HPGW adalah kompleks dari podsolik, latosol, dan litosol dari
batuan endapan dan bekuan daerah bukit, sedangkan daerah barat daya terdapat areal peralihan dengan jenis batuan karst, sehingga di wilayah tersebut terbentuk beberapa gua alam karst (gamping). Kelas tanah menurut tingkat kepekaannya di HPGW terdiri dari kelas tanah, agak peka, peka dan sangat peka. Distribusi luas jenis dan kelas kepekaan tanah disajikan dalam Tabel 3. Tabel 3. Distribusi jenis dan kelas kepekaan tanah Jenis Tanah
Kelas Tanah
Latosol coklat
Luas
Agak peka
Ha 104,97
% 29,24
Latosol Merah kuning
Agak peka
189,52
52,79
Litosol
Sangat peka
53,85
15,00
Podsolik merah kuning
Peka
10,63
2,96
359,00
100,00
Total Sumber :hasil analisis peta digital jenis tanah HPGW (1983)
34
HPGW merupakan sumber air bersih yang penting bagi masyarakat sekitarnya terutama di bagian selatan yang mempunyai anak sungai yang mengalir sepanjang tahun, yaitu anak sungai Cipereu, Citangkalak, Cikabayan, Cikatomas dan Legok Pusar. Kawasan HPGW masuk ke dalam sistem pengelolaan DAS Cimandiri (Fahutan IPB, 2009). 4.3
Vegetasi Tegakan Hutan di HPGW di dominasi tanaman damar (Agathis
lorantifolia), pinus (Pinus merkusii), puspa (Schima wallichii), sengon (Paraserianthes falcataria), mahoni (Swietenia macrophylla), dan jenis lainnya seperti kayu afrika (Maesopsis eminii), rasamala (Altingia excelsa), Dalbergia latifolia, Gliricidae sp, dan akasia (Acacia mangium). Di HPGW paling sedikit terdapat 44 jenis tumbuhan, termasuk 2 jenis rotan dan 13 jenis bambu. Selain terdapat jenis tumbuhan obat sebanyak 68 jenis.Potensi tegakan hutan ± 10.855 m3 kayu damar, 9.471 m3 kayu pinus, 464 m3 puspa, 132 m3 sengon, dan 88 m3 kayu mahoni. Pohon damar dan pinus juga menghasilkan getah kopal dan getah pinus. Di HPGW juga ditemukan lebih dari 100 pohon plus damar, pinus, maesopsis/kayu afrika sebagai sumber benih dan bibit unggul (Fahutan IPB, 2009). 4.4
Satwa Di areal HPGW terdapat beraneka ragam jenis satwa liar yang meliputi
jenis-jenis mamalia, reptilia, burung, dan ikan. Dari kelompok jenis mamalia terdapat babi hutan (Sus scrofa), monyet ekor panjang (Macaca fascicularis), kelinci liar (Nesolagus sp), meong congkok (Felis bengalensis), tupai (Callociurus
sp.J), trenggiling (Manis
javanica), musang (Paradoxurus
hermaphroditic). Dari kelompok jenis burung (Aves) terdapat sekitar 20 jenis burung, antara lain Elang jawa, Empirit, Kutilang dll. Jenis-jenis reptilia antara lain biawak, ular, bunglon. Terdapat berbagai jenis ikan sungai seperti ikan lubang dan jenis ikan lainnya. Ikan lubang adalah ikan sejenis lele yang memiliki warna agak merah. Selain itu terdapat pula lebah hutan (odeng, tawon gung, Apis dorsata) (Fahutan IPB, 2009). 4.5
Penduduk Sekitar Penduduk sekitar Hutan Pendidikan Gunung Walat (HPGW) umumnya
35
memiliki mata pencaharian sebagai petani, peternak, tukang ojek, pedagang hasil pertanian dan bekerja sebagai buruh pabrik. Pertanian yang dilakukan berupa sawah lahan basah dan lahan kering. Jumlah petani penggarap yang dapat ditampung dalam program agroforestry HPGW sebanyak 300 orang petani penggarap. Hasil pertanian dari lahan agroforestry seperti singkong, kapolaga, pisang, cabe, padi gogo, kopi, sereh. Jumlah ternak domba/kambing di sekitar HPGW sebanyak 1.875 ekor, jika setiap ekor domba/kambing memerlukan 5 Kg rumput, maka diperlukan hijauan sebanyak 9.375 ton. Hijauan pakan ternak tersebut sebagian besar berasal dari HPGW. Kecamatan Cicantayan, khususnya desa Hegarmanah juga merupakan desa penghasil manggis dengan mutu eksport. Jumlah pohon manggis di desa Hegarmanah sebanyak 12.800 batang dan akan terus bertambah. Untuk menjadi sentra produksi doperlukan 40.000 pohon (Fahutan IPB, 2009).
36
BAB V HASIL DAN PEMBAHASAN
5.1
Rencana Sistem Informasi Perencanaan sistem informasi merupakan langkah awal dari pengkajian
sistem informasi. Berdasarkan perencanaan sistem informasi yang dilakukan diperoleh tujuan, batasan, dan lingkungan yang ada di dalam sistem informasi pengelolaan daerah aliran sungai Hutan Pendidikan Gunung Walat (HPGW). Tujuan sistem informasi ini yaitu membantu pihak pengelola Hutan Pendidikan Gunung Walat dalam mengelola data sumberdaya dan lingkungan khususnya di daerah aliran sungai sehingga penyampaian suatu informasi menjadi lebih baik dan dapat diakses setiap saat oleh seluruh pelaku yang terlibat dalam pengelolaan HPGW khususnya untuk pengelolaan DAS di HPGW dan mempermudah dalam pengambilan keputusan guna pembangunan. Batasan dalam sistem ini mencakup data-data spasial, data sumberdaya dan data karakteristik HPGW dan DAS
yang terdiri dari lingkungan fisik (iklim, tanah, geologi,
topografi dan hidrologi), lingkungan biologi (flora dan fauna), karakteristik sosial, dan berbagai tools tambahan yang berguna untuk menduga nilai erosi dan debit. Lingkungan sistem adalah elemen-elemen di luar Pengelolaan DAS di HPGW. Sistem informasi ini dinamakan dengan SIH-PDAS
(Sistem Informasi
Hidrologi-Pengelolaan Daerah Aliran Sungai) HPGW. Untuk mengetahui kebutuhan informasi yang diinginkan oleh pengguna atau pelaku kegiatan pengelolaan HPGW dan DAS dapat diketahui pada langkah pendekatan sistem selanjutnya yaitu analisis sistem. Analisis sistem ini terdiri atas dua tahap yaitu analisis kebutuhan dan identifikasi sistem dengan diagram sebab akibat dan diagram input-output. 5.2
Hasil Analisis Sistem Informasi
5.2.1 Kebutuhan pelaku sistem informasi Kebutuhan pelaku sistem informasi berguna untuk mengetahui dan menentukan jenis informasi yang dibutuhkan bagi masing-masing pelaku dalam Sistem Informasi Hidrologi-Pengelolaan Daerah Aliran Sungai (SIH-PDAS) HPGW. Pelaku yang terlibat dalam sistemadalah pengelola HPGW, mahasiswa
37
dan peneliti, LSM pemerhati lingkungan, masyarakat sekitar DAS dan pengguna data dan informasi lainnya (Tabel 4). Tabel 4. Hasil analisis kebutuhan pelaku terhadap sistem informasi hidrologipengelolaan daerah aliran sungai HPGW No
Pelaku
Kebutuhan
1
Pengelola HPGW
Kemudahan dalam mendapatkan data Pengambilan keputusan yang baik dan tepat Penyimpanan database pengelolaan DAS
2
Mahasiswa
dan
Data dan informasi untuk mendukung kegiatan penelitian di HPGW, khususnya di sekitar DAS
pemerhati
Data dan informasi untuk mengevaluasi pengelolaan lahan/wilayah yang dilakukan oleh pengelola HPGW Data dan informasi untuk mengevaluasi pengelolaan lahan/wilayah yang dilakukan oleh pengelola HPGW Kemudahan dalam mendapatkan data dan informasi HPGW, khususnya wilayah DAS yang dimanfaatkan masyarakat untuk sumber air minum Kemudahan dalam mendapatkan data Pengambilan keputusan yang baik dan tepat.
peneliti 3
LSM
Lingkungan 4
Pemerintah
5
Masyarakat
6
Pengguna data dan informasi lainnya
5.2.2 Hasil Formulasi Masalah Sistem informasi Berdasarkan tinjauan lapangan dan wawancara dengan pelaku yang ada dalam ruang lingkup sistem maka dapat dirumuskan beberapa permasalahan yang ada di HPGW: 1. Para pelaku dan pengguna informasi lainnya sulit untuk mendapatkan informasi HPGW dan DAS yang dibutuhkan secara lengkap, cepat dan akurat. 2. Kurangnya informasi yang diperoleh masyarakat terkait pengelolaan DAS HPGW, sementara masyarakat sekitar DAS sangat bergantung kepada mata air-mata air yang terdapat di HPGW. 3. Kurangnya informasi mengenai daerah sekitar aliran sungai HPGW sehingga proses pengelolaan tidak efektif.
38
4. Proses pengumpulan data tingkat tahunan sulit untuk dilakukan karena data yang ada masih tersimpan dalam bentuk softcopy, buku dan lembaran-lembaran yang tersusun acak. 5. Belum tersedianya sistem informasi sumberdaya dan lingkungan di HPGW khususnya di daerah DAS sehingga kurang atau lambatnya informasi yang diterima oleh pelaku sistem. 6. Data-data hasil penelitian dan konservasi belum tersusun dan terkelola dengan baik sehingga susah dalam menentukan perencanaan , pengelolaan DAS dan HPGW selanjutnya. 7. Proses pengelolaan data belum memanfaatkan teknologi komputer secara optimal. 8. Pemerintah daerah dan LSM
kesusahan dalam memonitori dan
mengevaluasi pengelolaan HPGW akibat lambatnya dan kurangnya informasi. 5.2.3 Hasil identifikasi sistem informasi a)
Diagram lingkar sebab akibat Diagram sebab akibat (causal loop) memberikan gambaran mengenai
hubungan di antara elemen-elemen yang yang terlibat dalam sistem informasi pengelolaan daerah aliran sungai Hutan Pendidikan Gunung Walat (HPGW). Setiap elemen saling berinteraksi dan memberikan pengaruh bagi sistem. Elemen-elemen yang berinteraksi dalam pengelolaan daerah aliran sungai Hutan Pendidikan Gunung Walat (HPGW) terdiri dari SIH-PDAS HPGW, masyarakat sekitar hutan/DAS, Dinas Kehutanan, manajemen dan pengelola HPGW,
mahasiswa/peneliti,
dan
LSM.
Elemen-elemen
tersebut
saling
mempengaruhi satu dengan yang lainnya dan masing-masing elemen akan menghasilkan dan dan informasi yang berguna sebagai bahan masukan sistem informasi. Diagram lingkar sebab akibat SIH-PDAS HPGW dapat dilihat pada Gambar 9.
39
+
Pemanfaatan
Kegiatan pemanfaatan sumberdaya DAS
Kegiatan evaluasi
+
Jenis Dinas Kehutanan
Manajemen
+
HPGW
+ +
+
Mahasiswa dan SIH-PDAS
Masyarakat sekitar HPGW/DAS
+
peneliti
+
+ + +
+
Data Sumberdaya dan Lingkungan
+
+
Kegiatan monitoring
+
+
LSM
+
Kegiatan penelitian dan konservasi
+
+
Sarana dan Prasarana +
Gambar 9
Diagram lingkar sebab akibat SIH-PDAS HPGW.
Kebijakan dan pengelolaan DAS HPGW
40
Interaksi dan hubungan yang terjadi antar elemen-elemen dalam SIH-PDAS HPGW antara lain adalah: 1) SIH-PDAS HPGW menyediakan pengelolaan dan penyajian data sumberdaya dan lingkungan pengelolaan daerah aliran sungai yang cepat dan mudah diakses, sehingga akan berpengaruh positif terhadap masyarakat sekitar hutan/DAS, mahasiswa dan peneliti, Dinas kehutanan, LSM pemerhati lingkungan, dan pengguna informasi lainnya. 2) Masyarakat sekitar HPGW/DAS akan melakukan kegiatan pemanfaatan sumberdaya dan melalui kegiatan tersebut dapat dihasilkan data mengenai sosial ekonomi masyarakat untuk kebutuhan sistem informasi hidrologi pengelolaan DAS. Sedangkan untuk pihak pengelola HPGW, data kegiatan masyarakat ini akan sangat membantu dalam menentukan kebijakan yang lebih efektif dan tepat sasaran. 3) Manajemen HPGW akan mudah melakukan pengumpulan data jenis sumberdaya dan kondisi lingkungan daerah aliran sungai sehingga penyajian informasi yang dibutuhkan guna berjalannya SIH-PDAS HPGW juga menjadi lebih baik. Kecepatan dan kemudahan penyajian informasi sangat dibutuhkan bagi Manajemen HPGW dalam pengambilan kebijakan dan perencanaan pembangunan pengelolaan daerah aliran DAS. Semakin baik kebijakan yang dibuat maka akan berdampak baik terhadap peningkatan sarana prasarana sehingga kegiatan pemanfaatan, perlindungan dan pengelolaan sumberdaya DAS akan berjalan dengan efektif dan efesien. Semakin baik berjalannya kegiatan pemanfaatan, perlindungan, dan pengelolaan, maka data yang dihasilkan juga lebih cepat dan akurat. Selain itu pihak HPGW bekerja sama dengan mahasiswa atau badan peneliti lainnya melakukan kegiatan penelitian dan konservasi di lingkungan daerah aliran sungai untuk tahun-tahun selanjutnya sehingga dihasilkan data sumberdaya dan lingkungan yang tepat waktu, akurat dan penyajian informasi yang mudah. 4) Peningkatan sarana dan prasarana yang dilakukan oleh pihak HPGWakan berdampak baik juga terhadap masyarakat yang memanfaatkan sumberdaya HPGW sehingga pemanfaatan yang dilakukan lebih optimal. 5) LSM pemerhati lingkungan khususnya pemerhati daerah aliran sungai akan
41
mendapatkan informasi yang cepat, sehingga kegiatan evaluasi dan monitoring juga bisa berjalan dengan baik. Kegiatan evaluasi dan monitoring ini sangat baik untuk peningkatan kualitas pengelolaan pada tahap berikutnya. Semua data dan informasi dicatat terlebih dahulu oleh manajemen HPGW khususnya yang bergerak di bidang lingkungan. Setelah diolah data tersebut akan menjadi bahan masukan bagi perancangan SIH-PDAS HPGW. Semakin baik pencatatan data maka semakin baik pula keluaran (output) yang dihasilkan oleh sistem informasi, sehingga data yang dikeluarkan oleh sistem informasi merupakan data yang akurat, valid dan tepat waktu. Data dan informasi ini akan dipergunakan sebagai bahan masukan dalam penentuan kebijakan pembangunan daerah aliran sungai selanjutnya. b)
Diagram Input-Output Diagram input-ouput memberikan gambaran pengaruh input terkendali dan
input tidak terkendali terhadap sistem informasi sehingga menghasilkan output yang dikehendaki dan output yang tidak dikehendaki. Diagram input-output SIHPDAS HPGW dapat dilihat pada Gambar 10.
42
Input tidak terkendali Lingkungan fisik (iklim,topografi, geologi,tanah dan hidrologi) Lingkungan biologi (flora dan fauna) Kondisi ekosistem hutan HPGW Virus dan program-program malware yang dapat mengganggu kerja sistem informasi
Input terkendali Data Profil HPGW Data Spasial HPGW Data lingkungan (fisik,biologi,dan sosial ekonomi) Data erosi dan sedimentasi Sarana dan Prasarana pengelolaan daerah aliran sungai Fasilitas Pengolahan data Kondisi dan data sosial ekonomi
Gambar 10
Diagram input-output SIH-PDAS HPGW.
Lingkungan: Undang-Undang No. 41 tahun 1999 tentang Kehutanan Undang-Undang No.11 Tahun 2008 tentang Informasi dan Transaksi Elektronik
Output yang dikehendaki: Data dan Informasi HPGW, Hidrologi dan Erosi-sedimentasi yang lengkap. Peta manajemen lahan teliti dan akurat Peta sebaran lingkungan daerah aliran sungai (fisik, biologi dan sosial ekonomi) yang tepat dan akurat Pengolahan data yang cepat Grafik dan laporan informasi yang bisa dicetak langsung Sarana dan prasarna yang lengkap
Sistem Informasi Hidrologi Pengelolaan Daerah Aliran Sungai HPGW (SIH-PDAS HPGW)
Output yang tidak dikehendaki: Kegagalan pencarian dan penyajian informasi lingkungan daerah aliran sungai Kegagalan dalam mengolah data Kegagalan pencetakan laporan Kegagalan penyimpanan data dan pengorganisasian data Manajemen Pengendalian
43
Diagram input-output memperlihatkan bahwa SIH-PDAS HPGW tidak bisa lepas dari peran lingkungan sekitar dan pemerintah dalam menetapkan kebijakan dan peraturan perundang-undangan yang mengatur tentang informasi maupun pengelolaan DAS. Input terkendali terdiri dari Data Profil HPGW, Data Spasial HPGW, Data lingkungan (fisik, biologi, dan sosial ekonomi), Data erosi dan sedimentasi, Sarana dan Prasarana pengelolaan daerah aliran sungai, Fasilitas Pengolahan data dan kondisi dan data sosial ekonomi. Data dan informasi yang dimasukan ke dalam sistem informasi masih bisa dikontrol oleh pengelola sistem informasi. Input tidak terkendali teridiri dari kondisi lingkungan fisik (iklim, tanah, geologi, topografi dan hidrologi), lingkungan biologi (Flora dan Fauna), kondisi ekosistem DAS dan virus-virus komputer. Kondisi lingkungan ini tidak bisa dikendalikan oleh pengelola sistem informasi. Komponen input terkendali dan tidak terkendali akan diolah oleh sistem informasi hidrologi pengelolaan daerah aliran sungai HPGW sehingga menghasilkan output yang dikendaki dan output yang tidak dikendaki. Output yang dikendaki adalah data dan Informasi
HPGW, hidrologi dan erosi-
sedimentasi yang lengkap, peta manajemen lahan teliti dan akurat, peta sebaran lingkungan daerah aliran sungai (fisik, biologi dan sosial ekonomi) yang tepat dan akurat, pengolahan data yang cepat, grafik dan laporan informasi yang bisa dicetak langsung, sarana dan prasarana yang lengkap. Kemudahan dalam pencarian informasi yang lengkap, akurat dan tepat waktu sangat dikehendaki sebagai keluaran dan sistem informasi. Output yang tidak dikendaki merupakan Kegagalan pencarian dan penyajian informasi lingkungan daerah aliran sungai, kegagalan dalam mengolah data, kegagalan pencetakan laporan, kegagalan penyimpanan data dan pengorganisasian data. Manajemen pengendalian sangat perlu dirancang sehingga output yang tidak dikendaki dapat dikurangi atau diperbaiki. Manajemen pengendalian berfungsi untuk meminimalisir output yang tidak dikehendaki dalam sistem informasi, sehingga sistem informasi dapat berjalan dengan baik.
44
5.3
Rancangan Sistem Informasi Rancangan sistem informasi ini memberikan gambaran secara umum kepada
pengguna (user) tentang sistem yang dibangun. Perancangan SIH-PDAS HPGW terdiri dari tiga langkah yaitu perencanaan sistem dengan diagram blok, diagram alir data (data flow diagram), perancangan database dan entity relationship. 5.3.1 Diagram Blok Cara kerja sistem secara garis besar dijelaskan dengan menggunakan diagram blok (Gambar 11).Komponen-komponen yang terlibat di dalam sistem terdiri dari lima macam, yaitu: 1) Administrator, berperan untuk mengatur segala proses pengelolaan data yang sudah terpusat. Administrator dapat melakukan penambahan, penghapusan, perubahan dan penyimpanan data. Kemudian sistem akan menyimpan data tersebut ke dalam database yang dapat dipergunakan oleh user menjadi sebuah informasi. 2) User, merupakan pengguna dapat mengakses SIH-PDAS HPGW untuk mendapatkan informasi yang dibutuhkan yang berasal dari database yang sudah dibangun. 3) Database, merupakan gudang data tempat terakhir data disimpan. Dalam database dilakukan pembagian data berdasarkan kelompok-kelompok data yang sejenis sehingga data tidak bercampuran dan tersusun dengan baik. 4) Informasi, merupakan data yang telah diolah oleh SIH-PDAS HPGW sesuai dengan permintaan user. 5) SIH-PDAS HPGW, dirancang agar dapat menerima data masukan dari administrator dan mengolah data tersebut untuk kemudian menyimpannya ke dalam database. SIH-PDAS HPGW juga dirancang agar dapat menerima permintaan tertentu yang dilakukan oleh user untuk menghasilkan informasi yang dibutuhkannya yang berasal dari database.
45
Input data Administrator
Ambil data
SIH-PDAS HPGW
Kelola data dan informasi
Database
Informasi Cari Informasi
User
Gambar 11
Ambil Informasi
User
User
Diagram blok SIH-PDAS HPGW.
5.3.2 Diagram alir data (data flow diagram) Diagram alir data merupakan gambaran logika alur Sistem Informasi Hidrologi Pengelolaan Daerah Aliran Sungai Hutan Pendidikan Gunung Walat (SIH-PDAS HPGW). Diagram alir SIH-PDAS HPGW adalah sebagai berikut: a)
Diagram alir menu utama Diagram alir pada Gambar 12, menjelaskan bahwa admin pertama kali harus
melakukan proses login. Sistem akan melakukan verifikasi data nama pengguna dan kata sandi yang tersedia. Jika nama pengguna dan kata sandi salah maka sistem informasi tidak memberikan akses kepada pemakai untuk mengakses tampilan berikutnya. Admin juga bisa melakukan akses secara penuh dalam pengelolaan terhadap data yang ada di dalam sistem informasi.
46
Mulai
login Input nama pengguna dan kata sandi Benar?
tidak
ya Menu Utama
Profil HPGW
Hidrologi
Erosi sedimentasi
Pemetaan
Perhitungan Data
Manjemen Data
Selesai
Gambar 12
Diagram alir menu utama.
Menu utama terdiri dari lima menu, yaitu Profil HPGW, Hidrologi, Erosi dan sedimentasi, Perhitungan data, Pemetaan dan Manajemen Data. Setiap menu saling terhubung satu dengan yang lainya sehingga memudahkan pemakai dalam pengaplikasiannya. b)
Diagram alir profil HPGW Menu profil HPGW terdiri dari beberapa sub menu yaitu visi misi HPGW,
karakteristik biologi, karakteristik fisik, sosial ekonomi dan manajemen lahan. Informasi yang ditampilkan berasal dari database yang dibangun dan file yang tersimpan dalam format shapefile (.shp). Sub menu karakteristik biologi berisikan data flora dan fauna, data spasial penyebarannya. Sub menu karakteristik fisika terbagi ke dalam 5 bagian, yaitu iklim, hidrologi, geologi, tanah dan topografi. Baigan iklim memuat data curah hujan, data suhu, kelembaban, tekanan udara dan
47
angin. Bagian hidrologi memuat data spasial jaringan sungai, data spasial Sub DAS, goa, mata air dan data spasial alat ukur SPAS. Bagian geologi memuat data spasial formasi batuan di HPGW. Bagian tanah memuat data jenis tanah, data spasial tanah dan karakteristik tanah tersebut. Bagian topografi memuat data spasial kelerengan dan data spasial elevasi. Sub menu sosial ekonomi memuat data kondisi sosial ekonomi ekonomi masyarakat sekitar HPGW dan data spasial posisi desa sekitar HPGW. Sub menu manajemen lahan memuat data spasial penggunaan lahan dan sarana prasarana yang terdapat di HPGW. Data dan informasi yang ditampilkan bisa dicetak laporannya langsung melalui printer yang terinstalasi pada komputer dan juga bisa transfer ke dalam format lain. Baik admin ataupun user bisa mengakses halaman pada setiap sub menu dalam menu profil HPGW.Diagram alir menu profil HPGW dapat dilihat pada Gambar 13.
48
Profil HPGW
-
Input pilihan Profil HPGW: Visi dan misi Karakterisitik biologi Karakteristik fisik Sosial ekonomi Manajemen lahan
Pencarian data
Database
Tampilan Informasi
Data curah hujan,suhu, kelembaban, tekanan udara dan angin
Data jenis dan spasial flora fauna
Data jenis, Data spasial Data spasial Data spasial Data kondisi spasial dan kelerengan jaringan formasi sosial karakteristik dan elevasi sungai, sub batuan ekonomi tanah DAS dan goa HPGW masyarakat
Data spasial penggunaan lahan dan sarana prasarana
Cetak Laporan
Selesai
Gambar 13 c)
Diagram alir Profil HPGW
Diagram alir menu hidrologi Menu hidrologi memilki 3 sub menu yaitu pengertian, proses-proses
hidrologi dan neraca air. Diagram alir menu hidrologi dapat dilihat pada Gambar 14. Sub menu pengertian memuat mengenai pengertian hidrologi dan hidrologi hutan. Sub menu Proses-proses hidrologi menampilkan informasi mengenai proses-proses hidrologi seperti evoporasi, presipitasi, intersepsi, stemflow, throughfall, transpirasi dan infiltrasi. Sub menu neraca air berisikan informasi presipitasi, debit, leakage, evapotranspirasi, storage dan underflow. Semua informasi yang di tampilkan pada menu hidrologi di ambil dari database SIH-PDAS. Informasi yang ditampilkan juga bisa dilihat grafik dan
49
laporannya untuk masing-masing sub menu. Grafik yang ditampilkan adalah grafik jumlah/rata-rata per tahun untuk setiap sub menu. Grafik dan data akan berubah dengan sendirinya jika user melakukan penambahan atau perubahan data. Pangguna juga bisa mencetak langsung laporan melalui printer dan merubah ke dalam format yang lain. Hidrologi
Input pilihan: - Pengertian - Proses-proses hidrologi - Neraca air
Database
Tampilan pengertian Hidrologi
Pencarian data
Tampilan Informasi Proses hidrologi
Tampilan Informasi neraca air
Cetak Laporan
Selesai
Gambar 14 d)
Diagram alir hidrologi
Diagram Alir Menu Erosi dan Sedimentasi Menu erosi dan sedimentasi memilki 4 sub menu yaitu pendugaan erosi
USLE, Tolerable Soil Loss (TSL), IBE-TBE dan sedimentasi. Diagram alir menu erosi sedimentasi dapat dilihat pada Gambar 15. Sub menu pendugaan erosi memuat data sebagai berikut; indeks erosivitas hujan bulanan HPGW, indeks kemiringan dan panjang lereng, indeks erodibilitas tanah HPGW, Indeks coverage dan Indeks protection HPGW. Sub menu Tolerable Soil Loss (TSL) memuat data dan informasi mengenai tingkat erosi yang diperbolehkan atau dibiarkan di kawasan HPGW. Sub menu IBE-TBE memuat data mengenai indeks bahaya dan tingkat bahaya erosi di kawasan HPGW. Informasi yang ditampilkan berupa peta sebaran kelas dan tingkat bahaya erosi di areal HPGW. Sub menu sedimentasi
50
memuat data mengenai pendugaan sedimentasi di HPGW dengan menggunakan metode SDR (Sediment Delivery Ratio). Data dan informasi berasal dari database yang telah dibangun atau file diperoleh dari hasil penelitian peneliti atau lembaga peneliti yang telah tersimpan dengan format shapefile (.shp). Data dan informasi yang ditampilkan diambil melalui database SIH-PDAS HPGW. Pengguna juga bisa melihat grafik dan laporan pada masing-masing sub menu. Data dan grafik akan berubah dengan sendirinya jika pengguna melakukan penambahan atau perubahan data pada menu manajemen data. Laporan dapat dicetak langsung melalui printer atau dirubah kedalam format lain. Erosi-Sedimentasi Input pilihan: - Erosi USLE - Tolerable Soil Loss - IBE-TBE - Sedimentasi
Database
Tampilan data dan Informasi erosi USLE HPGW
Pencarian data
Tampilan data dan InformasiIBE-TBE di HPGW
Tampilan data Informasi Sedimentasi di HPGW
Cetak Laporan
Selesai
Gambar 15 e)
Diagram alir menu erosi sedimentasi
Diagram Alir Menu Pemetaan Menu ini merupakan tools tambahan pada aplikasi Sistem informasi
Hidrologi-Pengelolaan Daerah Aliran Sungai (SIH-PDAS) untuk menampilkan file dengan format shapefile (.shp) yang tersimpan dalam local disk dan database. Menu pemetaan ini terdiri dari beberapa sub menu, yaitu file, view, layers. Sub menu file memuat tombol perintah (command) untuk melakukan pencetakan
51
laporan (print) dan tombol perintah untuk keluar dari aplikasi (exit). Sub menu view memuat perintah mengenai image analysis, yang terdiri dari map properties, identity, pan, zoom in, zoom out, full extent, pan, drawgraphics, clear graphics dan spatial select. Sub menu layers memuat perintah mengenai penambahan peta, menghilangkan layers yang telah ada (remove layers) dan perintah legend editor yang membantu pengguna untuk melakukan perubahan pada legenda peta (layers). Diagram alir menu pemetaan dapat dilihat pada Gambar 16. Pemetaan Input pilihan: - file - view - layers
Database
Add/ remove layers
Pencarian data
Image analysis
Legend editor dan map properties
Cetak Laporan
Selesai
Gambar 16 f)
Diagram alir menupemetaan.
Diagram Alir Menu Perhitungan Menu perhitungan juga merupakan tools tambahan pada sistem aplikasi
SIH-PDAS HPGW yang berfungsi untuk mengolah (calculate) dan menyimpan data (storage), kemudian data hasil olahan/tersimpan tersebut dicetak
dalam
bentuk laporan. Menu perhitungan terdiri atas dua sub menu, yaitu menu perhitungan erosi metode USLE dan menu perhitungan debit metode SCS-CN. Sub menu perhitungan erosi metode USLE membutuhtan beberapa data input sebelum melakukan perhitungan (calculate) data, yaitu berupa data curah hujan bulanan untuk menentukan indeks erosivitas hujan bulanan (R), data jenis
52
tanah untuk menentukan indeks erodibilitas tanah (K), data panjang dan kemiringan lereng untuk menentukan indeks kemiringan dan panjang lereng (LS), data jenis penutupanan lahan dan upaya konservasi indeks penutupan lahan dan upaya konservasi (CP), data ketebalan solum tanah untuk menentukan nilai Tolerable Soil Loss (TSL). Output dari pengelolaan (generate) data menggunakan tools erosi metode USLE ini adalah pendugaan laju erosi aktual tahunan (ton/Ha), besar nilai Indeks Bahaya Erosi (IBE) suatu wilayah dan Tingkat Bahaya Erosi (TBE) suatu wilayah. Sub menu perhitungan debit metode SCS-CN membutuhkan data input berupa data jenis dan pengelompokan tanah, data kondisi hidrologi suatu area, data curah hujan, data luas DAS, dan waktu debit puncak. Output dari pengelolaan (generate) data menggunakan tools debit metode SCS-CN ini adalah pendugaan jumlah debit, persentase jumlah debit dengan curah hujan harian, debit puncak dan penilaian pengelolaan. Data olahan atau informasi kemudian disimpan ke dalam database microsoft accsess. User maupun admin dapat melakukan pencetakan laporan hasil perhitungan erosi dari database SIH-PDAS. Diagram alir menu perhitungan sub menu perhitungan erosi USLE dan debit SCS-CN dapat dilihat pada Gambar 17.
53
Menu Perhitungan
Perhitungan erosi USLE
Perhitungan debit SCS CN
Tampilan Halaman Perhitungan erosi USLE
Tampilan Perhitungan debit SCS CN
data curah hujan, jenis tanah, panjang dan kemiringan lereng, penutupan lahan, upaya konservai, tebal solum tanah
data curah hujan, jenis tanah, penutupan area, Luas DAS, waktu debit puncak,
Olah Data? tidak ya Input data Pengolahan data Simpan Data tidak
Pengolahan data sudah benar?
ya
Selesai
Gambar 17 g)
Database
Cetak Laporan
Diagram alir menu perhitungan
Diagram Alir Menu Manajemen Data Menu manajemen data terdiri dari empat sub menu, yaitu profil HPGW,
hidrologi, dan erosi sedimentasi. Diagram alir menu manajemen data dapat dilihat pada Gambar 18. Menu ini merupakan layanan yang diberikan kepada admin untuk mengakses data dan informasi pada database SIH-PDAS HPGW secara penuh.
54
Untuk masuk ke menu ini, admin harus terlebih dahalu memasukan nama pengguna dan kata sandi pada menu login. Admin dapat mengggunakan fasilitas pengelolaan data untuk menambah, merubah dan menghapus data, sedangkan pengguna (user) tidak bisa menggunakan layanan menu ini. Data yang ditambah, dirubah ataupun dihapus akan tersimpan kembali ke dalam database SIH-PDAS HPGW. Manajemen Data
Data profil
Data
Data erosi
HPGW
Hidrologi
sedimentasi
Selesai
Gambar 18
Diagram alir menu manajemen data
Data yang bisa dikelola oleh admin pada diagram alir sub menu data profil HPGW adalah data karakteristik fisik, biologi, sosial ekonomi dan data manajemen lahan. Data karakteristik fisik memuat data mengenai kondisi iklim, hidrologi, geologi, tanah dan topografi di HPGW. Data karakteristik biologi memuat data mengenai penyebaran flora dan fauna yang ada di HPGW. Data karakteristik sosial ekonomi memuat data mengenai data kondisi sosial ekonomi masyarakat di sekitar HPGW. Data manajemen lahan memuat data mengenai penggunaan lahan di HPGW dan agroforestry. Setelah admin melakukan pengelolaan data maka semua data akan tersimpan ke dalam database SIH-PDAS HPGW. Data yang dikelola pada database terbagi atas dua tipe, data spasial dan data non spasial. Data yang dimasukan pada data spasial adalah data yang sudah diolah oleh suatu instansi atau lembaga penelitian. Pengolahan data ini sebelumnya dilakukan dengan menggunakan software ArcView. Data tersebut merupakan data spasial yang memiliki format shapefile (.shp) yang di dalamnya memiliki referensi keruangan (geografi). Setiap bagian dari data tersebut selain memberikan gambaran tentang suatu fenomena, juga dapat memberikan informasi mengenai lokasi dan juga persebaran dari fenomena tersebut dalam suatu ruang (wilayah).
55
Data peta digital akan dimasukan juga harus sudah memiliki atribut tersendiri yang dimasukan pada saat melakukan editing peta digital. Atribut yang sudah dimasukan nantinya akan bisa dilihat pada halaman tampilan untuk setiap jenis infomasi lingkungan yang ditampilkan oleh pengguna. Jika peta digital yang akan dimasukan belum memiliki proyeksi koordinat, SIH-PDAS menyediakan fasilitas proyeksi koordinat dari data peta digital yang akan dimasukan ke dalam SIH-PDAS agar data yang dimasukan bisa memiliki proyeksi koordinat yang sama dan berada pada wilayah Hutan Pendidikan Gunung Walat (HPGW). Setelah proyeksi koordinat dilakukan maka sistem akan menyimpan data spasial itu ke dalam database. Jenis data spasial yang terdapat pada sub menu profil HPGW adalah data spasial kelerengan, elevasi, data jenis tanah, penyebaran flora dan fauna, data jaringan sungai, data sub DAS, data penggunaan lahan dan data posisi desa masyarakat sekitar HPGW. Diagram alir sub menu manajemen data profil HPGW yang sifat datanya spasial dapat dilihat pada Gambar 19. Data yang dimasukkan pada data non spasial adalah data jumlah dan ratarata tahunan pada masing-masing variabel. Untuk karakteristik fisik HPGW, data yang sifatnya non spasial adalah data curah hujan, kelembaban, angin, tekanan udara, suhu, data jenis flora fauna, goa, sarana prasarana dan kondisi sosial ekonomi masyarakat. Diagram alir sub menu manajemen data profil HPGW yang sifat datanya non spasial dapat dilihat pada Gambar 20.
56
Data Profil HPGW
Lingkungan Biologi
Sosial ekonomi
Manajemen lahan
Tampilan Halaman Lingkungan Fisika
Tampilan Halaman Lingkungan BIologi
Tampilan Halaman sosial ekonomi
Tampilan Halaman manajemen lahan
Data iklim, hidrologi, geologi, topografi dan tanah
Data flora dan fauna
Data kondisi sosial ekonomi masyarakat sekitar HPGW
Data penggunaan lahan di HPGW
Lingkungan Fisika
Tambah Data?
tidak
ya Input data
Simpan Data
Database
Proyeksi Koordinat tidak
ya Koordinat sudah benar?
Gambar 19
Selesai
Diagram alir Menu Manajemen Data spasialsub menu profil HPGW
57
Data Profil HPGW
Lingkungan fisik
Lingkungan biologi
Sosial ekonomi
Manajemen lahan
Tampilan Halaman lingkungan fisik
Tampilan Halaman lingkungan biologi
Tampilan Halaman Sosial ekonomi
Tampilan manajemen lahan
Data iklim, hidrologi, geologi, topografi dan tanah
Data flora dan fauna
Data kondisi sosial ekonomi masyarakat sekitar HPGW Alat bantu
Data penggunaan lahan di HPGW
tidak Tambah, Data?
ya Input data
Simpan Data
Database
Selesai
Gambar 20
Diagram alir Menu Manajemen Data non spasial sub menu profil HPGW
Sub menu manajemen data sub menu hidrologi menyediakan fasilitas pengelolaan data yang berhubungan dengan proses-proses/fenomena-fenomena hidrologi di HPGW, serta data mengenai neraca air. Sub menu proses-proses hidrologi memuat data mengenai proses presipitasi, evaporasi, intersepsi, stemflow, throughfall, transpirasi dan infiltasi. Sub menu neraca air memuat data mengenai debit, evapotransipirasi, presipitasi, underflow, dan storage. Data sub menu hidrologi ini berasal dari data penelitian mahasiswa atau lembaga peneliti yang melakukan penelitian di Hutan Pendidikan Gunung Walat (HPGW). Admin dapat melakukan penambahan data mengenai hidrologi tersebut dan data akan
58
tersimpan ke dalam database. Diagram alir menu manajemen data sub menu hidrologi dapat dilihat pada Gambar 21. Sub menu Hidrologi
Proses-Proses hidrologi
Neraca air
Tampilan Halaman proses-proses hidrologi
Tampilan halamanneraca air
Data evaporasi, presipitasi, intersepsi, stemflow, troughfall, infiltrasi, transpirasi
Data presipitasi, debit, evapotranspirasi, linkage, uderflow, storage
tidak Tambah, Data?
ya Input data Database Simpan Data
Selesai
Gambar 21
Diagram alir Menu Manajemen Data sub menu hidrologi
Sub menu manajemen data sub menu erosi sedimentasi menyediakan layanan pengelolaan data bagi admin berhubungan dengandata pendugaan erosi USLE HPGW, tolerable soil loss, indeks bahaya dan tingkat bahaya erosi, dan sedimentasi. Sub menu pendugaan erosi USLE memuat data mengenai indeks erosivitas, indeks erodibilitas, indeks panjang dan kemiringan lereng, indeks penutupan area dan upaya konservasi. Sub menu tolerable soil loss memuat data mengenai jumlah erosi yang diperbolehkan di HPGW berdasarkan kedalaman solum tanah. Sub menu IBE-TBE memuat data mengenai nilai indeks bahaya dan
59
tingkat bahaya erosi di HPGW. Sub menu sedimentasi memuat data mengenai jumlah sedimentasi yang terjadi HPGW. Data sub menu erosi sedimentasi berasal dari data hasil penelitian mahasiswa atau lembaga peneliti yang melakukan penelitian di HPGW. Admin dapat melakukan penambahan data mengenai erosi sedimentasi tersebut dan data akan tersimpan ke dalam database. Diagram alir menu manajemen data sub menu erosi sedimentasi dapat dilihat pada Gambar 22. Data erosi sedimentasi
Pendugaan erosi USLE
Tolerable Soil Loss
IBE-TBE
sedimentasi
Tampilan Halaman Pendugaan erosi USLE
Tampilan Halaman
Tampilan Halaman
Tampilan
Tolerable Soil
IBE-TBE
sedimentasi
Loss
Penangkapan
Data tolerablesoil loss
Data nilai IBE dan TBE
Data indeks erosivitas hujan, erodibilitas tanah, indes kemiringan dan panjang lereng , penutupan area dan upaya konservasi
Data pendugaan jumlah sedimentasi
tidak Tambah, Data? ya Input data Database Simpan Data
Selesai
Gambar 22
Diagram alir sub menu erosi sedimentasi
5.3.3 Rancangan database Database dirancang dengan menggunakan software Microsoft Access dan software MySQL, database yang dibangun dengan format Access (.mdb) dan format MySQL (.myd). Database yang dibangun menggunakan relasional yakni
60
relasional one to one (satu ke satu) yang berarti setiap entity pada suatu himpunan dengan entity pada himpunan entity yang lainnya. One to many (satu ke banyak) yang berarti setiap entity pada suatu himpunan entity dapat berhubungan dengan banyak entity pada hubungan entity yang lainnya. Database yang dibangun menjadi informasi disimpan dalam beberapa tabel. Baris dalam tabel berisi satu unit data dan disebut record. Sedangkan kolom berisi atribut dari record dan disebut field. Tabel yang dibangun di dalam database SIH-PDAS adalah tabel flora dan fauna, tabel jenis dan karakteristik tanah, tabel curah hujan, tabel suhu, tabel kelembaban udara, tabel angin, tabel tekanan, tabel kelompok petani, tabel sarana prasarana, tabel intersepsi, tabel throughfall, tabel evapotranspirasi, tabel aliran batang, tabel debit, dan tabel erosi. Struktur data untuk masing-masing tabel dapat dilihat pada Lampiran 2. 5.3.4 Entity relationship Pembuatan entity relationship adalah menunjukan tabel-tabel dalam basis data yang digunakan dan menunjukan hubungan entity pada tabel yang satu dengan tabel yang lainnya. Membuat entity relationship bertujuan juga agar tabel yang satu bisa dihubungkan dengan tabel yang lain dengan catatan diantara kedua tabel memilki sebuah field yang sama dan nilainya bersifat unique (tidak ada duanya). Database yang dibangun menggunakan relasional one to one (satu ke satu) yang berarti setiap entity pada suatu himpunan dengan entity pada himpunan entity yang lainnya dan one to many (satu ke banyak) yang berarti setiap entity pada suatu himpunan entity dapat berhubungan dengan banyak entity pada hubungan entity yang lainnya. Dalam beberapa tabel ada sebuah field yang dijadikan sebagai primary key. Primary key merupakan sebuah field untuk mengidentifikasi masing-masing record. Primary key digunakan sebagai dasar untuk relationship dengan tabel lain. Sebuah primary key tidak diperkenankan nilai null. Struktur entity relationship database SIH-PDAS dapat dilihat pada Gambar 23.
61
Tabel Curah Hujan
Tabel Curah Hujan
Harian (/15menit)
Bulanan
-tanggal -curah hujan (mm)
- tanggal - Curah hujan harian rata-rata (mm/day) - Curah hujan maksimal harian (mm) - Curah hujan minimal harian (mm)
Tabel Evapotranspirasi -tanggal -curah hujan (mm) -debit (mm) -evapotranspirasi
Tabel Curah hujan tahunan Tahun Bulan Curah hujan bulanan (mm) Jumlah hari hujan Curah hujan maksimal bulanan (mm) - Curah hujan minimal bulanan (mm) - Curah hujan rata-rata bulanan (mm/month)
Tabel Debit SCS-CN
Tabel karakteristik
TabelErosi USLE
-
tanah
-
-
Kode laporan Lokasi penelitian Nama peneliti Curah hujan harian (mm) Jenis tanah Storage Nilai CN debit waktu debit maks debit maks
-
Id tanah Jenis tanah Struktur tanah Tekstur Bahan organik Permeabilitas Kelas kepekaan tanah
Tabel intersepsi
-
Kode laporan Lokasi penelitian Nama peneliti Indeks erosivitas hujan Indeks erodibilitas tanah Indeks kemiringan dan panjang lereng Indeks penutupan dan upaya konservasi TSL Laju erosi tahunan IBE dan TBE
-tanggal curah hujan harian (mm) -throughfall (mm) -intersepsi
Tabel Throughfall
Tabel Stemflow
-tanggal -luas tajuk -throughfall (mm)
-tanggal -luas tajuk -stemflow (mm)
Tabel Pendidikan -
No Id Kel Pendidikan (Key) Kel Pendidikan Ket
Tabelpetani_Pendidikan - Tahun - Id Kel Pendidikan - Jumlah
62
Gambar 23
StrukturHubungan Entitas (entity relationship structure) pada database SIH-PDAS.
63
5.4
Implementasi Sistem Informasi Aplikasi Sistem Informasi Hidrologi-Pengelolaan Daerah Aliran Sungai
Hutan Pendidikan Gunung Walat (SIH-PDAS HPGW) memberikan kemudahan dalam proses pemasukan, pengolahan dan pengambilan data maupun informasi mengenai sumberdaya dan lingkungan di HPGW, khususnya di sekitar kawasan aliran sungai. Setelah melakukan coding (pengkodean program) dengan menggunakan Visual Basic. List coding program SIH-PDAS dapat dilihat pada Lampiran 3. Berikut adalah desain antar muka (interface) pada SIH-PDAS: 1)
Form login Form login ini dibuat bertujuan untuk memisahkan pengguna sistem
informasi baik sebagai user atau sebagai admin. Form login juga bertujuan untuk menjaga keamanan data di dalam database SIH-PDAS HPGW. Keamanan data yang dimaksud adalah untuk mencegah pihak-pihak yang tidak berhak dalam melakukan penambahan, pengahapusan dan pengubahan data. Pihak yang masuk sebagai admin bisa melakukan manajemen database yang ada di dalam SIH-PDAS HPGW. User adalah pihak yang tidak disediakan layanan manajemen data dan user hanya bisa melihat data dan informasi yang sudah ada di dalam SIH-PDAS HPGW. Masuk sebagai user bisa langsung memilih tombol pengguna, sedangkan masuk sebagai admin memilih tombol administrasi kemudian akan muncul form login bagi admin. Selanjutnya admin memasukan nama pengguna dan kata sandi dan kemudian admin bisa langsung melihat menu utama SIH-PDAS HPGW. Form login bagi user dapat dilihat pada Gambar 24 dan form login sebagai admin dapat dilihat pada Gambar 25.
Gambar 24
Form login pengguna (user).
64
Gambar 25 2)
Form login untuk admin
Menu Utama Menu utama merupakan tampilan induk yang dibuat dengan tujuan untuk
mempermudah admin dan user (pengguna) dalam mengakses menu yang lainnya di dalam sistem. Menu utama terdiri dari beberapa menu yang bisa diakses oleh admin yaitu profil HPGW, hidrologi, erosi sedimentasi, pemetaan, perhitungan (pendugaan erosi dan debit) dan manajemen database. Jika sebelumnya masuk sebagai user pada form login, maka pilihan menu manajemen data tidak bisa diakses oleh user (pengguna). Menu utama berada di sebelah kiri tampilan SIHPDAS HPGW dan selalu terlihat pada setiap menu lainnya. Hal ini dimaksudkan agar pengguna lebih mudah dalam menuju menu lain yang diinginkan. Tampilan menu utama dapat dilihat pada Gambar 26.
Gambar 26
Tampilan menu utama.
65
3)
Menu profil HPGW Menu profil HPGW terdiri dari lima sub menu yaitu (a) visi misi, (b)
karakteristik biologi, (c) karakteristik fisik, (d) sosial ekonomi dan (e) manajemen lahan. Sub menu visi misi memuat data mengenai sejarah kawasan dan visi misi HPGW. Tampilan menu utama sub menu visi misi dapat dilihat pada Gambar 27. Sub menu karakteristik biologi memuat data mengenai flora dan fauna di HPGW. Data dan informasi yang ditampilkan merupakan data spasial yang sudah diolah oleh suatu lembaga atau peneliti, data tersebut memiliki format .shp (shapefile) yang memiliki referensi keruangan (geografi). Setiap bagian dari data tersebut selain memberikan gambaran tentang kondisi flora dan fauna, juga dapat memberikan informasi mengenai lokasi dan juga penyebaran dari flora fauna tersebut dalam suatu ruang (wilayah). Tampilan menu utama sub menu flora dan fauna dapat dilihat pada Gambar 28. Sub menu karakteristik fisik memuat data mengenai kondisi iklim, hidrologi, topografi, tanah, dan geologi HPGW. Data dan informasi yang ditampilkan merupakan data jumlah dan rata-rata harian, bulanan, dan tahunan dari masing-masing komponen karakteristik fisik HPGW yang diolah suatu lembaga atau peneliti. Tampilan menu utama sub menu karakteristik fisik dapat dilihat pada Gambar 29. Sub menu sosial ekonomi memuat data mengenai kondisi sosial ekonomi masyarakat sekitar HPGW, kelompok masyarakat, pemberdayaan masyarakat, serta lokasi dari masing-masing desa di sekitar HPGW. Sub menu manajemen lahan memuat data dan informasi mengenai penggunaan lahan dan sarana prasarana yang dimiliki HPGW. Tampilan menu utama sub menu sosial ekonomi dapat dilihat pada Gambar 30. Data dan informasi pada setiap sub menu dapat dimanipulasi (tambah, ubah, dan hapus) melalui menu manajemen data.
66
Gambar 27
Tampilan sub menu visi misi
Gambar 28
Tampilan sub menu karakteristik biologi.
67
Gambar 29
Tampilan sub menu karakteristik fisik
Gambar 30
Tampilan sub menu sosial ekonomi
4)
Menu Hidrologi Menu hidrologi terdiri dari tiga sub menu yaitu (a) pengertian, (b) proses-
proses hidrologi, dan (c) neraca air. Sub menu pengertian memuat informasi mengenai definisi hidrologi dan hidrologi hutan. Informasi yang ditampilkan bersifat statis dan tidak berasal dari database, ditulis bersamaan dengan desain
68
sistem informasi. Tampilan menu hidrologisub menu pengertian dapat dilihat pada Gambar 31. Sub menu proses-proses hidrologi memberikan gambaran tentang fenomena hidrologi, meliputi proses evaporasi, presipitasi, intersepsi, troughhfall, stemflow, dan infiltrasi. Data dan informasi pada sub menu proses-proses hidrologi ini berupa jumlah dan rata-rata harian, bulanan, dan tahunan dari masing-masing komponen siklus hidrologi yang diperoleh dari lembaga atau peneliti yang telah melakukan penilitian di HPGW. Sub menu neraca air memuat data dan informasi mengenai keseimbangan masukan (input) dan keluaran (output) aliran air pada suatu wilayah yang digambarkan melalui besar nilai presipitasi (P), debit (Q), evapotranspirasi (ET), storage (S), underflow (U) dan leakage (L).
Gambar 31
Tampilan menu hidrologi sub menu pengertian
69
Gambar 32
Tampilan menu hidrologi sub menu proses-proses.
Gambar 33
Tampilan menu hidrologi sub menu neraca air.
5)
Menu Erosi Sedimentasi Menu erosi sedimentasi terdiri dari empat sub menu, yaitu pendugaan erosi
USLE, tolerable soil loss, IBE-TBE (Indeks dan Tingkat Bahaya Erosi), dan sedimentasi. Sub menu pendugaan erosi USLE menampilkan informasi mengenai nilai pendugaan erosi aktual tahunan HPGW (ton/ha/tahun), yang diperoleh dari
70
nilai indeks erosivitas hujan (R), indeks erodibilitas tanah (K), indeks panjang dan kemiringan lereng (LS), dan indeks penutupan lahan dan indeks upaya konservasi lahan (CP). Data masing-masing variabel pendugaan erosi tersebut berasal dari data lapangan HPGW yang diperoleh dari lembaga atau peneliti yang telah melakukan penelitian di HPGW. Sub menu tolerable soil loss berisikan informasi mengenai nilai erosi yang diperbolehkan/ditoleransi dan penyebarannya di HPGW. Besar nilai TSL (Tolerable Soil Loss) ini diperoleh berdasarkan kedalaman solum tanah, kondisi lapisan tanah dan posisi lapisan tersebut terhadap lapisan batuan. Sub menu IBE-TBE menampilkan informasi mengenai sebaran indeks dan tingkat bahaya erosi di HPGW. Data dan informasi yang ditampilkan merupakan data spasial yang sudah diolah oleh suatu lembaga atau peneliti, data tersebut memiliki format .shp (shapefile) yang memiliki referensi keruangan (geografi). Sub menu sedimentasi menampilkan informasi mengenai jumlah pendugaan sedimentasi di HPGW berdasarkan jumlah pendugaan erosi yang telah diolah terlebih dahulu dengan menggunakan metode erosi USLE. Pendugaan sedimentasi diperoleh dengan menggunakan metode Sediment Delivery Ratio (SDR).
Gambar 34
Tampilan menu erosi sedimentasi submenu pendugaan erosi USLE.
71
Gambar 35
Tampilan menu erosi sedimentasi submenutolerable soil loss.
Gambar 36
Tampilan menu erosi sedimentasi submenu IBE-TBE.
72
Gambar 37
Tampilan menu erosi sedimentasi submenu Sedimentasi.
73
6)
Menu Pemetaan Menu ini merupakan tools tambahan pada aplikasi Sistem informasi
Hidrologi-Pengelolaan Daerah Aliran Sungai (SIH-PDAS) untuk menampilkan file-file dengan format shapefile (.shp) yang tersimpan dalam local disk dan database. Menu pemetaan ini terdiri dari beberapa sub menu, yaitu file, view, layers. Sub menu file memuat tombol perintah (command) untuk melakukan pencetakan laporan (print) dan tombol perintah untuk keluar dari aplikasi (exit). Sub menu view memuat perintah mengenai image analysis, yang terdiridari map properties, identity, pan, zoom in, zoom out, full extent, pan, drawgraphics, clear graphics dan spatial select. Sub menu layers memuat perintah mengenai penambahan peta, menghilangkan layers yang telah ada (remove layers) dan perintah legend editor yang membantu pengguna untuk melakukan perubahan pada legenda peta (layers). Tools pemetaan ini dirancang berdasarkan source code yang didapatkan dari ESRI MapObject.
Gambar 38 7)
Tampilan menu pemetaan
Menu Perhitungan Menu perhitungan merupakan tools yang dirancang pada sistem informasi
SIH-PDAS yang berfungsi untuk mengolah/generate data, sehingga data yang diolah tersebut bisa menjadi informasi yang berguna bagi pengguna aplikasi SIH-
74
PDAS. Menu perhitungan terdiri dari dua sub menu, yaitu sub menu perhitungan erosi dan sub menu perhitungan debit. Sub menu perhitungan erosi berfungsi untuk menduga jumlah erosi aktual yang terjadi di areal HPGW. Pendugaan erosi aktual ini dihitung dengan menggunakan metode erosi USLE dengan memasukkan data input variabel-variabel berupa, indeks erosivitas hujan (R), indeks erodibilitas tanah (K), indeks panjang dan kemiringan lereng (LS), dan indeks penutupan area dan upaya konservasi (CP). Sub menu perhitungan debit berfungsi untuk menduga jumlah debit harian (mm H2O/ hari) yang terjadi di HPGW. Pendugaan debit ini menggunakan metode pendugaan debit SCS (Soil Conservation Service). Pendugaan Debit SCS ini merupakan fungsi dari kemampuan permeabilitas tanah, penggunaan lahan dan kondisi air tanah di areal HPGW. Pendugaan debit ini juga membutuhkan data curah hujan harian (mm), data perlakuan lahan, dan data jenis tanah. Pengolahan data perhitungan, baik itu perhitungan erosi maupun debit akan tersimpan ke dalam database, selanjutnya manipulasi data perhitungan (ubah dan hapus) dapat dilakukan bagi pengguna yang sifatnya admin pada menu manajemen data.
Gambar 39
Tampilan menu perhitungan sub menu perhitungan debit.
75
Gambar 40 8)
Tampilan Menu Perhitungan Sub menu perhitungan erosi
Menu Manajemen Data Menu manajemen data merupakan menu yang bisa digunakan oleh admin
dalam pengelolaan data untuk menambah, merubah dan menghapus data. Menu manajemen data terdiri dari tiga sub menu, yaitu data profil HPGW, data hidrologi, dan data erosi sedimentasi. Data yang akan dikelola melalui menu ini terdiri dari 2 jenis data, yaitu data yang tersimpan dengan format microsoft access (.mdb) dan data yang tersimpan dengan format shapefile (.shp). Pada setiap sub menu diberikan pilihan tombol dalam melakukan pengelolaan data. Tombol tambah digunakan jika admin ingin menambahkan data ke dalam database. Tombol hapus digunakan untuk menghapus data di dalam database sesuai dengan record yang ingin dihapus. Tombol simpan untuk menyimpan data yang baru ke dalam database. Tombol batal adalah untuk membatalkan operasi pengelolaan data.
76
Gambar 41
Tampilan sub menu profil HPGW.
Gambar 42
Tampilan sub menu hidrologi.
77
Gambar 43 5.3
Tampilan menu manajemen data sub menu erosi sedimentasi.
Validasi Sistem Informasi Aplikasi SIH-PDAS HPGW telah melalui dua tahap pengujian. Pengujian
tahap pertama adalah untuk menguji benar tidaknya coding dan logika alur sistem informasi. Pengujian pada tahap ini meliputi pengujian pada masing-masing form sistem informasi, uji keseluruhan sistem informasi dan uji logika sistem informasi. Uji pada masing-masing form dan uji keseluruhan sistem informasi dilakukan dengan menjalankan program aplikasi, apabila tidak terdapat pesan kesalahan maka dapat dipastikan coding program telah benar. Uji logika pada alur sistem informasi dilakukan dengan melihat reaksi keluaran program serta kesesuaian antar data yang ditampilkan. Berdasarkan pengujian tersebut aplikasi SIH-PDAS HPGW berjalan dengan baik. Pengujian tahap kedua adalah dengan melakukan pengecekan sample data dan dilakukan penelusuran kesesuaian dengan keluaran data yang dihasilkan. Pada pengujian ini dicoba melakukan memasukan data baru ke dalam program dan kemudian melihat data baru yang dimasukan pada tampilan form sistem informasi. Berdasarkan pengujian ini, aplikasi SIH-PDAS HPGW dapat dijalankan dengan baik.
78
5.1
Kelebihan dan Kekurangan SIH-PDAS HPGW Suatu sistem informasi dapat dilihat kelebihan dan kekurangannya setelah
sistem informasi itu berjalan. Hal ini juga berlaku untuk semua sistem informasi, tidak terkecuali SIH-PDAS HPGW. Kelebihan SIH-PDAS HPGW ini antara lain: 1) Proses penyimpanan data tidak memerlukan ruang yang besar dan terorganisir dengan baik,
karena semua data sudah tersimpan dalam satu kesatuan
basisdata (database). Jika dibandingkan dengan sistem informasi lain yang sejenis, contohnya e-DAS (dikembangkan oleh DEPHUT), SIH-PDAS ini menyajikan data yang lebih detail karena ruang lingkup areanya yang kecil yaitu HPGW. Sedangkan e-DAS yang ruang lingkupnya Indonesia tidak menyajikan data HPGW sedetil SIH-PDAS yang memang fokusnya untuk area HPGW saja 2) SIH-PDAS dilengkapi dengan tools untuk melakukan calculation data, seperti pendugaan erosi dan debit, serta dilengkapi dengan tools pemetaan untuk mempermudah user menampilkan data spasial Selain kelebihan, SIH-PDAS HPGW juga memiliki beberapa kelemahan diantaranya: 1) Sistem informasi ini belum berbasis website, sehingga ketersedian dan informasi belum bisa diakses melalui internet ataupun teknologi jaringan komputer. 2) Keseluruhan data dan file dalam sistem bisa saja terhapus dari komputer akibat adanya virus. Oleh karena itu sistem keamanan komputer harus benarbenar diperhatikan oleh para pengguna. 3) Membutuhkan keahlian khusus bagi pengelola sistem, karena setiap pendataan memilki aturan tersendiri.
79
BAB VI KESIMPULAN DAN SARAN
6.1
Kesimpulan Setelah melakukan tahapan perencanaan sampai dengan validasi sistem
informasi dapat ditarik kesimpulan : 1. Sistem informasi yang dihasilkan diberi nama Sistem Informasi Hidrologi Pengelolaan Daerah Aliran Sungai Hutan Pendidikan Gunung Walat (SIHPDAS). Terdapat 5 komponen dalam SIH-PDAS, yaitu data, admin, SIHPDAS, informasi dan user. 2. Sistem informasi ini terdiri dari enam menu utama, yaitu Profil HPGW, Hidrologi, Erosi Sedimentasi, Pemetaan, Perhitungan data dan manajemen data. Pada menu profil HPGW dapat diakses informasi mengenaidata visi dan sejarah kawasan HPGW, karakterisitik biologi, karakteristik fisik, dan karakteristik sosial ekonomi HPGW, serta informasi mengenai manajemen lahan di HPGW. Pada menu hidrologi memuat data mengenai prosesproses hidrologi dan neraca air di HPGW. Menu erosi sedimentasi memuat data mengenai pendugaan erosi yang terjadi di HPGW dengan menggunakan metode USLE, nilai TSL, IBE dan TBE, serta pendugaan sedimentasi di HPGW. Menu pemetaan dan perhitungan merupakan tools tambahan pada SIH-PDAS untuk mempermudah admin atau user dalam mendapatkan informasi. Menu manajemen data merupakan menu yang bisa digunakan oleh admin untuk mengelola database sistem informasi. Setiap
menu
terkoneksi
dengan
menu
yang
lainnya
sehingga
mempermudah dalam pengaplikasiannya. 3. SIH-PDAS
memiliki
fasilitas
dalam
melakukan manipulasi data
(penambahan, penghapusan dan pengubahan) dan mencetak data langsung melalui printer yang sudah terinstalasi di dalam komputer. 4. SIH-PDAS menyajikan data dan informasi DAS HPGW lebih cepat, karena setiap menu yang dirancang terhubung atau terintegrasi antara satu sama lain.
80
6.2
Saran 1. Penambahan dan penyajian data yang lebih lengkap sangat dibutuhkan untuk kesempurnaan SIH-PDAS. 2. Sangat diperlukan penelitian lebih lanjut mengenai sistem informasi berbasis komputer, sehingga segala kekurangan yang ada dalam SIHPDAS dapat dilengkapi. 3. Diperlukan penguasaan bahasa pemrograman yang jauh lebih baik agar coding yang digunakan dalam membuat program dapat berjalan dengan lebih sederhana dan program yang dihasilkan mudah digunakan. 4. SIH-PDAS ini diharapkan dapat dikembangkan menjadi sistem berbasis website,
sehingga
informasi
bisa
diakses
melalui
internet
81
DAFTAR PUSTAKA Agus M,Alam J. 2000. Manajemen Database Dengan Microsoft Visual Basic Versi 6.0. Jakarta: Elex Media Komputindo. 202 halaman Arsyad S. 2006. Konservasi Tanah dan Air. Bogor: IPB Press. Asdak C. 1995. Hidrologi dan Pengelolaan Daerah Aliran Sungai. Yogyakarta: Gadjah Mada University Press. Dwiprabowo H, Haryono, Basuki S.2001. Penentuan luas optimal hutan di daerah aliran sungai dengan goal programming dan AHP: suatu pendekatan model.Jurnal Sosial Ekonomi. 2 (1): 79-98. [Fahutan IPB] Fakultas Kehutanan, Institut Pertanian Bogor. 2009 . Rencana Pengembangan Hutan Pendidikan Gunung Walat 2009 – 2013. Bogor: Fahutan IPB Handoko. 1993. Klimatologi Dasar. Bogor : Pustaka Jaya Hardiyatmo CH. 2006. Penanganan Tanah Longsor dan Erosi. Gadjah Mada Yogyakarta: University press. Hendrayanto. 2003. Hubungan Kerjasama Institusi dalam Pengelolaan Daerah Aliran Sungai:Kasus DAS Ciliwung. Bogor: Fakultas Kehutanan IPB. Hendrayanto. 2009. Bahan Kuliah Hidrologi Hutan Manajemen Hutan IPB. [Unpublished] Ispriyanto R. 2001. Erosi di areal tumpangsari tegakan Pinus merkusii umur 1 tahun (studi kasus di KPH Tasikmalaya, Perum Perhutani Unit III Jawa Barat). [skripsi]. Bogor: Fakultas Kehutanan. Institut Pertanian Bogor. Jogiyanto
HM.
1999.
Pengenalan
Komputer.
Dasar
Ilmu
Komputer,
Pemrograman. Sistem Informasi dan Intelegenti Buatan. Yogyakarta: Penerbit Andi. Neitsch SL, Arnold JG, Kiniry JR,Williams JR. 2005. Soil And Water Assessment Tool Theoretical Documentation. Texas : Texas Agricultural Experiment Station. Pradipta S. 2010. Sistem informasi manajemen agribisnis perikanan tangkap di PPI Blanakan, Kabupaten Subang, Jawa Barat [Skripsi]. Bogor: Mayor Teknologi dan manajemen Perikanan Tangkap, Departemen Pemanfaatan
82
Sumberdaya Perikanan, Fakultas Perikanan dan Ilmu Kelautan, Institut Pertanian Bogor. Rachmat IFM. 2010. Sistem informasi agribisnis perikanan tangkap di pelabuhan perikanan nusantara pekalongan [Skripsi]. Bogor: Mayor Teknologi dan manajemen Perikanan Tangkap, Departemen Pemanfaatan Sumberdaya Perikanan, Fakultas Perikanan dan Ilmu Kelautan, Institut Pertanian Bogor. Regariana CM. 2006.Geografi Untuk Kelas X. Jakarta :Phibeta Aneka Gama Rosadi R. 2010. Sistem informasi perikanan di PPN Pelabuhan Ratu Sukabumi Jawa Barat [Skripsi]. Bogor: Mayor Teknologi dan manajemen Perikanan Tangkap, Departemen Pemanfaatan Sumberdaya Perikanan, Fakultas Perikanan dan Ilmu Kelautan, Institut Pertanian Bogor. Seyhan E. 1990.Dasar-Dasar Hidrologi. Yogyakarta: Gadjah Mada University Press. SihiteJ. 2001. Evaluasi Dampak Erosi Tanah Model Pendekatan Ekonomi Lingkungan dalam Perlindungan DAS : Kasus Sub-DAS Besai – DAS Tulang Bawang, Lampung. Http:www.worldagroforestrycenter.orgq=eval Asidampak erosi tanah&ei [23 Juni 2012] Sutabri T. 2004. Analisa Sistem Informasi. Yogyakarta : ANDI Yogyakarta. Suyatno. 2003. Microsoft Access 2000 Fundamental. Bogor : Training Database and Networking Biodiversity. National Biodiversity Information NetworkLIPI. .
83
LAMPIRAN
Lampiran 1 Struktur Database Tabel Curah Hujan Harian Field
Type
FieldSize
Keterangan
id
Text
255
Kode Tanggal
Id_bulan
Text
255
Kode Bulan
Tanggal
Date/Time
-
Tanggal
Curah Hujan (mm)
Number
Double
Curah Hujan Harian
Field
Type
FieldSize
Keterangan
Tanggal
Date/Time
-
Tanggal
Kecepatan Angin
Number
Double
Kecepatan Angin
Sudut Angin
Text
255
Sudut Angin
Arah Angin
Text
255
Arah Angin
Field
Type
FieldSize
Keterangan
Tanggal
Date/Time
-
Tanggal
Tinggi Muka Air
Number
Double
Tinggi Muka Air
Debit
Number
Double
Debit
Tabel Angin
Tabel Debit
diperoleh
memasukkan
TMA
dengan ke
Persamaan Rating Curve
Tabel Debit SCS-CN Field
Type
FieldSize
Keterangan
Kode Laporan
Text
255
Kode Laporan
Nama Pengguna
Text
255
Nama Pengguna
Lokasi Penelitian
Text
255
Lokasi Penelitian
Jenis Tanah
Text
255
Jenis Tanah
Hidrologi Text
255
Kondisi Hidrologi Penggunaan
255
Lahan
Kondisi
Penggunaan Lahan
Text
84
Perlakuan Areal
Text
255
Perlakuan Areal
Penggunaan Areal
Text
255
Penggunaan Areal
Nilai CN
Number
Double
Nilai Kurva Number
Storage
Number
Double
Penyimpanan/Retensi
Curah Hujan Harian
Number
Double
Curah Hujan Harian
Debit
Number
Double
Debit
Luas DAS (Ha)
Number
Double
Luas DAS
WaktuPuncak (Jam)
Number
Double
Waktu Puncak
Debit Puncak
Number
Double
Debit Puncak
FieldSize
Keterangan
Penilaian
Terhadap Memo
DAS
Tabel Infiltrasi Field
Type
Tanggal
Date/Time
Jenis Tanah
Text
255
Jenis Tanah
Tutupan Lahan
Text
255
Tutupan Lahan
Tekstur Tanah
Tex
255
Tekstur Tanah
Curah Hujan (mm)
Number
Double
Curah Hujan Harian (mm)
Laju Infiltrasi
Number
Double
Laju Infiltrasi (mm/.jam)
Field
Type
FieldSize
Keterangan
Tanggal
Date/Time
-
Tanggal
Curah Hujan Harian
Number
Double
Curah Hujan Harian
Stemflow
Number
Double
Stemflow
Throughfall
Number
Double
Throughfall
Intersepsi (mm)
Number
Double
Intersepsi
Penutupan lahan
Text
255
Penutupan lahan
Tanggal
Tabel Intersepsi
85
Tabel karakteristik tanah Field
Type
FieldSize
Keterangan
Id
Text
255
ID jenis tanah
Jenis Tanah
Text
255
Jenis tanah
Tekstur
Text
255
Tekstur
Struktur
Text
255
Struktur
Bahan Organik
Text
255
Bahan Organik
Permeabilitas
Text
255
Permeabilitas
Kelas Kepekaan Tanah Text
255
Kelas Kepekaan Tanah
Tabel Kelembaban Field
Type
FieldSize
Keterangan
Tanggal
Date/Time
-
Tanggal
Kelembaban (%)
Number
Double
Kelembaban Relatif
Tabel Tabel kelembagaan Petani Field
Type
FieldSize
Keterangan
No
Number
Double
No urut
Kelompok Tani
Text
255
Nama Kelompok Tani
Desa
Text
255
Nama Desa
Kecamatan
Text
255
Nama Kecamatan
Tabel Kelompok Petani 2 Field
Type
FieldSize
Keterangan
No
Number
Double
No kelompok
Kel Pendidikan
Text
255
Pendidikan
id_Kel Pendidikan
Text
255
Kode Pendidikan
Ket
Memo
Keterangan Kelompok Tani
Tabel Kelompok Petani Pemberdayaan Pemerintah Field
Type
FieldSize
Keterangan
Tahun
Text
255
Tahun pemberdayaan
Kel Tani
Text
255
Jenis Petani
Jumlah Dana
Number
Double
Jumlah Bantuan dana
86
Tabel Kelompok Tani Pemberdayaan HPGW Field
Type
FieldSize
Keterangan
Tahun Kel Petani Jumlah Dana
Text Text Text
255 255 255
Tahun pemberdayaan Kelompok Petani jumlah Bantuan Dana
Field
Type
FieldSize
Keterangan
Tahun
Text
255
Tahun pendataan
Nama Desa
Text
255
Nama Desa
Jumlah
Number
Double
Jumlah Petani
Field
Type
FieldSize
Keterangan
Tahun
Text
255
Tahun Pendataan
Id Pendidikan
Text
255
Kode Pendidikan
Jumlah
Text
255
Jumlah
Tabel Petani 1
Tabel Petani 2
Petani
berdasarkan
pengelompokan pendidikan
Tabel Satwa dan Flora Field
Type
FieldSize
Keterangan
No
Text
255
Nomor urut
Kategori SD
Text
255
Kategori Sumber daya
Nama Ilmiah
Text
255
Nama Ilmiah
Nama Indonesia
Text
255
Nama Indonesia
Filum
Text
255
Filum
Kelas
Text
255
Kelas
Ordo
Text
255
Ordo
Famili
Text
255
Family
Genus
Text
255
Genus
Species
Text
255
Species
Sumber Taksonomi
Text
255
Sumber taksonomi
Perilaku
Memo
Perilaku
Penyebaran
Memo
penyebaran
87
Tabel Tabel Daftar Kata Field
Type
FieldSize
Keterangan
Id_kata
Text
255
Kode Kata
Kata
Text
255
Kata
Arti Kata
Memo
Keterangan Arti Kata
Tabel Tabel Password Field
Type
FieldSize
Keterangan
no
Text
255
Nomor urut
Username
Text
255
Id Pengguna
Password
Text
255
Kata Sandi
Field
Type
FieldSize
Keterangan
Id_buku
Text
255
Kode Buku
Jenis Buku
Text
255
Jenis Buku
Judul
Memo
-
Judul buku
Penulis
Text
255
Penulis
Penerbit
Memo
-
Penerbit
Tahun Terbit
Text
255
Tahun Terbit
Tempat Terbit
Text
255
Tempat terbit
Jumlah Halaman
Text
255
Jumlah Halaman
Field
Type
FieldSize
Keterangan
tanggal
Date/Time
Tekanan Udara
Number
Double
Tekanan Udara
id
Text
255
kode harian
Id_bulan
Text
255
Kode bulan
Tabel Referensi
Tabel Tekanan Harian Tanggal
88
Lampiran 2 List Coding Aplikasi Module Global db As Connection Global rs As Recordset Global rs1 As New Recordset Public data As AdoDB.Connection Public kunciuser As String Public kunLP As String Option Explicit Public Sub bukadatabase() Set data = New AdoDB.Connection With data .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = App.path & "\" & "data\databaseSIH_PDAS.mdb" .CursorLocation = adUseClient .Open End With End Sub Sub main() Set db = New Connection db.CursorLocation = adUseClient db.Open "dbSIMDAS" Form1.Show End Sub Module Peta Option Explicit Public Function ReturnDataPath(dataDir As String) As String Dim sPath As String Dim iLastPos As Integer sPath = App.path iLastPos = InStrL(sPath, "\") ReturnDataPath = Left(sPath, iLastPos) + "..\Data\" + dataDir End Function Public Function InStrL(inString As String, srchString As String) As Integer Dim iLastPos As Integer 'Set to 0 on initialization If Len(srchString) Then Dim iCurPos As Integer Do iLastPos = iCurPos iCurPos = InStr(iCurPos + 1, inString, srchString, vbTextCompare) ….Selengkapnya dapat dilihat dalam buku 2 (dalam bentuk softcopy)
89
Lampiran 3 Petunjuk Aplikasi SIH-PDAS Form Login 1) Untuk masuk sebagai pengguna klik tombol USER pada layar.
2) Jika masuk sebagai user maka layanan untuk manajemen data tidak bisa di akses 3) Untuk masuk sebagai admin klik tombol ADMIN pada tampilan menu. Masuk sebagai administrasi maka layanan manajemen data akan bisa tersedia.
4) Masukan Nama Pengguna dan Kata Sandi kemudian tekan tombol OK. 5) Jika ingin mengganti nama pengguna dan kata sandi klik Ganti Kata Sandi kemudian masukan nama pengguna nama pengguna, kata santi yang lama dan kata sandi yang baru. 6) Untuk membatalkan klik tombol Batal
90
Menu Profil HPGW 1) Klik tombol Profil HPGW
pada bagian kiri atas layar untuk
masuk pada menu profil HPGW dan Menu Profil HPGW terdiri dari 5 sub menu yaitu, visi misi dan sejarah kawasan, karakteristik biologi, karakteristik fisik, sosial ekonomi dan manajemen lahan..
2) Untuk masuk ke sub menu visi misi dan sejarah kawasan klik tombol . Sub menu ini terdiri atas dua bagian, yaitu informasi mengenai sejarah dan visi misi HPGW. Informasi yang ditampilkan dapat dilihat pada layar tampilan. Untuk melihat data Selanjutnya klik tombol pada layar.
91
3) Untuk masuk ke sub menu karakteristik biologi klik tombol karakteristik biologi
. Sub menu ini terdiri atas dua bagian, yaitu
inforamsi flora dan fauna. Untuk menampilkan data dan informasi silahkan pilih optional data berdasarkan
Nama Indonesia dan Nama Ilmiah.
Informasi yang ditampilkan dapat dilihat pada layar tampilan. Untuk melihat data Selanjutnya klik tombol
pada layar. Untuk melakukan
pembuatan laporan klik tombol laporan taksonomi dan peta penyebaran klik tombol
, untuk melihat data pada layar,
sedangkan untuk melihat penyebaran khusus tegakan klik tombol tegakan .
4) Tampilan taksonomi dan peta sebaran flora dan fauna:
92
5) Untuk memperbesar peta klik tombol menggeser peta klik tombol
, memperkecil klik tombol
, memperbesar ke ukuran penuh klik tombol
, dan untuk melihat info bagian peta klik tombol pada tampilan sebelumnya klik tombol
. Jika ingin kembali
.
6) Tampilan laporan adalah:
7) Mencetak data ke Printer Klik tombol
, mengeksport data klik tombol
. 8) Untuk masuk ke sub menu karakteristik fisik klik tombol pada bagian atas layar. Untuk melihat informasi tanah, iklim, geologi, hidrologi dan topografi pilih tombol:
9) Tampilan informasi untuk sub menu karakteristik fisik bagian tanah sebagai berikut:
93
. 10) Informasi karakteriktik tanah dapat dilihat dengan mengklik tombol karakteristik tanah
. Informasi peta dan sebaran tanah di HPGW
dapat dilihat dengan mengklik tombol peta sebaran tanah di HPGW . Pembuatan laporan untuk karakteristik fisik bagian tanah ini dapat dilakukan dengan mengklik tombol laporan Printer Klik tombol
. Mencetak data ke
, mengeksport data klik tombol
. Tampilan
laporannya adalah:
11) Tampilan informasi untuk sub menu karakteristik fisik bagian iklim sebagai berikut:
94
12) Informasi karakteriktik iklim HPGW dapat dilihat dengan mengklik tulisan pada layar, yaitu:
13) Informasi curah hujan di HPGW dapat dilihat dengan mengklik tulisan curah hujan
. Tampilan informasi curah hujan terdiri dari
empat bagian yaitu, teori, stasiun cuaca HPGW, data curah hujan HPGW, dan Grafik Curah hujan HPGW. Informasi tersebut ditampilkan dengan dengan cara mengklik tombol
yang
ada pada layar. Data mengenai stasiun pengamatan curah hujan atau cuaca di Hutan Pendidikan Gunung Walat (HPGW) dapat ditampilkan dengan mengklik tombol
. Pemilihan informasi pada tipe data data curah
hujan dapat dilakukan dengan mengklik combo box dan memilih salah satu kriteria yang tertera pada combo box. Combo box tersebut sebagai berikut:
95
. Grafik atau laporan mengenai data curah hujan di HPGW dibagi dalam 3 kriteria, yaitu grafik curah hujan harian, grafik curah hujan bulanan, dan grafik curah hujan harian/15 menit. Tampilan informasi ini dapat didapatkan dengan
mengklik
tombol
. Contoh laporan curah hujan:
14) Informasi suhu udara di HPGW dapat dilihat dengan mengklik tulisan suhu udara
. Tampilan informasi suhu udara terdiri dari empat
bagian yaitu, teori, stasiun cuaca HPGW, data suhu HPGW, dan Grafik suhu HPGW. Informasi tersebut ditampilkan dengan dengan mengklik tombol yang ada pada layar. Data mengenai stasiun pengamatan suhu atau cuaca di Hutan Pendidikan Gunung Walat (HPGW) dapat ditampilkan dengan mengklik tombol
. Pemilihan informasi pada tipe data suhu udara
dapat dilakukan dengan mengklik combo box dan memilih salah satu kriteria yang tertera pada combo box. Combo box tersebut sebagai berikut:
96
. Grafik atau laporan mengenai data suhu udara di HPGW dibagi dalam 3 kriteria, yaitu grafik suhu udara harian, grafik suhu udara bulanan, dan grafik suhu udara harian/15 menit. Tampilan informasi ini dapat didapatkan dengan
mengklik tombol
. Contoh laporan suhu
udara:
15) Informasi kelembaban udara di HPGW dapat dilihat dengan mengklik tulisan kelembaban udara
. Tampilan informasi
kelembaban terdiri dari empat bagian yaitu, teori, stasiun cuaca HPGW, data kelembaban udara HPGW, dan Grafik kelembaban udara HPGW. Informasi tersebut
ditampilkan
dengan
mengklik
tombol
yang ada pada layar. Data mengenai stasiun pengamatan kelembaban udara atau cuaca di Hutan Pendidikan Gunung Walat (HPGW) dapat ditampilkan dengan mengklik tombol
. Pemilihan informasi pada tipe data
kelembaban udara dapat dilakukan dengan mengklik combo box dan memilih
97
salah satu kriteria yang tertera pada combo box. Combo box tersebut sebagai berikut:
. Grafik atau laporan mengenai data kelembaban udara di HPGW dibagi dalam 3 kriteria, yaitu grafik kelembaban udara harian/15 menit, grafik kelembaban udara harian, dan grafik kelembaban udara tahunan. Tampilan informasi ini
dapat didapatkan dengan mengklik tombol
.
Contoh laporan kelembaban udara:
16) Informasi tekanan udara di HPGW dapat dilihat dengan mengklik tulisan tekanan udara
. Tampilan informasi tekanan udara terdiri
dari empat bagian yaitu, teori, stasiun cuaca HPGW, data tekanan udara HPGW, dan grafik tekanan udara HPGW. Informasi tersebut ditampilkan dengan
mengklik
tombol
yang ada pada layar. Data mengenai stasiun pengamatan tekanan udara atau cuaca di Hutan Pendidikan Gunung Walat (HPGW) dapat ditampilkan dengan mengklik tombol
. Pemilihan informasi pada tipe data
98
tekanan udara dapat dilakukan dengan mengklik combo box dan memilih salah satu kriteria yang tertera pada combo box. Combo box tersebut sebagai berikut:
. Grafik atau laporan mengenai data tekanan udara di HPGW dibagi dalam 3 kriteria, yaitu grafik tekanan udara harian/15 menit, grafik tekanan udara harian, dan grafik tekanan udara tahunan. Tampilan informasi ini dapat
didapatkan dengan mengklik tombol
. Contoh
laporan tekanan udara:
17) Untuk masuk ke sub menu sosial ekonomi klik tombol
.
Sub menu ini terdiri atas tiga bagian informasi, yaitu Pemberdayan ekonomi, profil desa sekitar hutan dan kelompok masyarakat disekitar HPGW.
Informasi tersebut dapat dilihat dengan mengklik tombol yang terdapat pada pojok atas tampilan menu.
99
Menu Hidrologi
1. Klik tombol hidrologi
pada bagian kiri atas layar untuk
masuk pada menu hidrologi dan menu hidrologi terdiri dari 3 sub menu yaitu,sub menu pengertian, sub menu proses-proses dan sub menu neraca air.
2. Untuk masuk ke sub menu pengertian klik tombol pengertian . Sub menu ini sub menu ini memuta informasi mengenai
pengertian
hidrologi
informasinya adalah sebagai berikut:
dan
hidrologi
hutan.
Tampilan
100
3. sub
menu
proses-proses
ditampilkan
dengan
mengklik
tombol
. sub menu proses-proses terdiri atas beberapa bagian yaitu; presipitasi, intersepsi, infiltrasi, evapotranspirasi, stemflow dan throughfall. Ke 6 bagian ini dapat ditampilkan dengan
mengklik tombol
.
4. Untuk tampilan Informasi presipitasi/curah hujan di HPGW dapat dilihat dengan mengklik tulisan presipitasi
. Tampilan informasi
curah hujan terdiri dari empat bagian yaitu, teori, stasiun cuaca HPGW, data curah hujan HPGW, dan Grafik Curah hujan HPGW. Informasi tersebut
ditampilkan
dengan
dengan
cara
mengkliktombol
yang ada pada layar. Data mengenai stasiun pengamatan curah hujan atau cuaca di Hutan Pendidikan Gunung Walat (HPGW) dapat ditampilkan dengan mengklik tombol
. Pemilihan informasi pada tipe data data curah hujan
dapat dilakukan dengan mengklik combo box dan memilih salah satu kriteria yang tertera pada combo box. Combo box tersebut sebagai berikut:
5.
.
6. Grafik atau laporan mengenai data curah hujan di HPGW dibagi dalam 3 kriteria, yaitu grafik curah hujan harian, grafik curah hujan bulanan, dan grafik curah hujan harian/15 menit. Tampilan informasi ini dapat didapatkan dengan mengklik tombol
. Contoh laporan curah
101
hujan:
7. Untuk tampilan informasi intersepsi dapat dilakukan dengan mengklik tombol dengan tulisan intersepsi
. Informasi
intersepsi meliputi teori intersepsi dan database intersepsi di HPGW. Tampilan informasi teori intersepsi adalah sebagai berikut:
Database intersepsi di HPGW dapat ditampilkan dengan mengklik tombol . Tampilan informasi database intersepsi HPGW adalah sebagai berikut:
102
8. Untuk tampilan informasi infiltrasi dapat dilakukan dengan mengklik tombol dengan tulisan infiltrasi
. Informasi
infiltrasi meliputi teori infiltrasi dan database infiltrasi di HPGW. Tampilan informasi teori infiltrasi adalah sebagai berikut:
Database infiltrasi di HPGW dapat ditampilkan dengan mengklik tombol . Tampilan informasi database infiltrasi HPGW adalah sebagai berikut:
103
9. Untuk tampilan informasi stemflow dapat dilakukan dengan mengklik tombol dengan tulisan stemflow
. Informasi stemflow
meliputi teori stemflow dan database stemflow di HPGW. Tampilan informasi teori stemflow adalah sebagai berikut:
Database stemflow di HPGW dapat ditampilkan dengan mengklik tombol . Tampilan informasi database stemflow HPGW adalah sebagai berikut:
BUKU 2 LAMPIRAN 3 LIST CODING APLIKASI (Menggunakan Bahasa Pemograman Visual Basic 6.0)
DAFTAR ISI Module…………………………………………………………………………………………………..4 Module Peta ........................................................................................................................................... 4 Form Login………….. ......................................................................................................................... 12 Form Profil HPGW .............................................................................................................................. 16 Form erosi USLE ................................................................................................................................. 46 Form Cetak Erosi ................................................................................................................................. 61 Form Debit SCS ................................................................................................................................... 62 Form cetak debit................................................................................................................................. 165 Form Menu Awal ............................................................................................................................... 166 Form Curah Hujan.............................................................................................................................. 170 Form Suhu… ...................................................................................................................................... 182 Form Kelembaban .............................................................................................................................. 190 Form Tanah. ....................................................................................................................................... 200 Form Sosia.l ....................................................................................................................................... 202 Form Hidrologi .................................................................................................................................. 212 Form Intersepsi .................................................................................................................................. 216 Form Infiltrasi .................................................................................................................................... 223 Form Stemflow .................................................................................................................................. 229 Form Erosi Sedimentasi...................................................................................................................... 235 Form Pemetaan .................................................................................................................................. 242 Form Legenda Peta............................................................................................................................. 261 Form Referensi ................................................................................................................................... 268 Form info… ....................................................................................................................................... 272 Form manajemen data Profil HPGW................................................................................................... 272 Form Manajemen Data Hidrologi ....................................................................................................... 289 Form Manajemen Data Erosi Sedimentasi........................................................................................... 289
Module Global db As Connection Global rs As Recordset Global rs1 As New Recordset Public data As AdoDB.Connection Public kunciuser As String Public kunLP As String Option Explicit Public Sub bukadatabase() Set data = New AdoDB.Connection With data .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = App.path & "\" & "data\databaseSIH_PDAS.mdb" .CursorLocation = adUseClient .Open End With End Sub Sub main() Set db = New Connection db.CursorLocation = adUseClient db.Open "dbSIMDAS" Form1.Show End Sub Module Peta Option Explicit Public Function ReturnDataPath(dataDir As String) As String Dim sPath As String Dim iLastPos As Integer sPath = App.path iLastPos = InStrL(sPath, "\") ReturnDataPath = Left(sPath, iLastPos) + "..\Data\" + dataDir End Function Public Function InStrL(inString As String, srchString As String) As Integer Dim iLastPos As Integer 'Set to 0 on initialization If Len(srchString) Then Dim iCurPos As Integer Do iLastPos = iCurPos iCurPos = InStr(iCurPos + 1, inString, srchString, vbTextCompare)
Loop Until iCurPos = 0 End If InStrL = iLastPos End Function Public Function ConnectErrorMsg(errNum As Integer) As String Select Case errNum Case moNoError: ConnectErrorMsg = "No Error" Case moUnknownError:ConnectErrorMsg = "Unknown error" Case moAccessDenied: ConnectErrorMsg = "Access denied" Case moInvalidUser: ConnectErrorMsg = "Invalid user" Case moNetworkTimeout: ConnectErrorMsg = "Network timeout" Case moInvalidDatabase: ConnectErrorMsg = "Invalid database" Case moTasksExceeded: ConnectErrorMsg = "Tasks exceeded" Case moFileNotFound: ConnectErrorMsg = "File not found" Case moInvalidDirectory: ConnectErrorMsg = "Invalid directory" Case moHostUnknown: ConnectErrorMsg = "Unknown host" Case moSE_FAILURE: ConnectErrorMsg = "Unspecified SDE error." Case moSE_INVALID_LAYERINFO_OBJECT: ConnectErrorMsg = "LAYERINFO pointer not initialized." Case moSE_NO_ANNOTATION: ConnectErrorMsg = "The given shape has no annotation" Case moSE_FINISHED: ConnectErrorMsg = "STREAM LOADING OF SHAPES FINISHED" Case moSE_SDE_NOT_STARTED: ConnectErrorMsg = "SDE NOT STARTED CANNOT PERFORM FUNCTION" Case moSE_UNCHANGED: ConnectErrorMsg = "THE SPECIFIED SHAPE WAS LEFT UNCHANGED" Case moSE_CONNECTIONS_EXCEEDED: ConnectErrorMsg = "THE NUMBER OF SERVER CONNECTIONS IS @ MAXIMUM" Case moSE_LOGIN_NOT_ALLOWED: ConnectErrorMsg = "IOMGR NOT ACCEPTING CONNECTION REQUESTS" Case moSE_INVALID_USER: ConnectErrorMsg = "CANNOT VALIDATE THE SPECIFIED USER AND PASSWORD" Case moSE_NET_FAILURE: ConnectErrorMsg = "NETWORK I/O OPERATION FAILED" Case moSE_NET_TIMEOUT: ConnectErrorMsg = "NETWORK I/O TIMEOUT" Case moSE_OUT_OF_SVMEM: ConnectErrorMsg = "SERVER TASK CANNOT ALLOCATE NEEDED MEMORY" Case moSE_OUT_OF_CLMEM: ConnectErrorMsg = "CLIENT TASK CANNOT ALLOCATE NEEDED MEMORY" Case moSE_OUT_OF_CONTEXT: ConnectErrorMsg = "FUNCTION CALL IS OUT OF CONTEXT" Case moSE_NO_ACCESS: ConnectErrorMsg = "NO ACCESS TO OBJECT" Case moSE_TOO_MANY_LAYERS: ConnectErrorMsg = "Exceeded max_layers in giomgr.defs." Case moSE_NO_LAYER_SPECIFIED: ConnectErrorMsg = "MISSING LAYER SPECIFICATION"
Case moSE_LAYER_LOCKED: ConnectErrorMsg = "SPECIFIED LAYER IS LOCKED" Case moSE_LAYER_EXISTS: ConnectErrorMsg = "SPECIFIED LAYER ALREADY EXISTS" Case moSE_LAYER_NOEXIST: ConnectErrorMsg = "SPECIFIED LAYER DOES NOT EXIST" Case moSE_LAYER_INUSE: ConnectErrorMsg = "SPECIFIED LAYER IS USE BY ANOTHER USER" Case moSE_FID_NOEXIST: ConnectErrorMsg = "SPECIFIED SHAPE (LAYER FID) DOESN'T EXIST" Case moSE_FID_EXISTS: ConnectErrorMsg = "SPECIFIED SHAPE (LAYER FID) EXISTS" Case moSE_LAYER_MISMATCH: ConnectErrorMsg = "Both layers must be the same for this" Case moSE_NO_PERMISSIONS: ConnectErrorMsg = "NO PERMISSION TO PERFORM OPERATION" Case moSE_INVALID_NOT_NULL: ConnectErrorMsg = "COLUMN HAS NOT NULL CONSTRAINT." Case moSE_INVALID_SHAPE: ConnectErrorMsg = "INVALID SHAPE CANNOT BE VERIFIED" Case moSE_INVALID_LAYER_NUMBER: ConnectErrorMsg = "MAP LAYER NUMBER OUT OF RANGE" Case moSE_INVALID_ENTITY_TYPE: ConnectErrorMsg = "INVALID ENTITY TYPE" Case moSE_INVALID_SEARCH_METHOD: ConnectErrorMsg = "INVALID SEARCH METHOD" Case moSE_INVALID_ETYPE_MASK: ConnectErrorMsg = "INVALID ENTITY TYPE MASK" Case moSE_BIND_CONFLICT: ConnectErrorMsg = "BIND/SET/GET MIS-MATCH" Case moSE_INVALID_GRIDSIZE: ConnectErrorMsg = "INVALID GRID SIZE" Case moSE_INVALID_LOCK_MODE: ConnectErrorMsg = "INVALID LOCK MODE" Case moSE_ETYPE_NOT_ALLOWED: ConnectErrorMsg = "ENTITY TYPE OF SHAPE IS NOT ALLOWED IN LAYER" Case moSE_TOO_MANY_POINTS: ConnectErrorMsg = "Exceeded max points specified." Case moSE_TABLE_NOEXIST: ConnectErrorMsg = "DBMS TABLE DOES NOT EXIST" Case moSE_ATTR_NOEXIST: ConnectErrorMsg = "SPECIFIED ATTRIBUTE COLUMN DOESN'T EXIST" Case moSE_LICENSE_FAILURE: ConnectErrorMsg = "Underlying license manager problem." Case moSE_OUT_OF_LICENSES: ConnectErrorMsg = "No more SDE licenses available." Case moSE_INVALID_COLUMN_VALUE: ConnectErrorMsg = "VALUE EXCEEDS VALID RANGE" Case moSE_INVALID_WHERE: ConnectErrorMsg = "USER SPECIFIED WHERE CLAUSE IS INVALID" Case moSE_INVALID_SQL: ConnectErrorMsg = "USER SPECIFIED SQL CLAUSE IS INVALID" Case moSE_LOG_NOEXIST: ConnectErrorMsg = "SPECIFIED LOG FILE DOES NOT EXIST" Case moSE_LOG_NOACCESS: ConnectErrorMsg = "UNABLE TO ACCESS SPECIFIED LOGFILE"
Case moSE_LOG_NOTOPEN: ConnectErrorMsg = "SPECIFIED LOGFILE IS NOT OPEN FOR I/O" Case moSE_LOG_IO_ERROR: ConnectErrorMsg = "I/O ERROR USING LOGFILE" Case moSE_NO_SHAPES: ConnectErrorMsg = "NO SHAPES SELECTED OR USED IN OPERATION" Case moSE_NO_LOCKS: ConnectErrorMsg = "NO LOCKS DEFINED" Case moSE_LOCK_CONFLICT: ConnectErrorMsg = "LOCK REQUEST CONFLICTS W/ ANOTHER ESTABLISHED LOCK" Case moSE_OUT_OF_LOCKS: ConnectErrorMsg = "MAXIMUM LOCKS ALLOWED BY SYSTEM ARE IN USE" Case moSE_DB_IO_ERROR: ConnectErrorMsg = "DATABASE LEVEL I/O ERROR OCCURRED" Case moSE_STREAM_IN_PROGRESS: ConnectErrorMsg = "SHAPE/FID STREAM NOT FINISHED CAN'T EXECUTE" Case moSE_INVALID_COLUMN_TYPE: ConnectErrorMsg = "INVALID COLUMN DATA TYPE" Case moSE_TOPO_ERROR: ConnectErrorMsg = "TOPOLOGICAL INTEGRITY ERROR" Case moSE_ATTR_CONV_ERROR: ConnectErrorMsg = "ATTRIBUTE CONVERSION ERROR" Case moSE_INVALID_COLUMN_DEF: ConnectErrorMsg = "INVALID COLUMN DEFINITION" Case moSE_INVALID_SHAPE_BUF_SIZE: ConnectErrorMsg = "INVALID SHAPE ARRAY BUFFER SIZE" Case moSE_INVALID_ENVELOPE: ConnectErrorMsg = "ENVELOPE IS NULL, HAS NEGATIVE VALUES OR MIN > MAX" Case moSE_TEMP_IO_ERROR: ConnectErrorMsg = "TEMP FILE I/O ERROR, CAN'T OPEN OR RAN OUT OF DISK" Case moSE_GSIZE_TOO_SMALL: ConnectErrorMsg = "SPATIAL INDEX GRID SIZE IS TOO SMALL" Case moSE_LICENSE_EXPIRED: ConnectErrorMsg = "SDE RUN-TIME LICENSE HAS EXPIRED, NO LOGINS ALLOWED" Case moSE_TABLE_EXISTS: ConnectErrorMsg = "DBMS TABLE EXISTS" Case moSE_INDEX_EXISTS: ConnectErrorMsg = "INDEX WITH THE SPECIFIED NAME ALREADY EXISTS" Case moSE_INDEX_NOEXIST: ConnectErrorMsg = "INDEX WITH THE SPECIFIED NAME DOESN'T EXIST" Case moSE_INVALID_POINTER: ConnectErrorMsg = "SPECIFIED POINTER VALUE IS NULL OR INVALID" Case moSE_INVALID_PARAM_VALUE: ConnectErrorMsg = "SPECIFIED PARAMETER VALUE IS INVALID" Case moSE_ALL_SLIVERS: ConnectErrorMsg = "SLIVER FACTOR CAUSED ALL RESULTS TO BE SLIVERS" Case moSE_TRANS_IN_PROGRESS: ConnectErrorMsg = "USER SPECIFIED TRANSACTION IN PROGRESS" Case moSE_IOMGR_NO_DBMS_CONNECT: ConnectErrorMsg = "The iomgr has lost its connection to the underlying DBMS."
Case moSE_DUPLICATE_ARC: ConnectErrorMsg = "AN ARC (startpt, midpt, endpt) ALREADY EXISTS" Case moSE_INVALID_ANNO_OBJECT: ConnectErrorMsg = "SE_ANNO pointer not initialized." Case moSE_PT_NO_EXIST: ConnectErrorMsg = "SPECIFIED POINT DOESN'T EXIST IN FEAT" Case moSE_PTS_NOT_ADJACENT: ConnectErrorMsg = "SPECIFIED POINTS MUST BE ADJACENT" Case moSE_INVALID_MID_PT: ConnectErrorMsg = "SPECIFIED MID POINT IS INVALID" Case moSE_INVALID_END_PT: ConnectErrorMsg = "SPECIFIED END POINT IS INVALID" Case moSE_INVALID_RADIUS: ConnectErrorMsg = "SPECIFIED RADIUS IS INVALID" Case moSE_LOAD_ONLY_LAYER: ConnectErrorMsg = "MAP LAYER IS LOAD ONLY MODE OPERATION NOT ALLOWED" Case moSE_LAYERS_NOT_FOUND: ConnectErrorMsg = "LAYERS TABLE DOES NOT EXIST." Case moSE_FILE_IO_ERROR: ConnectErrorMsg = "Error writing or creating an output text file." Case moSE_BLOB_SIZE_TOO_LARGE: ConnectErrorMsg = "Maximum BLOB size exceeded." Case moSE_CORRIDOR_OUT_OF_BOUNDS: ConnectErrorMsg = "Resulting corridor exceeds valid coordinate range" Case moSE_SHAPE_INTEGRITY_ERROR: ConnectErrorMsg = "MODEL INTEGRITY ERROR" Case moSE_NOT_IMPLEMENTED_YET: ConnectErrorMsg = "Function or option is not really written yet." Case moSE_CAD_EXISTS: ConnectErrorMsg = "This shape has a cad." Case moSE_INVALID_TRANSID: ConnectErrorMsg = "Invalid internal SDE Transaction ID." Case moSE_INVALID_LAYER_NAME: ConnectErrorMsg = "MAP LAYER NAME MUST NOT BE EMPTY" Case moSE_INVALID_LAYER_KEYWORD: ConnectErrorMsg = "Invalid Layer Configuration Keyword used." Case moSE_INVALID_RELEASE: ConnectErrorMsg = "Invalid Release/Version of SDE server." Case moSE_VERSION_TBL_EXISTS: ConnectErrorMsg = "VERSION table exists." Case moSE_COLUMN_NOT_BOUND: ConnectErrorMsg = "Column has not been bound" Case moSE_INVALID_INDICATOR_VALUE: ConnectErrorMsg = "Indicator variable contains an invalid value" Case moSE_INVALID_CONNECTION: ConnectErrorMsg = "The connection handle is NULL closed or the wrong object." Case moSE_INVALID_DBA_PASSWORD: ConnectErrorMsg = "The DBA password is not correct." Case moSE_PATH_NOT_FOUND: ConnectErrorMsg = "Coord path not found in shape edit op." Case moSE_SDEHOME_NOT_SET: ConnectErrorMsg = "No $SDEHOME variable set and we need one."
Case moSE_NOT_TABLE_OWNER: ConnectErrorMsg = "User must be table owner." Case moSE_PROCESS_NOT_FOUND: ConnectErrorMsg = "The process ID specified does not correspond on an SDE server." Case moSE_INVALID_DBMS_LOGIN: ConnectErrorMsg = "DBMS didn't accept user/password." Case moSE_PASSWORD_TIMEOUT: ConnectErrorMsg = "Password received was sent > MAXTIMEDIFF seconds before." Case moSE_INVALID_SERVER: ConnectErrorMsg = "Server machine was not found" Case moSE_IOMGR_NOT_AVAILABLE: ConnectErrorMsg = "IO Mgr task not started on server" Case moSE_SERVICE_NOT_FOUND: ConnectErrorMsg = "No SDE entry in the /etc/services file" Case moSE_INVALID_STATS_TYPE: ConnectErrorMsg = "Tried statisitics on non-numeric" Case moSE_INVALID_DISTINCT_TYPE: ConnectErrorMsg = "Distinct stats on invalid type" Case moSE_INVALID_GRANT_REVOKE: ConnectErrorMsg = "Invalid use of grant/revoke function" Case moSE_INVALID_SDEHOME: ConnectErrorMsg = "The supplied SDEHOME path is invalid or NULL." Case moSE_INVALID_STREAM: ConnectErrorMsg = "Stream does not exist" Case moSE_TOO_MANY_STREAMS: ConnectErrorMsg = "Max number of streams exceeded" Case moSE_OUT_OF_MUTEXES: ConnectErrorMsg = "Exceeded system's max number of mutexs." Case moSE_CONNECTION_LOCKED: ConnectErrorMsg = "This connection is locked to a different thread." Case moSE_CONNECTION_IN_USE: ConnectErrorMsg = "This connection is being used at the moment by another thread." Case moSE_NOT_A_SELECT_STATEMENT: ConnectErrorMsg = "The SQL statement was not a select" Case moSE_FUNCTION_SEQUENCE_ERROR: ConnectErrorMsg = "Function called out of sequence" Case moSE_WRONG_COLUMN_TYPE: ConnectErrorMsg = "Get request on wrong column type" Case moSE_PTABLE_LOCKED: ConnectErrorMsg = "This ptable is locked to a different thread." Case moSE_PTABLE_IN_USE: ConnectErrorMsg = "This ptable is being used at the moment by another thread." Case moSE_STABLE_LOCKED: ConnectErrorMsg = "This stable is locked to a different thread." Case moSE_STABLE_IN_USE: ConnectErrorMsg = "This stable is being used at the moment by another thread." Case moSE_INVALID_FILTER_TYPE: ConnectErrorMsg = "Unrecognized spatial filter type." Case moSE_NO_CAD: ConnectErrorMsg = "The given shape has no CAD." Case moSE_INSTANCE_NOT_AVAILABLE: ConnectErrorMsg = "No instance running on server." Case moSE_INSTANCE_TOO_EARLY: ConnectErrorMsg = "Instance is a version previous to 2.0."
Case moSE_INVALID_SYSTEM_UNITS: ConnectErrorMsg = "Systems units < 1 or > 2147483647." Case moSE_INVALID_UNITS: ConnectErrorMsg = "FEET, METERS, DECIMAL_DEGREES or OTHER." Case moSE_INVALID_CAD_OBJECT: ConnectErrorMsg = "SE_CAD pointer not initialized." Case moSE_INVALID_NUM_OF_PTS: ConnectErrorMsg = "No longer issued" Case moSE_INVALID_SPATIAL_CONSTRAINT: ConnectErrorMsg = "Spatial filters invalid for search" Case moSE_INVALID_STREAM_TYPE: ConnectErrorMsg = "Invalid operation for the given stream" Case moSE_INVALID_SPATIAL_COLUMN: ConnectErrorMsg = "Column contains NOT NULL values during SE_layer_create()" Case moSE_NO_SPATIAL_MASKS: ConnectErrorMsg = "No spatial masks available." Case moSE_IOMGR_NOT_FOUND: ConnectErrorMsg = "Iomgr program not found." Case moSE_SYSTEM_IS_CLIENT_ONLY: ConnectErrorMsg = "Operation can not possibly be run on this system -- it needs a server." Case moSE_MULTIPLE_SPATIAL_COLS: ConnectErrorMsg = "Only one spatial column allowed" Case moSE_INVALID_SHAPE_OBJECT: ConnectErrorMsg = "The given shape object handle is invalid" Case moSE_INVALID_PARTNUM: ConnectErrorMsg = "The specified shape part number does not exist" Case moSE_INCOMPATIBLE_SHAPES: ConnectErrorMsg = "The given shapes are of incompatible types" Case moSE_INVALID_PART_OFFSET: ConnectErrorMsg = "The specified part offset is invalid" Case moSE_INCOMPATIBLE_COORDREFS: ConnectErrorMsg = "The given coordinate references are incompatible" Case moSE_COORD_OUT_OF_BOUNDS: ConnectErrorMsg = "The specified coordinate exceeds the valid coordinate range" Case moSE_LAYER_CACHE_FULL: ConnectErrorMsg = "Max. Layers exceeded in cache" Case moSE_INVALID_COORDREF_OBJECT: ConnectErrorMsg = "The given coordinate reference object handle is invalid" Case moSE_INVALID_COORDSYS_ID: ConnectErrorMsg = "The coordinate system identifier is invalid" Case moSE_INVALID_COORDSYS_DESC: ConnectErrorMsg = "The coordinate system description is invalid" Case moSE_INVALID_ROW_ID_LAYER: ConnectErrorMsg = "SE_ROW_ID owner.table does not match the layer" Case moSE_PROJECTION_ERROR: ConnectErrorMsg = "Error projecting shape points" Case moSE_ARRAY_BYTES_EXCEEDED: ConnectErrorMsg = "Max array bytes exceeded" Case moSE_POLY_SHELLS_OVERLAP: ConnectErrorMsg = "2 donuts or 2 outer shells overlap" Case moSE_TOO_FEW_POINTS: ConnectErrorMsg = "numofpts is less than required for feature"
Case moSE_INVALID_PART_SEPARATOR: ConnectErrorMsg = "part separator in the wrong position" Case moSE_INVALID_POLYGON_CLOSURE: ConnectErrorMsg = "polygon does not close properly" Case moSE_INVALID_OUTER_SHELL: ConnectErrorMsg = "A polygon outer shell does not completely enclose all donuts for the part" Case moSE_ZERO_AREA_POLYGON: ConnectErrorMsg = "Polygon shell has no area" Case moSE_POLYGON_HAS_VERTICAL_LINE: ConnectErrorMsg = "Polygon shell contains a vertical line" Case moSE_OUTER_SHELLS_OVERLAP: ConnectErrorMsg = "Multipart area has overlapping parts" Case moSE_SELF_INTERSECTING: ConnectErrorMsg = "Linestring or poly boundary is selfintersecting" Case moSE_INVALID_EXPORT_FILE: ConnectErrorMsg = "Export file is invalid" Case moSE_READ_ONLY_SHAPE: ConnectErrorMsg = "Attempted to modify or free a readonly shape from an stable." Case moSE_INVALID_DATA_SOURCE: ConnectErrorMsg = "Invalid data source" Case moSE_INVALID_STREAM_SPEC: ConnectErrorMsg = "Stream Spec parameter exceeds giomgr default" Case moSE_INVALID_ALTER_OPERATION: ConnectErrorMsg = "Tried to remove cad or anno" Case moSE_INVALID_SPATIAL_COL_NAME: ConnectErrorMsg = "Spat col name same as table name" Case moSE_INVALID_DATABASE: ConnectErrorMsg = "Invalid database name" Case moSE_SPATIAL_SQL_NOT_INSTALLED: ConnectErrorMsg = "Spatial SQL extension not present in underlying DBMS" Case moSE_NORM_DIM_INFO_NOT_FOUND: ConnectErrorMsg = "Dimention parameters for SDO DIM is not found in the dbtune file" Case moSE_NORM_DIM_TAB_VALUE_NOT_FOUND: ConnectErrorMsg = "Dimention parameters in the M table is corrupted or missing." Case moSE_UNSUPPORTED_NORMALIZED_OPERATION: ConnectErrorMsg = "Current operation is not supported for NORMALIZED LAYERS." Case moSE_INVALID_REGISTERED_LAYER_OPTION: ConnectErrorMsg = "Invalid option REGISTERED LAYERS do not allow this option." Case moSE_READ_ONLY: ConnectErrorMsg = "User has read only access to SE_ROW_ID" Case moSE_SDE_WARNING: ConnectErrorMsg = "BASE NUMBER FOR WARNING CODES" Case moSE_ETYPE_CHANGED: ConnectErrorMsg = "FUNCTION CHANGED ENTITY TYPE OF FEAT" Case moSE_AUTOCOMMITTED: ConnectErrorMsg = "This store/replace triggered an autocommit." Case moSE_TOO_MANY_DISTINCTS: ConnectErrorMsg = "Too many distinct values in stats" Case moSE_NULL_VALUE: ConnectErrorMsg = "Request column value is NULL" Case moSE_NO_ROWS_UPDATED: ConnectErrorMsg = "No rows were updated" Case moSE_NO_CPGCVT: ConnectErrorMsg = "No codepage conversion"
Case moSE_NO_CPGHOME: ConnectErrorMsg = "Cannot find codepage directory" Case moSE_DBMS_DOES_NOT_SUPPORT: ConnectErrorMsg = "DBMS does NOT support this function" Case Else: ConnectErrorMsg = "Unrecognized error" End Select End Function Form Login Private Sub Command1_Click() End End Sub Private Sub Form_Load() Dim topCorner As Integer Dim leftCorner As Integer Dim i As Integer If Form1.WindowState <> 0 Then Exit Sub PicEsri.Picture = LoadPicture(App.path & "\bitmaps\prodc.bmp") topCorner = (Screen.Height - Form1.Height) \ 2 leftCorner = (Screen.Width - Form1.Width) \ 2 Form1.Move leftCorner, topCorner For i = 1 To 3 Load shpshadow(i) shpshadow(i).Visible = True shpshadow(i).ZOrder 1 Next End Sub Private Sub Timer1_Timer() If Label3.Left > -Label3.Width Then Label3.Left = Label3.Left - 100 ElseIf Label3.Left <> Label3.Width Then Label3.Left = Form1.Width - Label3.Width End If End Sub Private Sub cmd_info_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_info_1.Visible = False cmd_info_2.Visible = True End Sub Private Sub cmd_keluar_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_keluar_1.Visible = False cmd_keluar_2.Visible = True
End Sub Private Sub cmd_keluar_2_Click() Unload Me End Sub Private Sub cmd_laporan_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_laporan_1.Visible = False cmd_laporan_2.Visible = True End Sub Private Sub cmd_lingkungan_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_lingkungan_1.Visible = False cmd_lingkungan_2.Visible = True End Sub Private Sub cmd_lingkungan_2_Click() frm3_lingkungan.Show Unload Me End Sub Private Sub cmd_manajemen_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_manajemen_1.Visible = False cmd_manajemen_2.Visible = True End Sub Private Sub cmd_referensi_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_referensi_1.Visible = False cmd_referensi_2.Visible = True End Sub Private Sub cmd_sarana_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_sarana_1.Visible = False cmd_sarana_2.Visible = True End Sub Private Sub cmd_sdi_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_sdi_1.Visible = False cmd_sdi_2.Visible = True End Sub
Private Sub cmd_sosial_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_sosial_1.Visible = False cmd_sosial_2.Visible = True End Sub Private Sub lyrBelakang_menu_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_sdi_1.Visible = True cmd_sdi_2.Visible = False cmd_lingkungan_1.Visible = True cmd_lingkungan_2.Visible = False cmd_sarana_1.Visible = True cmd_sarana_2.Visible = False cmd_sosial_1.Visible = True cmd_sosial_2.Visible = False cmd_manajemen_1.Visible = True cmd_manajemen_2.Visible = False cmd_laporan_1.Visible = True cmd_laporan_2.Visible = False cmd_keluar_1.Visible = True cmd_keluar_2.Visible = False cmd_info_1.Visible = True cmd_info_2.Visible = False cmd_referensi_1.Visible = True cmd_referensi_2.Visible = False End Sub Private Sub jcbutton1_Click() Adodc1.Refresh On Error Resume Next Adodc1.Recordset.Move (0) If Adodc1.Recordset.Fields(1) = Text1.text And Adodc1.Recordset.Fields(2) = Text2.text Then Text2.text = "" progressBar.Show kunciuser = "ADM" Unload Me Exit Sub Else MsgBox "Nama Pengguna atau Kata Sandi salah" Text2.text = "" Text1.SetFocus End If
End Sub Private Sub jcbutton2_Click() Frame1.Visible = False fr_pass.Visible = True bukadatabase On Error Resume Next Adodc1.ConnectionString = data Adodc1.RecordSource = "Tbl_Password" Adodc1.Refresh Adodc1.Recordset.Move (0) Text1.SetFocus End Sub Private Sub user_Click() progressBar.Show kunciuser = "U" Unload Me End Sub Private Sub jcbutton4_Click() On Error Resume Next bukadatabase Adodc2.ConnectionString = data Adodc2.RecordSource = "tbl_password" Adodc2.Refresh Adodc2.Recordset.Move (0) Text3.SetFocus fr_gantisandi.Visible = True Text3.text = "" Text4.text = "" Text5.text = "" fr_pass.Visible = False End Sub Private Sub jcbutton5_Click() fr_pass.Visible = False Frame1.Visible = True End Sub Private Sub jcbutton6_Click() If Text4.text = Adodc1.Recordset.Fields(2) Then If Text3.text <> "" Or Text4.text <> "" Or Text5.text <> "" Then Adodc2.Recordset("Nama_User") = Text3.text Adodc2.Recordset("password") = Text5.text Adodc2.Recordset.Update
MsgBox "Nama pengguna baru dan kata sandi yang anda masukan sudah tersimpan.", vbInformation, "Informasi" fr_gantisandi.Visible = False Frame1.Visible = True End If Exit Sub Else End If End Sub Private Sub jcbutton7_Click() fr_gantisandi.Visible = False fr_pass.Visible = True End Sub Private Sub jcbutton8_Click() Unload Me End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then jcbutton1_Click End If End Sub Form Profil HPGW Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) _ As Long Public kuncimap As String Public kuncilist As String Public g_ActiveLayer As Object Dim conn_mpm As AdoDB.Connection Dim rs_data As New AdoDB.Recordset Dim con_string_mpm As String Dim folder_data As String Dim nama_file As String Dim str_sql As String
Private Sub akhir_Click() sejarah2.Visible = True sejarah.Visible = False End Sub Private Sub awal_Click() pesan = MsgBox("ini sudah halaman yang paling awal", vbOKOnly, "keterangan") End Sub Private Sub back_Click() pesan = MsgBox("ini sudah halaman yang paling awal", vbOKCancel, "keterangan") End Sub Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False Frame6.Visible = False Frame7.Visible = False Frame8.Visible = False Frame14.Visible = False End Sub Private Sub Command10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame14.Visible = False Frame8.Visible = True Frame5.Visible = False Frame6.Visible = False Frame7.Visible = False End Sub Private Sub Command11_Click() goa.Visible = False End Sub Private Sub Command12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = True Frame6.Visible = False Frame7.Visible = False Frame8.Visible = False Frame14.Visible = False End Sub Private Sub cmd_sejarah_Click() Label14.Caption = "Sejarah Kawasan HPGW"
sejarah.Visible = True visi.Visible = False sejarah1.Visible = False sejarah2.Visible = False tanah.Visible = False goa.Visible = False iklim.Visible = False Framedata1.Visible = False Framedata2.Visible = False satwaflora.Visible = False hidrologi.Visible = False topografi.Visible = False End Sub Private Sub Command14_Click() Cr.ReportFileName = App.path & "\tanah.rpt" Cr.WindowState = crptMaximized Cr.RetrieveDataFiles Cr.Action = 0 End Sub Private Sub Command15_Click() Form1.Show Unload Me End Sub Private Sub Command16_Click() Label14.Caption = Command16.Caption End Sub Private Sub Command17_Click() Label14.Caption = Command17.Caption End Sub Private Sub cmd_satwa_Click() Label14.Caption = cmd_satwa.Caption Label14.ForeColor = vbGreen satwaflora.Visible = True visi.Visible = False sejarah.Visible = False sejarah1.Visible = False sejarah2.Visible = False tanah.Visible = False goa.Visible = False iklim.Visible = False Framedata1.Visible = False
Framedata2.Visible = False hidrologi.Visible = False topografi.Visible = False Command64.Visible = False clear lbjdlingkungan.Caption = cmd_flora.Caption lbsubling.Caption = Command8.Caption txtFile.text = "st" ListView1.ListItems.clear Combo2.clear legend1.RemoveAll If opt_nama_indonesia.Value = True Then opt_nama_indonesia_Click ElseIf opt_nama_ilmiah.Value = True Then opt_nama_ilmiah_Click End If End Sub Private Sub Command60_Click() With Framedata2 .Visible = True End With Command34_Click Call petaawall End Sub Private Sub petaawall() Map2.Layers.clear Dim DC As New DataConnection DC.Database = App.path & "\Data\Peta Walat Sukabumi\" If Not DC.Connect Then End Dim layer1 As MapLayer Set layer1 = New MapLayer Set layer1.GeoDataset = DC.FindGeoDataset("bts_walat_utm") layer1.Symbol.color = 4636724 Map2.Layers.Add layer1 End Sub Private Sub Command34_Click() kuncimap = "zoom" Map1.MousePointer = moZoomIn End Sub Private Sub Command61_Click() Cr.ReportFileName = App.path & "\satwa.rpt" Cr.WindowState = crptMaximized
Cr.RetrieveDataFiles Cr.Action = 0 End Sub Private Sub Command62_Click() Framedata2.Visible = False End Sub Private Sub Command63_Click() Label14.Caption = Command63.Caption End Sub Private Sub Command64_Click() With Framedata1 .Visible = True End With clear lbjdlingkungan.Caption = cmd_flora.Caption lbsubling.Caption = Command8.Caption txtFile.text = "tg" 'Image3.Width = lbjdlingkungan.Width + 330 Map1.Layers.clear ListView1.ListItems.clear Combo2.clear legend1.RemoveAll End Sub Private Sub Command65_Click() Framedata1.Visible = False End Sub Private Sub Command66_Click() With Framedata1 .Visible = True End With End Sub Private Sub Command67_Click() tanahh.Show vbModal End Sub Private Sub Label78_Click() ListView1.ListItems.clear Combo2.clear legend1.RemoveAll Map1.Layers.clear
txtFile.text = "das" With Framedata1 .Visible = True End With End Sub Private Sub Label80_Click() ListView1.ListItems.clear Combo2.clear legend1.RemoveAll Map1.Layers.clear txtFile.text = "slope" With Framedata1 .Visible = True End With End Sub Private Sub Label84_Click() With goa .Visible = True End With End Sub Private Sub Label85_Click() With Framedata1 .Visible = True End With End Sub Private Sub Label87_Click() ListView1.ListItems.clear Combo2.clear legend1.RemoveAll Map1.Layers.clear txtFile.text = "elevasi" With Framedata1 .Visible = True End With End Sub Private Sub lbnamaindonesia_change() On Error Resume Next If Label14.Caption = "Fauna" Then If Not File Then gambuku.Picture = LoadPicture()
gambuku.Picture = LoadPicture(App.path & "\images\Fauna\" & lbnamaindonesia.Caption & ".jpg") ElseIf Label14.Caption = "Flora" Then If Not File Then gambuku.Picture = LoadPicture() gambuku.Picture = LoadPicture(App.path & "\images\Flora\" & lbnamaindonesia.Caption & ".jpg") End If End Sub Private Sub opt_nama_ilmiah_Click() On Error Resume Next kuncilist = "nama ilmiah" If Label14.Caption = "Fauna" Then 'membuka tabel nama ilmiah pelagis besar Adodc2.ConnectionString = data Adodc2.RecordSourc e="SELECT tabelSatwadanFlora.[Kategori SD], tabelSatwadanFlora.[Nama Ilmiah] FROM tabelSatwadanFlora Where (((tabelSatwadanFlora.[Kategori SD]) = 'Fauna'))ORDER BY tabelSatwadanFlora.[Nama Ilmiah];" Adodc2.Refresh List1.clear Do Until Adodc2.Recordset.EOF List1.AddItem Adodc2.Recordset("nama ilmiah") Adodc2.Recordset.MoveNext Loop List1.FontItalic = True ElseIf Label14.Caption = "Flora" Then 'membuka tabel nama ilmiah pelagis besar Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT tabelSatwadanFlora.[Kategori SD], tabelSatwadanFlora.[Nama Ilmiah] FROM tabelSatwadanFlora Where (((tabelSatwadanFlora.[Kategori SD]) = 'Flora'))ORDER BY tabelSatwadanFlora.[Nama Ilmiah];" Adodc2.Refresh 'mengisi list1 dengan nama ilmiah pelagis besar List1.clear Do Until Adodc2.Recordset.EOF List1.AddItem Adodc2.Recordset("nama ilmiah") Adodc2.Recordset.MoveNext Loop List1.FontItalic = True End If End Sub Private Sub opt_tahun_Click() List1.clear kuncilist = "tahun" Adodc2.ConnectionString = data
Adodc2.RecordSource = "SELECT tabeltahun.tahun FROM tabeltahun" Adodc2.Refresh Adodc2.Recordset.Sort = "tahun" List1.clear Do Until Adodc2.Recordset.EOF List1.AddItem Adodc2.Recordset("tahun") Adodc2.Recordset.MoveNext Loop List1.FontItalic = False End Sub Private Sub opt_nama_indonesia_Click() kuncilist = "nama indonesia" If Label14.Caption = "Fauna" Then Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT tabelSatwadanFlora.[Kategori SD], tabelSatwadanFlora.[Nama Indonesia] FROM tabelSatwadanFlora Where (((tabelSatwadanFlora.[Kategori SD]) = 'Fauna'))ORDER BY tabelSatwadanFlora.[Nama Indonesia];" Adodc2.Refresh List1.clear Do Until Adodc2.Recordset.EOF List1.AddItem Adodc2.Recordset("nama indonesia") Adodc2.Recordset.MoveNext Loop List1.FontItalic = False ElseIf Label14.Caption = "Flora" Then Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT tabelSatwadanFlora.[Kategori SD], tabelSatwadanFlora.[Nama Indonesia] FROM tabelSatwadanFlora Where (((tabelSatwadanFlora.[Kategori SD]) = 'Flora'))ORDER BY tabelSatwadanFlora.[Nama Indonesia];" Adodc2.Refresh List1.clear Do Until Adodc2.Recordset.EOF List1.AddItem Adodc2.Recordset("nama indonesia") Adodc2.Recordset.MoveNext Loop List1.FontItalic = False End If End Sub Private Sub cmd_flora_Click() Label14.Caption = cmd_flora.Caption Label14.ForeColor = vbGreen satwaflora.Visible = True
visi.Visible = False sejarah.Visible = False sejarah1.Visible = False sejarah2.Visible = False tanah.Visible = False goa.Visible = False iklim.Visible = False Framedata1.Visible = False Framedata2.Visible = False hidrologi.Visible = False topografi.Visible = False Command64.Visible = True clear lbjdlingkungan.Caption = cmd_flora.Caption lbsubling.Caption = Command8.Caption 'txtFile.text = "st" ListView1.ListItems.clear Combo2.clear legend1.RemoveAll If opt_nama_indonesia.Value = True Then opt_nama_indonesia_Click ElseIf opt_nama_ilmiah.Value = True Then opt_nama_ilmiah_Click End If End Sub Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False Frame6.Visible = False Frame7.Visible = False Frame8.Visible = False 'Frame9.Visible = False Frame14.Visible = True End Sub Private Sub Command20_Click() Label14.Caption = Command20.Caption End Sub Private Sub Command21_Click() Label14.Caption = Command21.Caption End Sub Private Sub cmd_tanah_Click() Label14.Caption = cmd_tanah.Caption
clear lbjdlingkungan.Caption = cmd_tanah.Caption lbsubling.Caption = Command9.Caption txtFile.text = "jt" tanah.Visible = True satwaflora.Visible = False visi.Visible = False sejarah.Visible = False sejarah1.Visible = False sejarah2.Visible = False goa.Visible = False iklim.Visible = False Framedata1.Visible = False Framedata2.Visible = False hidrologi.Visible = False topografi.Visible = False Map1.Layers.clear ListView1.ListItems.clear Combo2.clear legend1.RemoveAll End Sub Private Sub cmd_iklim_Click() Label14.Caption = cmd_iklim.Caption tanah.Visible = False satwaflora.Visible = False visi.Visible = False sejarah.Visible = False sejarah1.Visible = False sejarah2.Visible = False goa.Visible = False iklim.Visible = True Framedata1.Visible = False Framedata2.Visible = False hidrologi.Visible = False topografi.Visible = False End Sub Private Sub Command24_Click() Label14.Caption = Command24.Caption End Sub Private Sub Command25_Click() Label14.Caption = Command25.Caption End Sub
Private Sub cmd_topografi_Click() Label14.Caption = cmd_topografi.Caption clear lbjdlingkungan.Caption = cmd_topografi.Caption lbsubling.Caption = Command9.Caption txtFile.text = "slope" tanah.Visible = False satwaflora.Visible = False visi.Visible = False sejarah.Visible = False sejarah1.Visible = False sejarah2.Visible = False goa.Visible = False iklim.Visible = False Framedata1.Visible = False Framedata2.Visible = False hidrologi.Visible = False topografi.Visible = True Map1.Layers.clear ListView1.ListItems.clear Combo2.clear legend1.RemoveAll End Sub Private Sub cmd_visi_Click() Label14.Caption = cmd_visi.Caption visi.Visible = True sejarah.Visible = False sejarah1.Visible = False sejarah2.Visible = False tanah.Visible = False goa.Visible = False iklim.Visible = False Framedata1.Visible = False Framedata2.Visible = False satwaflora.Visible = False hidrologi.Visible = False topografi.Visible = False End Sub Private Sub Command28_Click() sosial.Show vbModal End Sub Private Sub Command29_Click() Label14.Caption = Command29.Caption
End Sub Private Sub Command3_Click() Form2.Visible = True Unload menu End Sub Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False Frame6.Visible = False Frame7.Visible = False Frame8.Visible = False 'Frame9.Visible = False Frame14.Visible = False End Sub Private Sub Command30_Click() Label14.Caption = Command30.Caption End Sub Private Sub Command31_Click() Label14.Caption = Command31.Caption End Sub Private Sub Command32_Click() Label14.Caption = Command32.Caption sosial.Show vbModal End Sub Private Sub Command33_Click() Label14.Caption = Command33.Caption End Sub 'Private Sub Command34_Click() 'Label14.Caption = Command34.Caption 'End Sub Private Sub Command35_Click() Label14.Caption = Command35.Caption End Sub Private Sub Command36_Click() Label14.Caption = Command36.Caption End Sub
Private Sub cmd_hidrologi_Click() Label14.Caption = cmd_hidrologi.Caption txtFile.text = "js" lbjdlingkungan.Caption = cmd_hidrologi.Caption lbsubling.Caption = Command9.Caption tanah.Visible = False satwaflora.Visible = False visi.Visible = False sejarah.Visible = False sejarah1.Visible = False sejarah2.Visible = False goa.Visible = False iklim.Visible = False Framedata1.Visible = False Framedata2.Visible = False hidrologi.Visible = True topografi.Visible = False End Sub Private Sub Command38_Click() Label14.Caption = Command38.Caption End Sub Private Sub Command39_Click() sejarah2.Visible = True sejarah1.Visible = False End Sub Private Sub Command4_Click() End End Sub Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False Frame6.Visible = False Frame7.Visible = False Frame8.Visible = False 'Frame9.Visible = False End Sub Private Sub Command40_Click() sejarah2.Visible = True sejarah1.Visible = False End Sub
Private Sub Command41_Click() sejarah1.Visible = False sejarah.Visible = True End Sub Private Sub Command42_Click() sejarah1.Visible = False sejarah.Visible = True End Sub Private Sub Command45_Click() sejarah.Visible = True sejarah2.Visible = False End Sub Private Sub Command46_Click() sejarah1.Visible = True sejarah2.Visible = False End Sub Private Sub Command47_Click() pesan = MsgBox("ini sudah halaman yang terakhir", vbOKOnly, "keterangan") End Sub Private Sub Command48_Click() pesan = MsgBox("ini sudah halaman yang terakhir", vbOKOnly, "keterangan") End Sub Private Sub Command49_Click() erosisedimentasi.Show Unload Me End Sub Private Sub Command49_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False Frame6.Visible = False Frame7.Visible = False Frame8.Visible = False 'Frame9.Visible = False Frame14.Visible = False End Sub Private Sub Command5_Click() hidrologii.Show Unload Me
End Sub Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False Frame6.Visible = False Frame7.Visible = False Frame8.Visible = False 'Frame9.Visible = False Frame14.Visible = False End Sub Private Sub Command50_Click() erosi_usle.Show Unload menu End Sub Private Sub Command51_Click() Form4.Show Unload menu End Sub Private Sub Command52_Click() man_erosisedimentasi.Show Unload menu End Sub Private Sub Command53_Click() Image4.Visible = False video.Visible = True CommonDialog1.ShowOpen video.URL = CommonDialog1.filename End Sub Private Sub Command54_Click() Label29.Visible = False Label30.Visible = False video.Visible = False video.Close Image4.Visible = True End Sub Private Sub Command55_Click() Form7.Show vbModal End Sub
Private Sub Command56_Click() Form8.Show vbModal End Sub Private Sub Command57_Click() Image4.Visible = False video.Visible = False Label29.Visible = True Label30.Visible = True End Sub Private Sub Command6_Click() Referensi.Show Unload Me End Sub Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False Frame6.Visible = False Frame7.Visible = False Frame8.Visible = False 'Frame9.Visible = False Frame14.Visible = False End Sub Private Sub Command7_Click() Form3.Show Unload Me End Sub Private Sub Command7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False Frame6.Visible = False Frame7.Visible = False Frame8.Visible = False 'Frame9.Visible = False Frame14.Visible = False End Sub Private Sub Command8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame14.Visible = False Frame6.Visible = True Frame5.Visible = False
Frame7.Visible = False Frame8.Visible = False ''Frame9.Visible = False End Sub Private Sub Command9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame14.Visible = False Frame7.Visible = True Frame5.Visible = False Frame6.Visible = False Frame8.Visible = False ''Frame9.Visible = False End Sub Private Sub iklim_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Call clear Label45.FontUnderline = False Label45.FontItalic = False Label45.ForeColor = vbBlack Label44.FontUnderline = False Label44.FontItalic = False Label44.ForeColor = vbBlack Label42.FontUnderline = False Label42.FontItalic = False Label42.ForeColor = vbBlack Label43.FontUnderline = False Label43.FontItalic = False Label43.ForeColor = vbBlack Label41.FontUnderline = False Label41.FontItalic = False Label41.ForeColor = vbBlack Label41.FontUnderline = False Label40.FontItalic = False Label40.ForeColor = vbBlack Label40.FontUnderline = False Label37.FontUnderline = False Label37.FontItalic = False Label37.ForeColor = vbBlack End Sub Private Sub Label14_Click() Combo1.text = "Pilih Tahun" End Sub Private Sub Label28_Click()
Form6.Show vbModal End Sub Private Sub Label37_Click() Curahhujan.Show vbModal End Sub Private Sub Label37_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label37.FontUnderline = True Label37.FontItalic = True Label37.ForeColor = vbBlue Label45.FontUnderline = False Label45.FontItalic = False Label45.ForeColor = vbBlack Label44.FontUnderline = False Label44.FontItalic = False Label44.ForeColor = vbBlack Label42.FontUnderline = False Label42.FontItalic = False Label42.ForeColor = vbBlack Label43.FontUnderline = False Label43.FontItalic = False Label43.ForeColor = vbBlack Label41.FontUnderline = False Label41.FontItalic = False Label41.ForeColor = vbBlack Label41.FontUnderline = False Label40.FontItalic = False Label40.ForeColor = vbBlack Label40.FontUnderline = False End Sub Private Sub Label40_Click() suhu.Show vbModal End Sub Private Sub Label40_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label40.FontUnderline = True Label40.FontItalic = True Label40.ForeColor = vbBlue Label44.FontUnderline = False Label44.FontItalic = False Label44.ForeColor = vbBlack Label42.FontUnderline = False
Label42.FontItalic = False Label42.ForeColor = vbBlack Label43.FontUnderline = False Label43.FontItalic = False Label43.ForeColor = vbBlack Label41.FontUnderline = False Label41.FontItalic = False Label41.ForeColor = vbBlack Label41.FontUnderline = False 'Label40.FontItalic = False 'Label40.ForeColor = vbBlack Label37.FontUnderline = False Label37.FontItalic = False Label37.ForeColor = vbBlack Label45.FontUnderline = False Label45.FontItalic = False Label45.ForeColor = vbBlack End Sub Private Sub Label41_Click() tekananudara.Show vbModal End Sub Private Sub Label41_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label41.FontUnderline = True Label41.FontItalic = True Label41.ForeColor = vbBlue Label44.FontUnderline = False Label44.FontItalic = False Label44.ForeColor = vbBlack Label42.FontUnderline = False Label42.FontItalic = False Label42.ForeColor = vbBlack Label43.FontUnderline = False Label43.FontItalic = False Label43.ForeColor = vbBlack 'Label41.FontUnderline = False 'Label41.FontItalic = False 'Label41.ForeColor = vbBlack 'Label41.FontUnderline = False Label40.FontItalic = False Label40.ForeColor = vbBlack Label40.FontUnderline = False Label37.FontUnderline = False Label37.FontItalic = False
Label37.ForeColor = vbBlack End Sub Private Sub Label42_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label42.FontUnderline = True Label42.FontItalic = True Label42.ForeColor = vbBlue Label44.FontUnderline = False Label44.FontItalic = False Label44.ForeColor = vbBlack 'Label42.FontUnderline = False 'Label42.FontItalic = False 'Label42.ForeColor = vbBlack Label43.FontUnderline = False Label43.FontItalic = False Label43.ForeColor = vbBlack Label41.FontUnderline = False Label41.FontItalic = False Label41.ForeColor = vbBlack Label41.FontUnderline = False Label40.FontItalic = False Label40.ForeColor = vbBlack Label40.FontUnderline = False Label37.FontUnderline = False Label37.FontItalic = False Label37.ForeColor = vbBlack Label45.FontUnderline = False Label45.FontItalic = False Label45.ForeColor = vbBlack End Sub Private Sub Label43_Click() kelembaban.Show vbModal End Sub Private Sub Label43_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label43.FontUnderline = True Label43.FontItalic = True Label43.ForeColor = vbBlue Label44.FontUnderline = False Label44.FontItalic = False Label44.ForeColor = vbBlack Label42.FontUnderline = False Label42.FontItalic = False
Label42.ForeColor = vbBlack 'Label43.FontUnderline = False 'Label43.FontItalic = False 'Label43.ForeColor = vbBlack Label41.FontUnderline = False Label41.FontItalic = False Label41.ForeColor = vbBlack Label41.FontUnderline = False Label40.FontItalic = False Label40.ForeColor = vbBlack Label40.FontUnderline = False Label37.FontUnderline = False Label37.FontItalic = False Label37.ForeColor = vbBlack Label45.FontUnderline = False Label45.FontItalic = False Label45.ForeColor = vbBlack End Sub Private Sub Label44_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label44.FontUnderline = True Label44.FontItalic = True Label44.ForeColor = vbBlue 'Label44.FontUnderline = False 'Label44.FontItalic = False 'Label44.ForeColor = vbBlack Label42.FontUnderline = False Label42.FontItalic = False Label42.ForeColor = vbBlack Label43.FontUnderline = False Label43.FontItalic = False Label43.ForeColor = vbBlack Label41.FontUnderline = False Label41.FontItalic = False Label41.ForeColor = vbBlack Label41.FontUnderline = False Label40.FontItalic = False Label40.ForeColor = vbBlack Label40.FontUnderline = False Label37.FontUnderline = False Label37.FontItalic = False Label37.ForeColor = vbBlack Label45.FontUnderline = False Label45.FontItalic = False Label45.ForeColor = vbBlack
End Sub Private Sub Label45_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label45.FontUnderline = True Label45.FontItalic = True Label45.ForeColor = vbBlue Label44.FontUnderline = False Label44.FontItalic = False Label44.ForeColor = vbBlack Label42.FontUnderline = False Label42.FontItalic = False Label42.ForeColor = vbBlack Label43.FontUnderline = False Label43.FontItalic = False Label43.ForeColor = vbBlack Label41.FontUnderline = False Label41.FontItalic = False Label41.ForeColor = vbBlack Label41.FontUnderline = False Label40.FontItalic = False Label40.ForeColor = vbBlack Label40.FontUnderline = False Label37.FontUnderline = False Label37.FontItalic = False Label37.ForeColor = vbBlack End Sub Private Sub maju_Click() sejarah.Visible = False sejarah1.Visible = True visi.Visible = False End Sub Frame6.Visible = False Frame7.Visible = False Frame8.Visible = False ''Frame9.Visible = False Frame14.Visible = False End Sub Private Sub cmdfull_Click() Map1.Extent = Map1.FullExtent Map1.MousePointer = moZoomIn End Sub
Private Sub cmdinfo_Click() kuncimap = "info" Map1.MousePointer = moIdentify End Sub Private Sub cmdpan_Click() kuncimap = "pan" Map1.MousePointer = moPan End Sub Private Sub cmdzoom_Click() kuncimap = "zoom" Map1.MousePointer = moZoomIn End Sub Private Sub cmdzoomout_Click() kuncimap = "zoomout" Map1.MousePointer = moZoomOut End Sub Private Sub Combo1_Click() On Error GoTo ber legend1.RemoveAll Combo2.text = "" Framedata1.Visible = True Map1.Layers.clear ListView1.ListItems.clear Call petaawal Dim DC As New DataConnection DC.Database = App.path & "\Data\Peta Lingkungan\" & lbsubling.Caption & "\" & lbjdlingkungan.Caption & "\" If Not DC.Connect Then End Dim layer As MapLayer Set layer = New MapLayer Set layer.GeoDataset = DC.FindGeoDataset(txtFile + Combo1.text) layer.Symbol.color = 8636724 Map1.Layers.Add layer Text1.text = txtFile + Combo1.text kuncimap = "info" Map1.MousePointer = moIdentify
'tesst uniq value legend1.setMapSource Map1 legend1.LoadLegend GoTo sei ber: Map1.Layers.clear Combo2.Enabled = False Text1.text = "" sei: End Sub Private Sub Form_Load() bukadatabase If kunciuser = "U" Then Command52.Enabled = False End If 'membuka tabel tahun Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT tabeltahun.tahun FROM tabeltahun" Adodc1.Refresh Adodc1.Recordset.Sort = "tahun" 'mengisi combo dengan tabel tahun Combo1.clear Do Until Adodc1.Recordset.EOF Combo1.AddItem Adodc1.Recordset("tahun") Adodc1.Recordset.MoveNext Loop Set Col = ListView1.ColumnHeaders.Add() Col.text = "Field" Set Col = ListView1.ColumnHeaders.Add() Col.text = "Value" Col.Width = 3111 'Framedata1.Visible = False Private Sub jcbutton2_Click() frm2_SDI.Show Unload Me End Sub Private Sub jcbutton4_Click() frm4_sarana.Show Unload Me End Sub Private Sub jcbutton5_Click() frm6_sosial.Show
Unload Me End Sub Private Sub jcbutton6_Click() frm7_manajemen.Show Unload Me End Sub Private Sub jcbutton7_Click() frm8_laporan.Show Unload Me End Sub Private Sub jcbutton8_Click() frm5_referensi.Show Unload Me End Sub Private Sub jcbutton9_Click() Unload Me End Sub Private Sub lbjdlingkungan_Change() Combo1.text = "Pilih Tahun" End Sub Private Sub lyrBelakang_menu_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) clear End Sub Private Sub petaawal() Dim DC As New DataConnection DC.Database = App.path & "\Data\Peta Walat Sukabumi\" If Not DC.Connect Then End Dim layer1 As MapLayer Set layer1 = New MapLayer Set layer1.GeoDataset = DC.FindGeoDataset("bts_walat_utm") layer1.Symbol.color = 4636724 Map1.Layers.Add layer1 Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next If kuncimap = "zoom" Then Set r = Map1.TrackRectangle
If Not r Is Nothing Then Map1.Extent = r ElseIf kuncimap = "pan" Then Map1.Pan ElseIf kuncimap = "zoomout" Then Dim Loc As New Point Set Loc = Map1.ToMapPoint(X, Y) Dim MapWidth As Double, MapHeight As Double Set curRectangle = Map1.Extent MapWidth = Map1.Extent.Width MapHeight = Map1.Extent.Height curRectangle.Right = Loc.X + MapWidth curRectangle.Left = Loc.X - MapWidth curRectangle.Top = Loc.Y + MapHeight curRectangle.Bottom = Loc.Y - MapHeight Set Map1.Extent = curRectangle ElseIf kuncimap = "info" Then Set p = Map1.ToMapPoint(X, Y) Set recs = l.SearchShape(p, moPointInPolygon, "") Set recs = l.SearchShape(p, moPointInline, "") If Not recs.EOF Then ListView1.ListItems.clear For Each fld In recs.Fields ' iterate over the fields Set newItem = ListView1.ListItems.Add newItem.text = fld.Name newItem.SubItems(1) = fld.ValueAsString ' get the value Next fld End If End If End Sub Private Sub Map1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) clear 'This procedure updates the coordinate display in the status bar. Dim curPoint As Point Dim curX As Double Dim curY As Double 'Convert screen coordinates to map coordinates Set curPoint = Map1.ToMapPoint(X, Y) curX = curPoint.X curY = curPoint.Y 'If map coordinates are large, suppress digits to right of decimal place. Dim cX As String, cy As String cX = curX cy = curY
cX = Left(cX, InStr(cX, ",") + 2) cy = Left(cy, InStr(cy, ",") + 2) Label35.Caption = "X: " & cX & " Y: " & cy End Sub '=====BAGIAN SIMBOL====' Private Sub legend1_AfterSetLayerVisible(Index As Integer, isVisible As Boolean) Map1.Refresh End Sub Private Sub legend1_LayerDblClick(Index As Integer) 'Double-click on a legend layer entry opens the legend 'editor (form9) for that layer. Set g_ActiveLayer = Map1.Layers(Index) If g_ActiveLayer.LayerType = moImageLayer Then MsgBox "Sorry, you cannot set properties for an image layer." & _ vbCrLf & "Try setting properties for a layer with vector data." Exit Sub End If 'Invoke property sheet for new layer. 'Load form9 Form9.Show vbModal End Sub Private Sub List1_Click() On Error Resume Next If Label14.Caption = "Fauna" Then If kuncilist = "nama indonesia" Then Adodc3.ConnectionString = data Adodc3.RecordSource = "SELECT tabelSatwadanFlora.[No], tabelSatwadanFlora.[Id], tabelSatwadanFlora.[Kategori SD], tabelSatwadanFlora.[Nama Indonesia], tabelSatwadanFlora.[Nama Ilmiah], tabelSatwadanFlora.[Filum], tabelSatwadanFlora.[Kelas], tabelSatwadanFlora.[Ordo], tabelSatwadanFlora.[Famili], tabelSatwadanFlora.[Genus], tabelSatwadanFlora.[Species], tabelSatwadanFlora.[Sumber Taksonomi], tabelSatwadanFlora.[Tingkah Laku], tabelSatwadanFlora.[Penyebaran]FROM tabelSatwadanFlora Where (((tabelSatwadanFlora.[Kategori SD]) = 'Fauna'))And tabelSatwadanFlora.[Nama Indonesia] Like " & " '" & List1.text & "%" & "'" & " ORDER BY tabelSatwadanFlora.[Nama Indonesia];" Adodc3.Refresh ElseIf kuncilist = "nama ilmiah" Then Adodc3.ConnectionString = data Adodc3.RecordSource = "SELECT tabelSatwadanFlora.[No], tabelSatwadanFlora.[Id], tabelSatwadanFlora.[Kategori SD], tabelSatwadanFlora.[Nama Indonesia], tabelSatwadanFlora.[Nama Ilmiah], tabelSatwadanFlora.[Filum], tabelSatwadanFlora.[Kelas], tabelSatwadanFlora.[Ordo], tabelSatwadanFlora.[Famili], tabelSatwadanFlora.[Genus],
tabelSatwadanFlora.[Species], tabelSatwadanFlora.[Sumber Taksonomi], tabelSatwadanFlora.[Tingkah Laku], tabelSatwadanFlora.[Penyebaran]FROM tabelSatwadanFlora Where (((tabelSatwadanFlora.[Kategori SD]) = 'Fauna'))And tabelSatwadanFlora.[Nama Ilmiah] Like " & " '" & List1.text & "%" & "'" & " ORDER BY tabelSatwadanFlora.[Nama Ilmiah];" Adodc3.Refresh End If Set DataGrid1.DataSource = Adodc3 ElseIf Label14.Caption = "Flora" Then If kuncilist = "nama indonesia" Then Adodc3.ConnectionString = data Adodc3.RecordSource = "SELECT tabelSatwadanFlora.[No], tabelSatwadanFlora.[Id], tabelSatwadanFlora.[Kategori SD], tabelSatwadanFlora.[Nama Indonesia], tabelSatwadanFlora.[Nama Ilmiah], tabelSatwadanFlora.[Filum], tabelSatwadanFlora.[Kelas], tabelSatwadanFlora.[Ordo], tabelSatwadanFlora.[Famili], tabelSatwadanFlora.[Genus], tabelSatwadanFlora.[Species], tabelSatwadanFlora.[Sumber Taksonomi], tabelSatwadanFlora.[Tingkah Laku], tabelSatwadanFlora.[Penyebaran]FROM tabelSatwadanFlora Where (((tabelSatwadanFlora.[Kategori SD]) = 'Flora'))And tabelSatwadanFlora.[Nama Indonesia] Like " & " '" & List1.text & "%" & "'" & " ORDER BY tabelSatwadanFlora.[Nama Indonesia];" Adodc3.Refresh ElseIf kuncilist = "nama ilmiah" Then Adodc3.ConnectionString = data Adodc3.RecordSource = "SELECT tabelSatwadanFlora.[No], tabelSatwadanFlora.[Id], tabelSatwadanFlora.[Kategori SD], tabelSatwadanFlora.[Nama Indonesia], tabelSatwadanFlora.[Nama Ilmiah], tabelSatwadanFlora.[Filum], tabelSatwadanFlora.[Kelas], tabelSatwadanFlora.[Ordo], tabelSatwadanFlora.[Famili], tabelSatwadanFlora.[Genus], tabelSatwadanFlora.[Species], tabelSatwadanFlora.[Sumber Taksonomi], tabelSatwadanFlora.[Tingkah Laku], tabelSatwadanFlora.[Penyebaran]FROM tabelSatwadanFlora Where (((tabelSatwadanFlora.[Kategori SD]) = 'Flora'))And tabelSatwadanFlora.[Nama Ilmiah] Like " & " '" & List1.text & "%" & "'" & " ORDER BY tabelSatwadanFlora.[Nama Ilmiah];" Adodc3.Refresh End If Set DataGrid1.DataSource = Adodc3 End If satwaflora.Visible = True End Sub Private Sub isidata() On Error Resume Next If Adodc3.Recordset("nama indonesia") Is Null Then lbnamaindonesia.Caption = "-" End If If Adodc3.Recordset("nama ilmiah") Is Null Then lbnamailmiah.Caption = "-"
End If If Adodc3.Recordset("kategori sd") Is Null Then lbkategori.Caption = "-" End If If Adodc3.Recordset("kelas") Is Null Then lbkelas.Caption = "-" End If If Adodc3.Recordset("Filum") Is Null Then lbsubkelas.Caption = "-" End If If Adodc3.Recordset("ordo") Is Null Then lbordo.Caption = "-" End If If Adodc3.Recordset("sub ordo") Is Null Then lbsubordo.Caption = "-" End If If Adodc3.Recordset("famili") Is Null Then lbfamili.Caption = "-" End If If Adodc3.Recordset("sub famili") Is Null Then lbsubfamili.Caption = "-" End If If Adodc3.Recordset("genus)") Is Null Then lbgenus.Caption = "-" End If If Adodc3.Recordset("tingkah laku)") Is Null Then txttingkahlaku.text = "-" End If If Adodc3.Recordset("penyebaran)") Is Null Then txtpenyebaran.text = "--" End If If Adodc3.Recordset("sumber taksonomi") Is Null Then lbsumbertaksonomi.Caption = "" End If lbnamaindonesia.Caption = Adodc3.Recordset("nama indonesia") lbnamailmiah.Caption = Adodc3.Recordset("nama ilmiah") lbkategori.Caption = Adodc3.Recordset("kategori sd") lbkelas.Caption = Adodc3.Recordset("kelas") lbsubkelas.Caption = Adodc3.Recordset("Filum") lbordo.Caption = Adodc3.Recordset("ordo") lbsubordo.Caption = Adodc3.Recordset("sub ordo") lbfamili.Caption = Adodc3.Recordset("famili") lbsubfamili.Caption = Adodc3.Recordset("sub famili") lbgenus.Caption = Adodc3.Recordset("genus") txttingkahlaku.text = Adodc3.Recordset("tingkah laku")
txtpenyebaran.text = Adodc3.Recordset("penyebaran") lbsumbertaksonomi.Caption = Adodc3.Recordset("sumber taksonomi") + ":" lbspecies1.Caption = lbnamailmiah.Caption lbspecies2.Caption = lbnamailmiah.Caption satwaflora.Visible = True End Sub Private Sub isidata2() On Error Resume Next If Adodc3.Recordset("nama indonesia") Is Null Then lbnamaindonesia.Caption = "-" End If If Adodc3.Recordset("nama ilmiah") Is Null Then lbnamailmiah.Caption = "-" End If If Adodc3.Recordset("kelas") Is Null Then lbkelas.Caption = "-" End If If Adodc3.Recordset("Filum") Is Null Then lbsubkelas.Caption = "-" End If If Adodc3.Recordset("ordo") Is Null Then lbordo.Caption = "-" End If If Adodc3.Recordset("sub ordo") Is Null Then lbsubordo.Caption = "-" End If If Adodc3.Recordset("famili") Is Null Then lbfamili.Caption = "-" End If If Adodc3.Recordset("sub famili") Is Null Then lbsubfamili.Caption = "-" End If If Adodc3.Recordset("genus)") Is Null Then lbgenus.Caption = "-" End If If Adodc3.Recordset("tingkah laku)") Is Null Then txttingkahlaku.text = "-" End If If Adodc3.Recordset("penyebaran)") Is Null Then txtpenyebaran.text = "--" End If If Adodc3.Recordset("sumber taksonomi") Is Null Then lbsumbertaksonomi.Caption = "" End If
lbnamaindonesia.Caption = Adodc3.Recordset("nama indonesia") lbnamailmiah.Caption = Adodc3.Recordset("nama ilmiah") lbkelas.Caption = Adodc3.Recordset("kelas") lbsubkelas.Caption = Adodc3.Recordset("Filum") lbordo.Caption = Adodc3.Recordset("ordo") lbsubordo.Caption = Adodc3.Recordset("sub ordo") lbfamili.Caption = Adodc3.Recordset("famili") lbsubfamili.Caption = Adodc3.Recordset("sub famili") lbgenus.Caption = Adodc3.Recordset("genus") txttingkahlaku.text = Adodc3.Recordset("tingkah laku") txtpenyebaran.text = Adodc3.Recordset("penyebaran") lbsumbertaksonomi.Caption = Adodc3.Recordset("sumber taksonomi") + ":" lbspecies1.Caption = lbnamailmiah.Caption lbspecies2.Caption = lbnamailmiah.Caption satwaflora.Visible = True End Sub Form erosi USLE Public EE As String Private Sub cmd_hapus_Click() hapus_data.Show End Sub Private Sub Com_cp_Click() If Opt_hutan.Value = True Then If Com_cp.text = "Tidak terganggu" Then Txt_cp.text = "0,01" If Com_cp.text = "Tanpa tumbuhan bawah, dengan serasah" Then Txt_cp.text = "0,05" If Com_cp.text = "Tanpa tumbuhan bawah, tanpa serasah" Then Txt_cp.text = "0,5" End If If Opt_semak.Value = True Then If Com_cp.text = "Tidak terganggu" Then Txt_cp.text = "0,01" If Com_cp.text = "Sebagian berumput" Then Txt_cp.text = "0,1" End If If Opt_kebun.Value = True Then If Com_cp.text = "kebun-talun" Then Txt_cp.text = "0,02" If Com_cp.text = "kebun-pekarangan" Then Txt_cp.text = "0,20" End If If Opt_perkebunan.Value = True Then If Com_cp.text = "penutupan tanah sempurna" Then Txt_cp.text = "0,01" If Com_cp.text = "penutupan tanah sebagian" Then Txt_cp.text = "0,07"
End If If Opt_rerumputan.Value = True Then If Com_cp.text = "penutupan tanah sempurna" Then Txt_cp.text = "0,01" If Com_cp.text = "Penutupan tanah sebagian, ditumbuhi Alang-alang" Then Txt_cp.text = "0,02" If Com_cp.text = "Alang-alang: pembakaran sekali setahun" Then Txt_cp.text = "0,06" If Com_cp.text = "Serai wangi" Then Txt_cp.text = "0,65" End If If Opt_tanaman_pertanian.Value = True Then If Com_cp.text = "Umbi-umbian" Then Txt_cp.text = "0,51" If Com_cp.text = "Biji-bijian" Then Txt_cp.text = "0,51" If Com_cp.text = "Kacang-kacangan" Then Txt_cp.text = "0,36" If Com_cp.text = "Campuran" Then Txt_cp.text = "0,43" If Com_cp.text = "Padi irigasi" Then Txt_cp.text = "0,19" End If If Opt_perladangan.Value = True Then If Com_cp.text = "1 tahun tanam, 1 tahun bero" Then Txt_cp.text = "0,28" If Com_cp.text = "1 tahun tanam, 2 tahun bero" Then Txt_cp.text = "0,20" End If If Opt_pertanian_dengan_konservasi.Value = True Then If Com_cp.text = "Mulsa" Then Txt_cp.text = "0,14" If Com_cp.text = "Teras bangku" Then Txt_cp.text = "0,04" If Com_cp.text = "Contour cropping" Then Txt_cp.text = "0,14" End If End Sub Private Sub com_jenis_tanah_Click() If com_jenis_tanah.text = "latosol(Haplorthox)" Then txt_K.text = "0,09" ElseIf com_jenis_tanah.text = "Latosol merah (Humox)" Then txt_K.text = "0,12" ElseIf com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then txt_K.text = "0,26" ElseIf com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then txt_K.text = "0,23" ElseIf com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then txt_K.text = "0,31" ElseIf com_jenis_tanah.text = "Regosol(Troporthents)" Then txt_K.text = "0,14" ElseIf com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then txt_K.text = "0,14" ElseIf com_jenis_tanah.text = "Regosol (Typic entropept)" Then
txt_K.text = "0,29" ElseIf com_jenis_tanah.text = "Regosol (Typic dystropept)" Then txt_K.text = "0,31" ElseIf com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then txt_K.text = "0,13" ElseIf com_jenis_tanah.text = "Gley humic (Tropaquept)" Then txt_K.text = "0,20" ElseIf com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then txt_K.text = "0,26" ElseIf com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then txt_K.text = "0,16" ElseIf com_jenis_tanah.text = "Lithosol (Orthen)" Then txt_K.text = "0,29" ElseIf com_jenis_tanah.text = "Grumosol (Chromudert)" Then txt_K.text = "0,21" ElseIf com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then txt_K.text = "0,20" ElseIf com_jenis_tanah.text = "Podsolik (Tropudults)" Then txt_K.text = "0,16" ElseIf com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then txt_K.text = "0,32" ElseIf com_jenis_tanah.text = "Mediteran (Tropohumults)" Then txt_K.text = "0,10" ElseIf com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then txt_K.text = "0,22" ElseIf com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then txt_K.text = "0,23" End If End Sub Private Sub Command1_Click() On Error GoTo errr txt_r.text = 2.21 * (CDbl(txt_P.text) ^ 1.36) txt_LS.text = ((CDbl(Txt_L.text) / 22) ^ 0.5) * ((0.43 + 0.3 * CDbl(Txt_s.text) + 0.043 * (CDbl(Txt_s.text) ^ 2)) / 100) Txt_a.text = CDbl(txt_r.text) * CDbl(txt_K.text) * CDbl(txt_LS.text) * CDbl(Txt_cp.text) Exit Sub errr: MsgBox "masih ada data perhitungan laju erosi yang kosong :p ", vbOKCancel + vbExclamation, "Peringatan" End Sub Private Sub Command10_Click() Referensi.Show Unload Me End Sub
Private Sub Command2_Click() On Error GoTo errr If Txt_ibe.text = "Tak hingga" Then GoTo pppp Txt_ibe.text = (CDbl(Txt_a.text) / CDbl(Txt_tsl.text)) / CDbl(Txt_cp.text) If CDbl(Txt_ibe.text) < 1 Then Label8.Caption = "Rendah" If (CDbl(Txt_ibe.text) < 4 And CDbl(Txt_ibe.text) > 1) Then Label8.Caption = "Sedang" If (CDbl(Txt_ibe.text) < 10 And CDbl(Txt_ibe.text) > 4) Then Label8.Caption = "Tinggi" If CDbl(Txt_ibe.text) > 10 Then Label8.Caption = "Sangat tinggi" Exit Sub errr: MsgBox "masih ada data perhitungan IBE yang kosong :p ", vbOKCancel + vbExclamation, "Peringatan" pppp: Exit Sub End Sub Private Sub Command3_Click() On Error Resume Next pesan = MsgBox("Ingin Menyimpan Data ??????", vbYesNo, "penyimpanan data") If pesan = vbYes Then If EE = "ubah" Then GoTo edit rs1.AddNew edit: rs1.Fields("kode_laporan") = Txt_KL.text rs1.Fields("Lokasi_Penelitian") = Txt_LP.text rs1.Fields("Curah_Hujan_Bulanan") = Text10.text rs1.Fields("Indeks_Erosivitas_Bulanan") = Text9.text rs1.Fields("Panjang_Lereng") = Text12.text rs1.Fields("Kemiringan_lereng") = Text13.text rs1.Fields("Nama_Pengguna") = txt_np.text rs1.Fields("Jenis_Tanah") = com_jenis_tanah.text rs1.Fields("Indeks_Erodibilitas_Tanah") = Text7.text rs1.Fields("Tolerable_Soil_Loss") = Text6.text rs1.Fields("Panjang_dan_Kemiringan_Lahan") = Text8.text rs1.Fields("Nilai_CP_Lahan") = Text11.text rs1.Fields("Kondisi_penggunaan_Lahan") = Com_cp.text rs1.Fields("Prakiraan_Laju_erosi") = Text4.text rs1.Fields("Indeks_Bahaya_Erosi") = Text5.text rs1.Fields("Tingkat_Bahaya_Erosi") = Label8.Caption rs1.Fields("Jenis_Penggunaan_Lahan") = Text2.text rs1.Fields("Kondisi_Kedalaman_dan_Solum_Tanah") = Text3.text rs1.Update Txt_a.text = "" Txt_tsl.text = "" Txt_ibe.text = ""
txt_r.text = "" Txt_ibe.text = "" txt_P.text = "" Txt_L.text = "" Txt_s.text = "" txt_K.text = "" Txt_cp.text = "" txt_LS.text = "" txt_np.text = "" Txt_LP.text = "" Txt_KL.text = "" Label8.Caption = "" Text2.text = "" Text3.text = "" com_jenis_tanah.text = "pilih jenis tanah" Com_cp.text = "" Opt_tsl_1.Value = False Opt_tsl_2.Value = False Opt_tsl_3.Value = False Opt_tsl_4.Value = False Opt_tsl_5.Value = False Opt_tsl_6.Value = False Opt_tsl_7.Value = False Opt_tsl_8.Value = False Opt_hutan.Value = False Opt_semak.Value = False Opt_kebun.Value = False Opt_perkebunan.Value = False Opt_perladangan.Value = False Opt_tanaman_pertanian.Value = False Opt_rerumputan.Value = False Opt_pertanian_dengan_konservasi.Value = False txt_np.SetFocus MsgBox "Data Berhasil Disimpan", vbOKOnly, "Keterangan" EE = "noedit" End If End Sub Private Sub Command4_Click() cetak_erosi_usle.Show End Sub Private Sub Command5_Click() Preview_database.Show End Sub
Private Sub Command6_Click() Unload Me End Sub Private Sub buka() Txt_a.Locked = False Txt_tsl.Locked = False Txt_ibe.Locked = False txt_r.Locked = False Txt_ibe.Locked = False txt_P.Locked = False Txt_L.Locked = False Txt_s.Locked = False txt_K.Locked = False Txt_cp.Locked = False txt_LS.Locked = False txt_np.Locked = False Txt_LP.Locked = False Txt_KL.Locked = False com_jenis_tanah.Locked = False Com_cp.Locked = False Opt_tsl_1.Enabled = True Opt_tsl_2.Enabled = True Opt_tsl_3.Enabled = True Opt_tsl_4.Enabled = True Opt_tsl_5.Enabled = True Opt_tsl_6.Enabled = True Opt_tsl_7.Enabled = True Opt_tsl_8.Enabled = True Opt_hutan.Enabled = True Opt_semak.Enabled = True Opt_kebun.Enabled = True Opt_perkebunan.Enabled = True Opt_perladangan.Enabled = True Opt_tanaman_pertanian.Enabled = True Opt_rerumputan.Enabled = True Opt_pertanian_dengan_konservasi.Enabled = True End Sub Private Sub kunci() Txt_a.Locked = True Txt_tsl.Locked = True Txt_ibe.Locked = True txt_r.Locked = True Txt_ibe.Locked = True txt_P.Locked = True Txt_L.Locked = True
Txt_s.Locked = True txt_K.Locked = True Txt_cp.Locked = True txt_LS.Locked = True txt_np.Locked = True Txt_LP.Locked = True Txt_KL.Locked = True com_jenis_tanah.Locked = True Com_cp.Locked = True Opt_tsl_1.Enabled = False Opt_tsl_2.Enabled = False Opt_tsl_3.Enabled = False Opt_tsl_4.Enabled = False Opt_tsl_5.Enabled = False Opt_tsl_6.Enabled = False Opt_tsl_7.Enabled = False Opt_tsl_8.Enabled = False Opt_hutan.Enabled = False Opt_semak.Enabled = False Opt_kebun.Enabled = False Opt_perkebunan.Enabled = False Opt_perladangan.Enabled = False Opt_tanaman_pertanian.Enabled = False Opt_rerumputan.Enabled = False Opt_pertanian_dengan_konservasi.Enabled = False End Sub Private Sub Command7_Click() EE = "ubah" Call buka End Sub Private Sub Command8_Click() Unload erosi_usle menu.Show End Sub Private Sub Form_Load() com_jenis_tanah.AddItem "latosol(Haplorthox)" com_jenis_tanah.AddItem "Latosol merah (Humox)" com_jenis_tanah.AddItem "Latosol merah kuning (Typic haplorthox)" com_jenis_tanah.AddItem "Latosol coklat (Typic tropodult)" com_jenis_tanah.AddItem "Latosol (Epiaquic tropodult)" com_jenis_tanah.AddItem "Regosol(Troporthents)" com_jenis_tanah.AddItem "Regosol (Oxic dystropept)" com_jenis_tanah.AddItem "Regosol (Typic entropept)" com_jenis_tanah.AddItem "Regosol (Typic dystropept)"
com_jenis_tanah.AddItem "Gley humic (Typic tropoquept)" com_jenis_tanah.AddItem "Gley humic (Tropaquept)" com_jenis_tanah.AddItem "Gley humic (Aquic entropept)" com_jenis_tanah.AddItem "Lithosol (Litic eutropept)" com_jenis_tanah.AddItem "Lithosol (Orthen)" com_jenis_tanah.AddItem "Grumosol (Chromudert)" com_jenis_tanah.AddItem "Hydromorf abu-abu (Tropofluent)" com_jenis_tanah.AddItem "Podsolik (Tropudults)" com_jenis_tanah.AddItem "Podsolik Merah Kuning (Tropudults)" com_jenis_tanah.AddItem "Mediteran (Tropohumults)" com_jenis_tanah.AddItem "Mediteran (Tropaqualfs)" com_jenis_tanah.AddItem "Mediteran (Tropudalfs)" End Sub Private Sub Opt_hutan_Click() Com_cp.clear Txt_cp.text = "" Com_cp.text = "pilih kondisi tipe lahan tersebut" Com_cp.AddItem "Tidak terganggu" Com_cp.AddItem "Tanpa tumbuhan bawah, dengan serasah" Com_cp.AddItem "Tanpa tumbuhan bawah, tanpa serasah" Text2.text = Opt_hutan.Caption End Sub Private Sub Opt_kebun_Click() Com_cp.clear Txt_cp.text = "" Com_cp.text = "pilih kondisi tipe lahan tersebut" Com_cp.AddItem "kebun-talun" Com_cp.AddItem "kebun-pekarangan" Text2.text = Opt_kebun.Caption End Sub Private Sub Opt_perkebunan_Click() Com_cp.clear Txt_cp.text = "" Com_cp.text = "pilih kondisi tipe lahan tersebut" Com_cp.AddItem "penutupan tanah sempurna" Com_cp.AddItem "penutupan tanah sebagian" Text2.text = Opt_perkebunan.Caption End Sub Private Sub Opt_perladangan_Click() Com_cp.clear Txt_cp.text = "" Com_cp.text = "pilih kondisi tipe lahan tersebut"
Com_cp.AddItem "1 tahun tanam, 1 tahun bero" Com_cp.AddItem "1 tahun tanam, 2 tahun bero" Text2.text = Opt_perladangan.Caption End Sub Private Sub Opt_pertanian_dengan_konservasi_Click() Com_cp.clear Txt_cp.text = "" Com_cp.text = "pilih kondisi tipe lahan tersebut" Com_cp.AddItem "Mulsa" Com_cp.AddItem "Teras bangku" Com_cp.AddItem "Contour cropping" Text2.text = Opt_pertanian_dengan_konservasi.Caption End Sub Private Sub Opt_rerumputan_Click() Com_cp.clear Txt_cp.text = "" Com_cp.text = "pilih kondisi tipe lahan tersebut" Com_cp.AddItem "penutupan tanah sempurna" Com_cp.AddItem "Penutupan tanah sebagian, ditumbuhi Alang-alang" Com_cp.AddItem "Alang-alang: pembakaran sekali setahun" Com_cp.AddItem "Serai wangi" Text2.text = Opt_rerumputan.Caption End Sub Private Sub Opt_semak_Click() Com_cp.clear Txt_cp.text = "" Com_cp.text = "pilih kondisi tipe lahan tersebut" Com_cp.AddItem "Tidak terganggu" Com_cp.AddItem "Sebagian berumput" Text2.text = Opt_semak.Caption End Sub Private Sub Opt_tanaman_pertanian_Click() Com_cp.clear Txt_cp.text = "" Com_cp.text = "pilih kondisi tipe lahan tersebut" Com_cp.AddItem "Umbi-umbian" Com_cp.AddItem "Biji-bijian" Com_cp.AddItem "Kacang-kacangan" Com_cp.AddItem "Campuran" Com_cp.AddItem "Padi irigasi" Text2.text = Opt_tanaman_pertanian.Caption End Sub
Private Sub Opt_tsl_1_Click() Txt_tsl.text = "" Txt_ibe.text = "" Label8.Caption = "" If Opt_tsl_1.Value = True Then Txt_tsl.text = "0" Txt_ibe.text = "Tak hingga" Label8.Caption = "sangat tinggi" Text3.text = Opt_tsl_1.Caption End If End Sub Private Sub Opt_tsl_2_Click() Txt_tsl.text = "" Txt_ibe.text = "" Label8.Caption = "" If Opt_tsl_2.Value = True Then Txt_tsl.text = "4,8" Text3.text = Opt_tsl_2.Caption End Sub Private Sub Opt_tsl_3_Click() Txt_tsl.text = "" Txt_ibe.text = "" Label8.Caption = "" If Opt_tsl_3.Value = True Then Txt_tsl.text = "9,6" Text3.text = Opt_tsl_3.Caption End Sub Private Sub Opt_tsl_4_Click() Txt_tsl.text = "" Txt_ibe.text = "" Label8.Caption = "" If Opt_tsl_4.Value = True Then Txt_tsl.text = "14,4" Text3.text = Opt_tsl_4.Caption End Sub Private Sub Opt_tsl_5_Click() Txt_tsl.text = "" Txt_ibe.text = "" Label8.Caption = "" If Opt_tsl_5.Value = True Then Txt_tsl.text = "16,8" Text3.text = Opt_tsl_5.Caption End Sub Private Sub Opt_tsl_6_Click()
Txt_tsl.text = "" Txt_ibe.text = "" Label8.Caption = "" If Opt_tsl_6.Value = True Then Txt_tsl.text = "19,2" Text3.text = Opt_tsl_6.Caption End Sub Private Sub Opt_tsl_7_Click() Txt_tsl.text = "" Txt_ibe.text = "" Label8.Caption = "" If Opt_tsl_7.Value = True Then Txt_tsl.text = "24,0" Text3.text = Opt_tsl_7.Caption End Sub Private Sub Opt_tsl_8_Click() Txt_tsl.text = "" Txt_ibe.text = "" Label8.Caption = "" If Opt_tsl_8.Value = True Then Txt_tsl.text = "30,0" Text3.text = Opt_tsl_8.Caption End Sub Private Sub Text10_Change() S = Replace(Txt_a.text, ",", ".") Text4.text = S End Sub Private Sub Text2_Change() If Text2.text = Opt_hutan.Caption Then Opt_hutan.Value = True If Text2.text = Opt_semak.Caption Then Opt_semak.Value = True If Text2.text = Opt_kebun.Caption Then Opt_kebun.Value = True If Text2.text = Opt_perkebunan.Caption Then Opt_perkebunan.Value = True If Text2.text = Opt_perladangan.Caption Then Opt_perladangan.Value = True If Text2.text = Opt_tanaman_pertanian.Caption Then Opt_tanaman_pertanian.Value = True If Text2.text = Opt_rerumputan.Caption Then Opt_rerumputan.Value = True If Text2.text = Opt_pertanian_dengan_konservasi.Caption Then Opt_pertanian_dengan_konservasi.Value = True End Sub Private Sub Text3_Change() If Text3.text = Opt_tsl_1.Caption Then Opt_tsl_1.Value = True If Text3.text = Opt_tsl_2.Caption Then Opt_tsl_2.Value = True If Text3.text = Opt_tsl_3.Caption Then Opt_tsl_3.Value = True If Text3.text = Opt_tsl_4.Caption Then Opt_tsl_4.Value = True If Text3.text = Opt_tsl_5.Caption Then Opt_tsl_5.Value = True
If Text3.text = Opt_tsl_6.Caption Then Opt_tsl_6.Value = True If Text3.text = Opt_tsl_7.Caption Then Opt_tsl_7.Value = True If Text3.text = Opt_tsl_8.Caption Then Opt_tsl_8.Value = True End Sub Private Sub Timer1_Timer() If Lbl_timer.Left > -Lbl_timer.Width Then Lbl_timer.Left = Lbl_timer.Left - 100 ElseIf Lbl_timer.Left <> Lbl_timer.Width Then Lbl_timer.Left = Lbl_timer.Width End If End Sub Private Sub txt_A_Change() Txt_ibe.text = "" Label8.Caption = "" S = Replace(Txt_a.text, ",", ".") Text4.text = S End Sub Private Sub Txt_cp_Change() Txt_a.text = "" S = Replace(Txt_cp.text, ",", ".") Text11.text = S End Sub Private Sub Txt_ibe_Change() S = Replace(Txt_ibe.text, ",", ".") Text5.text = S End Sub Private Sub txt_K_Change() Txt_a.text = "" S = Replace(txt_K.text, ",", ".") Text7.text = S End Sub Private Sub Txt_KL_LostFocus() Set rs1 = New Recordset rs1.Open "perhitungan_erosi_usle", db, adOpenStatic, adLockOptimistic rs1.Filter = "Kode_Laporan = '" & Txt_KL.text & "'" If Not rs1.EOF Then Txt_KL.text = rs1.Fields("kode_laporan") Txt_LP.text = rs1.Fields("Lokasi_Penelitian") txt_P.text = rs1.Fields("Curah_Hujan_Bulanan")
txt_r.text = rs1.Fields("Indeks_Erosivitas_Bulanan") Txt_L.text = rs1.Fields("Panjang_Lereng") Txt_s.text = rs1.Fields("Kemiringan_lereng") txt_np.text = rs1.Fields("Nama_Pengguna") com_jenis_tanah.text = rs1.Fields("Jenis_Tanah") txt_K.text = rs1.Fields("Indeks_Erodibilitas_Tanah") Text3.text = rs1.Fields("Kondisi_Kedalaman_dan_Solum_Tanah") Txt_tsl.text = rs1.Fields("Tolerable_Soil_Loss") txt_LS.text = rs1.Fields("Panjang_dan_Kemiringan_Lahan") Text2.text = rs1.Fields("jenis_penggunaan_lahan") Txt_cp.text = rs1.Fields("Nilai_CP_Lahan") Com_cp.text = rs1.Fields("Kondisi_penggunaan_Lahan") Txt_a.text = rs1.Fields("Prakiraan_Laju_erosi") Txt_ibe.text = rs1.Fields("Indeks_Bahaya_Erosi") Label8.Caption = rs1.Fields("Tingkat_Bahaya_Erosi") Call kunci pesan = MsgBox("Data ini sudah pernah disimpan,,ingin edit data?????????", vbInformation + vbYesNo, "Keterangan") If pesan = vbYes Then MsgBox " untuk edit data klik tombol edit terlebih dahulu,,,baru data bisa diedit...:P" If pesan = vbNo Then Txt_KL.text = "" Txt_a.text = "" Txt_tsl.text = "" Txt_ibe.text = "" txt_r.text = "" Txt_ibe.text = "" txt_P.text = "" Txt_L.text = "" Txt_s.text = "" txt_K.text = "" Txt_cp.text = "" txt_LS.text = "" txt_np.text = "" Txt_LP.text = "" Label8.Caption = "" Text2.text = "" Text3.text = "" com_jenis_tanah.text = "pilih jenis tanah" Com_cp.text = "" Opt_tsl_1.Value = False Opt_tsl_2.Value = False Opt_tsl_3.Value = False Opt_tsl_4.Value = False Opt_tsl_5.Value = False Opt_tsl_6.Value = False
Opt_tsl_7.Value = False Opt_tsl_8.Value = False Opt_hutan.Value = False Opt_semak.Value = False Opt_kebun.Value = False Opt_perkebunan.Value = False Opt_perladangan.Value = False Opt_tanaman_pertanian.Value = False Opt_rerumputan.Value = False Opt_pertanian_dengan_konservasi.Value = False Txt_KL.SetFocus Set rs = Nothing Call buka End If Else MsgBox "Data ini belum pernah disimpan", vbInformation + vbOKCancel, "Keterangan" Txt_a.text = "" Txt_tsl.text = "" Txt_ibe.text = "" txt_r.text = "" Txt_ibe.text = "" txt_P.text = "" Txt_L.text = "" Txt_s.text = "" txt_K.text = "" Txt_cp.text = "" txt_LS.text = "" txt_np.text = "" Txt_LP.text = "" Label8.Caption = "" Text2.text = "" Text3.text = "" com_jenis_tanah.text = "pilih jenis tanah" Com_cp.text = "" Opt_tsl_1.Value = False Opt_tsl_2.Value = False Opt_tsl_3.Value = False Opt_tsl_4.Value = False Opt_tsl_5.Value = False Opt_tsl_6.Value = False Opt_tsl_7.Value = False Opt_tsl_8.Value = False Opt_hutan.Value = False Opt_semak.Value = False Opt_kebun.Value = False Opt_perkebunan.Value = False
Opt_perladangan.Value = False Opt_tanaman_pertanian.Value = False Opt_rerumputan.Value = False Opt_pertanian_dengan_konservasi.Value = False Txt_LP.SetFocus End If Set rs = Nothing End Sub Private Sub Txt_L_Change() txt_LS.text = "" S = Replace(Txt_L.text, ",", ".") Text12.text = S End Sub Private Sub txt_LS_Change() Txt_a.text = "" S = Replace(txt_LS.text, ",", ".") Text8.text = S End Sub Private Sub txt_P_Change() txt_r.text = "" S = Replace(txt_P.text, ",", ".") Text10.text = S End Sub Private Sub Txt_R_Change() Txt_a.text = "" S = Replace(txt_r.text, ",", ".") Text9.text = S End Sub Private Sub txt_s_Change() txt_LS.text = "" S = Replace(Txt_s.text, ",", ".") Text13.text = S End Sub Private Sub Txt_tsl_Change() S = Replace(Txt_tsl.text, ",", ".") Text6.text = S End Sub
Form Cetak Erosi Private Sub Combo1_Click() Set rs = New Recordset rs.Open "select *from Perhitungan_erosi_usle", db, adOpenStatic, adLockOptimistic If Option1.Value = True Then rs.Find "Kode_Laporan ='" & Combo1.text & "'" ElseIf Option2.Value = True Then rs.Find "Lokasi_Penelitian ='" & Combo1.text & "'" End If Exit Sub End Sub Private Sub Command1_Click() If Option1.Value = True Then Cr.ReportFileName = App.path & "\Report1.rpt" Cr.SelectionFormula = "{Perhitungan_erosi_usle.Kode_Laporan}='" & Combo1.text & "'" Cr.RetrieveDataFiles Cr.WindowState = crptMaximized Cr.Action = 1 ElseIf Option2.Value = True Then Cr.ReportFileName = App.path & "\erosilokasi.rpt" Cr.SelectionFormula = "{Perhitungan_erosi_usle.Lokasi_Penelitian}='" & Combo1.text & "'" Cr.RetrieveDataFiles Cr.WindowState = crptMaximized Cr.Action = 1 End If End Sub Private Sub Command2_Click() Unload cetak_erosi_usle Option1.Value = False Option2.Value = False Combo1.text = "" End Sub
Private Sub Option1_Click() Set rs = New Recordset rs.Open "select *from Perhitungan_erosi_usle", db, adOpenStatic, adLockOptimistic Combo1.clear Combo1.text = "pilih kode laporan yang akan anda cetak terlebih dahulu" Do While Not rs.EOF Combo1.AddItem rs.Fields("Kode_Laporan") rs.MoveNext Loop
End Sub Private Sub Option2_Click() Set rs = New Recordset rs.Open "select *from Perhitungan_erosi_usle", db, adOpenStatic, adLockOptimistic Combo1.clear Combo1.text = "Pilih Loksai Penelitian yang akan anda cetak terlebih dahulu" Do While Not rs.EOF Combo1.AddItem rs.Fields("Lokasi_Penelitian") rs.MoveNext Loop End Sub Form Debit SCS Public EE As String Private Sub cetak_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame7.Visible = True Frame2.Visible = False Frame9.Visible = False End Sub Private Sub Com_jenis_penggunaan_lahan_Click() Com_perlakuan.clear Com_kondisi_landuse.clear Com_perlakuan.text = "pilih jenis perlakuan yang dilakukan terhadap areal" Com_kondisi_landuse.text = "pilih jenis kondisi hidrologi areal" Select Case Com_jenis_penggunaan_lahan.text Case "Fallow" Com_kondisi_landuse.Enabled = True Com_perlakuan.Enabled = True Com_perlakuan.AddItem "Bare Soil" Com_perlakuan.AddItem "Crop residue cover" Com_kondisi_landuse.AddItem "Baik" 'Com_kondisi_landuse.AddItem "Cukup" Com_kondisi_landuse.AddItem "Buruk" Case "Row crops" Com_kondisi_landuse.Enabled = True Com_perlakuan.Enabled = True Com_perlakuan.AddItem "Straight row" Com_perlakuan.AddItem "Straight row with residue" Com_perlakuan.AddItem "Contoured" Com_perlakuan.AddItem "Contoured with residue" Com_perlakuan.AddItem "Contoured & Teracced" Com_perlakuan.AddItem "Contoured & Terraced with residue" Com_kondisi_landuse.AddItem "Baik"
'Com_kondisi_landuse.AddItem "Cukup" Com_kondisi_landuse.AddItem "Buruk" Case "Small Grains" Com_kondisi_landuse.Enabled = True Com_perlakuan.Enabled = True Com_perlakuan.AddItem "Straight row" Com_perlakuan.AddItem "Straight row with residue" Com_perlakuan.AddItem "Contoured" Com_perlakuan.AddItem "Contoured with residue" Com_perlakuan.AddItem "Contoured & Teracced" Com_perlakuan.AddItem "Contoured & Terraced with residue" Com_kondisi_landuse.AddItem "Baik" 'Com_kondisi_landuse.AddItem "Cukup" Com_kondisi_landuse.AddItem "Buruk" Case "Close Seeded or Broadcast legumes or rotation" Com_kondisi_landuse.Enabled = True Com_perlakuan.Enabled = True Com_perlakuan.AddItem "Straight row" Com_perlakuan.AddItem "Contoured" Com_perlakuan.AddItem "Contoured & Teracced" Com_kondisi_landuse.AddItem "Baik" 'Com_kondisi_landuse.AddItem "Cukup" Com_kondisi_landuse.AddItem "Buruk" Case "Pasture, grassland, or range--continuous forage for grazing" Com_perlakuan.Enabled = False Com_kondisi_landuse.Enabled = True Com_kondisi_landuse.AddItem "Baik" Com_kondisi_landuse.AddItem "Cukup" Com_kondisi_landuse.AddItem "Buruk" Case "Meadow-continuous grass,protected from grazing and generally mowed for hay" Com_perlakuan.Enabled = False Com_kondisi_landuse.Enabled = False Case "Brush---brush-weed,grass mixture with brush the major element" Com_perlakuan.Enabled = False Com_kondisi_landuse.Enabled = True Com_kondisi_landuse.AddItem "Baik" Com_kondisi_landuse.AddItem "Cukup" Com_kondisi_landuse.AddItem "Buruk" Case "Woods--grass combination (orchad or tree farm)" Com_perlakuan.Enabled = False
Com_kondisi_landuse.Enabled = True Com_kondisi_landuse.AddItem "Baik" Com_kondisi_landuse.AddItem "Cukup" Com_kondisi_landuse.AddItem "Buruk" Case "Woods" Com_perlakuan.Enabled = False Com_kondisi_landuse.Enabled = True Com_kondisi_landuse.AddItem "Baik" Com_kondisi_landuse.AddItem "Cukup" Com_kondisi_landuse.AddItem "Buruk" Case "Farmstead--buildings,lanes,driveways,and surrounding lots" Com_perlakuan.Enabled = False Com_kondisi_landuse.Enabled = False End Select End Sub Private Sub Com_perlakuan_Click() Select Case Com_perlakuan.text Case "Bare Soil" Com_kondisi_landuse.Enabled = False End Select End Sub Private Sub Com1_Click() Com2.clear Com2.text = "pilih kondisi hidrologi areal tersebut" Select Case Com1.text Case "Open spaces (lawns,parks,golf course, cemeteries,etc)" Com2.Enabled = True Com2.AddItem "Baik" Com2.AddItem "Cukup" Com2.AddItem "Buruk" Com3.Enabled = False Case "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" Com2.Enabled = False Com3.Enabled = False Case "Paved streets and roads;open ditches (incl.right-of-way)" Com2.Enabled = False Com3.Enabled = False Case "Gravel streets and roads (including right-of-way)" Com2.Enabled = False Com3.Enabled = False
Case "Dirt streets and roads (including right-of the way)" Com2.Enabled = False Com3.Enabled = False Case "Urban districts:Commercial and bussiness" Com2.Enabled = False Com3.Enabled = True Com3.AddItem "85%" Case "Urban districts:Industrial" Com2.Enabled = False Com3.Enabled = True Com3.AddItem "72%" Case "Residential Districts by average lot size: 0.05 Ha or less (town houses" Com2.Enabled = False Com3.Enabled = True Com3.AddItem "65%" Case "Residential Districts by average lot size: 0.1 Ha" Com2.Enabled = False Com3.Enabled = True Com3.AddItem "38%" Case "Residential Districts by average lot size:0.13 Ha" Com2.Enabled = False Com3.Enabled = True Com3.AddItem "30%" Case "Residential Districts by average lot size:0.20 Ha" Com2.Enabled = False Com3.Enabled = True Com3.AddItem "25%" Case "Residential Districts by average lot size:0.40 Ha" Com2.Enabled = False Com3.Enabled = True Com3.AddItem "20%" Case "Residential Districts by average lot size:0.81 Ha" Com2.Enabled = False Com3.Enabled = True Com3.AddItem "12%" Case "Developing urban areas:Newly graded areas (previous only,no vegetation)"
Com2.Enabled = False Com3.Enabled = False End Select End Sub Private Sub Row_crops() If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "72"
If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "72" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "67"
If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "67" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "71"
If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "71"
If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "71" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "64"
If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "70" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "70" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "70" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "70"
If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "70" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "70" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "70" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "70" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "70" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "70" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "70" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "70" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "70" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "70" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "70" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "70" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "70" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "70" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "70"
If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text (Tropaqualfs)" Then Txt_1.text = "70" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text (Tropudalfs)" Then Txt_1.text = "70"
= "Contoured" = "Mediteran = "Contoured" = "Mediteran
If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "65"
If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Hydromorf abu -abu (Tropofluent)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "69"
If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "69" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "64"
If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "64"
If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "66"
If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "62"
If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "62"
If Com_jenis_penggunaan_lahan.text = "Row Teracced" And Com_kondisi_landuse.text = (Tropaqualfs)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Row Teracced" And Com_kondisi_landuse.text = (Tropudalfs)" Then Txt_1.text = "62"
crops" And Com_perlakuan.text = "Contoured & "Baik" And com_jenis_tanah.text = "Mediteran crops" And Com_perlakuan.text = "Contoured & "Baik" And com_jenis_tanah.text = "Mediteran
If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "65"
If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "61"
If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Row crops" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "61" End Sub Private Sub Command1_Click()
'On Error GoTo errr If Opt_1.Value = True Then Call sky If Opt_2.Value = True Then GoTo bbbb txt_2.text = 25.4 * (CDbl(1000 / Txt_1.text) - 10) txt_4.text = (CDbl(Txt_3.text) - 0.2 * CDbl(txt_2.text)) * (CDbl(Txt_3.text) - 0.2 * CDbl(txt_2.text)) / (CDbl(Txt_3.text) + 0.8 * CDbl(txt_2.text)) txt_5.text = (CDbl(txt_4.text) / CDbl(Txt_3.text)) * 100 Txt_6.text = 0.0021 * (CDbl(txt_4.text) * CDbl(Txt_a.text) / CDbl(txt_tp.text)) If CDbl(txt_5.text) < 30 Then Label25.Caption = "debit nya cukup bagus" If CDbl(txt_5.text) > 30 Then Label25.Caption = "wuiiiiiiiiiiihhhhh!!!" Txt_1.Visible = True Txt_1cn.Visible = False txt_2.Visible = True Txt_2cn.Visible = False Txt_3.Visible = True Txt_3cn.Visible = False txt_4.Visible = True Txt_4cn.Visible = False txt_5.Visible = True Txt_5cn.Visible = False Txt_6.Visible = True Txt_6cn.Visible = False Label25.Visible = True Label39.Visible = False S = Replace(Txt_1.text, ",", ".") Txt_cn.text = S p = Replace(txt_2.text, ",", ".") Txt_s.text = p r = Replace(Txt_3.text, ",", ".") txt_r.text = r t = Replace(txt_4.text, ",", ".") txt_q.text = t v = Replace(txt_5.text, ",", ".") txt_qr.text = v w = Replace(Txt_6.text, ",", ".") txt_qmaks.text = w Com_kondisi_landuse.Enabled = False Com_perlakuan.Enabled = False Exit Sub bbbb: Call skyy Txt_2cn.text = 25.4 * (CDbl(1000 / Txt_1cn.text) - 10)
Txt_4cn.text = (CDbl(Txt_3cn.text) - 0.2 * CDbl(Txt_2cn.text)) * (CDbl(Txt_3cn.text) - 0.2 * CDbl(Txt_2cn.text)) / (CDbl(Txt_3cn.text) + 0.8 * CDbl(Txt_2cn.text)) Txt_5cn.text = (CDbl(Txt_4cn.text) / CDbl(Txt_3cn.text)) * 100 Txt_6cn.text = 0.0021 * (CDbl(Txt_4cn.text) * CDbl(Txt_acn.text) / CDbl(Txt_tpcn.text)) If CDbl(Txt_5cn.text) < 30 Then Label39.Caption = "debit nya cukup bagus" If CDbl(Txt_5cn.text) > 30 Then Label39.Caption = "wuiiiiiiiiiiihhhhh!!!" Txt_1.Visible = False Txt_1cn.Visible = True txt_2.Visible = False Txt_2cn.Visible = True Txt_3.Visible = False Txt_3cn.Visible = True txt_4.Visible = False Txt_4cn.Visible = True txt_5.Visible = False Txt_5cn.Visible = True Txt_6.Visible = False Txt_6cn.Visible = True Label25.Visible = False Label39.Visible = True S = Replace(Txt_1cn.text, ",", ".") Txt_cncn.text = S p = Replace(Txt_2cn.text, ",", ".") Txt_scn.text = p r = Replace(Txt_3cn.text, ",", ".") Txt_rcn.text = r t = Replace(Txt_4cn.text, ",", ".") Txt_qcn.text = t v = Replace(Txt_5cn.text, ",", ".") txt_qrcn.text = v w = Replace(Txt_6cn.text, ",", ".") Txt_qmakscn.text = w Com2.Enabled = False Com3.Enabled = False Exit Sub 'errr: 'MsgBox "masih ada data perhitungan yang kosong :p ", vbOKCancel + vbExclamation, "Peringatan" End Sub Private Sub skyy() If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" Then Call Open_spaces_lawnsparks_golf_course_cemeteries_etc
If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" Then Call Paved_parking_lots_roofs_driveways_etc_excl_right_of_way If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" Then Call Paved_streets_and_roads_open_ditches_incl_right_of_way If Com1.text = "Gravel streets and roads (including right-of-way)" Then Call Gravel_streets_and_roads_including_right_of_way If Com1.text = "Dirt streets and roads (including right-of the way)" Then Call Dirt_streets_and_roads_including_right_of_the_way If Com1.text = "Urban districts:Commercial and bussiness" Then Call Urban_districts_Commercial_and_bussiness If Com1.text = "Urban districts:Industrial" Then Call Urban_districts_Industrial If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" Then Call Residential_Districts_by_average_lot_size_005_Ha_or_less_town_houses If Com1.text = "Residential Districts by average lot size: 0.1 Ha" Then Call Residential_Districts_by_average_lot_size_01_Ha If Com1.text = "Residential Districts by average lot size:0.13 Ha" Then Call Residential_Districts_by_average_lot_size_013_Ha If Com1.text = "Residential Districts by average lot size:0.20 Ha" Then Call Residential_Districts_by_average_lot_size_020_Ha If Com1.text = "Residential Districts by average lot size:0.40 Ha" Then Call Residential_Districts_by_average_lot_size_0_40_Ha If Com1.text = "Residential Districts by average lot size:0.81 Ha" Then Call Residential_Districts_by_average_lot_size_081_Ha If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" Then Call Developing_urban_areas_Newly_graded_areas_previous_only_novegetation End Sub Private Sub Open_spaces_lawnsparks_golf_course_cemeteries_etc() If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "latosol(Haplorthox)" Then Txt_1cn.text = "89" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Latosol merah (Humox)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Latosol coklat (Typic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Latosol (Epiaquic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Regosol(Troporthents)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Regosol (Oxic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Regosol (Typic entropept)" Then Txt_1cn.text = "90"
If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Regosol (Typic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Gley humic (Typic tropoquept)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Gley humic (Tropaquept)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Gley humic (Aquic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Lithosol (Litic eutropept)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Lithosol (Orthen)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Grumosol (Chromudert)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Podsolik (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Mediteran (Tropohumults)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Mediteran (Tropaqualfs)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Baik" And Com4.text = "Mediteran (Tropudalfs)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Cukup" And Com4.text = "latosol(Haplorthox)" Then Txt_1cn.text = "89" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Cukup" And Com4.text = "Latosol merah (Humox)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Cukup" And Com4.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Cukup" And Com4.text = "Latosol coklat (Typic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Cukup" And Com4.text = "Latosol (Epiaquic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Cukup" And Com4.text = "Regosol(Troporthents)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Cukup" And Com4.text = "Regosol (Oxic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Cukup" And Com4.text = "Regosol (Typic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Cukup" And Com4.text = "Regosol (Typic dystropept)" Then Txt_1cn.text = "90"
If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Cukup" And Com4.text = "Gley humic (Typic tropoquept)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Cukup" And Com4.text = "Gley humic (Tropaquept)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Cukup" And Com4.text = "Gley humic (Aquic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Cukup" And Com4.text = "Lithosol (Litic eutropept)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Cukup" And Com4.text = "Lithosol (Orthen)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Cukup" And Com4.text = "Grumosol (Chromudert)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Cukup" And Com4.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Cukup" And Com4.text = "Podsolik (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Cukup" And Com4.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Cukup" And Com4.text = "Mediteran (Tropohumults)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Cukup" And Com4.text = "Mediteran (Tropaqualfs)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Cukup" And Com4.text = "Mediteran (Tropudalfs)" Then Txt_1cn.text = "90"
= = = = = = = = = = = =
If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Buruk" And Com4.text = "latosol(Haplorthox)" Then Txt_1cn.text = "89" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Buruk" And Com4.text = "Latosol merah (Humox)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Buruk" And Com4.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Buruk" And Com4.text = "Latosol coklat (Typic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Buruk" And Com4.text = "Latosol (Epiaquic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Buruk" And Com4.text = "Regosol(Troporthents)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Buruk" And Com4.text = "Regosol (Oxic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Buruk" And Com4.text = "Regosol (Typic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Buruk" And Com4.text = "Regosol (Typic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text = "Buruk" And Com4.text = "Gley humic (Typic tropoquept)" Then Txt_1cn.text = "90"
If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Buruk" And Com4.text = "Gley humic (Tropaquept)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Buruk" And Com4.text = "Gley humic (Aquic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Buruk" And Com4.text = "Lithosol (Litic eutropept)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Buruk" And Com4.text = "Lithosol (Orthen)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Buruk" And Com4.text = "Grumosol (Chromudert)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Buruk" And Com4.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Buruk" And Com4.text = "Podsolik (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Buruk" And Com4.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Buruk" And Com4.text = "Mediteran (Tropohumults)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Buruk" And Com4.text = "Mediteran (Tropaqualfs)" Then Txt_1cn.text = "90" If Com1.text = "Open spaces (lawns,parks,golf course, cemeteries,etc)" And Com2.text "Buruk" And Com4.text = "Mediteran (Tropudalfs)" Then Txt_1cn.text = "90" End Sub Private Sub Paved_parking_lots_roofs_driveways_etc_excl_right_of_way() If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "latosol(Haplorthox)" Then Txt_1cn.text = "89" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Latosol merah (Humox)" Then Txt_1cn.text = "90" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Latosol merah kuning (Typic haplorthox)" Then Txt_1cn.text = "90" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Latosol coklat (Typic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Latosol (Epiaquic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Regosol(Troporthents)" Then Txt_1cn.text = "90" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Regosol (Oxic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Regosol (Typic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Regosol (Typic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Gley humic (Typic tropoquept)" Then Txt_1cn.text = "90"
= = = = = = = = = = =
And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text =
If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Gley humic (Tropaquept)" Then Txt_1cn.text = "90" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Gley humic (Aquic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Lithosol (Litic eutropept)" Then Txt_1cn.text = "90" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Lithosol (Orthen)" Then Txt_1cn.text = "90" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Grumosol (Chromudert)" Then Txt_1cn.text = "90" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Hydromorf abu-abu (Tropofluent)" Then Txt_1cn.text = "90" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Podsolik (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Podsolik Merah Kuning (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Mediteran (Tropohumults)" Then Txt_1cn.text = "90" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Mediteran (Tropaqualfs)" Then Txt_1cn.text = "90" If Com1.text = "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" "Mediteran (Tropudalfs)" Then Txt_1cn.text = "90" End Sub Private Sub Paved_streets_and_roads_open_ditches_incl_right_of_way()
And Com4.text =
If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "latosol(Haplorthox)" Then Txt_1cn.text = "89" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Latosol merah (Humox)" Then Txt_1cn.text = "90" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Latosol merah kuning (Typic haplorthox)" Then Txt_1cn.text = "90" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Latosol coklat (Typic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Latosol (Epiaquic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Regosol(Troporthents)" Then Txt_1cn.text = "90" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Regosol (Oxic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Regosol (Typic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Regosol (Typic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Gley humic (Typic tropoquept)" Then Txt_1cn.text = "90"
And Com4.text =
And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text =
And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text =
If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Gley humic (Tropaquept)" Then Txt_1cn.text = "90" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Gley humic (Aquic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Lithosol (Litic eutropept)" Then Txt_1cn.text = "90" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Lithosol (Orthen)" Then Txt_1cn.text = "90" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Grumosol (Chromudert)" Then Txt_1cn.text = "90" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Hydromorf abu-abu (Tropofluent)" Then Txt_1cn.text = "90" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Podsolik (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Podsolik Merah Kuning (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Mediteran (Tropohumults)" Then Txt_1cn.text = "90" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Mediteran (Tropaqualfs)" Then Txt_1cn.text = "90" If Com1.text = "Paved streets and roads;open ditches (incl.right-of-way)" "Mediteran (Tropudalfs)" Then Txt_1cn.text = "90" End Sub
And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text = And Com4.text =
Private Sub Gravel_streets_and_roads_including_right_of_way() If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "latosol(Haplorthox)" Then Txt_1cn.text = "89" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Latosol merah (Humox)" Then Txt_1cn.text = "90" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1cn.text = "90" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Latosol coklat (Typic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Latosol (Epiaquic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Regosol(Troporthents)" Then Txt_1cn.text = "90" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Regosol (Oxic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Regosol (Typic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Regosol (Typic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Gley humic (Typic tropoquept)" Then Txt_1cn.text = "90"
If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Gley humic (Tropaquept)" Then Txt_1cn.text = "90" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Gley humic (Aquic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Lithosol (Litic eutropept)" Then Txt_1cn.text = "90" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Lithosol (Orthen)" Then Txt_1cn.text = "90" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Grumosol (Chromudert)" Then Txt_1cn.text = "90" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1cn.text = "90" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Podsolik (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Mediteran (Tropohumults)" Then Txt_1cn.text = "90" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Mediteran (Tropaqualfs)" Then Txt_1cn.text = "90" If Com1.text = "Gravel streets and roads (including right-of-way)" And Com4.text = "Mediteran (Tropudalfs)" Then Txt_1cn.text = "90" End Sub Private Sub Dirt_streets_and_roads_including_right_of_the_way() If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "latosol(Haplorthox)" Then Txt_1cn.text = "89" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Latosol merah (Humox)" Then Txt_1cn.text = "90" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1cn.text = "90" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Latosol coklat (Typic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Latosol (Epiaquic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Regosol(Troporthents)" Then Txt_1cn.text = "90" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Regosol (Oxic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Regosol (Typic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Regosol (Typic dystropept)" Then Txt_1cn.text = "90"
If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Gley humic (Typic tropoquept)" Then Txt_1cn.text = "90" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Gley humic (Tropaquept)" Then Txt_1cn.text = "90" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Gley humic (Aquic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Lithosol (Litic eutropept)" Then Txt_1cn.text = "90" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Lithosol (Orthen)" Then Txt_1cn.text = "90" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Grumosol (Chromudert)" Then Txt_1cn.text = "90" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1cn.text = "90" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Podsolik (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Mediteran (Tropohumults)" Then Txt_1cn.text = "90" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Mediteran (Tropaqualfs)" Then Txt_1cn.text = "90" If Com1.text = "Dirt streets and roads (including right-of the way)" And Com4.text = "Mediteran (Tropudalfs)" Then Txt_1cn.text = "90" End Sub Private Sub Urban_districts_Commercial_and_bussiness() If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text = Com4.text = "latosol(Haplorthox)" Then Txt_1cn.text = "89" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text = Com4.text = "Latosol merah (Humox)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text = Com4.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text = Com4.text = "Latosol coklat (Typic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text = Com4.text = "Latosol (Epiaquic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text = Com4.text = "Regosol(Troporthents)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text = Com4.text = "Regosol (Oxic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text = Com4.text = "Regosol (Typic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text = Com4.text = "Regosol (Typic dystropept)" Then Txt_1cn.text = "90"
"85%" And "85%" And "85%" And "85%" And "85%" And "85%" And "85%" And "85%" And "85%" And
If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text Com4.text = "Gley humic (Typic tropoquept)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text Com4.text = "Gley humic (Tropaquept)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text Com4.text = "Gley humic (Aquic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text Com4.text = "Lithosol (Litic eutropept)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text Com4.text = "Lithosol (Orthen)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text Com4.text = "Grumosol (Chromudert)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text Com4.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text Com4.text = "Podsolik (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text Com4.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text Com4.text = "Mediteran (Tropohumults)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text Com4.text = "Mediteran (Tropaqualfs)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Commercial and bussiness" And Com3.text Com4.text = "Mediteran (Tropudalfs)" Then Txt_1cn.text = "90" End Sub
= "85%" And = "85%" And = "85%" And = "85%" And = "85%" And = "85%" And = "85%" And = "85%" And = "85%" And = "85%" And = "85%" And = "85%" And
Private Sub Urban_districts_Industrial() If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "latosol(Haplorthox)" Then Txt_1cn.text = "89" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Latosol merah (Humox)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Latosol coklat (Typic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Latosol (Epiaquic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Regosol(Troporthents)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Regosol (Oxic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Regosol (Typic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Regosol (Typic dystropept)" Then Txt_1cn.text = "90"
If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Gley humic (Typic tropoquept)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Gley humic (Tropaquept)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Gley humic (Aquic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Lithosol (Litic eutropept)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Lithosol (Orthen)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Grumosol (Chromudert)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Podsolik (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Mediteran (Tropohumults)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Mediteran (Tropaqualfs)" Then Txt_1cn.text = "90" If Com1.text = "Urban districts:Industrial" And Com3.text = "72%" And Com4.text = "Mediteran (Tropudalfs)" Then Txt_1cn.text = "90" End Sub Private Sub Residential_Districts_by_average_lot_size_005_Ha_or_less_town_houses() If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "latosol(Haplorthox)" Then Txt_1cn.text = "89" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Latosol merah (Humox)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Latosol coklat (Typic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Latosol (Epiaquic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Regosol(Troporthents)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Regosol (Oxic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Regosol (Typic entropept)" Then Txt_1cn.text = "90"
If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Regosol (Typic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Gley humic (Typic tropoquept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Gley humic (Tropaquept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Gley humic (Aquic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Lithosol (Litic eutropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Lithosol (Orthen)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Grumosol (Chromudert)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Podsolik (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Mediteran (Tropohumults)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Mediteran (Tropaqualfs)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.05 Ha or less (town houses" And Com3.text = "65%" And Com4.text = "Mediteran (Tropudalfs)" Then Txt_1cn.text = "90" End Sub Private Sub Residential_Districts_by_average_lot_size_01_Ha() If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = Com4.text = "latosol(Haplorthox)" Then Txt_1cn.text = "89" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = Com4.text = "Latosol merah (Humox)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = Com4.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = Com4.text = "Latosol coklat (Typic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = Com4.text = "Latosol (Epiaquic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = Com4.text = "Regosol(Troporthents)" Then Txt_1cn.text = "90"
"38%" And "38%" And "38%" And "38%" And "38%" And "38%" And
If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = "38%" And Com4.text = "Regosol (Oxic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = "38%" And Com4.text = "Regosol (Typic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = "38%" And Com4.text = "Regosol (Typic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = "38%" And Com4.text = "Gley humic (Typic tropoquept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = "38%" And Com4.text = "Gley humic (Tropaquept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = "38%" And Com4.text = "Gley humic (Aquic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = "38%" And Com4.text = "Lithosol (Litic eutropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = "38%" And Com4.text = "Lithosol (Orthen)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = "38%" And Com4.text = "Grumosol (Chromudert)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = "38%" And Com4.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = "38%" And Com4.text = "Podsolik (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = "38%" And Com4.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = "38%" And Com4.text = "Mediteran (Tropohumults)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = "38%" And Com4.text = "Mediteran (Tropaqualfs)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size: 0.1 Ha" And Com3.text = "38%" And Com4.text = "Mediteran (Tropudalfs)" Then Txt_1cn.text = "90" End Sub Private Sub Residential_Districts_by_average_lot_size_013_Ha() If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "latosol(Haplorthox)" Then Txt_1cn.text = "89" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Latosol merah (Humox)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Latosol coklat (Typic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Latosol (Epiaquic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Regosol(Troporthents)" Then Txt_1cn.text = "90"
If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Regosol (Oxic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Regosol (Typic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Regosol (Typic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Gley humic (Typic tropoquept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Gley humic (Tropaquept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Gley humic (Aquic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Lithosol (Litic eutropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Lithosol (Orthen)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Grumosol (Chromudert)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Podsolik (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Mediteran (Tropohumults)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Mediteran (Tropaqualfs)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.13 Ha" And Com3.text = "30%" And Com4.text = "Mediteran (Tropudalfs)" Then Txt_1cn.text = "90" End Sub Private Sub Residential_Districts_by_average_lot_size_020_Ha() If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "latosol(Haplorthox)" Then Txt_1cn.text = "89" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Latosol merah (Humox)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Latosol coklat (Typic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Latosol (Epiaquic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Regosol(Troporthents)" Then Txt_1cn.text = "90"
If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Regosol (Oxic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Regosol (Typic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Regosol (Typic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Gley humic (Typic tropoquept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Gley humic (Tropaquept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Gley humic (Aquic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Lithosol (Litic eutropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Lithosol (Orthen)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Grumosol (Chromudert)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Podsolik (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Mediteran (Tropohumults)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Mediteran (Tropaqualfs)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.20 Ha" And Com3.text = "25%" And Com4.text = "Mediteran (Tropudalfs)" Then Txt_1cn.text = "90" End Sub Private Sub Residential_Districts_by_average_lot_size_0_40_Ha() If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "latosol(Haplorthox)" Then Txt_1cn.text = "89" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Latosol merah (Humox)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Latosol coklat (Typic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Latosol (Epiaquic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Regosol(Troporthents)" Then Txt_1cn.text = "90"
If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Regosol (Oxic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Regosol (Typic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Regosol (Typic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Gley humic (Typic tropoquept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Gley humic (Tropaquept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Gley humic (Aquic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Lithosol (Litic eutropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Lithosol (Orthen)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Grumosol (Chromudert)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Podsolik (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Mediteran (Tropohumults)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Mediteran (Tropaqualfs)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.40 Ha" And Com3.text = "20%" And Com4.text = "Mediteran (Tropudalfs)" Then Txt_1cn.text = "90" End Sub Private Sub Residential_Districts_by_average_lot_size_081_Ha() If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "latosol(Haplorthox)" Then Txt_1cn.text = "89" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Latosol merah (Humox)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Latosol coklat (Typic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Latosol (Epiaquic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Regosol(Troporthents)" Then Txt_1cn.text = "90"
If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Regosol (Oxic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Regosol (Typic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Regosol (Typic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Gley humic (Typic tropoquept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Gley humic (Tropaquept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Gley humic (Aquic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Lithosol (Litic eutropept)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Lithosol (Orthen)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Grumosol (Chromudert)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Podsolik (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Mediteran (Tropohumults)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Mediteran (Tropaqualfs)" Then Txt_1cn.text = "90" If Com1.text = "Residential Districts by average lot size:0.81 Ha" And Com3.text = "12%" And Com4.text = "Mediteran (Tropudalfs)" Then Txt_1cn.text = "90" End Sub Private Sub Developing_urban_areas_Newly_graded_areas_previous_only_novegetation() If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "latosol(Haplorthox)" Then Txt_1cn.text = "89" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Latosol merah (Humox)" Then Txt_1cn.text = "90" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1cn.text = "90" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Latosol coklat (Typic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Latosol (Epiaquic tropodult)" Then Txt_1cn.text = "90" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Regosol(Troporthents)" Then Txt_1cn.text = "90"
If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Regosol (Oxic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Regosol (Typic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Regosol (Typic dystropept)" Then Txt_1cn.text = "90" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Gley humic (Typic tropoquept)" Then Txt_1cn.text = "90" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Gley humic (Tropaquept)" Then Txt_1cn.text = "90" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Gley humic (Aquic entropept)" Then Txt_1cn.text = "90" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Lithosol (Litic eutropept)" Then Txt_1cn.text = "90" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Lithosol (Orthen)" Then Txt_1cn.text = "90" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Grumosol (Chromudert)" Then Txt_1cn.text = "90" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1cn.text = "90" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Podsolik (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1cn.text = "90" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Mediteran (Tropohumults)" Then Txt_1cn.text = "90" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Mediteran (Tropaqualfs)" Then Txt_1cn.text = "90" If Com1.text = "Developing urban areas:Newly graded areas (previous only,no vegetation)" And Com4.text = "Mediteran (Tropudalfs)" Then Txt_1cn.text = "90"
End Sub Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame7.Visible = False Frame2.Visible = False 'Frame8.Visible = False Frame9.Visible = False End Sub Private Sub Command10_Click() Fr_cn2.Visible = False Fr_cn1.Visible = False Fr_opt.Visible = True
Opt_1.Value = False Opt_2.Value = False Txt_klcn.Visible = False Txt_klcn.Locked = True Txt_npcn.Visible = False Txt_npcn.Locked = True Txt_lpcn.Visible = False Txt_lpcn.Locked = True Txt_3cn.Visible = False Txt_acn.Visible = False Txt_tpcn.Visible = False Command21.Visible = False End Sub Private Sub Command11_Click() Form5.Show vbModal End Sub Private Sub Command12_Click() PREVIEW_database1.Show vbModal End Sub Private Sub Command13_Click() 'If Txt_KL.text = "" Then GoTo wkwkwk 'On Error Resume Next Reply = MsgBox("Apakah data anda sudah benar dan yakin untuk menyimpan?", vbOKCancel + vbInformation) If Reply = vbOK Then If EE = "ubah" Then GoTo edit Set rs = New Recordset rs.Open "debit2", db, adOpenStatic, adLockOptimistic rs.AddNew edit: rs.Fields("kurva_number") = Txt_cncn.text rs.Fields("debit") = Txt_qcn.text rs.Fields("curah_hujan_harian") = Txt_rcn.text rs.Fields("waktu_debit_puncak") = Txt_tpcn.text rs.Fields("Debitmaks") = Txt_qmakscn.text rs.Fields("Luas_Das") = Txt_acn.text rs.Fields("Storage") = Txt_scn.text rs.Fields("kode_laporan") = Txt_klcn.text rs.Fields("lokasi_penelitian") = Txt_lpcn.text rs.Fields("nama_pengguna") = Txt_npcn.text
rs.Fields("persen_Q/R") = txt_qrcn.text rs.Fields("Penilaian_DAS_berdasarkan_nilai_persen_Q/Rday") = Label39.Caption rs.Fields("jenis_tanah") = Com4.text rs.Fields("kondisi_hidrolgi_lahan") = Com2.text rs.Fields("improvious_area") = Com3.text rs.Fields("penggunaan_lahan") = Com1.text
rs.Update Txt_1cn.text = "" Txt_4cn.text = "" Txt_3cn.text = "" Txt_tpcn.text = "" Txt_6cn.text = "" Txt_acn.text = "" Txt_2cn.text = "" Txt_klcn.text = "" Txt_lpcn.text = "" Txt_npcn.text = "" Txt_5cn.text = "" Label39.Caption = ""
Txt_1.Visible = True txt_2.Visible = True Txt_3.Visible = True txt_4.Visible = True txt_5.Visible = True Txt_6.Visible = True Label25.Visible = True Txt_1cn.Visible = False Txt_2cn.Visible = False Txt_3cn.Visible = False Txt_4cn.Visible = False Txt_5cn.Visible = False Txt_6cn.Visible = False Label39.Visible = False
MsgBox "Data Berhasil Disimpan", vbOKOnly, "Keterangan" Else If Reply = vbCancel Then Txt_lpcn.SetFocus End If EE = "noedit" Exit Sub
'wkwkwk: 'MsgBox "Data tidak berhasil Disimpan, masukkan data untuk kode laporan terlebih dahulu...:p", vbOKOnly, "Keterangan" End Sub
Private Sub Command14_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame7.Visible = False Frame2.Visible = False 'Frame8.Visible = False Frame9.Visible = False End Sub Private Sub Command15_Click() cetak_debit.Show vbModal End Sub Private Sub Command16_Click() cetak_debit_perkotaan.Show vbModal End Sub Private Sub sky() If Com_jenis_penggunaan_lahan.text = "Fallow" Then Call fallow If Com_jenis_penggunaan_lahan.text = "Row crops" Then Call Row_crops If Com_jenis_penggunaan_lahan.text = "Small Grains" Then Call Small_Grains If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Then Call Close_Seeded_or_Broadcast_legumes_or_rotation If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" Then Call Pasture_grassland_or_range_continuous_forage_for_grazing If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" Then Call Meadow_continuous_grass_protected_from_grazing_and_generally_mowed_for_hay If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" Then Call Brush_brush_weed_grass_mixture_with_brush_the_major_element If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" Then Call Woods_grass_combination_orchad_or_tree_farm If Com_jenis_penggunaan_lahan.text = "Woods" Then Call Woods If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" Then Call Farmstead_buildings_lanes_driveways_and_surrounding_lots End Sub Private Sub Farmstead_buildings_lanes_driveways_and_surrounding_lots()
If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Farmstead--buildings,lanes,driveways,and surrounding lots" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "59" End Sub Private Sub Woods()
If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "45" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "36"
If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "36" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "30"
If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Woods" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "30" End Sub Private Sub Woods_grass_combination_orchad_or_tree_farm() If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "57"
If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "57"
If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "57" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "43"
If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "43" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "32" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "32" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "32" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "32"
If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "32" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "32" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "32" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "32" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "32" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "32" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "32" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "32" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "32" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "32" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "32" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Hydromorf abu -abu (Tropofluent)" Then Txt_1.text = "32" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "32" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "32" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "32"
If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "32" If Com_jenis_penggunaan_lahan.text = "Woods--grass combination (orchad or tree farm)" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "32" End Sub Private Sub Brush_brush_weed_grass_mixture_with_brush_the_major_element() If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "48"
If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "48" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "35"
If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "35" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "35"
If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "30"
If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Brush---brush-weed,grass mixture with brush the major element" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "30" End Sub Private Meadow_continuous_grass_protected_from_grazing_and_generally_mowed_for_hay()
Sub
If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "30"
If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "30" If Com_jenis_penggunaan_lahan.text = "Meadow-continuous grass,protected from grazing and generally mowed for hay" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "30" End Sub Private Sub Pasture_grassland_or_range_continuous_forage_for_grazing()
If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "68"
If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "68" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "49"
If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Cukup" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "49" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "39" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "39" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "39"
If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "39" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "39" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "39" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "39" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "39" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "39" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "39" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "39" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "39" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "39" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "39" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "39" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Hydromorf abu abu (Tropofluent)" Then Txt_1.text = "39" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "39" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "39"
If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "39" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "39" If Com_jenis_penggunaan_lahan.text = "Pasture, grassland, or range--continuous forage for grazing" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "39" End Sub Private Sub Close_Seeded_or_Broadcast_legumes_or_rotation() If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "66"
And And
If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "66"
And And
And And And And
And And And And And And And And And And And And
If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "66" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "58"
And And And And And And And And And And And And And And And And And And And And And And
And And And And And And And And
If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "58"
And And And And And And And And And And And And And And And And And And And And And And And And And And And And And And
If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "58"
or rotation" And = "Baik" And or rotation" And = "Baik" And
If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "64"
And And And And And And And And And And And And And And And And And And And And And And And And And And
If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "64"
And And
If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "55"
And And
And And And And And And And And And And And And And And
And And And And And And And And And And And And
If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "55" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "55"
And And And And And And And And And And And And And And And And And And And And And And And And And And And And
If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "63"
If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "63"
And And And And And And And And And And And And And And And And And And And And And And And And And And And And And And
If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "63"
And And
If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "51" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "51" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "51" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "51"
And And
If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "51" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "51" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "51" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "51" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "51"
And And
And And And And And And And And
And And And And And And
And And And And And And And And
If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "51" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "51" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "51" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "51" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "51" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "51" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "51" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "51" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "51" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "51" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "51" If Com_jenis_penggunaan_lahan.text = "Close Seeded or Broadcast legumes or rotation" Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "51"
And And And And And And And And And And And And And And And And And And And And And And And And
End Sub Private Sub Small_Grains() If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "65"
If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Hydromorf abu abu (Tropofluent)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "65"
If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "65" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "63"
If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Hydromorf abu -abu (Tropofluent)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "64"
If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "64"
If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "64" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "60"
If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Straight row with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "63"
If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "63" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "61"
If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Hydromorf abu -abu (Tropofluent)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "61"
If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "62"
If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "62" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "60"
If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "60"
If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "61"
If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "61" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "59"
If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Teracced" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "59" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "60"
If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "60"
If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "60" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "58"
If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "58" If Com_jenis_penggunaan_lahan.text = "Small Grains" And Com_perlakuan.text = "Contoured & Terraced with residue" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "58" End Sub Private Sub fallow() If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "76"
If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Hydromorf abu -abu (Tropofluent)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "76" If Com_perlakuan.text = "Bare Soil" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "76"
And And And And And And And
If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Hydromorf abu-abu (Tropofluent)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Bare Soil" com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "76"
And And And And And And And And And And And And And And
If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "76"
If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Hydromorf abu abu (Tropofluent)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "76"
If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Baik" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "76" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "latosol(Haplorthox)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah (Humox)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol merah kuning (Typic haplorthox)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol coklat (Typic tropodult)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Latosol (Epiaquic tropodult)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol(Troporthents)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Oxic dystropept)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic entropept)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Regosol (Typic dystropept)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Typic tropoquept)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Tropaquept)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Gley humic (Aquic entropept)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Litic eutropept)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Lithosol (Orthen)" Then Txt_1.text = "74"
If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Grumosol (Chromudert)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Hydromorf abuabu (Tropofluent)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik (Tropudults)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Podsolik Merah Kuning (Tropudults)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropohumults)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropaqualfs)" Then Txt_1.text = "74" If Com_jenis_penggunaan_lahan.text = "Fallow" And Com_perlakuan.text = "Crop residue cover" And Com_kondisi_landuse.text = "Buruk" And com_jenis_tanah.text = "Mediteran (Tropudalfs)" Then Txt_1.text = "74" End Sub
Private Sub Command19_Click() hapus_data_debit.Show vbModal End Sub Private Sub Command2_Click() If Txt_KL.text = "" Then GoTo wkwkwk On Error Resume Next Reply = MsgBox("Apakah data anda sudah benar dan yakin untuk menyimpan?", vbOKCancel + vbInformation) If Reply = vbOK Then If EE = "ubah" Then GoTo edit rs1.AddNew edit: rs1.Fields("Debit") = txt_q.text rs1.Fields("kurva_number") = Txt_cn.text rs1.Fields("Curah_hujan_harian") = txt_r.text rs1.Fields("Waktu_debit_puncak") = txt_tp.text
rs1.Fields("Debitmaks") = txt_qmaks.text rs1.Fields("Luas_Das") = Txt_a.text rs1.Fields("Storage") = Txt_s.text rs1.Fields("Kode_laporan") = Txt_KL.text rs1.Fields("Lokasi_penelitian") = Txt_LP.text rs1.Fields("Nama_pengguna") = txt_np.text rs1.Fields("persen_Q/R") = txt_qr.text rs1.Fields("penilaian_terhadap_das_berdasarkan_nilai_Q/Rday") = Label25.Caption rs1.Fields("jenis_tanah") = com_jenis_tanah.text rs1.Fields("kondisi_penggunaan_lahan") = Com_kondisi_landuse.text rs1.Fields("perlakuan_areal") = Com_perlakuan.text rs1.Fields("penggunaan_lahan") = Com_jenis_penggunaan_lahan.text
rs1.Update Txt_1.text = "" txt_4.text = "" Txt_3.text = "" txt_tp.text = "" Txt_6.text = "" Txt_a.text = "" txt_2.text = "" Txt_KL.text = "" Txt_LP.text = "" txt_np.text = "" txt_5.text = "" Label25.Caption = "" Txt_1.Visible = False txt_2.Visible = False Txt_3.Visible = False txt_4.Visible = False txt_5.Visible = False Txt_6.Visible = False Label25.Visible = False Txt_1cn.Visible = True Txt_2cn.Visible = True Txt_3cn.Visible = True Txt_4cn.Visible = True Txt_5cn.Visible = True Txt_6cn.Visible = True Label39.Visible = True com_jenis_tanah.text = "Pilih jenis tanah yang sesuai dengan tempat penelitian anda" Com_kondisi_landuse.text = "pilih jenis kondisi hidrologi penggunaan lahannya" Com_perlakuan.text = "pilih jenis perlakuan di lokasi penelitian anda"
Com_jenis_penggunaan_lahan.text = "jenis penggunaan lahan di lokasi penelitian anda" MsgBox "Data Berhasil Disimpan", vbOKOnly, "Keterangan" Else If Reply = vbCancel Then Txt_LP.SetFocus End If EE = "noedit" Exit Sub wkwkwk: MsgBox "Data tidak berhasil Disimpan, masukkan data untuk kode laporan terlebih dahulu...:p", vbOKOnly, "Keterangan" End Sub Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame2.Visible = False End Sub Private Sub Command20_Click() hapus_debit_perkotaan.Show vbModal End Sub Private Sub Command21_Click() EE = "ubah" Call bukacn MsgBox "Data sudah bisa di edit", vbOKOnly, "Keterangan" End Sub Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame2.Visible = True Frame7.Visible = False 'Frame8.Visible = False Frame9.Visible = False End Sub Private Sub Command4_Click() menu.Show Unload Me End Sub Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame7.Visible = False Frame2.Visible = False 'Frame8.Visible = False
Frame9.Visible = False End Sub Private Sub Command5_Click() EE = "ubah" Call buka MsgBox "Data sudah bisa di edit", vbOKOnly, "Keterangan" End Sub Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'Frame8.Visible = True Frame2.Visible = False Frame7.Visible = False Frame9.Visible = False End Sub Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame9.Visible = True 'Frame8.Visible = False Frame2.Visible = False Frame7.Visible = False End Sub Private Sub Command7_Click() Referensi.Show Unload Me End Sub Private Sub Command7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame7.Visible = False Frame2.Visible = False 'Frame8.Visible = False Frame9.Visible = False End Sub Private Sub Command8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame7.Visible = False Frame2.Visible = False 'Frame8.Visible = False Frame9.Visible = False End Sub
Private Sub Command9_Click() Fr_cn1.Visible = False Fr_cn2.Visible = False Fr_opt.Visible = True Opt_1.Value = False Opt_2.Value = False Txt_KL.Visible = False Txt_KL.Locked = True txt_np.Visible = False txt_np.Locked = True Txt_LP.Visible = False Txt_LP.Locked = True Txt_3.Visible = False Txt_a.Visible = False txt_tp.Visible = False Command2.Visible = False Command14.Visible = True Command5.Visible = False End Sub Private Sub Form_Load() 'bukadatabase 'Adodc1.ConnectionString = data ' Adodc1.RecordSource = "SELECT debit_scs.[kurva_number], debit_scs.[Storage], debit_scs.[Curah_hujan_harian], debit_scs.[Debit], debit_scs.[Waktu_debit_puncak], debit_scs.[Debitmaks], debit_scs.[Luas_Das], debit_scs.[Kode_laporan], debit_scs.[Lokasi_penelitian], debit_scs.[Nama_pengguna], debit_scs.[persen_Q/R], debit_scs.[penilaian_terhadap_das_berdasarkan_nilai_Q/Rday], debit_scs.[jenis_tanah], debit_scs.[kondisi_penggunaan_lahan], debit_scs.[perlakuan_areal], debit_scs.[penggunaan_lahan]FROM debit_scs;" ' Adodc1.Refresh Call isiTABEL com_jenis_tanah.AddItem "latosol(Haplorthox)" com_jenis_tanah.AddItem "Latosol merah (Humox)" com_jenis_tanah.AddItem "Latosol merah kuning (Typic haplorthox)" com_jenis_tanah.AddItem "Latosol coklat (Typic tropodult)" com_jenis_tanah.AddItem "Latosol (Epiaquic tropodult)" com_jenis_tanah.AddItem "Regosol(Troporthents)" com_jenis_tanah.AddItem "Regosol (Oxic dystropept)" com_jenis_tanah.AddItem "Regosol (Typic entropept)" com_jenis_tanah.AddItem "Regosol (Typic dystropept)" com_jenis_tanah.AddItem "Gley humic (Typic tropoquept)" com_jenis_tanah.AddItem "Gley humic (Tropaquept)" com_jenis_tanah.AddItem "Gley humic (Aquic entropept)"
com_jenis_tanah.AddItem "Lithosol (Litic eutropept)" com_jenis_tanah.AddItem "Lithosol (Orthen)" com_jenis_tanah.AddItem "Grumosol (Chromudert)" com_jenis_tanah.AddItem "Hydromorf abu-abu (Tropofluent)" com_jenis_tanah.AddItem "Podsolik (Tropudults)" com_jenis_tanah.AddItem "Podsolik Merah Kuning (Tropudults)" com_jenis_tanah.AddItem "Mediteran (Tropohumults)" com_jenis_tanah.AddItem "Mediteran (Tropaqualfs)" com_jenis_tanah.AddItem "Mediteran (Tropudalfs)" Com_jenis_penggunaan_lahan.AddItem "Fallow" Com_jenis_penggunaan_lahan.AddItem "Row crops" Com_jenis_penggunaan_lahan.AddItem "Small Grains" Com_jenis_penggunaan_lahan.AddItem "Close Seeded or Broadcast legumes or rotation" Com_jenis_penggunaan_lahan.AddItem "Pasture, grassland, or range--continuous forage for grazing" Com_jenis_penggunaan_lahan.AddItem "Meadow-continuous grass,protected from grazing and generally mowed for hay" Com_jenis_penggunaan_lahan.AddItem "Brush---brush-weed,grass mixture with brush the major element" Com_jenis_penggunaan_lahan.AddItem "Woods--grass combination (orchad or tree farm)" Com_jenis_penggunaan_lahan.AddItem "Woods" Com_jenis_penggunaan_lahan.AddItem "Farmstead--buildings,lanes,driveways,and surrounding lots" Com1.AddItem "Open spaces (lawns,parks,golf course, cemeteries,etc)" Com1.AddItem "Paved parking lots,roofs,driveways,etc (excl.right-of-way)" Com1.AddItem "Paved streets and roads;open ditches (incl.right-of-way)" Com1.AddItem "Gravel streets and roads (including right-of-way)" Com1.AddItem "Dirt streets and roads (including right-of the way)" Com1.AddItem "Urban districts:Commercial and bussiness" Com1.AddItem "Urban districts:Industrial" Com1.AddItem "Residential Districts by average lot size: 0.05 Ha or less (town houses" Com1.AddItem "Residential Districts by average lot size: 0.1 Ha" Com1.AddItem "Residential Districts by average lot size:0.13 Ha" Com1.AddItem "Residential Districts by average lot size:0.20 Ha" Com1.AddItem "Residential Districts by average lot size:0.40 Ha" Com1.AddItem "Residential Districts by average lot size:0.81 Ha" Com1.AddItem "Developing urban areas:Newly graded areas (previous only,no vegetation)" Com4.AddItem "latosol(Haplorthox)" Com4.AddItem "Latosol merah (Humox)" Com4.AddItem "Latosol merah kuning (Typic haplorthox)" Com4.AddItem "Latosol coklat (Typic tropodult)" Com4.AddItem "Latosol (Epiaquic tropodult)" Com4.AddItem "Regosol(Troporthents)"
Com4.AddItem "Regosol (Oxic dystropept)" Com4.AddItem "Regosol (Typic entropept)" Com4.AddItem "Regosol (Typic dystropept)" Com4.AddItem "Gley humic (Typic tropoquept)" Com4.AddItem "Gley humic (Tropaquept)" Com4.AddItem "Gley humic (Aquic entropept)" Com4.AddItem "Lithosol (Litic eutropept)" Com4.AddItem "Lithosol (Orthen)" Com4.AddItem "Grumosol (Chromudert)" Com4.AddItem "Hydromorf abu-abu (Tropofluent)" Com4.AddItem "Podsolik (Tropudults)" Com4.AddItem "Podsolik Merah Kuning (Tropudults)" Com4.AddItem "Mediteran (Tropohumults)" Com4.AddItem "Mediteran (Tropaqualfs)" Com4.AddItem "Mediteran (Tropudalfs)" End Sub Private Sub isiTABELSDI() On Error Resume Next If rs1.Fields Is Null Then Txt_cn.text = "" txt_q.text = "" txt_r.text = "" txt_tp.text = "" txt_qmaks.text = "" Txt_a.text = "" Txt_s.text = "" End If Txt_cn.text = rs1.Fields("cn") txt_q.text = rs1.Fields("q") txt_r.text = rs1.Fields("r") txt_tp.text = rs1.Fields("t") txt_qmaks.text = rs1.Fields("qmaks") Txt_a.text = rs1.Fields("a") Txt_s.text = rs1.Fields("s") End Sub
Private Sub Opt_tanah_terbuka_Click() 'Com_cp.Clear 'Txt_cp.text = "" 'Com_cp.text = "pilih kondisi tipe lahan tersebut" Com_perlakuan.AddItem "Tidak terganggu" Com_perlakuan.AddItem "Tanpa tumbuhan bawah, dengan serasah" Com_perlakuan.AddItem "Tanpa tumbuhan bawah, tanpa serasah"
'Text2.text = Opt_tanah_kosong.Caption End Sub Private Sub Opt_1_Click() Fr_cn1.Visible = True Fr_cn2.Visible = False Fr_opt.Visible = False Txt_KL.Visible = True Txt_KL.Locked = False txt_np.Visible = True txt_np.Locked = False Txt_LP.Visible = True Txt_LP.Locked = False Txt_3.Visible = True Txt_a.Visible = True txt_tp.Visible = True Command14.Visible = False Command2.Visible = True Command5.Visible = True End Sub Private Sub Opt_2_Click() Fr_cn2.Visible = True Fr_cn1.Visible = False Fr_opt.Visible = False Txt_klcn.Visible = True Txt_klcn.Locked = False Txt_npcn.Visible = True Txt_npcn.Locked = False Txt_lpcn.Visible = True Txt_lpcn.Locked = False Txt_3cn.Visible = True Txt_acn.Visible = True Txt_tpcn.Visible = True Command13.Visible = True Command2.Visible = False Command21.Visible = True Command14.Visible = False End Sub Private Sub Timer1_Timer() If Lbl_timer.Left > -Lbl_timer.Width Then Lbl_timer.Left = Lbl_timer.Left - 100 ElseIf Lbl_timer.Left <> Lbl_timer.Width Then Lbl_timer.Left = Lbl_timer.Width End If
End Sub Private Sub Txt_KL_LostFocus() Set rs1 = New Recordset rs1.Open "debit", db, adOpenStatic, adLockOptimistic rs1.Filter = "Kode_laporan = '" & Txt_KL.text & "'" If Not rs1.EOF Then Txt_1.text = rs1.Fields("kurva_number") txt_4.text = rs1.Fields("Debit") Txt_3.text = rs1.Fields("Curah_hujan_harian") txt_tp.text = rs1.Fields("Waktu_debit_puncak") Txt_6.text = rs1.Fields("Debitmaks") Txt_a.text = rs1.Fields("Luas_Das") txt_2.text = rs1.Fields("Storage") Txt_KL.text = rs1.Fields("Kode_laporan") Txt_LP.text = rs1.Fields("Lokasi_penelitian") txt_np.text = rs1.Fields("Nama_pengguna") txt_5.text = rs1.Fields("persen_Q/R") Label25.Caption = rs1.Fields("penilaian_terhadap_das_berdasarkan_nilai_Q/Rday") com_jenis_tanah.text = rs1.Fields("jenis_tanah") Com_kondisi_landuse.text = rs1.Fields("kondisi_penggunaan_lahan") Com_perlakuan.text = rs1.Fields("perlakuan_areal") Com_jenis_penggunaan_lahan.text = rs1.Fields("penggunaan_lahan") Call kunci pesan = MsgBox("Data ini sudah pernah disimpan,,ingin edit data?????????", vbInformation + vbYesNo, "Keterangan") If pesan = vbYes Then MsgBox " untuk edit data klik tombol edit terlebih dahulu,,,baru data bisa diedit...:P" If pesan = vbNo Then Txt_1.text = "" txt_4.text = "" Txt_3.text = "" txt_tp.text = "" Txt_6.text = "" Txt_a.text = "" txt_2.text = "" Txt_KL.text = "" Txt_LP.text = "" txt_np.text = "" txt_5.text = "" Label25.Caption = "" com_jenis_tanah.text = "" Com_kondisi_landuse.text = "" Com_perlakuan.text = "" Com_jenis_penggunaan_lahan.text = ""
Txt_KL.SetFocus Set rs = Nothing Call buka End If Else MsgBox "Data ini belum pernah disimpan", vbInformation + vbOKCancel, "Keterangan" Txt_LP.SetFocus End If Set rs = Nothing End Sub Private Sub buka() Txt_1.Locked = False txt_4.Locked = False Txt_3.Locked = False txt_tp.Locked = False Txt_6.Locked = False Txt_a.Locked = False txt_2.Locked = False Txt_KL.Locked = False Txt_LP.Locked = False txt_np.Locked = False txt_5.Locked = False Label25.Enabled = True com_jenis_tanah.Locked = False Com_kondisi_landuse.Locked = False Com_perlakuan.Locked = False Com_jenis_penggunaan_lahan.Locked = False End Sub Private Sub bukacn() Txt_1cn.Locked = False Txt_4cn.Locked = False Txt_3cn.Locked = False Txt_tpcn.Locked = False Txt_6cn.Locked = False Txt_acn.Locked = False Txt_2cn.Locked = False Txt_klcn.Locked = False Txt_lpcn.Locked = False Txt_npcn.Locked = False Txt_5cn.Locked = False Label39.Enabled = True Com1.Locked = False
Com2.Locked = False Com3.Locked = False Com4.Locked = False End Sub Private Sub kunci() Txt_1.Locked = True txt_4.Locked = True Txt_3.Locked = True txt_tp.Locked = True Txt_6.Locked = True Txt_a.Locked = True txt_2.Locked = True Txt_KL.Locked = True Txt_LP.Locked = True txt_np.Locked = True txt_5.Locked = True Label25.Enabled = False com_jenis_tanah.Locked = True Com_kondisi_landuse.Locked = True Com_perlakuan.Locked = True Com_jenis_penggunaan_lahan.Locked = True End Sub Private Sub kuncicn() Txt_1cn.Locked = True Txt_4cn.Locked = True Txt_3cn.Locked = True Txt_tpcn.Locked = True Txt_6cn.Locked = True Txt_acn.Locked = True Txt_2cn.Locked = True Txt_klcn.Locked = True Txt_lpcn.Locked = True Txt_npcn.Locked = True Txt_5cn.Locked = True Label39.Enabled = False Com1.Locked = True Com2.Locked = True Com3.Locked = True Com4.Locked = True End Sub Private Sub Txt_klcn_LostFocus() Set rs1 = New Recordset rs1.Open "debit2", db, adOpenStatic, adLockOptimistic rs1.Filter = "kode_laporan = '" & Txt_klcn.text & "'" If Not rs1.EOF Then
Txt_1cn.text = rs1.Fields("kurva_number") Txt_4cn.text = rs1.Fields("debit") Txt_3cn.text = rs1.Fields("curah_hujan_harian") Txt_tpcn.text = rs1.Fields("waktu_debit_puncak") Txt_6cn.text = rs1.Fields("Debitmaks") Txt_acn.text = rs1.Fields("Luas_Das") Txt_2cn.text = rs1.Fields("Storage") Txt_klcn.text = rs1.Fields("kode_laporan") Txt_lpcn.text = rs1.Fields("lokasi_penelitian") Txt_npcn.text = rs1.Fields("nama_pengguna") Txt_5cn.text = rs1.Fields("persen_Q/R") Label39.Caption = rs1.Fields("Penilaian_DAS_berdasarkan_nilai_persen_Q/Rday") Com4.text = rs1.Fields("jenis_tanah") Com2.text = rs1.Fields("kondisi_hidrolgi_lahan") Com3.text = rs1.Fields("improvious_area") Com1.text = rs1.Fields("penggunaan_lahan") Call kuncicn pesan = MsgBox("Data ini sudah pernah disimpan,,ingin edit data?????????", vbInformation + vbYesNo, "Keterangan") If pesan = vbYes Then MsgBox " untuk edit data klik tombol edit terlebih dahulu,,,baru data bisa diedit...:P" If pesan = vbNo Then Txt_1cn.text = "" Txt_4cn.text = "" Txt_3cn.text = "" Txt_tpcn.text = "" Txt_6cn.text = "" Txt_acn.text = "" Txt_2cn.text = "" Txt_klcn.text = "" Txt_lpcn.text = "" Txt_npcn.text = "" Txt_5cn.text = "" Label39.Caption = "" Com4.text = "" Com1.text = "" Com3.text = "" Com2.text = "" Txt_klcn.SetFocus Set rs = Nothing Call bukacn End If Else MsgBox "Data ini belum pernah disimpan", vbInformation + vbOKCancel, "Keterangan"
'Txt_lpcn.SetFocus End If Set rs = Nothing End Sub Form cetak debit Private Sub Combo1_Click() Set rs = New Recordset rs.Open "select *from debit", db, adOpenStatic, adLockOptimistic If Option1.Value = True Then rs.Find "Kode_laporan ='" & Combo1.text & "'" ElseIf Option2.Value = True Then rs.Find "Lokasi_Penelitian ='" & Combo1.text & "'" End If Exit Sub End Sub Private Sub Command1_Click() If Option1.Value = True Then Cr.ReportFileName = App.path & "\debit.rpt" Cr.SelectionFormula = "{debit.Kode_laporan}='" & Combo1.text & "'" Cr.RetrieveDataFiles Cr.WindowState = crptMaximized Cr.Action = 1 ElseIf Option2.Value = True Then Cr.ReportFileName = App.path & "\erosilokasi.rpt" Cr.SelectionFormula = "{debit.Lokasi_Penelitian}='" & Combo1.text & "'" Cr.RetrieveDataFiles Cr.WindowState = crptMaximized Cr.Action = 1 End If End Sub Private Sub Command2_Click() Unload cetak_debit Option1.Value = False Option2.Value = False Combo1.text = "" End Sub
Private Sub Option1_Click() Set rs = New Recordset rs.Open "select *from debit", db, adOpenStatic, adLockOptimistic
Combo1.clear Combo1.text = "pilih kode laporan yang akan anda cetak terlebih dahulu" Do While Not rs.EOF Combo1.AddItem rs.Fields("Kode_laporan") rs.MoveNext Loop End Sub Private Sub Option2_Click() Set rs = New Recordset rs.Open "select *from debit", db, adOpenStatic, adLockOptimistic Combo1.clear Combo1.text = "Pilih Loksai Penelitian yang akan anda cetak terlebih dahulu" Do While Not rs.EOF Combo1.AddItem rs.Fields("Lokasi_Penelitian") rs.MoveNext Loop End Sub Form Menu Awal Private Sub Command1_Click() End End Sub Private Sub Form_Load() 'Center the form Dim topCorner As Integer Dim leftCorner As Integer Dim i As Integer If Form1.WindowState <> 0 Then Exit Sub PicEsri.Picture = LoadPicture(App.path & "\bitmaps\prodc.bmp") topCorner = (Screen.Height - Form1.Height) \ 2 leftCorner = (Screen.Width - Form1.Width) \ 2 Form1.Move leftCorner, topCorner For i = 1 To 3 Load shpshadow(i) shpshadow(i).Visible = True shpshadow(i).ZOrder 1 Next End Sub Private Sub Timer1_Timer() If Label3.Left > -Label3.Width Then Label3.Left = Label3.Left - 100 ElseIf Label3.Left <> Label3.Width Then Label3.Left = Form1.Width - Label3.Width
End If End Sub Private Sub cmd_info_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_info_1.Visible = False cmd_info_2.Visible = True End Sub Private Sub cmd_keluar_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_keluar_1.Visible = False cmd_keluar_2.Visible = True End Sub Private Sub cmd_keluar_2_Click() Unload Me End Sub Private Sub cmd_laporan_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_laporan_1.Visible = False cmd_laporan_2.Visible = True End Sub Private Sub cmd_lingkungan_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_lingkungan_1.Visible = False cmd_lingkungan_2.Visible = True End Sub Private Sub cmd_lingkungan_2_Click() frm3_lingkungan.Show Unload Me End Sub Private Sub cmd_manajemen_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_manajemen_1.Visible = False cmd_manajemen_2.Visible = True End Sub Private Sub cmd_referensi_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_referensi_1.Visible = False cmd_referensi_2.Visible = True End Sub
Private Sub cmd_sarana_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_sarana_1.Visible = False cmd_sarana_2.Visible = True End Sub Private Sub cmd_sosial_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_sosial_1.Visible = False cmd_sosial_2.Visible = True End Sub Private Sub lyrBelakang_menu_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) cmd_sdi_1.Visible = True cmd_sdi_2.Visible = False cmd_lingkungan_1.Visible = True cmd_lingkungan_2.Visible = False cmd_sarana_1.Visible = True cmd_sarana_2.Visible = False cmd_sosial_1.Visible = True cmd_sosial_2.Visible = False cmd_manajemen_1.Visible = True cmd_manajemen_2.Visible = False cmd_laporan_1.Visible = True cmd_laporan_2.Visible = False cmd_keluar_1.Visible = True cmd_keluar_2.Visible = False cmd_info_1.Visible = True cmd_info_2.Visible = False cmd_referensi_1.Visible = True cmd_referensi_2.Visible = False End Sub Private Sub jcbutton1_Click() Adodc1.Refresh On Error Resume Next Adodc1.Recordset.Move (0) If Adodc1.Recordset.Fields(1) = Text1.text And Adodc1.Recordset.Fields(2) = Text2.text Then Text2.text = "" progressBar.Show kunciuser = "ADM" Unload Me Exit Sub Else MsgBox "Nama Pengguna atau Kata Sandi salah"
Text2.text = "" Text1.SetFocus End If End Sub Private Sub jcbutton2_Click() Frame1.Visible = False fr_pass.Visible = True bukadatabase On Error Resume Next Adodc1.ConnectionString = data Adodc1.RecordSource = "Tbl_Password" Adodc1.Refresh Adodc1.Recordset.Move (0) Text1.SetFocus End Sub Private Sub user_Click() progressBar.Show kunciuser = "U" Unload Me End Sub Private Sub jcbutton4_Click() On Error Resume Next bukadatabase Adodc2.ConnectionString = data Adodc2.RecordSource = "tbl_password" Adodc2.Refresh Adodc2.Recordset.Move (0) Text3.SetFocus fr_gantisandi.Visible = True Text3.text = "" Text4.text = "" Text5.text = "" fr_pass.Visible = False End Sub Private Sub jcbutton5_Click() fr_pass.Visible = False Frame1.Visible = True End Sub Private Sub jcbutton6_Click() If Text4.text = Adodc1.Recordset.Fields(2) Then If Text3.text <> "" Or Text4.text <> "" Or Text5.text <> "" Then
Adodc2.Recordset("Nama_User") = Text3.text Adodc2.Recordset("password") = Text5.text Adodc2.Recordset.Update MsgBox "Nama pengguna baru dan kata sandi yang anda masukan sudah tersimpan.", vbInformation, "Informasi" fr_gantisandi.Visible = False Frame1.Visible = True End If Exit Sub Else End If End Sub Private Sub jcbutton7_Click() fr_gantisandi.Visible = False fr_pass.Visible = True End Sub Private Sub jcbutton8_Click() Unload Me End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then jcbutton1_Click End If End Sub Form Curah Hujan Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) _ As Long Private Sub Admin_Click() frm1_menu.Show Unload Me End Sub Private Sub akhir_Click()
On Error Resume Next Adodc2.Recordset.MoveLast If Combo1.text = "Curah Hujan bulanan" Then Call isidata1 ElseIf Combo1.text = "Curah Hujan Harian" Then Call isidata2 ElseIf Combo1.text = "Curah Hujan Harian/15 menit" Then Call isidata3 End If End Sub Private Sub awal_Click() On Error Resume Next Adodc2.Recordset.MoveFirst If Combo1.text = "Curah Hujan bulanan" Then Call isidata1 ElseIf Combo1.text = "Curah Hujan Harian" Then Call isidata2 ElseIf Combo1.text = "Curah Hujan Harian/15 menit" Then Call isidata3 End If End Sub Private Sub cmd_Click() Combo1.clear Combo1.AddItem "Curah Hujan bulanan" Combo1.AddItem "Curah Hujan Harian" Combo1.AddItem "Curah Hujan Harian/15 menit" Combo1.text = "Curah Hujan bulanan" End Sub Private Sub cmd_pemberdayaan_Click() frm_kelembagaan.Visible = False frm_Nelayan.Visible = False frm_pemberdayaan.Visible = True Combo2.clear Combo2.AddItem "Kelompok Nelayan Penerima PEMP" Combo2.AddItem "Kelompok Nelayan Penerima Rumpon" Combo2.text = "Kelompok Nelayan Penerima PEMP" Adodc3.ConnectionString = data Adodc3.RecordSource = "SELECT tabeltahun.tahun FROM tabeltahun" Adodc3.Refresh Adodc3.Recordset.Sort = "tahun" Combo3.clear Do Until Adodc3.Recordset.EOF Combo3.AddItem Adodc3.Recordset("tahun")
Adodc3.Recordset.MoveNext Loop End Sub Private Sub Combo1_Click() If Combo1.text = "Curah Hujan bulanan" Then opt_tahun.Caption = "Bulanan" opt_all.Visible = True ElseIf Combo1.text = "Curah Hujan Harian" Then opt_tahun.Caption = "Harian" opt_all.Visible = True ElseIf Combo1.text = "Curah Hujan Harian/15 menit" Then opt_all.Visible = True opt_tahun.Caption = "per 15 menit" End If If opt_tahun.Value = True Then opt_tahun_Click ElseIf opt_all.Value = True Then opt_all_Click End If End Sub Private Sub Command1_Click() Frame13.Visible = False Frame5.Visible = False Frame3.Visible = True Frame6.Visible = False frm2.Visible = False Command1.BackColor = vbGreen Command2.BackColor = vbButtonFace 'Command3.BackColor = vbButtonFace Command5.BackColor = vbButtonFace Command4.BackColor = vbButtonFace End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame7.Visible = False End Sub Private Sub Command10_Click() Frame3.Visible = True Frame6.Visible = False End Sub
Private Sub Command11_Click() Frame5.Visible = True Frame6.Visible = False End Sub Private Sub Command12_Click() pesan = MsgBox("ini sudah halaman yang terakhir", vbOKOnly, "keterangan") End Sub Private Sub Command13_Click() pesan = MsgBox("ini sudah halaman yang terakhir", vbOKOnly, "keterangan") End Sub Private Sub Command14_Click() Cr.ReportFileName = App.path & "\Curahhujanharian.rpt" Cr.WindowState = crptMaximized Cr.RetrieveDataFiles Cr.Action = 0 End Sub Private Sub Command15_Click() Cr.ReportFileName = App.path & "\Curahhujantahunan.rpt" Cr.WindowState = crptMaximized Cr.RetrieveDataFiles Cr.Action = 0 End Sub Private Sub Command16_Click() Frame6.Visible = True Frame3.Visible = False End Sub Private Sub Command17_Click() Frame5.Visible = True Frame3.Visible = False End Sub Private Sub Command18_Click() Command5.BackColor = vbGreen Command1.BackColor = vbButtonFace Command2.BackColor = vbButtonFace Command4.BackColor = vbButtonFace Cr.ReportFileName = App.path & "\Curahhujanbulanan.rpt" Cr.WindowState = crptMaximized Cr.RetrieveDataFiles 'tampilkan laporan ke layar
Cr.Action = 0 End Sub Private Sub Command2_Click() Frame13.Visible = False frm2.Visible = True Frame3.Visible = False Frame5.Visible = False Frame6.Visible = False Command2.BackColor = vbGreen Command1.BackColor = vbButtonFace Command4.BackColor = vbButtonFace Command5.BackColor = vbButtonFace End Sub Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame7.Visible = False End Sub Private Sub Command20_Click() pesan = MsgBox("ini sudah halaman yang paling awal", vbOKOnly, "keterangan") End Sub Private Sub Command21_Click() pesan = MsgBox("ini sudah halaman yang paling awal", vbOKOnly, "keterangan") End Sub Private Sub Command3_Click() Command3.BackColor = vbGreen Command1.BackColor = vbButtonFace Command2.BackColor = vbButtonFace Command4.BackColor = vbButtonFace Command5.BackColor = vbButtonFace End Sub Private Sub Command4_Click() Frame13.Visible = True Frame3.Visible = False Frame5.Visible = False Frame6.Visible = False frm2.Visible = False Command4.BackColor = vbGreen Command1.BackColor = vbButtonFace Command2.BackColor = vbButtonFace Command5.BackColor = vbButtonFace
End Sub Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame7.Visible = False End Sub Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame7.Visible = True End Sub Private Sub Command6_Click() Frame5.Visible = False Frame6.Visible = True End Sub Private Sub Command7_Click() Frame5.Visible = False Frame6.Visible = True End Sub Private Sub Command8_Click() Frame5.Visible = False Frame3.Visible = True End Sub Private Sub DGLembaga_Click() Call isidatakelembagaan1 End Sub Private Sub Command9_Click() Frame3.Visible = True Frame5.Visible = False End Sub Private Sub Form_Load() bukadatabase Command1_Click Call cmd_Click opt_tahun_Click opt_tahun.Value = True End Sub Private Sub jcbutton10_Click() frm9_info.Show
Unload Me End Sub Private Sub jcbutton2_Click() frm2.Show Unload Me End Sub Private Sub jcbutton3_Click() frm3_lingkungan.Show Unload Me End Sub Private Sub jcbutton4_Click() frm4_sarana.Show Unload Me End Sub Private Sub jcbutton6_Click() frm7_manajemen.Show Unload Me End Sub Private Sub jcbutton7_Click() frm8_laporan.Show Unload Me End Sub Private Sub jcbutton8_Click() frm5_referensi.Show Unload Me End Sub Private Sub jcbutton9_Click() Unload Me End Sub Private Sub kembali_Click() Unload Me End Sub Private Sub List1_Click() If Combo1.text = "Curah Hujan bulanan" Then If opt_tahun.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 2000
fg2.ColWidth(2) = 2000 fg2.ColWidth(3) = 2000 fg2.ColWidth(4) = 2000 fg2.ColWidth(5) = 2000 fg2.ColWidth(6) = 2000 fg2.ColWidth(7) = 2000 fg2.RowHeight(0) = 500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT CurahHujanHarianWalat.id_bulan AS [Tahun/Bulan], Sum(CurahHujanHarianWalat.[curah hujan (mm)]) AS [Jumlah Curah Hujan/Bulan]From CurahHujanHarianWalat where CurahHujanHarianWalat.[id_bulan] Like " & " '" & List1.text & "%" & "'" & " GROUP BY CurahHujanHarianWalat.[id_bulan] ORDER BY CurahHujanHarianWalat.[id_bulan];" Adodc2.Refresh ElseIf opt_all.Value = True Then fg2.ColWidth(1) = 2000 fg2.ColWidth(2) = 2000 fg2.ColWidth(3) = 2000 fg2.ColWidth(4) = 2000 fg2.ColWidth(5) = 2000 fg2.ColWidth(6) = 2000 fg2.ColWidth(7) = 2000 fg2.RowHeight(0) = 500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT CurahHujanHarianWalat.id_bulan AS [Tahun/Bulan], Sum(CurahHujanHarianWalat.[curah hujan (mm)]) AS [Jumlah Curah Hujan/Bulan]From CurahHujanHarianWalat GROUP BY CurahHujanHarianWalat.id_bulan;" Adodc2.Refresh End If Set DataGrid1.DataSource = Adodc2 Call isidata1 ElseIf Combo1.text = "Curah Hujan Harian" Then If opt_tahun.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 2000 fg2.ColWidth(2) = 2000 fg2.ColWidth(3) = 2000 fg2.ColWidth(4) = 2000 fg2.ColWidth(5) = 2000 fg2.RowHeight(0) = 500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT CurahHujanHarianWalat.id AS tanggal, Max(CurahHujanHarianWalat.[curah hujan (mm)]) AS [Curah Hujan Harian/15 menit Max (mm)], Avg(CurahHujanHarianWalat.[curah hujan (mm)]) AS [Curah Hujan Harian/15 menit rata-rata (mm)], Sum(CurahHujanHarianWalat.[curah hujan (mm)]) AS [Total Curah Hujan
Harian/15 menit (mm)] From CurahHujanHarianWalat Where CurahHujanHarianWalat.id Like " & " '" & List1.text & "%" & "'" & " GROUP BY CurahHujanHarianWalat.id ORDER BY CurahHujanHarianWalat.id ;" Adodc2.Refresh ElseIf opt_all.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 2000 fg2.ColWidth(2) = 2000 fg2.ColWidth(3) = 2000 fg2.ColWidth(4) = 2000 fg2.ColWidth(5) = 2000 fg2.RowHeight(0) = 500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT CurahHujanHarianWalat.id AS tanggal, Max(CurahHujanHarianWalat.[curah hujan (mm)]) AS [Curah Hujan Harian/15 menit Max (mm)], Avg(CurahHujanHarianWalat.[curah hujan (mm)]) AS [Curah Hujan Harian/15 menit rata-rata (mm)], Sum(CurahHujanHarianWalat.[curah hujan (mm)]) AS [Total Curah Hujan Harian/15 menit (mm)] From CurahHujanHarianWalat GROUP BY CurahHujanHarianWalat.id;" Adodc2.Refresh End If Call isidata2 ElseIf Combo1.text = "Curah Hujan Harian/15 menit" Then If opt_tahun.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 2500 fg2.ColWidth(2) = 2500 fg2.ColWidth(3) = 2500 fg2.ColWidth(4) = 2500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT CurahHujanHarianWalat.[Tanggal], CurahHujanHarianWalat.[curah hujan (mm)]FROM CurahHujanHarianWalat Where CurahHujanHarianWalat.[Tanggal] Like " & " '" & List1.text & "%" & "'" & " ORDER BY CurahHujanHarianWalat.[Tanggal];" Adodc2.Refresh ElseIf opt_all.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 2500 fg2.ColWidth(2) = 5000 fg2.ColWidth(3) = 2500 fg2.ColWidth(4) = 2500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT CurahHujanHarianWalat.[Tanggal], CurahHujanHarianWalat.[curah hujan (mm)]FROM CurahHujanHarianWalat"
Adodc2.Refresh End If Call isidata3 End If Dim i As Integer Set fg2.DataSource = Adodc2 fg2.Cols = fg2.Cols For i = 1 To fg2.Rows - 1 fg2.RowHeight(i) = 500 Next i End Sub Private Sub isidata1() On Error Resume Next If Adodc2.Recordset("Tahun") Is Null Then txt_tahun.Caption = "-" End If If Adodc2.Recordset("Curah hujan (mm/years)") Is Null Then txt_jenis.Caption = "-" End If txt_tahun.Caption = Adodc2.Recordset("Curah hujan (mm/years)") txt_jenis.Caption = Adodc2.Recordset("Tahun") txt_satuan.Caption = "mm/years" End Sub Private Sub isidata2() On Error Resume Next If Adodc2.Recordset("Curah Hujan Harian (mm/month)") Is Null Then txt_tahun.Caption = "-" End If If Adodc2.Recordset("Tahun") Is Null Then txt_jenis.Caption = "-" End If txt_tahun.Caption = Adodc2.Recordset("Curah Hujan Harian (mm/month)") txt_jenis.Caption = Adodc2.Recordset("Tahun") txt_bulan.Caption = Adodc2.Recordset("Bulan") txt_satuan.Caption = "mm/month" End Sub Private Sub isidata3() On Error Resume Next If Adodc2.Recordset("curah hujan (mm)") Is Null Then txt_tahun.Caption = "-" End If If Adodc2.Recordset("Tahun") Is Null Then txt_jenis.Caption = "-" End If
txt_tahun.Caption = Adodc2.Recordset("curah hujan (mm)") txt_jenis.Caption = Adodc2.Recordset("Tanggal") txt_satuan.Caption = "mm" End Sub Private Sub maju_Click() On Error Resume Next If Adodc2.Recordset.EOF = False Then Adodc2.Recordset.MoveNext End If If Adodc2.Recordset.EOF = True Then Adodc2.Recordset.MoveLast MsgBox "Sudah data paling akhir.", vbOKOnly + vbInformation End If If Combo1.text = "Curah Hujan bulanan" Then Call isidata1 ElseIf Combo1.text = "Curah Hujan Harian" Then Call isidata2 ElseIf Combo1.text = "Curah Hujan Harian/15 menit" Then Call isidata3 End If End Sub Private Sub mundur_Click() On Error Resume Next If Adodc2.Recordset.BOF = False Then Adodc2.Recordset.MovePrevious End If If Adodc2.Recordset.BOF = True Then Adodc2.Recordset.MoveFirst MsgBox "Sudah data paling awal", vbOKOnly + vbInformation End If If Combo1.text = "Curah Hujan bulanan" Then Call isidata1 ElseIf Combo1.text = "Curah Hujan Harian" Then Call isidata2 ElseIf Combo1.text = "Curah Hujan Harian/15 menit" Then Call isidata3 End If End Sub Private Sub opt_all_Click() If opt_tahun.Caption = "Bulanan" Then List1.clear List1.AddItem ("All Data")
ElseIf opt_tahun.Caption = "Harian" Then List1.clear List1.AddItem ("All Data") ElseIf opt_tahun.Caption = "per 15 menit" Then List1.clear List1.AddItem ("All Data") End If End Sub Private Sub opt_tahun_Click() If opt_tahun.Caption = "Bulanan" Then Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT CurahHujanHarianWalat.[id_bulan] FROM CurahHujanHarianWalat GROUP BY CurahHujanHarianWalat.[id_bulan]" Adodc1.Refresh Adodc1.Recordset.Sort = "id_bulan" List1.clear Do Until Adodc1.Recordset.EOF List1.AddItem Adodc1.Recordset("id_bulan") Adodc1.Recordset.MoveNext Loop ElseIf opt_tahun.Caption = "Harian" Then Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT CurahHujanHarianWalat.id From CurahHujanHarianWalat GROUP BY CurahHujanHarianWalat.id;" Adodc1.Refresh Adodc1.Recordset.Sort = "id" 'mengisi combo dengan tabel tahun List1.clear Do Until Adodc1.Recordset.EOF List1.AddItem Adodc1.Recordset("id") Adodc1.Recordset.MoveNext Loop ElseIf opt_tahun.Caption = "per 15 menit" Then Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT CurahHujanHarianWalat.[Tanggal] FROM CurahHujanHarianWalat" Adodc1.Refresh Adodc1.Recordset.Sort = "Tanggal" 'mengisi combo dengan tabel tahun List1.clear Do Until Adodc1.Recordset.EOF List1.AddItem Adodc1.Recordset("Tanggal") Adodc1.Recordset.MoveNext Loop End If
End Sub Form Suhu Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) _ As Long Private Sub Admin_Click() frm1_menu.Show Unload Me End Sub Private Sub akhir_Click() On Error Resume Next Adodc2.Recordset.MoveLast If Combo1.text = "Suhu Harian/15menit" Then Call isidata1 ElseIf Combo1.text = "Suhu Harian" Then Call isidata2 ElseIf Combo1.text = "Suhu Bulanan" Then Call isidata3 End If End Sub Private Sub awal_Click() On Error Resume Next Adodc2.Recordset.MoveFirst If Combo1.text = "Suhu Harian/15menit" Then Call isidata1 ElseIf Combo1.text = "Suhu Harian" Then Call isidata2 ElseIf Combo1.text = "Suhu Bulanan" Then Call isidata3 End If End Sub
Private Sub cmd_Click() Combo1.clear Combo1.AddItem "Suhu Harian/15menit"
Combo1.AddItem "Suhu Harian" Combo1.AddItem "Suhu Bulanan" Combo1.text = "Suhu Harian/15menit" End Sub Private Sub cmd_pemberdayaan_Click() frm_kelembagaan.Visible = False frm_Nelayan.Visible = False frm_pemberdayaan.Visible = True Combo2.clear Combo2.AddItem "Kelompok Nelayan Penerima PEMP" Combo2.AddItem "Kelompok Nelayan Penerima Rumpon" Combo2.text = "Kelompok Nelayan Penerima PEMP" Adodc3.ConnectionString = data Adodc3.RecordSource = "SELECT tabeltahun.tahun FROM tabeltahun" Adodc3.Refresh Adodc3.Recordset.Sort = "tahun" Combo3.clear Do Until Adodc3.Recordset.EOF Combo3.AddItem Adodc3.Recordset("tahun") Adodc3.Recordset.MoveNext Loop End Sub Private Sub Combo1_Click() If Combo1.text = "Suhu Harian/15menit" Then opt_tahun.Caption = "Harian" opt_all.Visible = True ElseIf Combo1.text = "Suhu Harian" Then opt_tahun.Caption = "Bulanan" opt_all.Visible = True ElseIf Combo1.text = "Suhu Bulanan" Then opt_all.Visible = True opt_tahun.Caption = "Tahunan" End If If opt_tahun.Value = True Then opt_tahun_Click ElseIf opt_all.Value = True Then opt_all_Click End If End Sub Private Sub Command1_Click() Frame13.Visible = False Frame3.Visible = True 'Frame6.Visible = False
frm2.Visible = False Command1.BackColor = vbGreen Command2.BackColor = vbButtonFace Command5.BackColor = vbButtonFace Command4.BackColor = vbButtonFace End Sub Private Sub Command2_Click() Frame13.Visible = False frm2.Visible = True Frame3.Visible = False 'Frame6.Visible = False Command2.BackColor = vbGreen Command1.BackColor = vbButtonFace Command4.BackColor = vbButtonFace Command5.BackColor = vbButtonFace End Sub Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False End Sub Private Sub Command3_Click() cr.ReportFileName = App.path & "\suhuharian.rpt" cr.WindowState = crptMaximized cr.RetrieveDataFiles cr.Action = 0 End Sub Private Sub Command4_Click() Frame13.Visible = True Frame3.Visible = False frm2.Visible = False Command4.BackColor = vbGreen Command1.BackColor = vbButtonFace Command2.BackColor = vbButtonFace Command5.BackColor = vbButtonFace End Sub Private Sub Command5_Click() Command5.BackColor = vbGreen Command1.BackColor = vbButtonFace Command2.BackColor = vbButtonFace Command4.BackColor = vbButtonFace End Sub
Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = True End Sub Private Sub Command6_Click() cr.ReportFileName = App.path & "\suhuharian2.rpt" cr.WindowState = crptMaximized cr.RetrieveDataFiles cr.Action = 0 End Sub Private Sub Command7_Click() cr.ReportFileName = App.path & "\suhubulanan.rpt" cr.WindowState = crptMaximized cr.RetrieveDataFiles cr.Action = 0 End Sub Private Sub Form_Load() Command1_Click bukadatabase Call cmd_Click opt_tahun_Click opt_tahun.Value = True End Sub Private Sub kembali_Click() Unload Me End Sub Private Sub List1_Click() If Combo1.text = "Suhu Harian/15menit" Then If opt_tahun.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 2500 fg2.ColWidth(2) = 2500 fg2.ColWidth(3) = 2500 fg2.ColWidth(4) = 2500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT Suhuharian.[Tanggal], Suhuharian.[suhu ('C)]FROM Suhuharian Where Suhuharian.[Tanggal] Like " & " '" & List1.text & "%" & "'" & " ORDER BY Suhuharian.[Tanggal];" Adodc2.Refresh
ElseIf opt_all.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 2500 fg2.ColWidth(2) = 2500 fg2.ColWidth(3) = 2500 fg2.ColWidth(4) = 2500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT Suhuharian.[Tanggal], Suhuharian.[suhu ('C)]FROM Suhuharian;" Adodc2.Refresh End If Set DataGrid1.DataSource = Adodc2 Call isidata1 ElseIf Combo1.text = "Suhu Harian" Then If opt_tahun.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 3500 fg2.ColWidth(2) = 3500 fg2.ColWidth(3) = 3500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT Suhuharian.id AS tanggal, Max(Suhuharian.[suhu ('C)]) AS [suhu max ('C)], Min(Suhuharian.[suhu ('C)]) AS [suhu min('C)], Avg(Suhuharian.[suhu ('C)]) AS [suhu rata-rata ('C)]From Suhuharian where suhuharian.id Like " & " '" & List1.text & "%" & "'" & " GROUP BY Suhuharian.id ORDER BY Suhuharian.id ;" Adodc2.Refresh ElseIf opt_all.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 3500 fg2.ColWidth(2) = 3500 fg2.ColWidth(3) = 3500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT Suhuharian.id AS tanggal, Max(Suhuharian.[suhu ('C)]) AS [suhu max ('C)], Min(Suhuharian.[suhu ('C)]) AS [suhu min('C)], Avg(Suhuharian.[suhu ('C)]) AS [suhu rata-rata ('C)]From Suhuharian GROUP BY Suhuharian.id;" Adodc2.Refresh End If Set DataGrid1.DataSource = Adodc2 Call isidata2 ElseIf Combo1.text = "Suhu Bulanan" Then If opt_tahun.Value = True Then fg2.ColWidth(1) = 3500 fg2.ColWidth(2) = 3500 fg2.ColWidth(3) = 3500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT Suhuharian.id_bulan AS [Tahun/Bulan], Max(Suhuharian.[suhu ('C)]) AS [suhu max bulanan ('C)], Min(Suhuharian.[suhu ('C)]) AS
[suhu min bulanan ('C)], Avg(Suhuharian.[suhu ('C)]) AS [suhu rata-rata bulanan ('C)] From Suhuharian where suhuharian.id_bulan Like " & " '" & List1.text & "%" & "'" & " GROUP BY Suhuharian.id_bulan ORDER BY Suhuharian.id_bulan ;" Adodc2.Refresh ElseIf opt_all.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 3500 fg2.ColWidth(2) = 3500 fg2.ColWidth(3) = 3500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT Suhuharian.id_bulan AS [Tahun/Bulan], Max(Suhuharian.[suhu ('C)]) AS [suhu max bulanan ('C)], Min(Suhuharian.[suhu ('C)]) AS [suhu min bulanan ('C)], Avg(Suhuharian.[suhu ('C)]) AS [suhu rata-rata bulanan ('C)] From Suhuharian GROUP BY Suhuharian.id_bulan;" Adodc2.Refresh End If Call isidata3 End If Dim i As Integer Set fg2.DataSource = Adodc2 For i = 1 To fg2.Rows - 1 fg2.RowHeight(i) = 500 Next i End Sub Private Sub isidata1() On Error Resume Next If Adodc2.Recordset("suhu ('C)") Is Null Then txt_tahun.Caption = "-" End If If Adodc2.Recordset("Tanggal") Is Null Then txt_jenis.Caption = "-" End If If Adodc2.Recordset("suhu max ('C)") Is Null Then Label12.Caption = "-" End If If Adodc2.Recordset("Bulan") Is Null Then txt_bulan.Caption = "-" End If If Adodc2.Recordset("suhu min ('C)") Is Null Then Label13.Caption = "-" End If txt_tahun.Caption = Adodc2.Recordset("suhu ('C)") txt_jenis.Caption = Adodc2.Recordset("Tanggal") lb3.Caption = "Tanggal :" lb1.Caption = "Suhu :"
txt_bulan.Caption = Month(Adodc2.Recordset("Tanggal")) Label12.Caption = Adodc2.Recordset("suhu max ('C)") Label13.Caption = Adodc2.Recordset("suhu min ('C)") txt_satuan.Caption = "'C" Label14.Caption = "'C" Label15.Caption = "'C" End Sub Private Sub isidata2() On Error Resume Next If Adodc2.Recordset("Suhu ('C)") Is Null Then txt_tahun.Caption = "-" End If If Adodc2.Recordset("Tahun") Is Null Then txt_jenis.Caption = "-" End If If Adodc2.Recordset("Bulan") Is Null Then txt_jenis.Caption = "-" End If txt_tahun.Caption = Adodc2.Recordset("suhu rata-rata ('C)") txt_jenis.Caption = Adodc2.Recordset("tanggal") txt_bulan.Caption = Month(Adodc2.Recordset("tanggal")) lb1.Caption = "Suhu rata2 :" lb3.Caption = "Tanggal :" Label12.Caption = Adodc2.Recordset("Suhu max ('C)") Label13.Caption = Adodc2.Recordset("suhu min('C)") txt_satuan.Caption = "'C" Label14.Caption = "'C" Label15.Caption = "'C" End Sub Private Sub isidata3() On Error Resume Next If Adodc2.Recordset("Suhu rata-rata ('C)") Is Null Then txt_tahun.Caption = "-" End If If Adodc2.Recordset("Tahun") Is Null Then txt_jenis.Caption = "-" End If txt_tahun.Caption = Adodc2.Recordset("suhu rata-rata bulanan ('C)") txt_jenis.Caption = Adodc2.Recordset("Tahun/Bulan") Label12.Caption = Adodc2.Recordset("suhu max bulanan ('C)") Label13.Caption = Adodc2.Recordset("suhu min bulanan ('C)") lb3.Caption = "tahun/bulan:" txt_satuan.Caption = "'C" Label14.Caption = "'C"
Label15.Caption = "'C" End Sub Private Sub maju_Click() On Error Resume Next If Adodc2.Recordset.EOF = False Then Adodc2.Recordset.MoveNext End If If Adodc2.Recordset.EOF = True Then Adodc2.Recordset.MoveLast MsgBox "Sudah data paling akhir.", vbOKOnly + vbInformation End If If Combo1.text = "Suhu Harian/15menit" Then Call isidata1 ElseIf Combo1.text = "Suhu Harian" Then Call isidata2 ElseIf Combo1.text = "Suhu Bulanan" Then Call isidata3 End If End Sub Private Sub mundur_Click() On Error Resume Next If Adodc2.Recordset.BOF = False Then Adodc2.Recordset.MovePrevious End If If Adodc2.Recordset.BOF = True Then Adodc2.Recordset.MoveFirst MsgBox "Sudah data paling awal", vbOKOnly + vbInformation End If If Combo1.text = "Suhu Harian/15menit" Then Call isidata1 ElseIf Combo1.text = "Suhu Harian" Then Call isidata2 ElseIf Combo1.text = "Suhu Bulanan" Then Call isidata3 End If End Sub Private Sub opt_all_Click() If opt_tahun.Caption = "Tahunan" Then List1.clear List1.AddItem ("All Data") ElseIf opt_tahun.Caption = "Bulanan" Then List1.clear List1.AddItem ("All Data")
ElseIf opt_tahun.Caption = "Harian" Then List1.clear List1.AddItem ("All Data") End If End Sub Private Sub opt_tahun_Click() If opt_tahun.Caption = "Tahunan" Then Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT suhuharian.id_bulan FROM suhuharian Group by suhuharian.id_bulan" Adodc1.Refresh Adodc1.Recordset.Sort = "id_bulan" 'mengisi combo dengan tabel tahun List1.clear Do Until Adodc1.Recordset.EOF List1.AddItem Adodc1.Recordset("id_bulan") Adodc1.Recordset.MoveNext Loop ElseIf opt_tahun.Caption = "Bulanan" Then Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT Suhuharian.id FROM Suhuharian group by suhuharian.id;" Adodc1.Refresh Adodc1.Recordset.Sort = "id" 'mengisi combo dengan tabel tahun List1.clear Do Until Adodc1.Recordset.EOF List1.AddItem Adodc1.Recordset("id") Adodc1.Recordset.MoveNext Loop ElseIf opt_tahun.Caption = "Harian" Then Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT Suhuharian.[Tanggal]FROM Suhuharian" Adodc1.Refresh Adodc1.Recordset.Sort = "Tanggal" 'mengisi combo dengan tabel tahun List1.clear Do Until Adodc1.Recordset.EOF List1.AddItem Adodc1.Recordset("Tanggal") Adodc1.Recordset.MoveNext Loop End If End Sub Form Kelembaban
Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) _ As Long Private Sub Admin_Click() frm1_menu.Show Unload Me End Sub Private Sub akhir_Click() On Error Resume Next Adodc2.Recordset.MoveLast If Combo1.text = "Kelembaban harian/15 menit" Then Call isidata1 ElseIf Combo1.text = "Kelembaban harian" Then Call isidata2 ElseIf Combo1.text = "Kelembaban bulanan" Then Call isidata3 End If End Sub Private Sub awal_Click() On Error Resume Next Adodc2.Recordset.MoveFirst If Combo1.text = "Kelembaban harian/15 menit" Then Call isidata1 ElseIf Combo1.text = "Kelembaban harian" Then Call isidata2 ElseIf Combo1.text = "Kelembaban bulanan" Then Call isidata3 End If End Sub Private Sub cmd_Click() Combo1.clear Combo1.AddItem "Kelembaban harian/15 menit" Combo1.AddItem "Kelembaban harian" Combo1.AddItem "Kelembaban bulanan" Combo1.text = "Kelembaban harian/15 menit" End Sub
Private Sub cmd_pemberdayaan_Click() frm_kelembagaan.Visible = False frm_Nelayan.Visible = False frm_pemberdayaan.Visible = True Combo2.clear Combo2.AddItem "Kelompok Nelayan Penerima PEMP" Combo2.AddItem "Kelompok Nelayan Penerima Rumpon" Combo2.text = "Kelompok Nelayan Penerima PEMP" Adodc3.ConnectionString = data Adodc3.RecordSource = "SELECT tabeltahun.tahun FROM tabeltahun" Adodc3.Refresh Adodc3.Recordset.Sort = "tahun" Combo3.clear Do Until Adodc3.Recordset.EOF Combo3.AddItem Adodc3.Recordset("tahun") Adodc3.Recordset.MoveNext Loop End Sub Private Sub Combo1_Click() If Combo1.text = "Kelembaban harian/15 menit" Then opt_tahun.Caption = "Per 15 menit" opt_all.Visible = True ElseIf Combo1.text = "Kelembaban harian" Then opt_tahun.Caption = "Harian" opt_all.Visible = True ElseIf Combo1.text = "Kelembaban bulanan" Then opt_all.Visible = True opt_tahun.Caption = "Bulanan" End If If opt_tahun.Value = True Then opt_tahun_Click ElseIf opt_all.Value = True Then opt_all_Click End If End Sub Private Sub Command1_Click() Frame13.Visible = False Frame3.Visible = True frm2.Visible = False Command1.BackColor = vbGreen Command2.BackColor = vbButtonFace Command5.BackColor = vbButtonFace Command4.BackColor = vbButtonFace
End Sub Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False End Sub Private Sub Command2_Click() Frame13.Visible = False frm2.Visible = True Frame3.Visible = False 'Frame6.Visible = False Command2.BackColor = vbGreen Command1.BackColor = vbButtonFace 'Command3.BackColor = vbButtonFace Command4.BackColor = vbButtonFace Command5.BackColor = vbButtonFace End Sub Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False End Sub Private Sub Command3_Click() cr.ReportFileName = App.path & "\kelembabanper15menit.rpt" cr.WindowState = crptMaximized cr.RetrieveDataFiles cr.Action = 0 End Sub Private Sub Command4_Click() Frame13.Visible = True Frame3.Visible = False frm2.Visible = False Command4.BackColor = vbGreen Command1.BackColor = vbButtonFace Command2.BackColor = vbButtonFace Command5.BackColor = vbButtonFace End Sub Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False End Sub
Private Sub Command5_Click() Command5.BackColor = vbGreen Command1.BackColor = vbButtonFace Command2.BackColor = vbButtonFace Command4.BackColor = vbButtonFace End Sub Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = True End Sub Private Sub Command6_Click() cr.ReportFileName = App.path & "\kelembabanharian.rpt" cr.WindowState = crptMaximized 'update file laporan jika terjadi ada perubahan cr.RetrieveDataFiles cr.Action = 0 End Sub Private Sub Command7_Click() cr.ReportFileName = App.path & "\kelembabanbulanan.rpt" cr.WindowState = crptMaximized cr.RetrieveDataFiles cr.Action = 0 End Sub Private Sub Form_Load() Command1_Click bukadatabase Call cmd_Click opt_tahun_Click opt_tahun.Value = True End Sub Private Sub kembali_Click() Unload Me End Sub Private Sub List1_Click() If Combo1.text = "Kelembaban harian/15 menit" Then If opt_tahun.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 2500 fg2.ColWidth(2) = 2500 fg2.ColWidth(3) = 2500
fg2.ColWidth(4) = 2500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT kelembabanharian.[Tanggal], kelembabanharian.[Kelembaban (%)]FROM kelembabanharian Where kelembabanharian.[Tanggal] Like " & " '" & List1.text & "%" & "'" & " ORDER BY kelembabanharian.[Tanggal];" Adodc2.Refresh ElseIf opt_all.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 2500 fg2.ColWidth(2) = 2500 fg2.ColWidth(3) = 2500 fg2.ColWidth(4) = 2500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT kelembabanharian.[Tanggal], kelembabanharian.[Kelembaban (%)]FROM kelembabanharian;" Adodc2.Refresh End If Set DataGrid1.DataSource = Adodc2 Call isidata1 ElseIf Combo1.text = "Kelembaban harian" Then If opt_tahun.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 3500 fg2.ColWidth(2) = 3500 fg2.ColWidth(3) = 3500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT kelembabanharian.id AS tanggal, Max(kelembabanharian.[Kelembaban (%)]) AS [Kelembaban Max (%)], Min(kelembabanharian.[Kelembaban (%)]) AS [Kelembaban min (%)], Avg(kelembabanharian.[Kelembaban (%)]) AS [Kelembaban Rata-rata(%)]From kelembabanharian Where kelembabanharian.id Like " & " '" & List1.text & "%" & "'" & " GROUP BY kelembabanharian.id ORDER BY kelembabanharian.id;" Adodc2.Refresh ElseIf opt_all.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 3500 fg2.ColWidth(2) = 3500 fg2.ColWidth(3) = 3500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT kelembabanharian.id AS tanggal, Max(kelembabanharian.[Kelembaban (%)]) AS [Kelembaban Max (%)], Min(kelembabanharian.[Kelembaban (%)]) AS [Kelembaban min (%)], Avg(kelembabanharian.[Kelembaban (%)]) AS [Kelembaban Rata-rata(%)]From kelembabanharian GROUP BY kelembabanharian.id;"
Adodc2.Refresh End If Call isidata2 ElseIf Combo1.text = "Kelembaban bulanan" Then If opt_tahun.Value = True Then fg2.ColWidth(1) = 3500 fg2.ColWidth(2) = 3500 fg2.ColWidth(3) = 3500 dodc2.ConnectionString = data Adodc2.RecordSource = "SELECT kelembabanharian.id_bulan AS [Tahun/Bulan], Max(kelembabanharian.[Kelembaban (%)]) AS [Kelembaban Max Bulanan (%)], Min(kelembabanharian.[Kelembaban (%)]) AS [Kelembaban Min Bulanan (%)], Avg(kelembabanharian.[Kelembaban (%)]) AS [Kelembaban harian (%)]From kelembabanharian Where kelembabanharian.id_bulan Like " & " '" & List1.text & "%" & "'" & " GROUP BY kelembabanharian.id_bulan ORDER BY kelembabanharian.id_bulan;" Adodc2.Refresh ElseIf opt_all.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 3500 fg2.ColWidth(2) = 3500 fg2.ColWidth(3) = 3500 fg2.ColWidth(4) = 3500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT kelembabanharian.id_bulan AS [Tahun/Bulan], Max(kelembabanharian.[Kelembaban (%)]) AS [Kelembaban Max Bulanan (%)], Min(kelembabanharian.[Kelembaban (%)]) AS [Kelembaban Min Bulanan (%)], Avg(kelembabanharian.[Kelembaban (%)]) AS [Kelembaban harian (%)]From kelembabanharian GROUP BY kelembabanharian.id_bulan;" Adodc2.Refresh End If Call isidata3 End If Dim i As Integer Set fg2.DataSource = Adodc2 'fg2.Cols = fg2.Cols + 1 'fg2.ColWidth(5) = 200 For i = 1 To fg2.Rows - 1 fg2.RowHeight(i) = 500 Next i End Sub Private Sub isidata1() On Error Resume Next If Adodc2.Recordset("Kelembaban harian/15 menit") Is Null Then
txt_tahun.Caption = "-" End If If Adodc2.Recordset("Curah hujan (mm/years)") Is Null Then txt_jenis.Caption = "-" End If txt_tahun.Caption = Adodc2.Recordset("Kelembaban harian/15 menit (%)") txt_jenis.Caption = Adodc2.Recordset("Tahun") txt_satuan.Caption = "%" End Sub Private Sub isidata2() On Error Resume Next If Adodc2.Recordset("Kelembaban harian (mm/month)") Is Null Then txt_tahun.Caption = "-" End If If Adodc2.Recordset("Tahun") Is Null Then txt_jenis.Caption = "-" End If txt_tahun.Caption = Adodc2.Recordset("Kelembaban rata-rata") txt_jenis.Caption = Adodc2.Recordset("Tahun") txt_bulan.Caption = Adodc2.Recordset("Bulan") txt_satuan.Caption = "%" End Sub Private Sub isidata3() On Error Resume Next If Adodc2.Recordset("Kelembaban bulanan (mm/day)") Is Null Then txt_tahun.Caption = "-" End If If Adodc2.Recordset("Tahun") Is Null Then txt_jenis.Caption = "-" End If txt_tahun.Caption = Adodc2.Recordset("Kelembaban rata rata tahunan (%)") txt_jenis.Caption = Adodc2.Recordset("Tahun") txt_bulan.Caption = Adodc2.Recordset("Bulan") txt_satuan.Caption = "%" End Sub Private Sub isidatakelembagaan1() On Error Resume Next If Adodc4.Recordset("No") Is Null Then txttahun.Caption = "-" End If If Adodc4.Recordset("Kelompok Nelayan") Is Null Then txtkelnel.Caption = "-" End If If Adodc4.Recordset("Nagari/Korong") Is Null Then
txtnagari.Caption = "-" End If If Adodc4.Recordset("kecamatan") Is Null Then txtkec.Caption = "-" End If txttahun.Caption = Adodc4.Recordset("No") txtkelnel.Caption = Adodc4.Recordset("Kelompok Nelayan") txtnagari.Caption = Adodc4.Recordset("Nagari/Korong") txtkec.Caption = Adodc4.Recordset("kecamatan") End Sub Private Sub maju_Click() On Error Resume Next If Adodc2.Recordset.EOF = False Then Adodc2.Recordset.MoveNext End If If Adodc2.Recordset.EOF = True Then Adodc2.Recordset.MoveLast MsgBox "Sudah data paling akhir.", vbOKOnly + vbInformation End If If Combo1.text = "Kelembaban harian/15 menit" Then Call isidata1 ElseIf Combo1.text = "Kelembaban harian" Then Call isidata2 ElseIf Combo1.text = "Kelembaban bulanan" Then Call isidata3 End If End Sub Private Sub mundur_Click() On Error Resume Next If Adodc2.Recordset.BOF = False Then Adodc2.Recordset.MovePrevious End If If Adodc2.Recordset.BOF = True Then Adodc2.Recordset.MoveFirst MsgBox "Sudah data paling awal", vbOKOnly + vbInformation End If If Combo1.text = "Kelembaban harian/15 menit" Then Call isidata1 ElseIf Combo1.text = "Kelembaban harian" Then Call isidata2 ElseIf Combo1.text = "Kelembaban bulanan" Then Call isidata3 End If End Sub
Private Sub opt_all_Click() If opt_tahun.Caption = "Bulanan" Then List1.clear List1.AddItem ("All Data") ElseIf opt_tahun.Caption = "Harian" Then List1.clear List1.AddItem ("All Data") ElseIf opt_tahun.Caption = "Per 15 menit" Then List1.clear List1.AddItem ("All Data") End If End Sub Private Sub opt_tahun_Click() If opt_tahun.Caption = "Bulanan" Then Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT kelembabanharian.id_bulan FROM kelembabanharian GROUP BY kelembabanharian.id_bulan;" Adodc1.Refresh Adodc1.Recordset.Sort = "id_bulan" List1.clear Do Until Adodc1.Recordset.EOF List1.AddItem Adodc1.Recordset("id_bulan") Adodc1.Recordset.MoveNext Loop ElseIf opt_tahun.Caption = "Harian" Then Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT kelembabanharian.id FROM kelembabanharian GROUP BY kelembabanharian.id;" Adodc1.Refresh Adodc1.Recordset.Sort = "id" List1.clear Do Until Adodc1.Recordset.EOF List1.AddItem Adodc1.Recordset("id") Adodc1.Recordset.MoveNext Loop ElseIf opt_tahun.Caption = "Per 15 menit" Then Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT kelembabanharian.[Tanggal]FROM kelembabanharian;" Adodc1.Refresh Adodc1.Recordset.Sort = "Tanggal" List1.clear Do Until Adodc1.Recordset.EOF List1.AddItem Adodc1.Recordset("Tanggal") Adodc1.Recordset.MoveNext
Loop End If End Sub Form Tanah Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) _ As Long Private Sub combo() Combo1.clear Combo1.AddItem "Podsolik merah kuning" Combo1.AddItem "Latosol merah kuning" Combo1.AddItem "Latosol coklat" Combo1.AddItem "Litosol" Combo1.AddItem "All data" Combo1.text = "All data" Call Combo1_Click End Sub Private Sub Combo1_Click() If Combo1.text = "Podsolik merah kuning" Then Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT [karakteristik tanah].[Tekstur], [karakteristik tanah].[Struktur], [karakteristik tanah].[Bahan organik], [karakteristik tanah].[Permeabilitas tanah], [karakteristik tanah].[kelas kepekaan tanah terhadap erosi]FROM [karakteristik tanah] Where [karakteristik tanah].[Jenis tanah] Like " & " '" & Combo1.text & "%" & "'" & " ORDER BY [karakteristik tanah].[Jenis tanah];" Adodc2.Refresh Set DataGrid1.DataSource = Adodc2 ElseIf Combo1.text = "Latosol merah kuning" Then Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT [karakteristik tanah].[Tekstur], [karakteristik tanah].[Struktur], [karakteristik tanah].[Bahan organik], [karakteristik tanah].[Permeabilitas tanah], [karakteristik tanah].[kelas kepekaan tanah terhadap erosi]FROM [karakteristik tanah] Where [karakteristik tanah].[Jenis tanah] Like " & " '" & Combo1.text & "%" & "'" & " ORDER BY [karakteristik tanah].[Jenis tanah];" Adodc2.Refresh
ElseIf Combo1.text = "Latosol coklat" Then Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT [karakteristik tanah].[Tekstur], [karakteristik tanah].[Struktur], [karakteristik tanah].[Bahan organik], [karakteristik tanah].[Permeabilitas tanah], [karakteristik tanah].[kelas kepekaan tanah terhadap erosi]FROM [karakteristik tanah] Where [karakteristik tanah].[Jenis tanah] Like " & " '" & Combo1.text & "%" & "'" & " ORDER BY [karakteristik tanah].[Jenis tanah];" Adodc2.Refresh ElseIf Combo1.text = "Litosol" Then Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT [karakteristik tanah].[Tekstur], [karakteristik tanah].[Struktur], [karakteristik tanah].[Bahan organik], [karakteristik tanah].[Permeabilitas tanah], [karakteristik tanah].[kelas kepekaan tanah terhadap erosi]FROM [karakteristik tanah] Where [karakteristik tanah].[Jenis tanah] Like " & " '" & Combo1.text & "%" & "'" & " ORDER BY [karakteristik tanah].[Jenis tanah];" Adodc2.Refresh ElseIf Combo1.text = "All data" Then Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT [karakteristik tanah].[Jenis tanah], [karakteristik tanah].[Tekstur], [karakteristik tanah].[Struktur], [karakteristik tanah].[Bahan organik], [karakteristik tanah].[Permeabilitas tanah], [karakteristik tanah].[kelas kepekaan tanah terhadap erosi]FROM [karakteristik tanah];" Adodc2.Refresh End If Dim i As Integer fg2.ColWidth(0) = 200 fg2.ColWidth(1) = 2500 fg2.ColWidth(2) = 2500 fg2.ColWidth(3) = 2500 fg2.ColWidth(4) = 2500 fg2.ColWidth(5) = 2500 Set fg2.DataSource = Adodc2 For i = 1 To fg2.Rows - 1 fg2.RowHeight(i) = 2000 Next i End Sub Private Sub Form_Load() bukadatabase Call combo End Sub Private Sub kembali_Click() Unload Me End Sub
Private Sub laporan_Click() Cr.ReportFileName = App.path & "\tanah.rpt" Cr.WindowState = crptMaximized Cr.RetrieveDataFiles Cr.Action = 0 End Sub Form Sosial Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) _ As Long Private Sub Admin_Click() frm1_menu.Show Unload Me End Sub Private Sub akhir_Click() On Error Resume Next Adodc2.Recordset.MoveLast If Combo1.text = "Jumlah penduduk Berdasarkan desa" Then Call isidata1 ElseIf Combo1.text = "Jumlah penduduk Berdasarkan Tingkat Pendidikan" Then Call isidata2 End If End Sub Private Sub awal_Click() On Error Resume Next Adodc2.Recordset.MoveFirst If Combo1.text = "Jumlah penduduk Berdasarkan desa" Then Call isidata1 ElseIf Combo1.text = "Jumlah penduduk Berdasarkan Tingkat Pendidikan" Then Call isidata2 End If End Sub Private Sub cmd_Click() Combo1.clear
Combo1.AddItem "Jumlah penduduk Berdasarkan desa" Combo1.AddItem "Jumlah penduduk Berdasarkan Tingkat Pendidikan" Combo1.text = "Jumlah penduduk Berdasarkan desa" End Sub Private Sub cmd_pemberdayaan_Click() frm_kelembagaan.Visible = False frm_petani.Visible = False frm_pemberdayaan.Visible = True Combo2.clear Combo2.AddItem "Kelompok Tani Penerima Dana bantuan pemerintah" Combo2.AddItem "Kelompok Tani Penerima Dana Bantuan HPGW" Combo2.text = "Kelompok Tani Penerima Dana bantuan pemerintah" Adodc3.ConnectionString = data Adodc3.RecordSource = "SELECT tabeltahun.tahun FROM tabeltahun" Adodc3.Refresh Adodc3.Recordset.Sort = "tahun" Combo3.clear Do Until Adodc3.Recordset.EOF Combo3.AddItem Adodc3.Recordset("tahun") Adodc3.Recordset.MoveNext Loop End Sub Private Sub Combo1_Click() If Combo1.text = "Jumlah penduduk Berdasarkan desa" Then opt_jenis.Caption = "Nama desa" ElseIf Combo1.text = "Jumlah penduduk Berdasarkan Tingkat Pendidikan" Then opt_jenis.Caption = "Tingkat Pendidikan" End If If opt_tahun.Value = True Then opt_tahun_Click ElseIf opt_jenis.Value = True Then opt_jenis_Click End If End Sub Private Sub Combo3_Click() If Combo2.text = "Kelompok Tani Penerima Dana bantuan pemerintah" Then Adodc5.ConnectionString = data Adodc5.RecordSource = "SELECT tabelPemberdayaanPEMP.Tahun, tabelPemberdayaanPEMP.[Kelompok Tani], tabelKelembagaan.[Desa], tabelKelembagaan.Kecamatan, tabelPemberdayaanPEMP.[Jumlah Dana] FROM tabelKelembagaan INNER JOIN tabelPemberdayaanPEMP ON tabelKelembagaan.[Kelompok Tani] = tabelPemberdayaanPEMP.[Kelompok Tani] Where tabelPemberdayaanPEMP.Tahun Like " & " '" & Combo3.text & "%" & "'" & " ORDER BY tabelPemberdayaanPEMP.Tahun;"
Adodc5.Refresh Set DGPemberdayaan.DataSource = Adodc5 Call isidatapemberdayaanPEMP ElseIf Combo2.text = "Kelompok Tani Penerima Dana Bantuan HPGW" Then Adodc5.ConnectionString = data Adodc5.RecordSource = "SELECT tabelPemberdayaanRumpon.Tahun, tabelPemberdayaanRumpon.[Kelompok Tani], tabelKelembagaan.[Desa], tabelKelembagaan.Kecamatan, tabelPemberdayaanRumpon.Jumlah FROM tabelKelembagaan INNER JOIN tabelPemberdayaanRumpon ON tabelKelembagaan.[Kelompok Tani] = tabelPemberdayaanRumpon.[Kelompok Tani] Where tabelPemberdayaanRumpon.Tahun Like " & " '" & Combo3.text & "%" & "'" & " ORDER BY tabelPemberdayaanRumpon.Tahun;" Adodc5.Refresh Set DGPemberdayaan.DataSource = Adodc5 isidatapemberdayaanRumpon End If End Sub Private Sub Command1_Click() On Error Resume Next Adodc4.Recordset.MoveLast Call isidatakelembagaan1 End Sub Private Sub Command2_Click() On Error Resume Next If Adodc4.Recordset.EOF = False Then Adodc4.Recordset.MoveNext End If If Adodc4.Recordset.EOF = True Then Adodc4.Recordset.MoveLast MsgBox "Sudah data paling akhir.", vbOKOnly + vbInformation End If Call isidatakelembagaan1 End Sub Private Sub Command3_Click() On Error Resume Next If Adodc4.Recordset.BOF = False Then Adodc4.Recordset.MovePrevious End If If Adodc4.Recordset.BOF = True Then Adodc4.Recordset.MoveFirst MsgBox "Sudah data paling awal", vbOKOnly + vbInformation End If Call isidatakelembagaan1 End Sub
Private Sub Command4_Click() On Error Resume Next Adodc4.Recordset.MoveFirst Call isidatakelembagaan1 End Sub Private Sub Command5_Click() On Error Resume Next Adodc5.Recordset.MoveLast If Combo2.text = "Kelompok Tani Penerima Dana bantuan pemerintah" Then Call isidatapemberdayaanPEMP ElseIf Combo1.text = "Kelompok Tani Penerima Dana Bantuan HPGW" Then Call isidatapemberdayaanRumpon End If End Sub Private Sub Command6_Click() On Error Resume Next If Adodc5.Recordset.EOF = False Then Adodc5.Recordset.MoveNext End If If Adodc5.Recordset.EOF = True Then Adodc5.Recordset.MoveLast MsgBox "Sudah data paling akhir.", vbOKOnly + vbInformation End If If Combo2.text = "Kelompok Tani Penerima Dana bantuan pemerintah" Then Call isidatapemberdayaanPEMP ElseIf Combo1.text = "Kelompok Tani Penerima Dana Bantuan HPGW" Then Call isidatapemberdayaanRumpon End If End Sub Private Sub Command7_Click() On Error Resume Next If Adodc5.Recordset.BOF = False Then Adodc5.Recordset.MovePrevious End If If Adodc5.Recordset.BOF = True Then Adodc5.Recordset.MoveFirst MsgBox "Sudah data paling awal", vbOKOnly + vbInformation End If If Combo2.text = "Kelompok Tani Penerima Dana bantuan pemerintah" Then Call isidatapemberdayaanPEMP ElseIf Combo1.text = "Kelompok Tani Penerima Dana Bantuan HPGW" Then Call isidatapemberdayaanRumpon
End If End Sub Private Sub Command8_Click() On Error Resume Next Adodc5.Recordset.MoveFirst If Combo2.text = "Kelompok Tani Penerima Dana bantuan pemerintah" Then Call isidatapemberdayaanPEMP ElseIf Combo1.text = "Kelompok Tani Penerima Dana Bantuan HPGW" Then Call isidatapemberdayaanRumpon End If End Sub Private Sub DGLembaga_Click() Call isidatakelembagaan1 End Sub Private Sub DGPemberdayaan_Click() If Combo2.text = "Kelompok Tani Penerima Dana bantuan pemerintah" Then Call isidatapemberdayaanPEMP ElseIf Combo1.text = "Kelompok Tani Penerima Dana Bantuan HPGW" Then Call isidatapemberdayaanRumpon End If End Sub Private Sub Form_Load() bukadatabase Call cmd_Click opt_tahun_Click opt_tahun.Value = True End Sub Private Sub jcbutton10_Click() frm9_info.Show Unload Me End Sub Private Sub jcbutton2_Click() frm2_SDI.Show Unload Me End Sub Private Sub jcbutton3_Click() frm3_lingkungan.Show Unload Me End Sub
Private Sub jcbutton4_Click() frm4_sarana.Show Unload Me End Sub Private Sub jcbutton6_Click() frm7_manajemen.Show Unload Me End Sub Private Sub jcbutton7_Click() frm8_laporan.Show Unload Me End Sub Private Sub jcbutton8_Click() frm5_referensi.Show Unload Me End Sub Private Sub jcbutton9_Click() Unload Me End Sub Private Sub kembali_Click() Unload Me End Sub Private Sub List1_Click() If Combo1.text = "Jumlah penduduk Berdasarkan desa" Then If opt_tahun.Value = True Then Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT tabelpetani1.Tahun, tabelpetani1.[Nama desa], tabelpetani1.Jumlah, tabelKelompok.[Keterangan] FROM tabelKelompok INNER JOIN tabelpetani1 ON tabelKelompok.[Nama desa] = tabelpetani1.[Nama desa] Where tabelpetani1.Tahun Like " & " '" & List1.text & "%" & "'" & " ORDER BY tabelpetani1.Tahun;" Adodc2.Refresh ElseIf opt_jenis.Value = True Then Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT tabelpetani1.Tahun, tabelpetani1.[Nama desa], tabelpetani1.Jumlah, tabelKelompok.[Keterangan] FROM tabelKelompok INNER JOIN tabelpetani1 ON tabelKelompok.[Nama desa] = tabelpetani1.[Nama desa] Where tabelpetani1.[Nama desa] Like " & " '" & List1.text & "%" & "'" & " ORDER BY tabelpetani1.Tahun;"
Adodc2.Refresh End If Set DataGrid1.DataSource = Adodc2 Call isidata1 ElseIf Combo1.text = "Jumlah penduduk Berdasarkan Tingkat Pendidikan" Then If opt_tahun.Value = True Then Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT tabelpetani2.Tahun, tabelpetani2.[Id Kel Pendidikan], tabelpetani2.Jumlah, tabelKelompok2.Ket FROM tabelKelompok2 INNER JOIN tabelpetani2 ON tabelKelompok2.[Id Kel Pendidikan] = tabelpetani2.[Id Kel Pendidikan] Where tabelpetani2.Tahun Like " & " '" & List1.text & "%" & "'" & " ORDER BY tabelpetani2.Tahun;" Adodc2.Refresh ElseIf opt_jenis.Value = True Then Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT tabelpetani2.Tahun, tabelpetani2.[Id Kel Pendidikan], tabelpetani2.Jumlah, tabelKelompok2.Ket FROM tabelKelompok2 INNER JOIN tabelpetani2 ON tabelKelompok2.[Id Kel Pendidikan] = tabelpetani2.[Id Kel Pendidikan] Where tabelKelompok2.[Id Kel Pendidikan] Like " & " '" & List1.text & "%" & "'" & " ORDER BY tabelpetani2.Tahun;" Adodc2.Refresh End If Call isidata2 End If Dim i As Integer fg2.ColWidth(0) = 200 fg2.ColWidth(1) = 600 fg2.ColWidth(2) = 2500 fg2.ColWidth(4) = 10000 Set fg2.DataSource = Adodc2 For i = 1 To fg2.Rows - 1 fg2.RowHeight(i) = 500 Next i End Sub Private Sub isidata1() On Error Resume Next If Adodc2.Recordset("tahun") Is Null Then txt_tahun.Caption = "-" End If If Adodc2.Recordset("Kel Kapal") Is Null Then txt_jenis.Caption = "-" End If If Adodc2.Recordset("Jumlah Kapal") Is Null Then txt_jum.Caption = "-" End If If Adodc2.Recordset("Ket Kapal") Is Null Then
txt_ket.text = "-" End If txt_tahun.Caption = Adodc2.Recordset("tahun") txt_jenis.Caption = Adodc2.Recordset("Nama desa") txt_jum.Caption = Adodc2.Recordset("Jumlah") txt_ket.text = Adodc2.Recordset("Keterangan") End Sub Private Sub isidata2() On Error Resume Next If Adodc2.Recordset("tahun") Is Null Then txt_tahun.Caption = "-" End If If Adodc2.Recordset("Kel Kapal") Is Null Then txt_jenis.Caption = "-" End If If Adodc2.Recordset("Jumlah Kapal") Is Null Then txt_jum.Caption = "-" End If If Adodc2.Recordset("Ket Kapal") Is Null Then txt_ket.text = "-" End If txt_tahun.Caption = Adodc2.Recordset("tahun") txt_jenis.Caption = Adodc2.Recordset("id kel pendidikan") txt_jum.Caption = Adodc2.Recordset("Jumlah") txt_ket.text = Adodc2.Recordset("Ket") End Sub Private Sub isidatakelembagaan1() On Error Resume Next If Adodc4.Recordset("No") Is Null Then txttahun.Caption = "-" End If If Adodc4.Recordset("Kelompok Tani") Is Null Then txtkelnel.Caption = "-" End If If Adodc4.Recordset("Desa") Is Null Then txtnagari.Caption = "-" End If If Adodc4.Recordset("kecamatan") Is Null Then txtkec.Caption = "-" End If txttahun.Caption = Adodc4.Recordset("No") txtkelnel.Caption = Adodc4.Recordset("Kelompok Tani") txtnagari.Caption = Adodc4.Recordset("Desa") txtkec.Caption = Adodc4.Recordset("kecamatan") End Sub Private Sub isidatapemberdayaanPEMP()
On Error Resume Next If Adodc5.Recordset("tahun") Is Null Then txtP_tahun.Caption = "-" End If If Adodc5.Recordset("Kelompok Tani") Is Null Then txtP_kel_Nel.Caption = "-" End If If Adodc5.Recordset("Desa") Is Null Then txtP_nagari.Caption = "-" End If If Adodc5.Recordset("kecamatan") Is Null Then txtP_kecamatan.Caption = "-" End If If Adodc5.Recordset("jumlah dana") Is Null Then txtP_Jum.Caption = "-" End If txtP_tahun.Caption = Adodc5.Recordset("tahun") txtP_kel_Nel.Caption = Adodc5.Recordset("Kelompok Tani") txtP_nagari.Caption = Adodc5.Recordset("Desa") txtP_kecamatan.Caption = Adodc5.Recordset("kecamatan") txtP_Jum.Caption = Adodc5.Recordset("jumlah dana") End Sub Private Sub isidatapemberdayaanRumpon() On Error Resume Next If Adodc5.Recordset("tahun") Is Null Then txtP_tahun.Caption = "-" End If If Adodc5.Recordset("Kelompok Tani") Is Null Then txtP_kel_Nel.Caption = "-" End If If Adodc5.Recordset("Desa") Is Null Then txtP_nagari.Caption = "-" End If If Adodc5.Recordset("kecamatan") Is Null Then txtP_kecamatan.Caption = "-" End If If Adodc5.Recordset("jumlah") Is Null Then txtP_Jum.Caption = "-" End If txtP_tahun.Caption = Adodc5.Recordset("tahun") txtP_kel_Nel.Caption = Adodc5.Recordset("Kelompok Tani") txtP_nagari.Caption = Adodc5.Recordset("Desa") txtP_kecamatan.Caption = Adodc5.Recordset("kecamatan") txtP_Jum.Caption = Adodc5.Recordset("jumlah") End Sub
Private Sub maju_Click() On Error Resume Next If Adodc2.Recordset.EOF = False Then Adodc2.Recordset.MoveNext End If If Adodc2.Recordset.EOF = True Then Adodc2.Recordset.MoveLast MsgBox "Sudah data paling akhir.", vbOKOnly + vbInformation End If If Combo1.text = "Jumlah penduduk Berdasarkan desa" Then Call isidata1 ElseIf Combo1.text = "Jumlah penduduk Berdasarkan Tingkat Pendidikan" Then Call isidata2 End If End Sub Private Sub mundur_Click() On Error Resume Next If Adodc2.Recordset.BOF = False Then Adodc2.Recordset.MovePrevious End If If Adodc2.Recordset.BOF = True Then Adodc2.Recordset.MoveFirst MsgBox "Sudah data paling awal", vbOKOnly + vbInformation End If If Combo1.text = "Jumlah penduduk Berdasarkan desa" Then Call isidata1 ElseIf Combo1.text = "Jumlah penduduk Berdasarkan Tingkat Pendidikan" Then Call isidata2 End If End Sub Private Sub opt_jenis_Click() On Error Resume Next If Combo1.text = "Jumlah penduduk Berdasarkan desa" Then Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT tabelKelompok.[Nama desa]From tabelKelompok ORDER BY tabelKelompok.[Nama desa];" Adodc1.Refresh List1.clear Do Until Adodc1.Recordset.EOF List1.AddItem Adodc1.Recordset("Nama desa") Adodc1.Recordset.MoveNext Loop ElseIf Combo1.text = "Jumlah penduduk Berdasarkan Tingkat Pendidikan" Then Adodc1.ConnectionString = data
Adodc1.RecordSource = "SELECT tabelKelompok2.[Id Kel Pendidikan], tabelKelompok2.[no] From tabelKelompok2 ORDER BY tabelKelompok2.[no];" Adodc1.Refresh List1.clear Do Until Adodc1.Recordset.EOF List1.AddItem Adodc1.Recordset("Id Kel Pendidikan") Adodc1.Recordset.MoveNext Loop End If End Sub Private Sub opt_tahun_Click() Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT tabeltahun.tahun FROM tabeltahun" Adodc1.Refresh Adodc1.Recordset.Sort = "tahun" List1.clear Do Until Adodc1.Recordset.EOF List1.AddItem Adodc1.Recordset("tahun") Adodc1.Recordset.MoveNext Loop End Sub Form Hidrologi
Private Sub cmdintersepsi_Click() intersepsii.Show vbModal End Sub Private Sub Command1_Click() menu.Show Unload Me End Sub Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False Frame6.Visible = False Frame7.Visible = False End Sub Private Sub Command10_Click() Form1.Show Unload Me End Sub
Private Sub Command11_Click() Stemfloww.Show vbModal End Sub Private Sub Command12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = True Frame6.Visible = False Frame7.Visible = False End Sub Private Sub Command15_Click() infiltasii.Show vbModal End Sub Private Sub Command16_Click() Label57.Caption = Command16.Caption Evaporasi.Visible = True Stemflow.Visible = False intersepsi.Visible = False infiltrasi.Visible = False frm_troughfall.Visible = False Frame8.Visible = False End Sub Private Sub Command17_Click() Label57.Caption = Command17.Caption Stemflow.Visible = True intersepsi.Visible = False infiltrasi.Visible = False frm_troughfall.Visible = False Frame8.Visible = False Evaporasi.Visible = False End Sub Private Sub Command18_Click() Label57.Caption = Command18.Caption intersepsi.Visible = True Stemflow.Visible = False infiltrasi.Visible = False frm_troughfall.Visible = False Frame8.Visible = False Evaporasi.Visible = False End Sub Private Sub Command19_Click()
Curahhujan.Show vbModal End Sub Private Sub Command2_Click() erosi_usle.Show Unload menu End Sub Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False Frame6.Visible = False Frame7.Visible = False End Sub Private Sub Command21_Click() Label57.Caption = Command21.Caption infiltrasi.Visible = True Stemflow.Visible = False intersepsi.Visible = False frm_troughfall.Visible = False Frame8.Visible = False Evaporasi.Visible = False End Sub Private Sub Command25_Click() Curahhujan.Show vbModal End Sub Private Sub Command27_Click() Frame8.Visible = True Stemflow.Visible = False intersepsi.Visible = False infiltrasi.Visible = False frm_troughfall.Visible = False Evaporasi.Visible = False Label57.Caption = Command27.Caption End Sub Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False Frame6.Visible = False Frame7.Visible = False End Sub
Private Sub Command36_Click() erosisedimentasi.Show Unload Me End Sub Private Sub Command4_Click() End End Sub Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False Frame6.Visible = False Frame7.Visible = False End Sub Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False Frame6.Visible = False Frame7.Visible = False End Sub Private Sub Command6_Click() Referensi.Show Unload Me End Sub Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False Frame6.Visible = False Frame7.Visible = False End Sub Private Sub Command7_Click() Form3.Show Unload Me End Sub Private Sub Command7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = False Frame6.Visible = False Frame7.Visible = False End Sub
Private Sub Command8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame6.Visible = True Frame5.Visible = False Frame7.Visible = False End Sub Private Sub Command9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame7.Visible = True Frame6.Visible = False Frame5.Visible = False End Sub Private Sub Form_Load() Label57.Caption = Command5.Caption End Sub Private Sub Troughfall_Click() Label57.Caption = Troughfall.Caption frm_troughfall.Visible = True Stemflow.Visible = False intersepsi.Visible = False infiltrasi.Visible = False Frame8.Visible = False Evaporasi.Visible = False End Sub Form Intersepsi Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) _ As Long Private Sub Command1_Click() Cr.ReportFileName = App.path & "\intersepsipertanggal.rpt" Cr.WindowState = crptMaximized Cr.RetrieveDataFiles
Cr.Action = 0 End Sub Private Sub Command10_Click() Frame3.Visible = True Frame6.Visible = False End Sub Private Sub Command11_Click() Frame5.Visible = True Frame6.Visible = False End Sub Private Sub Command12_Click() pesan = MsgBox("ini sudah halaman yang terakhir", vbOKOnly, "keterangan") End Sub Private Sub Command13_Click() pesan = MsgBox("ini sudah halaman yang terakhir", vbOKOnly, "keterangan") End Sub Private Sub Command16_Click() Frame6.Visible = True Frame3.Visible = False End Sub Private Sub Command17_Click() Frame5.Visible = True Frame3.Visible = False End Sub Private Sub Command2_Click() frm2.Visible = True Command2.BackColor = vbGreen Command5.BackColor = vbButtonFace End Sub Private Sub Command20_Click() pesan = MsgBox("ini sudah halaman yang paling awal", vbOKOnly, "keterangan") End Sub Private Sub Command21_Click() pesan = MsgBox("ini sudah halaman yang paling awal", vbOKOnly, "keterangan") End Sub Private Sub Command3_Click()
Command3.BackColor = vbGreen Command1.BackColor = vbButtonFace Command2.BackColor = vbButtonFace Command4.BackColor = vbButtonFace Command5.BackColor = vbButtonFace End Sub Private Sub Command4_Click() Frame13.Visible = True Frame3.Visible = False Frame5.Visible = False Frame6.Visible = False frm2.Visible = False Command4.BackColor = vbGreen Command1.BackColor = vbButtonFace Command2.BackColor = vbButtonFace Command3.BackColor = vbButtonFace Command5.BackColor = vbButtonFace End Sub Private Sub Command5_Click() Cr.ReportFileName = App.path & "\intersepsifuck.rpt" Cr.WindowState = crptMaximized Cr.RetrieveDataFiles Cr.Action = 0 End Sub Private Sub Command6_Click() Frame5.Visible = False Frame6.Visible = True End Sub Private Sub Command7_Click() Frame5.Visible = False Frame6.Visible = True End Sub Private Sub Command8_Click() Frame5.Visible = False Frame3.Visible = True End Sub Private Sub DGLembaga_Click() Call isidatakelembagaan1 End Sub
Private Sub DGPemberdayaan_Click() If Combo2.text = "Kelompok Nelayan Penerima PEMP" Then Call isidatapemberdayaanPEMP ElseIf Combo1.text = "Kelompok Nelayan Penerima Rumpon" Then Call isidatapemberdayaanRumpon End If End Sub Private Sub Command9_Click() Frame3.Visible = True Frame5.Visible = False End Sub Private Sub Form_Load() bukadatabase opt_tahun_Click opt_tahun.Value = True End Sub Private Sub jcbutton10_Click() frm9_info.Show Unload Me End Sub Private Sub kembali_Click() Unload Me End Sub Private Sub List1_Click() If opt_tahun.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 2500 fg2.ColWidth(2) = 2500 fg2.ColWidth(3) = 2500 fg2.ColWidth(4) = 2500 fg2.ColWidth(5) = 2500 fg2.ColWidth(6) = 2500 fg2.ColWidth(7) = 2500 fg2.ColWidth(8) = 3500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT intersepsi.ID, intersepsi.tanggal, intersepsi.[curah hujan harian (mm)], intersepsi.Stemflow, intersepsi.Throughfall, [curah hujan harian (mm)]([Stemflow]+[Throughfall]) AS intersepsi, intersepsi.[penutupan lahan], ([intersepsi]/[curah hujan harian (mm)])*100 AS [% intersepsi terhadap curah hujan] FROM intersepsi Where intersepsi.tanggal Like " & " '" & List1.text & "%" & "'" & " ORDER BY intersepsi.tanggal;" Adodc2.Refresh
ElseIf opt_all.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 2500 fg2.ColWidth(2) = 2500 fg2.ColWidth(3) = 2500 fg2.ColWidth(4) = 2500 fg2.ColWidth(5) = 2500 fg2.ColWidth(6) = 2500 fg2.ColWidth(7) = 2500 fg2.ColWidth(8) = 3500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT intersepsi.ID, intersepsi.tanggal, intersepsi.[curah hujan harian (mm)], intersepsi.Stemflow, intersepsi.Throughfall, [curah hujan harian (mm)]([Stemflow]+[Throughfall]) AS intersepsi, intersepsi.[penutupan lahan], ([intersepsi]/[curah hujan harian (mm)])*100 AS [% intersepsi terhadap curah hujan] FROM intersepsi;" Adodc2.Refresh ElseIf Option1.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 2500 fg2.ColWidth(2) = 2500 fg2.ColWidth(3) = 2500 fg2.ColWidth(4) = 2500 fg2.ColWidth(5) = 2500 fg2.ColWidth(6) = 2500 fg2.ColWidth(7) = 2500 fg2.ColWidth(8) = 3500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT intersepsi.ID, intersepsi.tanggal, intersepsi.[curah hujan harian (mm)], intersepsi.Stemflow, intersepsi.Throughfall, [curah hujan harian (mm)]([Stemflow]+[Throughfall]) AS intersepsi, intersepsi.[penutupan lahan], ([intersepsi]/[curah hujan harian (mm)])*100 AS [% intersepsi terhadap curah hujan] FROM intersepsi Where intersepsi.[penutupan lahan] Like " & " '" & List1.text & "%" & "'" & " ORDER BY intersepsi.[penutupan lahan];" Adodc2.Refresh End If Set DataGrid1.DataSource = Adodc2 Call isidata1 Dim i As Integer Set fg2.DataSource = Adodc2 For i = 1 To fg2.Rows - 1 fg2.RowHeight(i) = 500 Next i End Sub Private Sub isidata1() On Error Resume Next
If Adodc2.Recordset("Tahun") Is Null Then txt_tahun.Caption = "-" End If If Adodc2.Recordset("Curah hujan (mm/years)") Is Null Then txt_jenis.Caption = "-" End If txt_tahun.Caption = Adodc2.Recordset("Curah hujan (mm/years)") txt_jenis.Caption = Adodc2.Recordset("Tahun") txt_satuan.Caption = "mm/years" End Sub Private Sub isidata2() On Error Resume Next If Adodc2.Recordset("Curah Hujan Bulanan (mm/month)") Is Null Then txt_tahun.Caption = "-" End If If Adodc2.Recordset("Tahun") Is Null Then txt_jenis.Caption = "-" End If txt_tahun.Caption = Adodc2.Recordset("Curah Hujan Bulanan (mm/month)") txt_jenis.Caption = Adodc2.Recordset("Tahun") txt_bulan.Caption = Adodc2.Recordset("Bulan") txt_satuan.Caption = "mm/month" End Sub Private Sub isidata3() On Error Resume Next If Adodc2.Recordset("curah hujan harian (mm/day)") Is Null Then txt_tahun.Caption = "-" End If If Adodc2.Recordset("Tahun") Is Null Then txt_jenis.Caption = "-" End If txt_tahun.Caption = Adodc2.Recordset("curah hujan harian (mm/day)") txt_jenis.Caption = Adodc2.Recordset("Tahun") txt_bulan.Caption = Adodc2.Recordset("Bulan") txt_satuan.Caption = "mm/day" End Sub Private Sub maju_Click() On Error Resume Next If Adodc2.Recordset.EOF = False Then Adodc2.Recordset.MoveNext End If If Adodc2.Recordset.EOF = True Then Adodc2.Recordset.MoveLast MsgBox "Sudah data paling akhir.", vbOKOnly + vbInformation
End If If Combo1.text = "Curah Hujan Tahunan" Then Call isidata1 ElseIf Combo1.text = "Curah Hujan Bulanan" Then Call isidata2 ElseIf Combo1.text = "Curah Hujan Harian" Then Call isidata3 End If End Sub Private Sub mundur_Click() On Error Resume Next If Adodc2.Recordset.BOF = False Then Adodc2.Recordset.MovePrevious End If If Adodc2.Recordset.BOF = True Then Adodc2.Recordset.MoveFirst MsgBox "Sudah data paling awal", vbOKOnly + vbInformation End If If Combo1.text = "Curah Hujan Tahunan" Then Call isidata1 ElseIf Combo1.text = "Curah Hujan Bulanan" Then Call isidata2 ElseIf Combo1.text = "Curah Hujan Harian" Then Call isidata3 End If End Sub Private Sub opt_all_Click() If opt_tahun.Caption = "Tahunan" Then List1.clear List1.AddItem ("All Data") ElseIf opt_tahun.Caption = "Bulanan" Then List1.clear List1.AddItem ("All Data") ElseIf opt_tahun.Caption = "Tahun" Then List1.clear List1.AddItem ("All Data") End If End Sub Private Sub opt_tahun_Click() If opt_tahun.Caption = "Tahun" Then Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT intersepsi.tanggal FROM intersepsi" Adodc1.Refresh
Adodc1.Recordset.Sort = "tanggal" 'mengisi combo dengan tabel tahun List1.clear Do Until Adodc1.Recordset.EOF List1.AddItem Adodc1.Recordset("tanggal") Adodc1.Recordset.MoveNext Loop End If End Sub Private Sub Option1_Click() List1.clear List1.AddItem "agatis" List1.AddItem "rasamala" List1.AddItem "puspa" List1.AddItem "pinus" End Sub Form Infiltrasi Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) _ As Long
Private Sub Command1_Click() Cr.ReportFileName = App.path & "\infiltrasii.rpt" Cr.WindowState = crptMaximized Cr.RetrieveDataFiles Cr.Action = 0 End Sub Private Sub Command10_Click() Frame3.Visible = True Frame6.Visible = False End Sub Private Sub Command11_Click() Frame5.Visible = True Frame6.Visible = False End Sub
Private Sub Command12_Click() pesan = MsgBox("ini sudah halaman yang terakhir", vbOKOnly, "keterangan") End Sub Private Sub Command13_Click() pesan = MsgBox("ini sudah halaman yang terakhir", vbOKOnly, "keterangan") End Sub Private Sub Command16_Click() Frame6.Visible = True Frame3.Visible = False End Sub Private Sub Command17_Click() Frame5.Visible = True Frame3.Visible = False End Sub Private Sub Command2_Click() frm2.Visible = True Command2.BackColor = vbGreen Command5.BackColor = vbButtonFace End Sub Private Sub Command20_Click() pesan = MsgBox("ini sudah halaman yang paling awal", vbOKOnly, "keterangan") End Sub Private Sub Command21_Click() pesan = MsgBox("ini sudah halaman yang paling awal", vbOKOnly, "keterangan") End Sub Private Sub Command3_Click() Command3.BackColor = vbGreen Command1.BackColor = vbButtonFace Command2.BackColor = vbButtonFace Command4.BackColor = vbButtonFace Command5.BackColor = vbButtonFace End Sub Private Sub Command4_Click() Frame13.Visible = True Frame3.Visible = False Frame5.Visible = False Frame6.Visible = False
frm2.Visible = False Command4.BackColor = vbGreen Command1.BackColor = vbButtonFace Command2.BackColor = vbButtonFace Command3.BackColor = vbButtonFace Command5.BackColor = vbButtonFace End Sub Private Sub Command5_Click() Cr.ReportFileName = App.path & "\infiltasi.rpt" Cr.WindowState = crptMaximized Cr.RetrieveDataFiles Cr.Action = 0 End Sub Private Sub Command6_Click() Frame5.Visible = False Frame6.Visible = True End Sub Private Sub Command7_Click() Frame5.Visible = False Frame6.Visible = True End Sub Private Sub Command8_Click() Frame5.Visible = False Frame3.Visible = True End Sub Private Sub Command9_Click() Frame3.Visible = True Frame5.Visible = False End Sub Private Sub Form_Load() bukadatabase opt_tahun_Click opt_tahun.Value = True End Sub Private Sub jcbutton10_Click() frm9_info.Show Unload Me End Sub
Private Sub kembali_Click() Unload Me End Sub Private Sub List1_Click() If opt_tahun.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 2500 fg2.ColWidth(2) = 2500 fg2.ColWidth(3) = 2500 fg2.ColWidth(4) = 2500 fg2.ColWidth(5) = 2500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT infiltrasi.[Tanggal], infiltrasi.[Curah Hujan (mm)], infiltrasi.[Laju infiltrasi (mm/jam)], infiltrasi.[Jenis Tanah], infiltrasi.[Tekstur tanah], infiltrasi.[Tutupan Lahan] FROM infiltrasi Where infiltrasi.tanggal Like " & " '" & List1.text & "%" & "'" & " ORDER BY infiltrasi.tanggal;" Adodc2.Refresh ElseIf opt_all.Value = True Then fg2.ColWidth(1) = 2500 fg2.ColWidth(2) = 2500 fg2.ColWidth(3) = 2500 fg2.ColWidth(4) = 2500 fg2.ColWidth(5) = 2500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT infiltrasi.[Tanggal], infiltrasi.[Curah Hujan (mm)], infiltrasi.[Laju infiltrasi (mm/jam)], infiltrasi.[Jenis Tanah], infiltrasi.[Tekstur tanah], infiltrasi.[Tutupan Lahan] FROM infiltrasi;" Adodc2.Refresh ElseIf Option1.Value = True Then fg2.ColWidth(1) = 2500 fg2.ColWidth(2) = 2500 fg2.ColWidth(3) = 2500 fg2.ColWidth(4) = 2500 fg2.ColWidth(5) = 2500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT infiltrasi.[Tanggal], infiltrasi.[Curah Hujan (mm)], infiltrasi.[Laju infiltrasi (mm/jam)], infiltrasi.[Jenis Tanah], infiltrasi.[Tekstur tanah], infiltrasi.[Tutupan Lahan] FROM infiltrasi Where infiltrasi.[Jenis Tanah] Like " & " '" & List1.text & "%" & "'" & " ORDER BY infiltrasi.[Jenis Tanah];" Adodc2.Refresh End If Set DataGrid1.DataSource = Adodc2 Call isidata1
Dim i As Integer Set fg2.DataSource = Adodc2 For i = 1 To fg2.Rows - 1 fg2.RowHeight(i) = 500 Next i End Sub Private Sub isidata1() On Error Resume Next If Adodc2.Recordset("Tahun") Is Null Then txt_tahun.Caption = "-" End If If Adodc2.Recordset("Curah hujan (mm/years)") Is Null Then txt_jenis.Caption = "-" End If txt_tahun.Caption = Adodc2.Recordset("Curah hujan (mm/years)") txt_jenis.Caption = Adodc2.Recordset("Tahun") txt_satuan.Caption = "mm/years" End Sub Private Sub isidata2() On Error Resume Next If Adodc2.Recordset("Curah Hujan Bulanan (mm/month)") Is Null Then txt_tahun.Caption = "-" End If If Adodc2.Recordset("Tahun") Is Null Then txt_jenis.Caption = "-" End If txt_tahun.Caption = Adodc2.Recordset("Curah Hujan Bulanan (mm/month)") txt_jenis.Caption = Adodc2.Recordset("Tahun") txt_bulan.Caption = Adodc2.Recordset("Bulan") txt_satuan.Caption = "mm/month" End Sub Private Sub isidata3() On Error Resume Next If Adodc2.Recordset("curah hujan harian (mm/day)") Is Null Then txt_tahun.Caption = "-" End If If Adodc2.Recordset("Tahun") Is Null Then txt_jenis.Caption = "-" End If txt_tahun.Caption = Adodc2.Recordset("curah hujan harian (mm/day)") txt_jenis.Caption = Adodc2.Recordset("Tahun") txt_bulan.Caption = Adodc2.Recordset("Bulan")
txt_satuan.Caption = "mm/day" End Sub Private Sub maju_Click() On Error Resume Next If Adodc2.Recordset.EOF = False Then Adodc2.Recordset.MoveNext End If If Adodc2.Recordset.EOF = True Then Adodc2.Recordset.MoveLast MsgBox "Sudah data paling akhir.", vbOKOnly + vbInformation End If If Combo1.text = "Curah Hujan Tahunan" Then Call isidata1 ElseIf Combo1.text = "Curah Hujan Bulanan" Then Call isidata2 ElseIf Combo1.text = "Curah Hujan Harian" Then Call isidata3 End If End Sub Private Sub mundur_Click() On Error Resume Next If Adodc2.Recordset.BOF = False Then Adodc2.Recordset.MovePrevious End If If Adodc2.Recordset.BOF = True Then Adodc2.Recordset.MoveFirst MsgBox "Sudah data paling awal", vbOKOnly + vbInformation End If If Combo1.text = "Curah Hujan Tahunan" Then Call isidata1 ElseIf Combo1.text = "Curah Hujan Bulanan" Then Call isidata2 ElseIf Combo1.text = "Curah Hujan Harian" Then Call isidata3 End If End Sub Private Sub opt_all_Click() If opt_tahun.Caption = "Tahunan" Then List1.clear List1.AddItem ("All Data") ElseIf opt_tahun.Caption = "Bulanan" Then List1.clear
List1.AddItem ("All Data") ElseIf opt_tahun.Caption = "Tahun" Then List1.clear List1.AddItem ("All Data") End If End Sub Private Sub opt_tahun_Click() If opt_tahun.Caption = "Tahun" Then Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT infiltrasi.tanggal FROM infiltrasi" Adodc1.Refresh Adodc1.Recordset.Sort = "tanggal" List1.clear Do Until Adodc1.Recordset.EOF List1.AddItem Adodc1.Recordset("tanggal") Adodc1.Recordset.MoveNext Loop End If End Sub Private Sub Option1_Click() List1.clear List1.AddItem "Latosol coklat" List1.AddItem "Latosol merah kuning" List1.AddItem "Podsolik merah kuning" List1.AddItem "Litosol" End Sub Form Stemflow Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) _ As Long Private Sub Command1_Click() Cr.ReportFileName = App.path & "\infiltrasii.rpt" Cr.WindowState = crptMaximized Cr.RetrieveDataFiles
Cr.Action = 0 End Sub Private Sub Command10_Click() Frame3.Visible = True Frame6.Visible = False End Sub Private Sub Command11_Click() Frame5.Visible = True Frame6.Visible = False End Sub Private Sub Command12_Click() pesan = MsgBox("ini sudah halaman yang terakhir", vbOKOnly, "keterangan") End Sub Private Sub Command13_Click() pesan = MsgBox("ini sudah halaman yang terakhir", vbOKOnly, "keterangan") End Sub Private Sub Command16_Click() Frame6.Visible = True Frame3.Visible = False End Sub Private Sub Command17_Click() Frame5.Visible = True Frame3.Visible = False End Sub Private Sub Command2_Click() frm2.Visible = True Command2.BackColor = vbGreen Command5.BackColor = vbButtonFace End Sub Private Sub Command20_Click() pesan = MsgBox("ini sudah halaman yang paling awal", vbOKOnly, "keterangan") End Sub Private Sub Command21_Click() pesan = MsgBox("ini sudah halaman yang paling awal", vbOKOnly, "keterangan") End Sub Private Sub Command3_Click()
Command3.BackColor = vbGreen Command1.BackColor = vbButtonFace Command2.BackColor = vbButtonFace Command4.BackColor = vbButtonFace Command5.BackColor = vbButtonFace End Sub Private Sub Command4_Click() Frame13.Visible = True Frame3.Visible = False Frame5.Visible = False Frame6.Visible = False frm2.Visible = False Command4.BackColor = vbGreen Command1.BackColor = vbButtonFace Command2.BackColor = vbButtonFace Command3.BackColor = vbButtonFace Command5.BackColor = vbButtonFace End Sub Private Sub Command5_Click() Cr.ReportFileName = App.path & "\infiltasi.rpt" Cr.WindowState = crptMaximized Cr.RetrieveDataFiles Cr.Action = 0 End Sub Private Sub Command6_Click() Frame5.Visible = False Frame6.Visible = True End Sub Private Sub Command7_Click() Frame5.Visible = False Frame6.Visible = True End Sub Private Sub Command8_Click() Frame5.Visible = False Frame3.Visible = True End Sub Private Sub Command9_Click() Frame3.Visible = True Frame5.Visible = False End Sub
Private Sub Form_Load() bukadatabase opt_tahun_Click opt_tahun.Value = True End Sub Private Sub jcbutton10_Click() frm9_info.Show Unload Me End Sub Private Sub kembali_Click() Unload Me End Sub Private Sub List1_Click() If opt_tahun.Value = True Then fg2.ColWidth(0) = 215 fg2.ColWidth(1) = 2500 fg2.ColWidth(2) = 2500 fg2.ColWidth(3) = 2500 fg2.ColWidth(4) = 2500 fg2.ColWidth(5) = 2500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT infiltrasi.[Tanggal], infiltrasi.[Curah Hujan (mm)], infiltrasi.[Laju infiltrasi (mm/jam)], infiltrasi.[Jenis Tanah], infiltrasi.[Tekstur tanah], infiltrasi.[Tutupan Lahan] FROM infiltrasi Where infiltrasi.tanggal Like " & " '" & List1.text & "%" & "'" & " ORDER BY infiltrasi.tanggal;" Adodc2.Refresh ElseIf opt_all.Value = True Then fg2.ColWidth(1) = 2500 fg2.ColWidth(2) = 2500 fg2.ColWidth(3) = 2500 fg2.ColWidth(4) = 2500 fg2.ColWidth(5) = 2500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT infiltrasi.[Tanggal], infiltrasi.[Curah Hujan (mm)], infiltrasi.[Laju infiltrasi (mm/jam)], infiltrasi.[Jenis Tanah], infiltrasi.[Tekstur tanah], infiltrasi.[Tutupan Lahan] FROM infiltrasi;" Adodc2.Refresh ElseIf Option1.Value = True Then fg2.ColWidth(1) = 2500 fg2.ColWidth(2) = 2500 fg2.ColWidth(3) = 2500 fg2.ColWidth(4) = 2500
fg2.ColWidth(5) = 2500 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT infiltrasi.[Tanggal], infiltrasi.[Curah Hujan (mm)], infiltrasi.[Laju infiltrasi (mm/jam)], infiltrasi.[Jenis Tanah], infiltrasi.[Tekstur tanah], infiltrasi.[Tutupan Lahan] FROM infiltrasi Where infiltrasi.[Jenis Tanah] Like " & " '" & List1.text & "%" & "'" & " ORDER BY infiltrasi.[Jenis Tanah];" Adodc2.Refresh End If Set DataGrid1.DataSource = Adodc2 Call isidata1 Dim i As Integer Set fg2.DataSource = Adodc2 For i = 1 To fg2.Rows - 1 fg2.RowHeight(i) = 500 Next i End Sub Private Sub isidata1() On Error Resume Next If Adodc2.Recordset("Tahun") Is Null Then txt_tahun.Caption = "-" End If If Adodc2.Recordset("Curah hujan (mm/years)") Is Null Then txt_jenis.Caption = "-" End If txt_tahun.Caption = Adodc2.Recordset("Curah hujan (mm/years)") txt_jenis.Caption = Adodc2.Recordset("Tahun") txt_satuan.Caption = "mm/years" End Sub Private Sub isidata2() On Error Resume Next If Adodc2.Recordset("Curah Hujan Bulanan (mm/month)") Is Null Then txt_tahun.Caption = "-" End If If Adodc2.Recordset("Tahun") Is Null Then txt_jenis.Caption = "-" End If txt_tahun.Caption = Adodc2.Recordset("Curah Hujan Bulanan (mm/month)") txt_jenis.Caption = Adodc2.Recordset("Tahun") txt_bulan.Caption = Adodc2.Recordset("Bulan") txt_satuan.Caption = "mm/month" End Sub Private Sub isidata3() On Error Resume Next If Adodc2.Recordset("curah hujan harian (mm/day)") Is Null Then txt_tahun.Caption = "-"
End If If Adodc2.Recordset("Tahun") Is Null Then txt_jenis.Caption = "-" End If txt_tahun.Caption = Adodc2.Recordset("curah hujan harian (mm/day)") txt_jenis.Caption = Adodc2.Recordset("Tahun") txt_bulan.Caption = Adodc2.Recordset("Bulan") txt_satuan.Caption = "mm/day" End Sub Private Sub maju_Click() On Error Resume Next If Adodc2.Recordset.EOF = False Then Adodc2.Recordset.MoveNext End If If Adodc2.Recordset.EOF = True Then Adodc2.Recordset.MoveLast MsgBox "Sudah data paling akhir.", vbOKOnly + vbInformation End If If Combo1.text = "Curah Hujan Tahunan" Then Call isidata1 ElseIf Combo1.text = "Curah Hujan Bulanan" Then Call isidata2 ElseIf Combo1.text = "Curah Hujan Harian" Then Call isidata3 End If End Sub Private Sub mundur_Click() On Error Resume Next If Adodc2.Recordset.BOF = False Then Adodc2.Recordset.MovePrevious End If If Adodc2.Recordset.BOF = True Then Adodc2.Recordset.MoveFirst MsgBox "Sudah data paling awal", vbOKOnly + vbInformation End If If Combo1.text = "Curah Hujan Tahunan" Then Call isidata1 ElseIf Combo1.text = "Curah Hujan Bulanan" Then Call isidata2 ElseIf Combo1.text = "Curah Hujan Harian" Then Call isidata3 End If End Sub
Private Sub opt_all_Click() If opt_tahun.Caption = "Tahunan" Then List1.clear List1.AddItem ("All Data") ElseIf opt_tahun.Caption = "Bulanan" Then List1.clear List1.AddItem ("All Data") ElseIf opt_tahun.Caption = "Tahun" Then List1.clear List1.AddItem ("All Data") End If End Sub Private Sub opt_tahun_Click() If opt_tahun.Caption = "Tahun" Then Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT infiltrasi.tanggal FROM infiltrasi" Adodc1.Refresh Adodc1.Recordset.Sort = "tanggal" List1.clear Do Until Adodc1.Recordset.EOF List1.AddItem Adodc1.Recordset("tanggal") Adodc1.Recordset.MoveNext Loop End If End Sub Private Sub Option1_Click() List1.clear List1.AddItem "Latosol coklat" List1.AddItem "Latosol merah kuning" List1.AddItem "Podsolik merah kuning" List1.AddItem "Litosol" End Sub Form Erosi Sedimentasi Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) _
As Long Public kuncimap As String Public g_ActiveLayer As Object Dim conn_mpm As AdoDB.Connection Dim rs_data As New AdoDB.Recordset Dim con_string_mpm As String Dim folder_data As String Dim nama_file As String Dim str_sql As String Private Sub cmdErosivitas_Click() With dataerosivitas .Visible = True End With End Sub Private Sub Command1_Click() menu.Show Unload Me End Sub Private Sub Command12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame5.Visible = True End Sub Private Sub Command18_Click() dataerosivitas.Visible = False End Sub Private Sub Command19_Click() With Framedata1 .Visible = True End With End Sub Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame14.Visible = True End Sub Private Sub Command22_Click() erosivitas.Visible = False ListView1.ListItems.clear Combo2.clear legend1.RemoveAll
With Framedata1 .Visible = True End With End Sub Private Sub Command27_Click() erosivitas.Visible = True Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT tabeltahun.tahun FROM tabeltahun" Adodc1.Refresh Adodc1.Recordset.Sort = "tahun" Combo3.clear Do Until Adodc1.Recordset.EOF Combo3.AddItem Adodc1.Recordset("tahun") Adodc1.Recordset.MoveNext Loop End Sub Private Sub Command3_Click() Form2.Visible = True Unload Me End Sub Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame14.Visible = False End Sub Private Sub Command4_Click() End End Sub Private Sub Command5_Click() hidrologii.Show Unload Me End Sub Private Sub Command50_Click() erosi_usle.Show Unload Me End Sub Private Sub Command51_Click() Form4.Show Unload Me End Sub
Private Sub Command6_Click() Referensi.Show Unload Me End Sub Private Sub Command7_Click() Form3.Show Unload Me End Sub Private Sub a() clear txtFILE.text = "ErosiUSLE" Map1.Layers.clear ListView1.ListItems.clear Combo2.clear legend1.RemoveAll End Sub Private Sub clear() End Sub Private Sub cmdfull_Click() Map1.Extent = Map1.FullExtent Map1.MousePointer = moZoomIn End Sub Private Sub cmdinfo_Click() kuncimap = "info" Map1.MousePointer = moIdentify End Sub Private Sub cmdpan_Click() kuncimap = "pan" Map1.MousePointer = moPan End Sub Private Sub cmdzoom_Click() kuncimap = "zoom" Map1.MousePointer = moZoomIn End Sub Private Sub cmdzoomout_Click() kuncimap = "zoomout" Map1.MousePointer = moZoomOut End Sub Private Sub Combo1_Click()
On Error GoTo ber legend1.RemoveAll Combo2.text = "" Framedata1.Visible = True Map1.Layers.clear ListView1.ListItems.clear Call petaawal Dim DC As New DataConnection DC.Database = App.path & "\data\Peta Lingkungan\" & lbsubling.Caption & "\" & lbjdlingkungan.Caption & "\" If Not DC.Connect Then End Dim layer As MapLayer Set layer = New MapLayer Set layer.GeoDataset = DC.FindGeoDataset(txtFILE + Combo1.text) layer.Symbol.color = 8636724 Map1.Layers.Add layer Text1.text = txtFILE + Combo1.text kuncimap = "info" Map1.MousePointer = moIdentify legend1.setMapSource Map1 legend1.LoadLegend GoTo sei ber: Map1.Layers.clear Combo2.Enabled = False Text1.text = "" sei: End Sub Private Sub Command8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame7.Visible = True Frame5.Visible = False End Sub Private Sub Command9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame8.Visible = False Frame5.Visible = False Frame7.Visible = False End Sub Private Sub Form_Load() bukadatabase If kunciuser = "U" Then Command52.Enabled = False
End If Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT tabeltahun.tahun FROM tabeltahun" Adodc1.Refresh Adodc1.Recordset.Sort = "tahun" Combo1.clear Do Until Adodc1.Recordset.EOF Combo1.AddItem Adodc1.Recordset("tahun") Adodc1.Recordset.MoveNext Loop Set Col = ListView1.ColumnHeaders.Add() Col.text = "Field" Set Col = ListView1.ColumnHeaders.Add() Col.text = "Value" Col.Width = 3111 Call a End Sub Private Sub lyrBelakang_menu_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) clear End Sub Private Sub kembali_Click() Framedata1.Visible = False End Sub Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next If kuncimap = "zoom" Then Set r = Map1.TrackRectangle If Not r Is Nothing Then Map1.Extent = r ElseIf kuncimap = "pan" Then Map1.Pan ElseIf kuncimap = "zoomout" Then Dim Loc As New Point Set Loc = Map1.ToMapPoint(X, Y) Dim MapWidth As Double, MapHeight As Double Set curRectangle = Map1.Extent MapWidth = Map1.Extent.Width MapHeight = Map1.Extent.Height curRectangle.Right = Loc.X + MapWidth curRectangle.Left = Loc.X - MapWidth curRectangle.Top = Loc.Y + MapHeight curRectangle.Bottom = Loc.Y - MapHeight Set Map1.Extent = curRectangle
ElseIf kuncimap = "info" Then Set l = Map1.Layers(Text1.text) Set p = Map1.ToMapPoint(X, Y) Set recs = l.SearchShape(p, moPointInPolygon, "") Set recs = l.SearchShape(p, moPointInline, "") If Not recs.EOF Then ListView1.ListItems.clear For Each fld In recs.Fields ' iterate over the fields Set newItem = ListView1.ListItems.Add newItem.text = fld.Name newItem.SubItems(1) = fld.ValueAsString ' get the value Next fld End If End If End Sub Private Sub Map1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frame8.Visible = False 'This procedure updates the coordinate display in the status bar. Dim curPoint As Point Dim curX As Double Dim curY As Double Set curPoint = Map1.ToMapPoint(X, Y) curX = curPoint.X curY = curPoint.Y Dim cX As String, cy As String cX = curX cy = curY cX = Left(cX, InStr(cX, ",") + 2) cy = Left(cy, InStr(cy, ",") + 2) Label1.Caption = "X: " & cX & " Y: " & cy Private Sub legend1_AfterSetLayerVisible(Index As Integer, isVisible As Boolean) Map1.Refresh End Sub Private Sub legend1_LayerDblClick(Index As Integer) Set g_ActiveLayer = Map1.Layers(Index) If g_ActiveLayer.LayerType = moImageLayer Then MsgBox "Sorry, you cannot set properties for an image layer." & _ vbCrLf & "Try setting properties for a layer with vector data." Exit Sub End If Form10.Show vbModal End Sub
Form Pemetaan Option Explicit Public g_ActiveLayer As Object Public strMapUnits As String Private collGtextStrings As New VBA.Collection Private collGtextPoints As New VBA.Collection Private symGtext As New mapobjects2.TextSymbol Private m_mapTip As New clsMapTip Private dropValid As Boolean Private BarState As String Private Const MIN_LEGEND_WIDTH = 350 Private Const INCH2FEET = 12 Private Const INCH2METERS = 39.37 Private Const INCH2DEGREES = 4322893.46 Private Sub barDisplay_ButtonClick(ByVal Button As ComctlLib.Button) Dim bKey As String bKey = Button.Key Call doTask(bKey) BarState = bKey End Sub Private Sub Form_Load() Dim i As Integer Me.Top = 0 Me.Left = 0 barGraphics.Visible = False strMapUnits = "Unknown" Dim tl As mapobjects2.TrackingLayer Set tl = MapDisp.TrackingLayer With tl .SymbolCount = 3 .Symbol(0).SymbolType = moPointSymbol .Symbol(0).style = moTriangleMarker .Symbol(0).color = moRed .Symbol(0).Size = 4 .Symbol(1).SymbolType = moLineSymbol .Symbol(1).style = moSolidLine .Symbol(1).color = moRed .Symbol(1).Size = 2 .Symbol(2).SymbolType = moFillSymbol .Symbol(2).style = moTransparentFill .Symbol(2).OutlineColor = moRed .Symbol(2).Size = 2 End With
picMapTip.ZOrder 0 lblMapTip.ZOrder 0 picSplitter.BackColor = Form2.BackColor legMapDisp.ZOrder 0 MapDisp.ZOrder 0 m_mapTip.Initialize MapDisp, tmrMapTip, picMapTip, lblMapTip Call DataLoader legMapDisp.setMapSource MapDisp legMapDisp.LoadLegend True legMapDisp.ShowAllLegend legMapDisp.Active(0) = True BarState = "" End Sub Private Sub Form_Resize() Dim border As Double, sideBorder As Double Dim topBorder As Double, statusbarHeight As Double border = 30 topBorder = 480 sideBorder = MapDisp.Left statusbarHeight = 400 MapDisp.Top = topBorder MapDisp.Left = sideBorder If ScaleHeight > topBorder + border + statusbarHeight Then MapDisp.Height = ScaleHeight - topBorder - border - statusbarHeight picSplitter.Height = MapDisp.Height End If If ScaleWidth > (border * 2) + sideBorder Then MapDisp.Width = ScaleWidth - (border * 2) - sideBorder End If legMapDisp.Top = topBorder If ScaleHeight > topBorder + border + statusbarHeight Then legMapDisp.Height = ScaleHeight - topBorder - border - statusbarHeight End If If ScaleWidth > (border * 2) + sideBorder Then legMapDisp.Width = ScaleWidth - (border * 2) - sideBorder End If Dim h As Long, w As Long h = Form2.Height w = Form2.Width chkTipLayer.Top = h - 975 chkTipLayer.Left = w - 4800 cboTipLayer.Top = h - 1035 cboTipLayer.Left = w - 3840 cboTipField.Top = h - 1035 cboTipField.Left = w - 2580
End Sub Private Sub Form_Unload(Cancel As Integer) SDECon.Disconnect End End Sub Public Sub doTask(buttonKey As String) If frmIdentify.Visible Then Unload frmIdentify End If If frmSpatial.Visible Then Unload frmSpatial End If If MapDisp.Layers.count > 0 And legMapDisp.getActiveLayer > -1 Then Set g_ActiveLayer = MapDisp.Layers(legMapDisp.getActiveLayer) Else Set g_ActiveLayer = Nothing End If Select Case buttonKey Case "Print" frmPrint.Show frmPrint.ZOrder 0 Case "Map Properties" frmMapProperties.Show frmMapProperties.ZOrder 0 Case "Address matching" Dim i As Integer For i = (Forms.count - 1) To 0 Step -1 If Forms(i).Name = "frmPlaceLocator" Or _ Forms(i).Name = "frmGeocoder" Then Unload Forms(i) End If Next i If g_ActiveLayer Is Nothing Then MsgBox "No active layers.", vbCritical Exit Sub End If If InStr(g_ActiveLayer.tag, "[SHAPEFIL") = 0 Then MsgBox "Active layer is not a shapefile.", vbCritical Exit Sub End If If g_ActiveLayer.shapeType = moShapeTypeLine Then frmGeocoder.Show vbModeless frmGeocoder.ZOrder 0 Else
frmPlaceLocator.Show vbModeless frmGeocoder.ZOrder 0 End If Case "Full extent" MapDisp.Extent = MapDisp.FullExtent Case "Layer extent" If g_ActiveLayer Is Nothing Then MsgBox "No active layers.", vbCritical Exit Sub End If MapDisp.Extent = g_ActiveLayer.Extent Case "Graphics" barGraphics.Visible = True barGraphics.ZOrder 0 barGraphics.Refresh MapDisp.MousePointer = moCross Case "Spatial Select" If Form2.MapDisp.Layers.count > 0 Then Unload frmSpatial 'Do unload to make sure it runs through load procedure frmSpatial.Show MapDisp.MousePointer = moArrow End If If barGraphics.Visible = True Then barGraphics.Visible = False Case "Zoom in" If barGraphics.Visible = True Then barGraphics.Visible = False MapDisp.MousePointer = moZoomIn Case "Zoom out" If barGraphics.Visible = True Then barGraphics.Visible = False MapDisp.MousePointer = moZoomOut Case "Pan" If barGraphics.Visible = True Then barGraphics.Visible = False MapDisp.MousePointer = moPan Case "Identify" If barGraphics.Visible = True Then barGraphics.Visible = False MapDisp.MousePointer = moIdentify Case "About" Form1.Show End Select End Sub Private Sub legMapDisp_LayerDblClick(Index As Integer) Set g_ActiveLayer = MapDisp.Layers(Index) If g_ActiveLayer.LayerType = moImageLayer Then MsgBox "Sorry, you cannot set properties for an image layer." & _ vbCrLf & "Try setting properties for a layer with vector data." Exit Sub
End If frmLayerSymbol.Show vbModal End Sub Private Sub Menu_Exit_Click() Unload Me menu.Show End Sub Private Sub menuRalat_Koordinat_Click() Form2.Visible = False End Sub Private Sub mnuFile_Back_Click() Form2.Visible = False menu.Show End Sub Private Sub picSplitter_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) picSplitter.ZOrder 0 picSplitter.BackColor = 8421504 'dark-gray picSplitter.Refresh End Sub Private Sub picSplitter_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then picSplitter.Left = picSplitter.Left + X - 50 If picSplitter.Left > MIN_LEGEND_WIDTH Then picSplitter.Refresh Form2.Refresh Else picSplitter.Left = MIN_LEGEND_WIDTH picSplitter_MouseUp Button, Shift, X, Y End If End If End Sub Private Sub picSplitter_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) picSplitter.BackColor = Form2.BackColor legMapDisp.Width = legMapDisp.Left + picSplitter.Left MapDisp.Left = picSplitter.Left + picSplitter.Width MapDisp.Width = Form2.Width - legMapDisp.Width - picSplitter.Width - 180 picSplitter.ZOrder 1 End Sub
Private Sub legMapDisp_AfterSetLayerVisible(Index As Integer, isVisible As Boolean) MapDisp.Refresh End Sub Private Sub mapDisp_AfterTrackingLayerDraw(ByVal hDC As StdOle.OLE_HANDLE) If MapDisp.Layers.count > 0 Then frmSpatial.DrawSelectedFeatures (hDC) frmPlaceLocator.DrawLocatedPlaces (hDC) frmGeocoder.DrawLocatedPlace (hDC) End If Dim i As Long If collGtextStrings.count > 0 Then For i = 1 To collGtextStrings.count MapDisp.DrawText collGtextStrings(i), collGtextPoints(i), symGtext Next End If Select Case BarState Case "Graphics" MapDisp.MousePointer = moCross Case "Spatial Select" MapDisp.MousePointer = moArrow Case "Zoom in" MapDisp.MousePointer = moZoomIn Case "Zoom out" MapDisp.MousePointer = moZoomOut Case "Pan" MapDisp.MousePointer = moPan Case "Identify" MapDisp.MousePointer = moIdentify Case Else MapDisp.MousePointer = moDefault End Select End Sub Private Sub mapdisp_BeforeLayerDraw(ByVal StdOle.OLE_HANDLE) MapDisp.MousePointer = moHourglass If Index = MapDisp.Layers.count - 1 Then updateScale End If End Sub
Index
As
Integer,
ByVal
hDC
As
Private Sub mapDisp_DragFiles(ByVal fileNames As Object, ByVal X As Single, ByVal Y As Single, ByVal state As Integer, dropValid As Boolean) If fileNames.count > 0 Then
dropValid = True End If End Sub Private Sub mapDisp_DropFiles(ByVal fileNames As Object, ByVal X As Single, ByVal Y As Single) Dim dcx As New mapobjects2.DataConnection Dim shpfile As Variant Dim i As Integer Dim ml As mapobjects2.MapLayer shpfile = (Dir(fileNames.Item(0), vbDirectory)) shpfile = CStr(Left(shpfile, Len(shpfile) - 4)) dcx.Database = Left(fileNames.Item(0), Len(fileNames.Item(0)) - Len(shpfile) - 5) If dcx.Connect Then For i = 0 To fileNames.count - 1 Set ml = New mapobjects2.MapLayer shpfile = Dir(fileNames.Item(i), vbDirectory) shpfile = CStr(Left(shpfile, Len(shpfile) - 4)) Set ml.GeoDataset = dcx.FindGeoDataset(shpfile) MapDisp.Layers.Add ml legMapDisp.LoadLegend Next i Dim ptcoll As New Collection Dim linecoll As New Collection Dim polycoll As New Collection Dim imagecoll As New Collection For i = 0 To MapDisp.Layers.count - 1 If MapDisp.Layers(i).LayerType = moImageLayer Then imagecoll.Add MapDisp.Layers(i) ElseIf MapDisp.Layers(i).LayerType = moMapLayer Then Select Case MapDisp.Layers(i).shapeType Case moShapeTypePoint ptcoll.Add MapDisp.Layers(i) Case moShapeTypeLine linecoll.Add MapDisp.Layers(i) Case moShapeTypePolygon polycoll.Add MapDisp.Layers(i) End Select End If Next i MapDisp.Layers.clear Dim p As mapobjects2.MapLayer For Each p In polycoll MapDisp.Layers.Add p Next p Dim l As mapobjects2.MapLayer
For Each l In linecoll MapDisp.Layers.Add l Next l For Each p In ptcoll MapDisp.Layers.Add p Next p Dim im As mapobjects2.ImageLayer For Each im In imagecoll MapDisp.Layers.Add im Next im End If MapDisp.Extent = MapDisp.FullExtent MapDisp.Refresh End Sub Private Sub mapDisp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim curRectangle As Rectangle If barDisplay.Buttons("Zoom in").Value = 1 Then Set curRectangle = MapDisp.TrackRectangle Set MapDisp.Extent = curRectangle ElseIf barDisplay.Buttons("Zoom out").Value = 1 Then Dim Loc As New Point Set Loc = MapDisp.ToMapPoint(X, Y) Dim MapWidth As Double, MapHeight As Double Set curRectangle = MapDisp.Extent MapWidth = MapDisp.Extent.Width MapHeight = MapDisp.Extent.Height curRectangle.Right = Loc.X + MapWidth curRectangle.Left = Loc.X - MapWidth curRectangle.Top = Loc.Y + MapHeight curRectangle.Bottom = Loc.Y - MapHeight Set MapDisp.Extent = curRectangle ElseIf barDisplay.Buttons("Pan").Value = 1 Then MapDisp.Pan ElseIf barDisplay.Buttons("Identify").Value = 1 Then Call frmIdentify.Identify(X, Y) frmIdentify.ZOrder 0 ElseIf barDisplay.Buttons("Spatial Select").Value = 1 Then Call frmSpatial.SelectFeatures(Button, Shift, X, Y) frmSpatial.ZOrder 0 End If If barGraphics.Visible Then Dim tl As mapobjects2.TrackingLayer Set tl = MapDisp.TrackingLayer tl.SymbolCount = 3
Select Case True Case barGraphics.Buttons("Add text").Value = 1 Dim strGText As String Dim ptGText As mapobjects2.Point strGText = InputBox("Enter text label") Set ptGText = MapDisp.ToMapPoint(X, Y) collGtextStrings.Add strGText collGtextPoints.Add ptGText Case barGraphics.Buttons("Add point").Value = 1 Dim ptGraphic As mapobjects2.Point Set ptGraphic = MapDisp.ToMapPoint(X, Y) tl.AddEvent ptGraphic, 0 Case barGraphics.Buttons("Add line").Value = 1 Dim lnGraphic As mapobjects2.Line Set lnGraphic = MapDisp.TrackLine tl.AddEvent lnGraphic, 1 Case barGraphics.Buttons("Add rectangle").Value = 1 Dim rectGraphic As mapobjects2.Rectangle Set rectGraphic = MapDisp.TrackRectangle tl.AddEvent rectGraphic, 2 Case barGraphics.Buttons("Add polygon").Value = 1 Dim polyGraphic As mapobjects2.Polygon Set polyGraphic = MapDisp.TrackPolygon tl.AddEvent polyGraphic, 2 Case barGraphics.Buttons("Add ellipse").Value = 1 Dim cirGraphic As mapobjects2.Ellipse Set cirGraphic = MapDisp.TrackCircle tl.AddEvent cirGraphic, 2 End Select MapDisp.TrackingLayer.Refresh True End If End Sub Private Sub mapDisp_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim curPoint As Point Dim curX As Double Dim curY As Double Set curPoint = MapDisp.ToMapPoint(X, Y) curX = curPoint.X curY = curPoint.Y Dim cX As String, cy As String cX = curX cy = curY
cX = Left(cX, InStr(cX, ".") + 2) cy = Left(cy, InStr(cy, ".") + 2) sbrStatus.Panels(2).text = "X:" & cX & " Y:" & cy If chkTipLayer.Value = 1 And cboTipLayer.ListCount > 0 Then m_mapTip.MouseMove X, Y End If End Sub Private Sub mnuClearGraphics_Click() MapDisp.TrackingLayer.ClearEvents Set collGtextStrings = New VBA.Collection Set collGtextPoints = New VBA.Collection MapDisp.TrackingLayer.Refresh True End Sub Private Sub mnuEdit_Find_Click() Call doTask("Find") End Sub Private Sub mnuView_MapProperties_Click() Call doTask("Map Properties") End Sub Private Sub mnuFile_Print_Click() Call doTask("Print") End Sub Private Sub mnuHelp_About_Click() Call doTask("About") End Sub Private Sub mnuHelp_Summary_Click() Call doTask("Summary") End Sub Private Sub mnuView_FullExtent_Click() Call doTask("Full extent") End Sub Private Sub mnuView_Graphics_Click() barDisplay.Buttons("Graphics").Value = 1 Call doTask("Graphics") End Sub Private Sub mnuView_Identify_Click() barDisplay.Buttons("Identify").Value = 1
Call doTask("Identify") End Sub Private Sub mnuView_Pan_Click() barDisplay.Buttons("Pan").Value = 1 Call doTask("Pan") End Sub Private Sub mnuView_SpatialSelect_Click() barDisplay.Buttons("Spatial Select").Value = 1 Call doTask("Spatial Select") End Sub Private Sub mnuView_ZoomIn_Click() barDisplay.Buttons("Zoom in").Value = 1 Call doTask("Zoom in") End Sub Private Sub mnuView_ZoomOut_Click() barDisplay.Buttons("Zoom out").Value = 1 Call doTask("Zoom out") End Sub Private Sub mnuAddSDELayer_Click() Load frmConnectSDE frmConnectSDE.Show vbModal If Form2.chkTipLayer.Value = 1 Then refreshMapTips End Sub Private Sub mnuAddLayer_Click() Call AddFile If chkTipLayer.Value = 1 Then refreshMapTips End Sub Private Sub mnuLegendEditor_Click() Dim Index As Integer Index = legMapDisp.getActiveLayer If Index = -1 Then MsgBox "There is no active layer.", vbCritical, "Stop" Exit Sub End If Set g_ActiveLayer = MapDisp.Layers(Index) If MapDisp.Layers(Index).LayerType = moImageLayer Then MsgBox "Sorry, you cannot set properties for an image layer.", _ vbCritical, "Stop" Exit Sub
End If frmLayerSymbol.Show vbModal End Sub Private Sub mnuRemoveAllLayers_Click() MapDisp.Layers.clear Call updateScale legMapDisp.LoadLegend Form2.Refresh If Form2.chkTipLayer.Value = 1 Then refreshMapTips End Sub Private Sub mnuRemoveLayer_Click() 'Extract the index of the selected item and Dim Index As Long Index = legMapDisp.getActiveLayer If Index <> -1 Then MapDisp.Layers.Remove Index legMapDisp.LoadLegend 'Refresh legend Else MsgBox "The map has no active layer.", vbCritical, "Stop" Exit Sub End If If Form2.chkTipLayer.Value = 1 Then refreshMapTips End Sub Private Sub tmrMapTip_Timer() m_mapTip.Timer End Sub Public Sub updateMapTipLayer() m_mapTip.SetLayer MapDisp.Layers(cboTipLayer.text), _ cboTipField.text End Sub Public Sub updateTipField() cboTipField.clear If cboTipLayer = "" Then chkTipLayer.Value = 0 Exit Sub End If Dim tb As mapobjects2.TableDesc Set tb = MapDisp.Layers(Form2.cboTipLayer.text).Records.TableDesc Dim fType As String, itemToSet As String Dim numFields As Integer numFields = tb.FieldCount
Dim firstString As Boolean firstString = True Dim i As Integer For i = 0 To numFields - 1 fType = tb.FieldType(i) If fType = moString Or fType = moLong Or fType = moDouble Then cboTipField.AddItem tb.FieldName(i) If firstString = True And fType = moString Then firstString = False itemToSet = tb.FieldName(i) End If End If Next i If itemToSet <> "" Then Form2.cboTipField.text = itemToSet Else Form2.cboTipField.text = cboTipField.List(0) End If m_mapTip.SetLayer MapDisp.Layers(cboTipLayer.text), cboTipField.text End Sub Public Sub refreshMapTips() cboTipLayer.clear cboTipField.clear Dim numLayers As Integer numLayers = MapDisp.Layers.count Dim curLayer As Object Dim curLayerName As String 'name of current layer Dim curLayerType As Integer 'whether MapLayer or ImageLayer type Dim curShapeType As Integer 'whether point, line or polygon MapLayer Dim i As Integer For i = 0 To numLayers - 1 Set curLayer = Form2.MapDisp.Layers(i) curLayerName = curLayer.Name curLayerType = curLayer.LayerType If curLayerType <> moImageLayer Then cboTipLayer.AddItem curLayerName End If Next i If cboTipLayer.ListCount > 0 Then cboTipLayer.ListIndex = 0 updateTipField End If End Sub Private Sub cboTipField_Click()
If cboTipField.text <> "" Then m_mapTip.SetLayer Form2.MapDisp.Layers(cboTipLayer.text), cboTipField.text End If End Sub Private Sub cboTipLayer_Click() updateTipField End Sub Private Sub chkTipLayer_Click() If MapDisp.Layers.count = 0 Then chkTipLayer.Value = 0 ElseIf chkTipLayer.Value = 1 Then Call refreshMapTips picMapTip.ZOrder 0 lblMapTip.ZOrder 0 ElseIf chkTipLayer.Value = 0 Then cboTipLayer.clear cboTipField.clear picMapTip.ZOrder 1 lblMapTip.ZOrder 1 End If End Sub Private Sub updateMapTip() If Form2.MapDisp.Layers.count = 0 Then Form2.cboTipLayer.clear Form2.cboTipField.clear Else Call Form2.updateMapTipLayer End If End Sub Public Sub AddFile() Dim fullFile As String, path As String, tempChar As String, ext As String Dim Test As Boolean Dim textPos As Long, periodPos As Long Dim curPath As String Dim strShape, strCov, strGRID, strCAD, strVPF, strImage, strMilImage As String strShape = "ESRI Shapefiles (*.shp) |*.shp" strCov = "ESRI Coverages (*.adf,*.tat,*.pat,*.rat) |aat.adf;pat.adf;nat.adf;txt.adf;*.tat;*.pat;*.rat" strGRID = "GRID (hdr.adf) |hdr.adf" strCAD = "CAD drawings (*.dwg,*.dxf) | *.dwg;*.dxf" strVPF = "VPF (*.pft,*.lat,*.aft,*.tft) |*.pft;*.lat;*.aft;*.tft"
strImage = "Standard image formats |*.bmp;*.dib;*.tif;*.jpg;*.jff;*.bil;*.bip;*.bsq;*.gis;*.lan;*.rlc;*.sid;*.sun;*.rs;*.ras;*.svf;*.img;*. gif" strMilImage = "Military image formats |*.*" CommonDialog1.CancelError = True On Error GoTo FileOpenCancel CommonDialog1.Filter = strShape & "|" & strCov & "|" & strGRID & "|" & strCAD & "|" & strVPF & "|" & strImage & "|" & strMilImage CommonDialog1.DialogTitle = "Select file for new layer" CommonDialog1.ShowOpen If CommonDialog1.FileTitle = "" Then Exit Sub fullFile = Trim$(CommonDialog1.filename) textPos = Len(fullFile) Test = False Do While Test = False textPos = textPos - 1 tempChar = Mid$(fullFile, textPos, 1) If tempChar = "." Then periodPos = textPos ElseIf tempChar = "\" Or textPos = 0 Then Test = True End If Loop curPath = Left$(fullFile, textPos - 1) Dim filename As String Dim pref As String filename = CommonDialog1.FileTitle ext = LCase(Mid$(fullFile, periodPos + 1, 3)) Select Case ext Case "shp" Call addShapeFile(curPath, filename) Case "pat", "rat", "tat" Call addCoverage(curPath, filename) Case "adf" 'Could be coverage or grid. Figure it out. If filename = "hdr.adf" Then Call addGRID(curPath, filename) ElseIf pref = "aat" Or pref = "pat" Or pref = "nat" Or pref = "txt" Then Call addCoverage(curPath, filename) End If Case "dwg", "dxf" Call addCAD(curPath, filename) Case "aft", "lft", "pft" Call addVPF(curPath, filename) Case Else Call addImage(fullFile) End Select
legMapDisp.LoadLegend Exit Sub FileOpenCancel: Exit Sub End Sub Private Sub addShapeFile(basepath As String, shpfile As String) Dim dCon As New DataConnection Dim gSet As GeoDataset Dim strShapefileType As String dCon.Database = basepath 'Set Database property of DataConnection If dCon.Connect Then shpfile = GetFirstToken(shpfile, ".") 'Extract suffix of shpfile string Set gSet = dCon.FindGeoDataset(shpfile) 'Find shapefile as GeoDataset in DataConnection If gSet Is Nothing Then MsgBox "Error opening shapefile " & shpfile, vbCritical Exit Sub Else If gSet.HasZ Then strShapefileType = "[SHAPEFILZ]" Else strShapefileType = "[SHAPEFILE]" End If Dim newLayer As New MapLayer newLayer.GeoDataset = gSet 'Set GeoDataset property of new MapLayer newLayer.Name = shpfile 'Set Name property of new MapLayer newLayer.tag = strShapefileType & dCon.Database & "|" & newLayer.Name MapDisp.Layers.Add newLayer 'Add MapLayer to Layers collection End If Else MsgBox ConnectErrorMsg(dCon.ConnectError), vbCritical, "Connection error" End If End Sub Private Sub addImage(imageFile As String) Dim iLayer As New ImageLayer iLayer.File = imageFile If MapDisp.Layers.Add(iLayer) Then MapDisp.Layers.MoveToBottom 0 Else MsgBox "This file, " & imageFile & ", is not a valid image file." End If End Sub Public Sub addSDElayer(SDEConn As mapobjects2.DataConnection)
If frmConnectSDE.lstLayers.text = "" Then Exit Sub End If Dim gSet As GeoDataset If SDECon.Connect Then Set gSet = SDECon.FindGeoDataset(frmConnectSDE.lstLayers.text) If gSet Is Nothing Then MsgBox "Error opening SDE layer " & frmConnectSDE.lstLayers.text Exit Sub Else Dim newLayer As New mapobjects2.MapLayer newLayer.GeoDataset = gSet If gSet.HasZ Then newLayer.tag = "[SDEZ]" Else newLayer.tag = "[SDE]" End If newLayer.Name = frmConnectSDE.lstLayers.text MapDisp.Layers.Add newLayer End If Else MsgBox "Error# " & SDECon.ExtendedError & ": " & SDECon.ExtendedErrorString, _ vbCritical, "SDE Connection error" MsgBox "Error# " & SDECon.ConnectError & ": " ConnectErrorMsg(SDECon.ConnectError), _ vbCritical, "SDE Connection error" End If legMapDisp.LoadLegend End Sub Private Sub addCoverage(basepath As String, filename As String) Dim dCon As New DataConnection Dim gSet As GeoDataset Dim str As String Dim textPos As Long, periodPos As Long Dim Test As Boolean Dim tempChar As String Dim fullFile As String, workspace As String, featAttTable As String fullFile = Trim$(CommonDialog1.filename) textPos = Len(basepath) Test = False Do While Test = False textPos = textPos - 1 tempChar = Mid$(basepath, textPos, 1)
&
If tempChar = "." Then periodPos = textPos ElseIf tempChar = "\" Or textPos = 0 Then Test = True End If Loop workspace = "[arc]" & Left$(basepath, textPos - 1) Dim coverage As String Dim lenBasePath As Long Dim ext As String ext = LCase(Right$(filename, 3)) lenBasePath = Len(basepath) coverage = Right$(basepath, lenBasePath - textPos) If ext = "adf" Then featAttTable = coverage & "." & Left$(filename, Len(filename) - 4) Else featAttTable = coverage & "." & ext & Left$(filename, Len(filename) - 4) End If featAttTable = LCase(featAttTable) workspace = LCase(workspace) dCon.Database = workspace If dCon.Connect Then Set gSet = dCon.FindGeoDataset(featAttTable) 'Find shapefile as GeoDataset in DataConnection If gSet Is Nothing Then MsgBox "Error opening coverage feature attribute table " & featAttTable Exit Sub Else Dim newLayer As New MapLayer newLayer.GeoDataset = gSet 'Set GeoDataset property of new MapLayer newLayer.Name = featAttTable 'Set Name property of new MapLayer MapDisp.Layers.Add newLayer 'Add MapLayer to Layers collection End If Else MsgBox ConnectErrorMsg(dCon.ConnectError), vbCritical, "Connection error" End If End Sub Private Sub addGRID(basepath As String, gridfile As String) Dim ilyr As New mapobjects2.ImageLayer ilyr.File = basepath & "\" & gridfile MapDisp.Layers.Add ilyr End Sub Private Sub addCAD(basepath As String, cadfile As String) frmCAD.cadFileName = cadfile frmCAD.Show vbModal
Dim DC As New mapobjects2.DataConnection Dim mlyr As New mapobjects2.MapLayer If frmCAD.chkCAD(2).Value = 1 Then DC.Database = "[CADArea]" & basepath If Not DC.Connect Then GoTo CADerror End If Set mlyr.GeoDataset = DC.FindGeoDataset(cadfile) MapDisp.Layers.Add mlyr End If Set DC = New mapobjects2.DataConnection Set mlyr = New mapobjects2.MapLayer If frmCAD.chkCAD(1).Value = 1 Then DC.Database = "[CADLine]" & basepath If Not DC.Connect Then GoTo CADerror End If Set mlyr.GeoDataset = DC.FindGeoDataset(cadfile) MapDisp.Layers.Add mlyr End If Set DC = New mapobjects2.DataConnection Set mlyr = New mapobjects2.MapLayer If frmCAD.chkCAD(0).Value = 1 Then DC.Database = "[CADPoint]" & basepath If Not DC.Connect Then GoTo CADerror End If Set mlyr.GeoDataset = DC.FindGeoDataset(cadfile) MapDisp.Layers.Add mlyr End If Set DC = New mapobjects2.DataConnection Set mlyr = New mapobjects2.MapLayer If frmCAD.chkCAD(3).Value = 1 Then DC.Database = "[CADText]" & basepath If Not DC.Connect Then GoTo CADerror End If Set mlyr.GeoDataset = DC.FindGeoDataset(cadfile) MapDisp.Layers.Add mlyr End If Unload frmCAD Exit Sub CADerror: MsgBox "Unable to connect to " & basepath, vbCritical, "Stop" End Sub
Private Sub addVPF(ByVal basepath As String, ByVal vpffile As String) Dim DC As New mapobjects2.DataConnection Dim mlyr As New mapobjects2.MapLayer DC.Database = "[VPF]" & basepath If Not DC.Connect Then MsgBox "Could not connect to " & basepath Exit Sub End If Set mlyr.GeoDataset = DC.FindGeoDataset(vpffile) MapDisp.Layers.Add mlyr End Sub Public Sub updateScale() Dim mapScreenWidth As Double Dim mapExtentWidth As Double Dim mapScale As Double Dim convFactor As Double If MapDisp.Layers.count = 0 Then sbrStatus.Panels(1).text = "Scale Unknown" Exit Sub End If If strMapUnits = "Unknown" Then sbrStatus.Panels(1) = "Map Units Unknown" Exit Sub End If Select Case strMapUnits Case "Decimal Degrees": convFactor = INCH2DEGREES Case "Meters": convFactor = INCH2METERS Case "Feet": convFactor = INCH2FEET End Select mapScreenWidth = MapDisp.Width / 1440 mapExtentWidth = MapDisp.Extent.Width * convFactor mapScale = Int(mapExtentWidth / mapScreenWidth) sbrStatus.Panels(1).text = "RATIO Scale 1 : " & Format(mapScale, "#,000") End Sub Form Legenda Peta Option Explicit Dim strMarkerStyle(4) As String Dim strLineStyle(4) As String Dim strFillStyle(10) As String Dim strPanelDesc(5) As String Dim lyr As mapobjects2.MapLayer Dim recs As mapobjects2.Recordset Dim tDesc As mapobjects2.TableDesc
Dim flds As mapobjects2.Fields Dim a As Integer Dim vmr As mapobjects2.ValueMapRenderer Dim cbr As mapobjects2.ClassBreaksRenderer Dim lr As mapobjects2.LabelRenderer Dim lp As mapobjects2.LabelPlacer Dim zRend As mapobjects2.ZRenderer Dim colorMask, colorText As Long Dim justOpened As Boolean Private Sub Command1_Click() Dim lyrRend As Object If lyr.Renderer Is Nothing Then 'Use of the Point class here is arbitrary Set lyrRend = New mapobjects2.Point 'and only temporary in use. VB's "TypeOf" Else 'keyword has trouble with "Nothing", which Set lyrRend = lyr.Renderer 'is what the Layer's Renderer property holds End If 'when drawing the layer with a single symbol. If TypeOf lyrRend Is mapobjects2.ValueMapRenderer Then Call LoadUniqueValues Else Call InitUniqueValues End If End Sub Private Sub Form_Load() Dim i As Integer Dim fnt As New StdFont Me.Top = 0 Me.Left = Screen.Width - Me.Width colorText = moBlack colorMask = moWhite picLayerProp.Picture = LoadPicture(App.path & "\bitmaps\class.bmp") Set lyr = menu.g_ActiveLayer Set recs = lyr.Records Set tDesc = recs.TableDesc Set flds = recs.Fields strPanelDesc(0) = "The Single Symbol classification displays all the features in a layer with the same symbol." strPanelDesc(1) = "The Unique Values classification displays features by applying a symbol to each unique value for a specified field." strPanelDesc(2) = "The Class Breaks classification applies symbols to a set of discrete values." strPanelDesc(3) = "The Standard Labels classification draws text for a specified field." strPanelDesc(4) = "The No Overlapping Labels classication draws text for a specified field and attempts to resolve overlapping and crowding of labels." strPanelDesc(5) = "The Elevation classification draws features according to their Z values, if the data supports it."
txtLayerName = lyr.Name strMarkerStyle(0) = "Circle marker" strMarkerStyle(1) = "Square marker" strMarkerStyle(2) = "Triangle marker" strMarkerStyle(3) = "Cross marker" strMarkerStyle(4) = "TrueType marker" strLineStyle(0) = "Solid line" strLineStyle(1) = "Dash line" strLineStyle(2) = "Dot line" strLineStyle(3) = "Dash dot line" strLineStyle(4) = "Dash dot dot line" strFillStyle(0) = "Solid fill" strFillStyle(1) = "Transparent fill" strFillStyle(2) = "Horizontal fill" strFillStyle(3) = "Vertical fill" strFillStyle(4) = "Upward diagonal" strFillStyle(5) = "Downward diagonal" strFillStyle(6) = "Cross fill" strFillStyle(7) = "Diagonal cross fill" strFillStyle(8) = "Light gray fill" strFillStyle(9) = "Gray fill" strFillStyle(10) = "Dark gray fill" justOpened = True Select Case True Case lyr.Renderer Is Nothing Case TypeOf lyr.Renderer Is mapobjects2.ValueMapRenderer Call LoadUniqueValues End Select Call Command1_Click End Sub Private Sub cmdApply_Click() Call ApplyUniqueValues lyr.Name = txtLayerName.text menu.legend1.LoadLegend menu.Map1.Refresh End Sub Private Sub cmdCancel_Click() Unload Form9 End Sub Private Sub cmdOK_Click() Call cmdApply_Click Unload Form9 End Sub
Private Sub cmdUV_Click() Call PopulateNewUVlegend(cboUV.text) cmdApply.Enabled = True cmdOK.Enabled = True End Sub Private Sub InitUniqueValues() Dim i As Integer cboUV.clear For i = 0 To tDesc.FieldCount - 1 cboUV.AddItem tDesc.FieldName(i) Next cboUV.ListIndex = 0 fraUVouter.Caption = "Legend Preview" If picUV.count > 1 Then For i = (picUV.count - 1) To 1 Step -1 Unload picUV(i) Unload lblUV(i) Next End If picUV(0).Visible = False lblUV(0).Visible = False cmdApply.Enabled = False cmdOK.Enabled = False chkUV.Visible = (lyr.shapeType = moShapeTypePolygon) End Sub Private Sub LoadUniqueValues() Dim i As Integer Set vmr = lyr.Renderer cboUV.clear cboUV.text = vmr.Field For i = 0 To tDesc.FieldCount - 1 cboUV.AddItem tDesc.FieldName(i) If tDesc.FieldName(i) = vmr.Field Then cboUV.ListIndex = i End If Next Select Case vmr.Symbol(0).Outline Case True: chkUV.Value = 1 Case False: chkUV.Value = 0 End Select chkUV.Visible = (lyr.shapeType = moShapeTypePolygon) Call PopulateExistingUVlegend End Sub
Private Sub ApplyUniqueValues() Dim i As Integer Dim symInt As Integer If lyr.shapeType = moShapeTypeMultipoint Then symInt = 0 Else symInt = lyr.shapeType - 21 End If vmr.SymbolType = symInt If vmr.SymbolType = moFillSymbol Then For i = 0 To vmr.ValueCount - 1 Select Case chkUV.Value Case 0 vmr.Symbol(i).Outline = False vmr.Symbol(i).OutlineColor = vmr.Symbol(i).color Case 1 vmr.Symbol(i).Outline = True vmr.Symbol(i).OutlineColor = moBlack End Select Next End If Set lyr.Renderer = vmr End Sub Private Sub PopulateNewUVlegend(rendField As String) Dim strsUniqueValues As New mapobjects2.Strings Dim fld As mapobjects2.Field Dim i As Integer Set fld = flds(rendField) If fld Is Nothing Then Exit Sub End If Screen.MousePointer = vbHourglass recs.MoveFirst Do While Not recs.EOF strsUniqueValues.Add fld.Value recs.MoveNext Loop Screen.MousePointer = vbDefault If strsUniqueValues.count > 100 Then Dim yn As Integer yn = MsgBox("Number of unique values is greater than 100. Would you like to continue?", _ vbYesNo, "Unique values") If yn = 7 Then Exit Sub End If
End If If picUV.count > 1 Then For i = (picUV.count - 1) To 1 Step -1 Unload picUV(i) Unload lblUV(i) Next End If Set vmr = New mapobjects2.ValueMapRenderer vmr.Field = rendField vmr.ValueCount = strsUniqueValues.count For i = 0 To strsUniqueValues.count - 1 vmr.Value(i) = strsUniqueValues(i) Next fraUVouter.Caption = UCase(lyr.Name) & " - " & cboUV.text picUV(0).Visible = True lblUV(0).Visible = True picUV(0).BackColor = vmr.Symbol(0).color lblUV(0).Caption = vmr.Value(0) For i = 1 To vmr.ValueCount - 1 Load picUV(i) With picUV(i) .Left = picUV(0).Left .Width = picUV(0).Width .Height = picUV(0).Height .Top = picUV(i - 1).Top + 180 .BackColor = vmr.Symbol(i).color .Visible = True End With Load lblUV(i) With lblUV(i) .Left = lblUV(0).Left .Width = lblUV(0).Width .Height = lblUV(0).Height .Top = lblUV(i - 1).Top + 180 .Caption = vmr.Value(i) .Visible = True End With Next fraUVinner.Height = (vmr.ValueCount * 180) + 250 If strsUniqueValues.count > 18 Then vsbUV.Enabled = True vsbUV.Min = 0 vsbUV.Max = vmr.ValueCount - 20 vsbUV.SmallChange = 1 vsbUV.LargeChange = 10 Else
vsbUV.Enabled = False End If End Sub Private Sub PopulateExistingUVlegend() If Not justOpened Then Exit Sub End If Dim recs As mapobjects2.Recordset Dim fld As mapobjects2.Field Dim i As Integer Set vmr = lyr.Renderer If picUV.count > 1 Then For i = (picUV.count - 1) To 1 Step -1 Unload picUV(i) Unload lblUV(i) Next End If fraUVouter.Caption = UCase(lyr.Name) & " - " & lyr.Renderer.Field picUV(0).Visible = True lblUV(0).Visible = True picUV(0).BackColor = vmr.Symbol(0).color lblUV(0).Caption = vmr.Value(0) For i = 1 To vmr.ValueCount - 1 Load picUV(i) With picUV(i) .Left = picUV(0).Left .Width = picUV(0).Width .Height = picUV(0).Height .Top = picUV(i - 1).Top + 180 .BackColor = vmr.Symbol(i).color .Visible = True End With Load lblUV(i) With lblUV(i) .Left = lblUV(0).Left .Width = lblUV(0).Width .Height = lblUV(0).Height .Top = lblUV(i - 1).Top + 180 .Caption = vmr.Value(i) .Visible = True End With Next fraUVinner.Height = (vmr.ValueCount * 180) + 300 If vmr.ValueCount > 18 Then vsbUV.Enabled = True
vsbUV.Min = 0 vsbUV.Max = vmr.ValueCount - 20 vsbUV.SmallChange = 1 vsbUV.LargeChange = 10 Else vsbUV.Enabled = False End If justOpened = False End Sub Form Referensi Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) _ As Long Private Sub Admin_Click() frm1_menu.Show Unload Me End Sub Private Sub akhir_Click() On Error Resume Next Adodc1.Recordset.MoveLast Call isidatareferensi End Sub Private Sub awal_Click() On Error Resume Next Adodc1.Recordset.MoveFirst Call isidatareferensi End Sub Private Sub cmd_daftarkata_Click() Frm_DaftarKata.Visible = True Frame1.Visible = False AdodcKata.ConnectionString = data SQL = "SELECT Tbl_DaftarKata.[ID Kata], Tbl_DaftarKata.[Arti_Kata]" & _ "From Tbl_DaftarKata ORDER BY Tbl_DaftarKata.[Kata];"
Tbl_DaftarKata.[Kata],
AdodcKata.RecordSource = SQL AdodcKata.Refresh List1.clear Do Until AdodcKata.Recordset.EOF List1.AddItem AdodcKata.Recordset("kata") AdodcKata.Recordset.MoveNext Loop End Sub Private Sub cmd_RefBuku_Click() Frame1.Visible = True Frm_DaftarKata.Visible = False Adodc1.ConnectionString = data Adodc1.RecordSource = "tbl_referensi" Adodc1.Refresh Adodc1.Recordset.Sort = "Id_buku" Call isidatareferensi End Sub Private Sub Form_Load() bukadatabase If kunciuser = "U" Then End If On Error Resume Next Call cmd_RefBuku_Click End Sub Private Sub Command1_Click() menu.Show Unload Me End Sub Private Sub Command2_Click() erosi_usle.Show Unload Me End Sub Private Sub Command36_Click() erosisedimentasi.Show Unload Me End Sub Private Sub Command4_Click() End End Sub
Private Sub Command5_Click() hidrologi.Show Unload Me End Sub Private Sub Command7_Click() Form3.Show Unload Me End Sub Private Sub Command8_Click() menu.Show Unload Me End Sub Private Sub lbKata_Change() On Error Resume Next AdodcArti.ConnectionString = data SQL = "SELECT Tbl_DaftarKata.[ID Kata], Tbl_DaftarKata.[Kata], Tbl_DaftarKata.[Arti_Kata]" & _ "From Tbl_DaftarKata WHERE Tbl_DaftarKata.[Kata] Like " & " '" & List1.text & "%" & "'" & " ORDER BY Tbl_DaftarKata.[Kata]" AdodcArti.RecordSource = SQL AdodcArti.Refresh Text1.text = AdodcArti.Recordset("arti_kata") If Not File Then imgkata.Picture = LoadPicture() imgkata.Picture = LoadPicture(App.path & "\images\Gambar Kata\" & lbKata.Caption & ".jpg") End Sub Private Sub List1_Click() lbKata.Caption = List1.text End Sub Private Sub isidatareferensi() On Error Resume Next If Adodc1.Recordset("jenis") Is Null Then txt_jenis.text = "" End If If Adodc1.Recordset("judul") Is Null Then txt_judul.text = "" End If If Adodc1.Recordset("penulis") Is Null Then txt_penulis.text = "" End If If Adodc1.Recordset("penerbit") Is Null Then txt_penerbit.text = ""
End If If Adodc1.Recordset("tahun") Is Null Then txt_tahun.text = "" End If If Adodc1.Recordset("tempat_terbit") Is Null Then txt_tempat_terbit.text = "" End If If Adodc1.Recordset("jumlah_halaman") Is Null Then txt_halaman.text = "" End If txt_jenis.text = Adodc1.Recordset("jenis") txt_judul.text = Adodc1.Recordset("judul") txt_penulis.text = Adodc1.Recordset("penulis") txt_penerbit.text = Adodc1.Recordset("penerbit") txt_tahun.text = Adodc1.Recordset("tahun") txt_tempat_terbit.text = Adodc1.Recordset("tempat_terbit") txt_halaman.text = Adodc1.Recordset("jumlah_halaman") End Sub Private Sub maju_Click() On Error Resume Next If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveNext End If If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast MsgBox "Sudah data paling akhir.", vbOKOnly + vbInformation End If Call isidatareferensi End Sub Private Sub mundur_Click() On Error Resume Next If Adodc1.Recordset.BOF = False Then Adodc1.Recordset.MovePrevious End If If Adodc1.Recordset.BOF = True Then Adodc1.Recordset.MoveFirst MsgBox "Sudah data paling awal", vbOKOnly + vbInformation End If Call isidatareferensi End Sub Private Sub txt_judul_Change() On Error Resume Next If Not File Then gambuku.Picture = LoadPicture()
gambuku.Picture = LoadPicture(App.path & "\images\cover buku\" & txt_judul.text & ".jpg") End Sub Form info Private Sub Command1_Click() menu.Show Unload Form3 End Sub Private Sub Command2_Click() Frame1.Visible = True End Sub Form manajemen data Profil HPGW Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) _ As Long Dim ShpLayer As New mapobjects2.MapLayer Dim StrsGCS As New mapobjects2.Strings Dim StrsPCS As New mapobjects2.Strings Dim CSfile As Object Dim CSCompo As New mapobjects2.ProjCoordSys Public kuncigamIKAN As String Public kunUbahPB As String Public kunUbahSDI As String Private Sub Cmd_Jenis_tanah_Click() frm_tambahlayer.Caption = Cmd_Jenis_tanah.Caption txtFILE.text = "jt" End Sub Private Sub Cmd_tegakan_Click() frm_tambahlayer.Caption = Cmd_tegakan.Caption txtFILE.text = "tg" End Sub Private Sub Com_penggunaan_lahan_Click()
frm_tambahlayer.Caption = Com_penggunaan_lahan.Caption txtFILE.text = "pl" End Sub Private Sub Com_Topografi_Click() frm_tambahlayer.Caption = Com_Topografi.Caption txtFILE.text = "tp" End Sub Private Sub Command4_Click() End End Sub Private Sub Command49_Click() erosisedimentasi.Show Unload Me End Sub Private Sub Command9_Click() menu.Show Unload Me End Sub Private Sub Command11_Click() man_prfil_hpgw.Show Unload Me End Sub Private Sub Command14_Click() Form1.Show Unload Me End Sub
Private Sub Admin_Click() frm1_menu.Show Unload Me End Sub Private Sub cmd_suhu_Click() frm_tambahlayer.Caption = cmd_suhu.Caption txtFILE.text = "sh" End Sub Private Sub CmdExport_Click() 'Set up the dialog to allow the user to save the shapefile out
CommonDialog1.Filter = "ESRI Shapefiles (*.shp)|*.shp" CommonDialog1.CancelError = True On Error GoTo ErrorTrap CommonDialog1.ShowSave If Len(CommonDialog1.filename) = 0 Then Exit Sub Screen.MousePointer = vbHourglass ShpLayer.Records.Export CommonDialog1.filename, Map1.CoordinateSystem Screen.MousePointer = vbDefault Exit Sub ErrorTrap: If Err.Number <> 32755 Then 'Error is something other than Cancel MsgBox Err.Description, vbCritical End If Exit Sub End Sub Private Sub CmdFullExt_Click() Map1.Extent = Map1.FullExtent End Sub Private Sub CmdReadPRJ_Click() Dim DC As New mapobjects2.DataConnection Dim strCSType As String CommonDialog1.CancelError = True On Error GoTo ErrorTrap CommonDialog1.Filter = "PRJ Files (*.prj)|*.prj|AI PRJ Files (prj.adf)|prj.adf|All Files (*.*)|*.*" CommonDialog1.ShowOpen DC.Database = CurDir & "\" If Not DC.Connect Then MsgBox "Could not connect to database" & Chr(13) & DC.ConnectError Else If Right(CommonDialog1.FileTitle, 3) = "adf" Then Set CSfile = DC.FindArcInfoCoordinateSystem(CommonDialog1.FileTitle) Else Set CSfile = DC.FindCoordinateSystem(CommonDialog1.FileTitle) End If If CSfile Is Nothing Then MsgBox "Not a valid projection file", vbExclamation OptCS(2).Enabled = False Else If CSfile.IsProjected Then strCSType = "Projected Coordinate System" Else strCSType = "Geographic Coordinate System" End If
MsgBox "Created new " & strCSType & vbNewLine & vbNewLine & "Name: " & CSfile.Name & vbNewLine & "Type: " & CSfile.Type OptCS(2).Enabled = True OptCS(2).Value = True End If End If Exit Sub ErrorTrap: If Err.Number <> 32755 Then 'Error is something other than Cancel MsgBox Err.Description, vbCritical End If Exit Sub End Sub Private Sub CmdSetLyrCS_Click() If OptCS.Item(2).Value = True Then ShpLayer.CoordinateSystem = CSfile Else 'Otherwise create a new CS Dim CSLayer As Object If OptCS.Item(0).Value = True Then Set CSLayer = New mapobjects2.ProjCoordSys Else Set CSLayer = New mapobjects2.GeoCoordSys End If CSLayer.Type = stripProj(CboCS.text) ShpLayer.CoordinateSystem = CSLayer End If CmdSetMapCS.Enabled = True CmdExport.Enabled = True Map1.Refresh ReportLyrCS ShpLayer.CoordinateSystem End Sub Private Sub CmdSetMapCS_Click() If OptCS.Item(2).Value = True Then Map1.CoordinateSystem = CSfile Else 'Otherwise create a new CS Dim CSMap As Object If OptCS.Item(0).Value = True Then Set CSMap = New mapobjects2.ProjCoordSys Else Set CSMap = New mapobjects2.GeoCoordSys End If CSMap.Type = stripProj(CboCS.text) Map1.CoordinateSystem = CSMap End If
ReportMapCS Map1.CoordinateSystem End Sub Private Sub Combo1_Click() Text1.text = txtFILE.text + Combo1.text End Sub Private Sub Command1_Click() On Error GoTo e tujuansuhu = App.path & "\DATA\Peta Lingkungan\Lingkungan Fisika\Suhu\" & Text1.text & ".shp" If frm_tambahlayer.Caption = "Suhu" Then ShpLayer.Records.Export tujuansuhu, Map1.CoordinateSystem End If MsgBox "Data sudah tersimpan", vbOKOnly + vbInformation e: End Sub Private Sub Command2_Click() tujuansuhu = App.path & "\data\Peta Lingkungan\Lingkungan Fisika\Suhu\" ".shp" tujuansuhu2 = App.path & "\data\Peta Lingkungan\Lingkungan Fisika\Suhu\" ".dbf" tujuansuhu3 = App.path & "\data\Peta Lingkungan\Lingkungan Fisika\Suhu\" ".sbn" tujuansuhu4 = App.path & "\data\Peta Lingkungan\Lingkungan Fisika\Suhu\" ".sbx" tujuansuhu5 = App.path & "\data\Peta Lingkungan\Lingkungan Fisika\Suhu\" ".shx" tujuansuhu6 = App.path & "\data\Peta Lingkungan\Lingkungan Fisika\Suhu\" ".prj" Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile(tujuansuhu, True) MyFile.WriteLine ("Dihapus") MyFile.Close Set MyFile = fso.GetFile(tujuansuhu) MyFile.Delete Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile(tujuansuhu2, True) MyFile.WriteLine ("Dihapus") MyFile.Close Set MyFile = fso.GetFile(tujuansuhu2) MyFile.Delete
& Text1.text & & Text1.text & & Text1.text & & Text1.text & & Text1.text & & Text1.text &
Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile(tujuansuhu3, True) MyFile.WriteLine ("Dihapus") MyFile.Close Set MyFile = fso.GetFile(tujuansuhu3) MyFile.Delete Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile(tujuansuhu4, True) MyFile.WriteLine ("Dihapus") MyFile.Close Set MyFile = fso.GetFile(tujuansuhu4) MyFile.Delete Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile(tujuansuhu5, True) MyFile.WriteLine ("Dihapus") MyFile.Close Set MyFile = fso.GetFile(tujuansuhu5) MyFile.Delete Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile(tujuansuhu6, True) MyFile.WriteLine ("Dihapus") MyFile.Close Set MyFile = fso.GetFile(tujuansuhu6) MyFile.Delete End Sub Private Sub Form_Load() bukadatabase Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT tabeltahun.tahun FROM tabeltahun" Adodc1.Refresh Adodc1.Recordset.Sort = "tahun" Combo1.clear Do Until Adodc1.Recordset.EOF Combo1.AddItem Adodc1.Recordset("tahun") Adodc1.Recordset.MoveNext Loop StrsPCS.PopulateWithProjectedCoordSys StrsGCS.PopulateWithGeographicCoordSys OptCS(0).Value = True Map1.Enabled = False
CboCS.Enabled = False CmdFullExt.Enabled = False CmdSetMapCS.Enabled = False CmdSetLyrCS.Enabled = False CmdExport.Enabled = False CmdReadPRJ.Enabled = False OptCS(0).Enabled = False OptCS(1).Enabled = False OptCS(2).Enabled = False End Sub Private Sub CmdAddLyr_Click() Dim DC As New mapobjects2.DataConnection Dim gds As mapobjects2.GeoDataset Dim FName As String CommonDialog1.Filter = "ESRI Shapefiles (*.shp)|*.shp|ArcINFO Coverages (*.adf)| aat.adf;pat.adf" CommonDialog1.CancelError = True On Error GoTo ErrorTrap CommonDialog1.ShowOpen If Len(CommonDialog1.filename) = 0 Then Exit Sub If Right(CommonDialog1.filename, 3) = "adf" Then addCoverage CurDir, CommonDialog1.FileTitle Else DC.Database = CurDir If Not DC.Connect Then Exit Sub FName = Left(CommonDialog1.FileTitle, Len(CommonDialog1.FileTitle) - 4) Set gds = DC.FindGeoDataset(FName) If gds Is Nothing Then Exit Sub Set ShpLayer.GeoDataset = gds End If If Not ShpLayer.CoordinateSystem Is Nothing Then CmdSetMapCS.Enabled = True CmdExport.Enabled = True ReportLyrCS ShpLayer.CoordinateSystem Else ' otherwise tell the user that the layer did not come with any Coordsys meta data MsgBox "The layer you have added has no associated coordinate system information - this should be set manually before continuing.", vbInformation CmdSetLyrCS.Enabled = True End If Map1.Layers.Add ShpLayer Map1.Layers.MoveToBottom 0 Map1.Refresh Map1.Enabled = True OptCS(0).Enabled = True OptCS(1).Enabled = True
CboCS.Enabled = True CmdFullExt.Enabled = True CmdReadPRJ.Enabled = True Exit Sub ErrorTrap: If Err.Number <> 32755 Then 'Error is something other than Cancel MsgBox Err.Description, vbCritical End If Exit Sub End Sub Private Sub Map1_DblClick() Dim myRect As mapobjects2.Rectangle Set myRect = Map1.Extent myRect.ScaleRectangle 2 Map1.Extent = myRect End Sub Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then 'Zoom IN Map1.Extent = Map1.TrackRectangle Else Dim SrchPt As mapobjects2.Point Dim RecsFnd As mapobjects2.Recordset Set SrchPt = Map1.ToMapPoint(X, Y) If ShpLayer.shapeType = moShapeTypePolygon Then 'POLYGON Shapefile If Not Map1.CoordinateSystem Is Nothing Then Set SrchPt = ShpLayer.CoordinateSystem.Transform(Map1.CoordinateSystem, SrchPt) End If Set RecsFnd = ShpLayer.SearchShape(SrchPt, moAreaIntersect, "") Else 'POINT, MULTIPOINT or LINE Shapefile Dim SrchShp As mapobjects2.Polygon Dim Tol As Double Tol = Map1.ToMapDistance(40) ' Convert the tolerance to be in map units Set SrchShp = SrchPt.Buffer(Tol) 'Create a polygon based upon a buffer of the searchshape If Not Map1.CoordinateSystem Is Nothing Then Set SrchShp = ShpLayer.CoordinateSystem.Transform(Map1.CoordinateSystem, SrchShp) End If Set RecsFnd = ShpLayer.SearchShape(SrchShp, moAreaIntersect, "") End If If Not RecsFnd.EOF Then Dim FndShp As Object Do While Not RecsFnd.EOF Set FndShp = RecsFnd.Fields("Shape").Value If Not Map1.CoordinateSystem Is Nothing Then Set FndShp = Map1.CoordinateSystem.Transform(ShpLayer.CoordinateSystem, FndShp) End If
Map1.FlashShape FndShp, 3 RecsFnd.MoveNext Loop Else 'No records were found - so BEEP! Beep End If End If End Sub Private Sub OptCS_Click(Index As Integer) Dim i As Integer CboCS.clear If Index = 0 Then 'PCS has been selected so fill the combo box with those strings For i = 0 To StrsPCS.count - 1 CboCS.AddItem (StrsPCS.Item(i)) Next i CboCS.ListIndex = 0 ElseIf Index = 1 Then 'GCS has been selected so fill the combo box with those strings For i = 0 To StrsGCS.count - 1 CboCS.AddItem (StrsGCS.Item(i)) Next i CboCS.ListIndex = 0 ElseIf Index = 2 Then 'CS from File has been selected CboCS.text = "Custom: " & CSfile.Name End If End Sub Function stripProj(theProjection As String) As Variant Dim openB As Integer openB = InStr(theProjection, "[") stripProj = Left(Right(theProjection, Len(theProjection) - openB), Len(theProjection) - openB 1) End Function Public Sub ReportLyrCS(LyrCS As Object) Dim strCSType As String If LyrCS.IsProjected Then strCSType = "Projected Coordinate System" & vbNewLine LyrCS.Projection.Name Dim ParamStr As New mapobjects2.Strings Dim i As Integer ParamStr.PopulateWithParameters (LyrCS.Projection.Type)
&
"Projection:
"
&
LabCSLyr.Caption = "Layer CoordSys:" & vbNewLine & strCSType & vbNewLine & "Name: " & LyrCS.Name & vbNewLine & "Unit: " & LyrCS.Unit.Name & vbNewLine & "Datum: " &
LyrCS.GeoCoordSys.Datum.Name & vbNewLine & "Speroid: " & LyrCS.GeoCoordSys.Datum.Spheroid.Name For i = 0 To ParamStr.count - 1 LabCSLyr.Caption = LabCSLyr.Caption & vbNewLine & ParamStr.Item(i) & ": " & LyrCS.GetParameter(stripProj(ParamStr.Item(i))) Next i Else strCSType = "Geographic Coordinate System" LabCSLyr.Caption = "Layer CoordSys:" & vbNewLine & strCSType & "Name: " & LyrCS.Name & vbNewLine & "Type: " & LyrCS.Type End If End Sub Public Sub ReportMapCS(MapCS As Object) Dim strCSType As String If MapCS.IsProjected Then strCSType = "Projected Coordinate System" & vbNewLine & "Projection: " & MapCS.Projection.Name Dim ParamStr As New mapobjects2.Strings Dim i As Integer ParamStr.PopulateWithParameters (MapCS.Projection.Type) ParamStr.Add ("moParm_FalseEasting[3082]") ParamStr.Add ("moParm_FalseNorthing[3083]") ParamStr.Add ("moParm_OriginLongitude[3080]") ParamStr.Add ("moParm_OriginLatitude[3081]") LabCSMap.Caption = "Map CoordSys:" & vbNewLine & strCSType & vbNewLine & "Name: " & MapCS.Name & vbNewLine & "Unit: " & MapCS.Unit.Name & vbNewLine & "Datum: " & MapCS.GeoCoordSys.Datum.Name & vbNewLine & "Speroid: " & MapCS.GeoCoordSys.Datum.Spheroid.Name For i = 0 To ParamStr.count - 1 LabCSMap.Caption = LabCSMap.Caption & vbNewLine & ParamStr.Item(i) & ": " & MapCS.GetParameter(stripProj(ParamStr.Item(i))) Next i Else strCSType = "Geographic Coordinate System" LabCSMap.Caption = "Map CoordSys:" & vbNewLine & strCSType & vbNewLine & "Name: " & MapCS.Name & vbNewLine & "Type: " & MapCS.Type End If End Sub Private Sub addCoverage(basepath As String, filename As String) Dim dCon As New DataConnection Dim gSet As GeoDataset Dim str As String Dim textPos As Long, periodPos As Long Dim Test As Boolean
Dim tempChar As String Dim fullFile As String, workspace As String, featAttTable As String fullFile = Trim$(CommonDialog1.filename) textPos = Len(basepath) Test = False Do While Test = False textPos = textPos - 1 tempChar = Mid$(basepath, textPos, 1) If tempChar = "." Then periodPos = textPos ElseIf tempChar = "\" Or textPos = 0 Then Test = True End If Loop workspace = "[arc]" & Left$(basepath, textPos - 1) Dim coverage As String Dim lenBasePath As Long Dim ext As String ext = LCase(Right$(filename, 3)) lenBasePath = Len(basepath) coverage = Right$(basepath, lenBasePath - textPos) If ext = "adf" Then featAttTable = coverage & "." & Left$(filename, Len(filename) - 4) Else featAttTable = coverage & "." & ext & Left$(filename, Len(filename) - 4) End If featAttTable = LCase(featAttTable) workspace = LCase(workspace) dCon.Database = workspace 'Set Database property of DataConnection If dCon.Connect Then Set gSet = dCon.FindGeoDataset(featAttTable) 'Find shapefile as GeoDataset in DataConnection If gSet Is Nothing Then MsgBox "Error opening coverage feature attribute table " & featAttTable Exit Sub Else ShpLayer.GeoDataset = gSet 'Set GeoDataset property of new MapLayer ShpLayer.Name = featAttTable 'Set Name property of new MapLayer End If Else MsgBox dCon.ConnectError, vbCritical, "Connection error" End If End Sub Private Sub cmd_caripetaSDI_Click() Dim DC As New mapobjects2.DataConnection Dim gds As mapobjects2.GeoDataset
Dim FName As String CD.Filter = "ESRI Shapefiles (*.shp)|*.shp|ArcINFO Coverages (*.adf)| aat.adf;pat.adf" CD.CancelError = True On Error GoTo ErrorTrap CD.ShowOpen If Len(CD.filename) = 0 Then Exit Sub If Right(CD.filename, 3) = "adf" Then addCoverage CurDir, CD.FileTitle Else DC.Database = CurDir If Not DC.Connect Then Exit Sub FName = Left(CD.FileTitle, Len(CD.FileTitle) - 4) Set gds = DC.FindGeoDataset(FName) If gds Is Nothing Then Exit Sub Set ShpLayer.GeoDataset = gds End If If Not ShpLayer.CoordinateSystem Is Nothing Then CmdSetMapCS.Enabled = True CmdExport.Enabled = True ReportLyrCS ShpLayer.CoordinateSystem Else ' otherwise tell the user that the layer did not come with any Coordsys meta data End If Map2.Layers.clear Map2.Layers.Add ShpLayer Map2.Layers.MoveToBottom 0 Map2.Refresh Map2.Enabled = True Exit Sub ErrorTrap: If Err.Number <> 32755 Then 'Error is something other than Cancel MsgBox Err.Description, vbCritical End If Exit Sub End Sub Private Sub cmd_Click() frm.Visible = True com_kategoriSD.clear adoSDI.ConnectionString = data adoSDI.RecordSource = "SELECT tabelSatwadanFlora.[No], tabelSatwadanFlora.[ID], tabelSatwadanFlora.[Kategori SD], tabelSatwadanFlora.[Nama Indonesia], tabelSatwadanFlora.[Nama Ilmiah], tabelSatwadanFlora.[Filum], tabelSatwadanFlora.[Kelas], tabelSatwadanFlora.[Ordo], tabelSatwadanFlora.[Famili], tabelSatwadanFlora.[Genus], tabelSatwadanFlora.[Species], tabelSatwadanFlora.[Sumber Taksonomi], tabelSatwadanFlora.[Tingkah Laku], tabelSatwadanFlora.[Penyebaran]FROM tabelSatwadanFlora ORDER BY tabelSatwadanFlora.[No]"
adoSDI.Refresh Call isiTABELSD Call gakbisaedit End Sub Private Sub akhir_Click() On Error Resume Next adoSDI.Recordset.MoveLast Call isiTABELSD End Sub Private Sub awal_Click() On Error Resume Next adoSDI.Recordset.MoveFirst Call isiTABELSD End Sub Private Sub maju_Click() On Error Resume Next If adoSDI.Recordset.EOF = False Then adoSDI.Recordset.MoveNext End If If adoSDI.Recordset.EOF = True Then adoSDI.Recordset.MoveLast MsgBox "Tidak ada data lagi.", vbOKOnly + vbInformation End If Call isiTABELSD End Sub Private Sub mundur_Click() On Error Resume Next If adoSDI.Recordset.BOF = False Then adoSDI.Recordset.MovePrevious End If If adoSDI.Recordset.BOF = True Then adoSDI.Recordset.MoveFirst MsgBox "Sudah data paling awal", vbOKOnly + vbInformation End If Call isiTABELSD End Sub Private Sub cmd_batal_Click() kuncigam = "ada" Call gakbisaedit Call awal_Click cmd_hapus.Enabled = True
cmd_tambah.Enabled = True Cmd_ganti.Enabled = True End Sub Private Sub cmd_hapus_Click() Reply = MsgBox("Apakah anda yakin menghapus data ini?", vbOKCancel + vbExclamation) If Reply = vbOK Then adoSDI.Recordset.Delete End If End Sub Private Sub cmd_simpan_Click() On Error Resume Next Reply = MsgBox("Apakah data anda sudah benar dan yakin untuk menyimpan?", vbOKCancel + vbInformation) If Reply = vbOK Then If kunUbahSDI = "ubahSDI" Then GoTo RUBAH: adoSDI.Recordset.AddNew RUBAH: adoSDI.Recordset("no") = txt_no.text adoSDI.Recordset("ID") = txt_id.text adoSDI.Recordset("kategori SD") = com_kategoriSD.text adoSDI.Recordset("nama indonesia") = txt_namaindonesia.text adoSDI.Recordset("nama ilmiah") = txt_namailmiah.text adoSDI.Recordset("kelas") = txt_kelas.text adoSDI.Recordset("Filum") = txt_subkelas.text adoSDI.Recordset("ordo") = txt_ordo.text 'adoSDI.Recordset("sub ordo") = txt_subordo.text adoSDI.Recordset("famili") = txt_famili.text adoSDI.Recordset("Species") = txt_subfamili.text adoSDI.Recordset("genus") = txt_genus.text adoSDI.Recordset("sumber taksonomi") = txt_taksonomi.text adoSDI.Recordset("tingkah laku") = txt_tingkahlaku.text adoSDI.Recordset("penyebaran") = txt_penyebaran.text adoSDI.Recordset.Update alamatfile = filename1.text tujuan = App.path & "\images\Satwa\" & txt_namaiindonesia.text & ".jpg" FileCopy alamatfile, tujuan tujuanSD = App.path & "\images\Satwa\" & txt_namaindonesia.text & ".shp" ShpLayer.Records.Export tujuanSDI kuncigam = "ada" kunUbahSDI = "NoUbah" Call gakbisaedit
Call awal_Click noakhir.Visible = False cmd_hapus.Enabled = True cmd_tambah.Enabled = True Cmd_ganti.Enabled = True End If End Sub Private Sub cmd_tambah_Click() Reply = MsgBox("Silahkan isi data pada tempat yg disediakan?", vbOKCancel + vbInformation) If Reply = vbOK Then Call isicomkategoriSD adoSDI.Recordset.MoveLast noakhir.Caption = "No Data Terakhir: " & adoSDI.Recordset("no") noakhir.Visible = True txt_no.text = "" txt_id.text = "" com_kategoriSD.text = "" txt_namaindonesia.text = "" txt_namailmiah.text = "" txt_kelas.text = "" txt_subkelas.text = "" txt_ordo.text = "" 'txt_subordo.text = "" txt_famili.text = "" txt_subfamili.text = "" txt_genus.text = "" txt_tingkahlaku.text = "" txt_taksonomi.text = "" txt_penyebaran.text = "" Call bisaedit cmd_hapus.Enabled = False cmd_tambah.Enabled = False Cmd_ganti.Enabled = False End If End Sub Private Sub isicomkategoriSD() com_kategoriSD.clear com_kategoriSD.AddItem "Flora" com_kategoriSD.AddItem "Satwa" End Sub Private Sub bisaedit() txt_no.Locked = False txt_idikan.Locked = False com_kategoriSD.Locked = False txt_namaindonesia.Locked = False
txt_namailmiah.Locked = False txt_kelas.Locked = False txt_subkelas.Locked = False txt_ordo.Locked = False 'txt_subordo.Locked = False txt_famili.Locked = False txt_subfamili.Locked = False txt_genus.Locked = False txt_tingkahlaku.Locked = False txt_taksonomi.Locked = False txt_penyebaran.Locked = False cmd_carigambar.Enabled = True cmd_caripetaSDI.Enabled = True End Sub Private Sub gakbisaedit() txt_no.Locked = True txt_id.Locked = True com_kategoriSD.Locked = True txt_namaindonesia.Locked = True txt_namailmiah.Locked = True txt_kelas.Locked = True txt_subkelas.Locked = True txt_ordo.Locked = True 'txt_subordo.Locked = True txt_famili.Locked = True txt_subfamili.Locked = True txt_genus.Locked = True txt_tingkahlaku.Locked = True txt_taksonomi.Locked = True txt_penyebaran.Locked = True cmd_carigambar.Enabled = False cmd_caripetaSDI.Enabled = False End Sub Private Sub cmd_ganti_Click() kuncigam = "ubah" kunUbahSDI = "ubahSDI" com_kategoriSD.AddItem "Flora" com_kategoriSD.AddItem "Satwa" Call bisaedit End Sub Private Sub isiTABELSDI() On Error Resume Next If adoSDI.Recordset Is Null Then
txt_no.text = "-" txt_id.text = "-" com_kategoriSD.text = "-" txt_namaindonesia.text = "-" txt_namailmiah.text = "-" txt_kelas.text = "-" txt_subkelas.text = "-" txt_ordo.text = "-" txt_famili.text = "-" txt_subfamili.text = "-" txt_genus.text = "-" txt_tingkahlaku.text = "-" txt_taksonomi.text = "-" txt_penyebaran.text = "-" End If txt_no.text = adoSDI.Recordset("no") txt_idikan.text = adoSDI.Recordset("ID") com_kategoriSD.text = adoSDI.Recordset("kategori sd") txt_namaindonesia.text = adoSDI.Recordset("nama indonesia") txt_namailmiah.text = adoSDI.Recordset("nama ilmiah") txt_kelas.text = adoSDI.Recordset("kelas") txt_subkelas.text = adoSDI.Recordset("Filum") txt_ordo.text = adoSDI.Recordset("ordo") txt_famili.text = adoSDI.Recordset("famili") txt_subfamili.text = adoSDI.Recordset("Species") txt_genus.text = adoSDI.Recordset("genus") txt_taksonomi.text = adoSDI.Recordset("sumber taksonomi") txt_tingkahlaku.text = adoSDI.Recordset("tingkah laku") txt_penyebaran.text = adoSDI.Recordset("penyebaran") End Sub Private Sub cmd_carigambar_Click() On Error Resume Next CD2.Filter = "JPEG(*.jpg) |*.jpg" CD2.DialogTitle = "Silahkan Cari Gambar" CD2.ShowOpen gamikan.Picture = LoadPicture(CD2.filename) filename1.text = CD2.filename End Sub Private Sub txt_namaindonesia_Change() On Error Resume Next If kuncigamIKAN = "ubah" Then Exit Sub If Not File Then gamikan.Picture = LoadPicture() gamikan.Picture = LoadPicture(App.path & "\images\Satwa\" & txt_namaindonesia.text & ".jpg")
filename1.text = App.path & "\images\Satwa\" & txt_namaindonesia.text & ".jpg" Map2.Layers.clear Dim DC2 As New DataConnection DC2.Database = App.path & "\Data\Peta SDI\" If Not DC2.Connect Then End Set layer5 = New MapLayer Set layer5.GeoDataset = DC2.FindGeoDataset(txt_namaindonesia.text) layer5.Symbol.color = moBlue layer5.Symbol.Outline = False Map2.Layers.Add layer5 Map2.Extent = Map2.FullExtent End Sub Form Manajemen Data Hidrologi Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) _ As Long Private Sub Form_Load() bukadatabase Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT CurahHujanHarianWalat.[Tanggal], CurahHujanHarianWalat.[curah hujan (mm)]FROM CurahHujanHarianWalat;" Adodc1.Refresh Set DataGrid1.DataSource = Adodc2 Adodc2.ConnectionString = data Adodc2.RecordSource = "SELECT curahhujanbulanane.[Tanggal], curahhujanbulanane.[Curah Hujan Harian (mm/day)], curahhujanbulanane.[Curah hujan max (mm)], curahhujanbulanane.[Curah hujan min (mm)], curahhujanbulanane.[Curah hujan rata-rata (mm)]FROM curahhujanbulanane;" Adodc2.Refresh Set DataGrid2.DataSource = Adodc2 End Sub Form Manajemen Data Erosi Sedimentasi Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) _ As Long Dim ShpLayer As New mapobjects2.MapLayer Dim StrsGCS As New mapobjects2.Strings Dim StrsPCS As New mapobjects2.Strings Dim CSfile As Object Dim CSCompo As New mapobjects2.ProjCoordSys Private Sub Command10_Click() txtFILE.text = "EROSIUSLE" End Sub Private Sub Command11_Click() man_prfil_hpgw.Show Unload Me End Sub Private Sub Command14_Click() Form1.Show Unload Me End Sub Private Sub Command4_Click() End End Sub Private Sub Admin_Click() frm1_menu.Show Unload Me End Sub
Private Sub CmdExport_Click() CommonDialog1.Filter = "ESRI Shapefiles (*.shp)|*.shp" CommonDialog1.CancelError = True On Error GoTo ErrorTrap CommonDialog1.ShowSave If Len(CommonDialog1.filename) = 0 Then Exit Sub Screen.MousePointer = vbHourglass ShpLayer.Records.Export CommonDialog1.filename, Map1.CoordinateSystem Screen.MousePointer = vbDefault Exit Sub
ErrorTrap: If Err.Number <> 32755 Then 'Error is something other than Cancel MsgBox Err.Description, vbCritical End If Exit Sub End Sub Private Sub CmdFullExt_Click() Map1.Extent = Map1.FullExtent End Sub Private Sub CmdReadPRJ_Click() Dim DC As New mapobjects2.DataConnection ' Dim StrPath As String Dim strCSType As String CommonDialog1.CancelError = True On Error GoTo ErrorTrap CommonDialog1.Filter = "PRJ Files (*.prj)|*.prj|AI PRJ Files (prj.adf)|prj.adf|All Files (*.*)|*.*" CommonDialog1.ShowOpen DC.Database = CurDir & "\" If Not DC.Connect Then MsgBox "Could not connect to database" & Chr(13) & DC.ConnectError Else If Right(CommonDialog1.FileTitle, 3) = "adf" Then Set CSfile = DC.FindArcInfoCoordinateSystem(CommonDialog1.FileTitle) Else Set CSfile = DC.FindCoordinateSystem(CommonDialog1.FileTitle) End If If CSfile Is Nothing Then MsgBox "Not a valid projection file", vbExclamation OptCS(2).Enabled = False Else If CSfile.IsProjected Then strCSType = "Projected Coordinate System" Else strCSType = "Geographic Coordinate System" End If MsgBox "Created new " & strCSType & vbNewLine & vbNewLine & "Name: " & CSfile.Name & vbNewLine & "Type: " & CSfile.Type OptCS(2).Enabled = True OptCS(2).Value = True End If End If Exit Sub
ErrorTrap: If Err.Number <> 32755 Then 'Error is something other than Cancel MsgBox Err.Description, vbCritical End If Exit Sub End Sub Private Sub CmdSetLyrCS_Click() If OptCS.Item(2).Value = True Then ShpLayer.CoordinateSystem = CSfile Else Dim CSLayer As Object If OptCS.Item(0).Value = True Then Set CSLayer = New mapobjects2.ProjCoordSys Else Set CSLayer = New mapobjects2.GeoCoordSys End If CSLayer.Type = stripProj(CboCS.text) ShpLayer.CoordinateSystem = CSLayer End If CmdSetMapCS.Enabled = True CmdExport.Enabled = True Map1.Refresh ReportLyrCS ShpLayer.CoordinateSystem End Sub Private Sub CmdSetMapCS_Click() If OptCS.Item(2).Value = True Then Map1.CoordinateSystem = CSfile Else 'Otherwise create a new CS Dim CSMap As Object If OptCS.Item(0).Value = True Then Set CSMap = New mapobjects2.ProjCoordSys Else Set CSMap = New mapobjects2.GeoCoordSys End If CSMap.Type = stripProj(CboCS.text) Map1.CoordinateSystem = CSMap End If ReportMapCS Map1.CoordinateSystem End Sub Private Sub Combo1_Click() Text1.text = txtFILE.text + Combo1.text End Sub
Private Sub Command1_Click() On Error GoTo e tujuansuhu = App.path & "\DATA\Peta Lingkungan\Karakteristik fisik\erosisedimentasi\" & Text1.text & ".shp" If frm_tambahlayer.Caption = "Peta Pendugaan Erosi Usle" Then ShpLayer.Records.Export tujuansuhu, Map1.CoordinateSystem End If MsgBox "Data sudah tersimpan", vbOKOnly + vbInformation e: End Sub Private Sub Command2_Click() tujuansuhu = App.path & "\data\Peta Lingkungan\Lingkungan Fisika\Suhu\" ".shp" tujuansuhu2 = App.path & "\data\Peta Lingkungan\Lingkungan Fisika\Suhu\" ".dbf" tujuansuhu3 = App.path & "\data\Peta Lingkungan\Lingkungan Fisika\Suhu\" ".sbn" tujuansuhu4 = App.path & "\data\Peta Lingkungan\Lingkungan Fisika\Suhu\" ".sbx" tujuansuhu5 = App.path & "\data\Peta Lingkungan\Lingkungan Fisika\Suhu\" ".shx" tujuansuhu6 = App.path & "\data\Peta Lingkungan\Lingkungan Fisika\Suhu\" ".prj" Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile(tujuansuhu, True) MyFile.WriteLine ("Dihapus") MyFile.Close Set MyFile = fso.GetFile(tujuansuhu) MyFile.Delete Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile(tujuansuhu2, True) MyFile.WriteLine ("Dihapus") MyFile.Close Set MyFile = fso.GetFile(tujuansuhu2) MyFile.Delete Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile(tujuansuhu3, True) MyFile.WriteLine ("Dihapus") MyFile.Close Set MyFile = fso.GetFile(tujuansuhu3) MyFile.Delete Set fso = CreateObject("Scripting.FileSystemObject")
& Text1.text & & Text1.text & & Text1.text & & Text1.text & & Text1.text & & Text1.text &
Set MyFile = fso.CreateTextFile(tujuansuhu4, True) MyFile.WriteLine ("Dihapus") MyFile.Close Set MyFile = fso.GetFile(tujuansuhu4) MyFile.Delete Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile(tujuansuhu5, True) MyFile.WriteLine ("Dihapus") MyFile.Close Set MyFile = fso.GetFile(tujuansuhu5) MyFile.Delete Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile(tujuansuhu6, True) MyFile.WriteLine ("Dihapus") MyFile.Close Set MyFile = fso.GetFile(tujuansuhu6) MyFile.Delete End Sub Private Sub Form_Load() bukadatabase Adodc1.ConnectionString = data Adodc1.RecordSource = "SELECT tabeltahun.tahun FROM tabeltahun" Adodc1.Refresh Adodc1.Recordset.Sort = "tahun" Combo1.clear Do Until Adodc1.Recordset.EOF Combo1.AddItem Adodc1.Recordset("tahun") Adodc1.Recordset.MoveNext Loop StrsPCS.PopulateWithProjectedCoordSys StrsGCS.PopulateWithGeographicCoordSys OptCS(0).Value = True Map1.Enabled = False CboCS.Enabled = False CmdFullExt.Enabled = False CmdSetMapCS.Enabled = False CmdSetLyrCS.Enabled = False CmdExport.Enabled = False CmdReadPRJ.Enabled = False OptCS(0).Enabled = False OptCS(1).Enabled = False OptCS(2).Enabled = False Call Command10_Click End Sub
Private Sub CmdAddLyr_Click() Dim DC As New mapobjects2.DataConnection Dim gds As mapobjects2.GeoDataset Dim FName As String CommonDialog1.Filter = "ESRI Shapefiles (*.shp)|*.shp|ArcINFO Coverages (*.adf)| aat.adf;pat.adf" CommonDialog1.CancelError = True On Error GoTo ErrorTrap CommonDialog1.ShowOpen If Len(CommonDialog1.filename) = 0 Then Exit Sub If Right(CommonDialog1.filename, 3) = "adf" Then addCoverage CurDir, CommonDialog1.FileTitle Else DC.Database = CurDir If Not DC.Connect Then Exit Sub FName = Left(CommonDialog1.FileTitle, Len(CommonDialog1.FileTitle) - 4) Set gds = DC.FindGeoDataset(FName) If gds Is Nothing Then Exit Sub Set ShpLayer.GeoDataset = gds End If If Not ShpLayer.CoordinateSystem Is Nothing Then CmdSetMapCS.Enabled = True CmdExport.Enabled = True ReportLyrCS ShpLayer.CoordinateSystem Else MsgBox "The layer you have added has no associated coordinate system information - this should be set manually before continuing.", vbInformation CmdSetLyrCS.Enabled = True End If Map1.Layers.Add ShpLayer Map1.Layers.MoveToBottom 0 Map1.Refresh 'Enable the controls allowing the user to specify the map's coordinate system Map1.Enabled = True OptCS(0).Enabled = True OptCS(1).Enabled = True CboCS.Enabled = True CmdFullExt.Enabled = True CmdReadPRJ.Enabled = True Exit Sub ErrorTrap: If Err.Number <> 32755 Then 'Error is something other than Cancel MsgBox Err.Description, vbCritical End If Exit Sub
End Sub Private Sub Map1_DblClick() Dim myRect As mapobjects2.Rectangle Set myRect = Map1.Extent myRect.ScaleRectangle 2 Map1.Extent = myRect End Sub Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then 'Zoom IN Map1.Extent = Map1.TrackRectangle Else Dim SrchPt As mapobjects2.Point Dim RecsFnd As mapobjects2.Recordset Set SrchPt = Map1.ToMapPoint(X, Y) If ShpLayer.shapeType = moShapeTypePolygon Then 'POLYGON Shapefile If Not Map1.CoordinateSystem Is Nothing Then Set SrchPt = ShpLayer.CoordinateSystem.Transform(Map1.CoordinateSystem, SrchPt) End If Set RecsFnd = ShpLayer.SearchShape(SrchPt, moAreaIntersect, "") Else 'POINT, MULTIPOINT or LINE Shapefile Dim SrchShp As mapobjects2.Polygon Dim Tol As Double Tol = Map1.ToMapDistance(40) ' Convert the tolerance to be in map units Set SrchShp = SrchPt.Buffer(Tol) 'Create a polygon based upon a buffer of the searchshape If Not Map1.CoordinateSystem Is Nothing Then Set SrchShp = ShpLayer.CoordinateSystem.Transform(Map1.CoordinateSystem, SrchShp) End If Set RecsFnd = ShpLayer.SearchShape(SrchShp, moAreaIntersect, "") End If If Not RecsFnd.EOF Then Dim FndShp As Object Do While Not RecsFnd.EOF Set FndShp = RecsFnd.Fields("Shape").Value If Not Map1.CoordinateSystem Is Nothing Then Set FndShp = Map1.CoordinateSystem.Transform(ShpLayer.CoordinateSystem, FndShp) End If Map1.FlashShape FndShp, 3 RecsFnd.MoveNext Loop Else Beep End If End If End Sub
Private Sub OptCS_Click(Index As Integer) Dim i As Integer CboCS.clear If Index = 0 Then 'PCS has been selected so fill the combo box with those strings For i = 0 To StrsPCS.count - 1 CboCS.AddItem (StrsPCS.Item(i)) Next i CboCS.ListIndex = 0 ElseIf Index = 1 Then 'GCS has been selected so fill the combo box with those strings For i = 0 To StrsGCS.count - 1 CboCS.AddItem (StrsGCS.Item(i)) Next i CboCS.ListIndex = 0 ElseIf Index = 2 Then 'CS from File has been selected CboCS.text = "Custom: " & CSfile.Name End If End Sub Function stripProj(theProjection As String) As Variant Dim openB As Integer openB = InStr(theProjection, "[") stripProj = Left(Right(theProjection, Len(theProjection) - openB), Len(theProjection) - openB 1) End Function Public Sub ReportLyrCS(LyrCS As Object) Dim strCSType As String If LyrCS.IsProjected Then strCSType = "Projected Coordinate System" & vbNewLine & "Projection: " LyrCS.Projection.Name Dim ParamStr As New mapobjects2.Strings Dim i As Integer ParamStr.PopulateWithParameters (LyrCS.Projection.Type) LabCSLyr.Caption = "Layer CoordSys:" & vbNewLine & strCSType & vbNewLine "Name: " & LyrCS.Name & vbNewLine & "Unit: " & LyrCS.Unit.Name & vbNewLine "Datum: " & LyrCS.GeoCoordSys.Datum.Name & vbNewLine & "Speroid: " LyrCS.GeoCoordSys.Datum.Spheroid.Name For i = 0 To ParamStr.count - 1 LabCSLyr.Caption = LabCSLyr.Caption & vbNewLine & ParamStr.Item(i) & ": " LyrCS.GetParameter(stripProj(ParamStr.Item(i))) Next i Else strCSType = "Geographic Coordinate System" LabCSLyr.Caption = "Layer CoordSys:" & vbNewLine & strCSType & "Name: " LyrCS.Name & vbNewLine & "Type: " & LyrCS.Type
&
& & &
&
&
End If End Sub Public Sub ReportMapCS(MapCS As Object) Dim strCSType As String If MapCS.IsProjected Then strCSType = "Projected Coordinate System" & vbNewLine & "Projection: " & MapCS.Projection.Name Dim ParamStr As New mapobjects2.Strings Dim i As Integer ParamStr.PopulateWithParameters (MapCS.Projection.Type) ParamStr.Add ("moParm_FalseEasting[3082]") ParamStr.Add ("moParm_FalseNorthing[3083]") ParamStr.Add ("moParm_OriginLongitude[3080]") ParamStr.Add ("moParm_OriginLatitude[3081]") LabCSMap.Caption = "Map CoordSys:" & vbNewLine & strCSType & vbNewLine & "Name: " & MapCS.Name & vbNewLine & "Unit: " & MapCS.Unit.Name & vbNewLine & "Datum: " & MapCS.GeoCoordSys.Datum.Name & vbNewLine & "Speroid: " & MapCS.GeoCoordSys.Datum.Spheroid.Name For i = 0 To ParamStr.count - 1 LabCSMap.Caption = LabCSMap.Caption & vbNewLine & ParamStr.Item(i) & ": " & MapCS.GetParameter(stripProj(ParamStr.Item(i))) Next i Else strCSType = "Geographic Coordinate System" LabCSMap.Caption = "Map CoordSys:" & vbNewLine & strCSType & vbNewLine & "Name: " & MapCS.Name & vbNewLine & "Type: " & MapCS.Type End If End Sub Private Sub addCoverage(basepath As String, filename As String) Dim dCon As New DataConnection Dim gSet As GeoDataset Dim str As String Dim textPos As Long, periodPos As Long Dim Test As Boolean Dim tempChar As String Dim fullFile As String, workspace As String, featAttTable As String fullFile = Trim$(CommonDialog1.filename) textPos = Len(basepath) Test = False Do While Test = False textPos = textPos - 1 tempChar = Mid$(basepath, textPos, 1) If tempChar = "." Then periodPos = textPos ElseIf tempChar = "\" Or textPos = 0 Then
Test = True End If Loop workspace = "[arc]" & Left$(basepath, textPos - 1) Dim coverage As String Dim lenBasePath As Long Dim ext As String ext = LCase(Right$(filename, 3)) lenBasePath = Len(basepath) coverage = Right$(basepath, lenBasePath - textPos) If ext = "adf" Then featAttTable = coverage & "." & Left$(filename, Len(filename) - 4) Else featAttTable = coverage & "." & ext & Left$(filename, Len(filename) - 4) End If featAttTable = LCase(featAttTable) workspace = LCase(workspace) dCon.Database = workspace If dCon.Connect Then Set gSet = dCon.FindGeoDataset(featAttTable) 'Find shapefile as GeoDataset in DataConnection If gSet Is Nothing Then MsgBox "Error opening coverage feature attribute table " & featAttTable Exit Sub Else ShpLayer.GeoDataset = gSet 'Set GeoDataset property of new MapLayer ShpLayer.Name = featAttTable 'Set Name property of new MapLayer End If Else MsgBox dCon.ConnectError, vbCritical, "Connection error" End If End Sub
104
10. Untuk tampilan informasi Throughfall dapat dilakukan dengan mengklik tombol
dengan
tulisan
Throughfall
. Informasi
Throughfall meliputi teori Throughfall dan database Throughfall di HPGW. Tampilan informasi teori Throughfall adalah sebagai berikut:
Database Throughfall di HPGW dapat ditampilkan dengan mengklik tombol.
Tampilan informasi database Throughfall HPGW
adalah sebagai berikut:
105
….Selengkapnya dapat dilihat dalam buku 2 (dalam bentuk softcopy)