ANALISIS HUBUNGAN LUAS LAHAN, JUMLAH POHON, DAN ELEVASI DENGAN HASIL PRODUKSI GETAH PINUS MENGGUNAKAN APLIKASI VISUAL BASIC 6.0
Tugas Akhir Disajikan sebagai salah satu syarat untuk memperoleh gelar Ahli Madya Program Studi Statistika Terapan dan Komputasi
oleh Pramusinto Gati Widodo 4112311007
JURUSAN MATEMATIKA FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM
UNIVERSITAS NEGERI SEMARANG 2015
i
ii
iii
MOTTO DAN PERSEMBAHAN
MOTTO 1.
Bukan seberapa besar impian kita, namun seberapa besar usaha kita untuk mewujudkannya. (Nazril Ilham)
2. Sesungguhnya sesudah kesulitan itu ada kemudahan. (QS. Al-Insyiraah, 6)
PERSEMBAHAN 1.
Bapak dan ibu saya yang selalu memberikan semangat, dorongan dan doa serta kasih sayang yang tiada akhir.
2.
Kakakku yang selalu memberikan motivasi, semangat, dan dukungan.
3.
Adikku yang selalu memberikan semangat dan dorongan agar tidak mudah menyerah.
4.
Annisa Romadhani Luthfie Mukhtaromah yang selalu memberikan semangat, doa, dan dukungan.
5.
Teman-teman staterkom angkatan 2011 yang berjuang bersama-sama untuk lulus.
6.
Teman-teman KWM, dan dota 2 team yang selalu memberikan kebahagiaan dan keceriaan selama menempuh pendidikan di unnes.
iv
ABSTRAK Widodo, Pramusinto Gati. 2015. Analisis Hubungan Luas Lahan, Jumlah Pohon, dan Elevasi dengan Hasil Produksi Getah Pinus Menggunakan Aplikasi Visual Basic 6.0. Tugas Akhir, Jurusan Matematika, Fakultas Matematika dan Ilmu Pengetahuan Alam, Universitas Negeri Semarang. Pembimbing : Florentina Yuni Arini, S.Kom, M.Cs. Kata kunci: Analisis, Hubungan, visual basic, Aplikasi. Tujuan dalam penelitian ini adalah untuk mengembangkan program yang dapat digunakan untuk melakukan uji korelasi ganda. Selain itu juga melakukan simulasi program menggunakan data luas lahan, jumlah pohon, elevasi (ketinggian tanah), dan hasil produksi getah pinus untuk mengetahui hubungan dari masing-masing variabel. Data yang digunakan dalam penelitian ini adalah data luas lahan, jumlah pohon, elevasi, dan serta hasil produksi getah pinus pada petak-petak sadapan di perum perhutani KPH banyumas barat. Populasi yang digunakan dalam penelitian adalah petak-petak sadapan di wilayah perum perhutani KPH banyumas barat. Pembuatan program uji korelasi menggunakan aplikasi visual basic 6.0 dan database MySQL. Jenis uji yang dikembangkan dalam program adalah uji korelasi ganda, sedangkan data yang diteliti adalah data dengan tiga variabel independen dan satu variabel dependen. Program disimulasikan dengan menggunakan data luas lahan, jumlah pohon, dan ketinggian tanah (elevasi) sebagai variabel independen serta hasil produksi getah pinus KPH banyumas barat sebagai variabel dependen. Setelah dilakukan simulasi, hasil simulasi program akan dibandingkan dengan perhitungan manual serta menggunakan validator yaitu program SPSS. Selanjutnya akan ditarik kesimpulan dari analisis data yang dilakukan mengenai hubungan antara variabel dependen dengan variabel-variabel independen atau sebaliknya secara bersama-sama.
v
KATA PENGANTAR Puji syukur penulis panjatkan kehadirat Allah SWT yang telah melimpahkan rahmat dan hidayah-Nya, sehingga penulis dapat menyelesaikan kegiatan serta penyusunan tugas akhir dengan judul “Analisis Hubungan Luas Lahan, Jumlah Pohon, dan Elevasi Dengan Hasil Produksi Getah Pinus Menggunakan Aplikasi Visual Basic 6.0”. Tugas akhir ini disusun sebagai salah satu syarat untuk memperoleh gelar Ahli Madya pada Program Studi Statistika Terapan dan Komputasi. Penulis menyadari bahwa selesainya penulisan tugas akhir ini berkat bimbingan, pengarahan dan bantuan dari berbagai pihak baik berupa moriil maupun materiil. Oleh karena itu pada kesempatan ini, penulis menyampaikan rasa hormat, serta terimakasih kepada: (1). Prof. Dr. Wiyanto, M. Si, selaku Dekan Fakultas Matematika dan Ilmu Pengetahuan Alam Universitas Negeri Semarang yang telah memberikan ijin penelitian kepada penulis. (2). Drs. Arief Agoestanto, M.Si., selaku Ketua Jurusan Matematika Fakultas Ilmu Pengetahuan Alam Universitas Negeri Semarang yang telah membantu kelancaran penulisan tugas akhir. (3). Florentina Yuni Arini, S.kom, M.cs., selaku dosen pembimbing tugas akhir yang telah banyak memberikan bimbingan, arahan, dan saran kepada penulis selama penyusunan tugas akhir. (4). Semua pihak yang telah membantu dalam penyusunan tugas akhir ini. Penulis menyadari bahwa penyusunan tugas akhir ini masih jauh dari kesempurnaan. Meski demikian, penulis tetap berharap bahwa tugas akhir ini dapat memberikan manfaat bagi penulis maupun pihak lain yang memerlukan tugas akhir ini. Semarang, 21 Agustus 2015
Penulis
vi
DAFTAR ISI
Halaman HALAMAN JUDUL .......................................................................................
i
PERNYATAAN KEASLIAN TULISAN ......................................................
ii
HALAMAN PENGESAHAN ......................................................................... iii MOTTO DAN PERSEMBAHAN .................................................................. iv ABSTRAK ......................................................................................................
v
KATA PENGANTAR .................................................................................... vi DAFTAR ISI ................................................................................................... viii DAFTAR GAMBAR ......................................................................................
x
DAFTAR LAMPIRAN .................................................................................... xii BAB 1.
BAB 2.
PENDAHULUAN .........................................................................
1
1.1
Latar Belakang ....................................................................
1
1.2
Rumusan Masalah ................................................................
4
1.3
Pembatasan Masalah ............................................................
4
1.4
Tujuan Penelitian .................................................................
4
1.5
Manfaat Penelitian ...............................................................
5
1.6
Sistematika Penulisan Tugas Akhir .....................................
5
TINJAUAN PUSTAKA ................................................................
7
2.1
Luas Lahan .....................................................................
7
2.2
Jumlah Pohom .....................................................................
8
2.3
Elevasi..................................................................................
9
vii
BAB 3.
BAB 4.
BAB 5.
2.4
Hasil Produksi ..................................................................... 10
2.5
Uji Hubungan ....................................................................... 11
2.6
Teori Simulasi ...................................................................... 16
2.7
Visual Basic .................................................................... 16
METODE PENELITIAN .............................................................. 22 3.1
Lokasi dan Waktu Penelitian ......................................... 22
3.2
Variabel Penelitian .............................................................. 22
3.3
Prosedur Penelitian .............................................................. 23
3.4
Metode Pengumpulan Data ................................................. 24
3.5
Metode Analisis Data .......................................................... 25
HASIL DAN PEMBAHASAN ..................................................... 26 4.1
Analisis Data .................................................................. 26
4.2
Perhitungan Data Menggunakan Aplikasi SPSS ................ 29
4.3
Simulasi Program Uji Korelasi Ganda ................................ 32
4.4
Pembahasan ........................................................................ 46
PENUTUP ..................................................................................... 49 5.1
Simpulan ............................................................................... 49
5.2
Saran ..................................................................................... 50
DAFTAR PUSTAKA ..................................................................................... 51 LAMPIRAN .................................................................................................... 52
viii
DAFTAR GAMBAR Halaman Gambar 2.1 Title Bar ....................................................................................... 17 Gambar 2.2 Menu bar ..................................................................................... 18 Gambar 2.3 Tampilan Toolbar ........................................................................ 18 Gambar 2.4 Toolbox ....................................................................................... 19 Gambar 2.5 Jendela Project Explorer Visual Basic 6.0 .................................. 19 Gambar 2.6 Jendela Properties Window Visual Basic 6.0 .............................. 20 Gambar 2.7 Jendela Form ............................................................................... 21 Gambar 4.1 Tampilan Program SPSS ............................................................. 29 Gambar 4.2 Memilih Menu Analyze ................................................................ 30 Gambar 4.3 Kotak Dialog Menu Regresi ......................................................... 30 Gambar 4.4 Kotak Dialog Linear Regression .................................................. 31 Gambar 4.5 Model Summary ........................................................................... 31 Gambar 4.6 Menu Pada Program Uji Korelasi Ganda ..................................... 32 Gambar 4.7 Data Pada Lembar Kerja Program Uji Korelasi Ganda ............... 33 Gambar 4.8 Menu Exit ..................................................................................... 34 Gambar 4.9 Menu-menu yang Terdapat Pada Menu Edit................................ 35 Gambar 4.10 Menu Tambah Variabel .............................................................. 36 Gambar 4.11 Menu Tambah Data .................................................................... 38 Gambar 4.12 Menu Edit Data .......................................................................... 39 Gambar 4.13 Menu Hapus Variabel................................................................. 41 Gambar 4.14 Menu Hapus Data ....................................................................... 42
ix
Gambar 4.15 Menu Analisis ............................................................................ 43 Gambar 4.16 Kotak Dialog Taraf Signifikansi ................................................ 44 Gambar 4.17 Hasil Analisis Data ..................................................................... 45
x
DAFTAR LAMPIRAN Halaman Lampiran 1 Data Petak Sadapan Wilayah KPH Banyumas Barat .................. 52 Lampiran 2 Tabel Bantu Uji Korelasi Ganda ................................................. 56 Lampiran 3 Flowchart Program Uji Korelasi Ganda ...................................... 57 Lampiran 4 Kode Program Lembar Kerja ...................................................... 58 Lampiran 5 Kode Program Tambah Variabel ................................................. 79 Lampiran 6 Kode Program Tambah Data ....................................................... 81 Lampiran 7 Kode Program Edit Data .............................................................. 83 Lampiran 8 Kode Program Hapus Variabel .................................................... 85 Lampiran 9 Kode Program Hapus Data .......................................................... 87 Lampiran 10 Kode Program Hipotesis dan Taraf Signifikansi ....................... 89 Lampiran 11 Kode Program Hasil Uji ............................................................ 95
xi
BAB 1 PENDAHULUAN
1.1
Latar Belakang Perkembangan dunia teknologi terus mengalami peningkatan dan
kemajuan. Indikasi yang menandai perkembangan teknologi ini adalah digunakannya teknologi hampir di setiap aspek kehidupan, mulai dari bidang pemerintahan, perusahaan, institusi pendidikan, kesehatan, para pelaku ekonomi dan bisnis, maupun individu. Tidak dapat dipungkiri bahwa kemajuan perkembangan teknologi saat ini tidak lepas dari pengaruh sumber daya manusia yang semakin maju dalam meningkatkan dan memajukan teknologi. Program dan aplikasi diciptakan untuk meningkatkan efektivitas dan produktivitas suatu pekerjaan namun tidak mengurangi kualitas pekerjaan yang dihasilkan. Sehingga banyak perusahaan pengembang piranti lunak yang menciptakan dan mengembangkan aplikasi dan program dengan fungsi dan tujuan yang beragam. Saat ini telah banyak perusahaan yang menggunakan program dalam kegiatan produksi dengan tujuan bervariasi, baik dalam proses produksi itu sendiri, kalkulasi dan perhitungan kuantitas dan kualitas dalam kegiatan produksi, maupun dalam pengujian terhadap faktor produksi. Salah satu perusahaan yang memanfaatkan kemajuan perkembangan teknologi yaitu Perusahaan Umum Kehutanan Negara (Perhutani) KPH Banyumas Barat. KPH Banyumas Barat merupakan salah satu bagian dari unit pengelolaan
1
2
Kesatuan Pemangkuan Hutan
(KPH)
di wilayah kerja Perusahaan Umum
Perhutani Unit I Provinsi Jawa Tengah. Salah satu tugas yang dilaksanakan KPH Banyumas Barat dalam pengelolaan hutan adalah untuk memproduksi getah pinus dan kayu pinus. KPH Banyumas Barat merupakan KPH terbesar dalam memproduksi getah pinus yaitu mencapai 14.935 ton dan kayu pinus sebesar 7.296 m3, sehingga kegiatan produksi getah pinus menjadi sangat penting di KPH Banyumas Barat. Agar dalam kegiatan produksi dapat memperoleh hasil yang maksimal, maka faktor yang mempengaruhi hasil produksi perlu diperhatikan, Mulai dari jumlah pohon, elevasi tanah lahan sadapan, luas lahan sadapan, dan berbagai faktor pendukung lainnya. Hal ini menjadi penting karena dengan mengetahui hubungan dari setiap variabel dengan hasil produksi maka diharapkan dapat meningkatkan serta memaksimalkan hasil produksi baik dari segi kualitas maupun kuantitas. Untuk mengetahui besarnya hubungan dari masing-masing variabel terhadap hasil produksi, maka diperlukan suatu uji statistik untuk mengetahui hubungan dari masing-masing variabel. Berdasarkan jenis data dan jumlah variabel yang ada, maka jenis uji yang tepat untuk dilakukan terhadap variabel faktor produksi dengan hasil produksi getah adalah dengan menggunakan uji korelasi ganda, dimana uji ini dapat digunakan untuk menguji data dengan variabel independen dua atau lebih. Permasalahan yang kemudian muncul adalah uji korelasi ganda akan sulit dilakukan secara manual jika data yang digunakan dalam jumlah yang banyak. Selain itu, hasil pengujian pun akan menjadi kurang valid apabila terjadi
3
kesalahan dalam penghitungan. Permasalahan tersebut dapat diatasi dengan digunakannya suatu aplikasi berbasis statistik untuk melakukan pengujian. Namun permasalahan lain muncul ketika digunakannya aplikasi tersebut karena sedikitnya orang yang memahami statistik, sehingga menjadi kurang efektif. Sehingga dalam hal ini dibutuhkan suatu aplikasi yang praktis, efisien dan mudah digunakan untuk melakukan uji statistik korelasi. Permasalahan seperti ini dapat diatasi dengan pengembangan aplikasi yang dapat disimulasikan untuk melakukan uji hubungan. Berdasarkan uraian diatas maka penulis mencoba membuat pemecahan dari masalah tersebut dengan mengembangkan program uji korelasi menggunakan Visual Basic, dimana dalam Visual Basic 6.0 seorang programer dapat membuat program dengan aplikasi GUI (Graphical User Interface), atau program yang memungkinkan pengguna komputer dapat berkomunikasi menggunakan media grafik atau gambar, sehingga aplikasi yang dibuat menggunakan Visual Basic menjadi lebih mudah dan nyaman untuk digunakan oleh pengguna. Aplikasi bahasa pemrograman Visual Basic juga didukung dengan operating system windows, selain itu pada Visual Basic dapat menggunakan beberapa jenis database seperti microsoft access, SQL server dan oracle yang membuat aplikasi visual basic menjadi lebih fleksibel dalam penggunaannya. Selanjutnya pada penelitian ini akan dilakukan simulasi program untuk mensimulasikan hubungan luas lahan, jumlah pohon, dan ketinggian tanah (elevasi) terhadap hasil produksi getah pinus perum perhutani KPH Banyumas Barat tahun 2012.
4
1.2 Rumusan Masalah Permasalahan yang akan dipecahkan dalam Tugas Akhir ini dapat dirumuskan sebagai berikut. 1)
Bagaimana merancang program uji korelasi ganda dengan menggunakan visual basic 6.0?
2)
Bagaimana mensimulasikan program untuk melakukan analisis hubungan luas lahan, jumlah pohon, dan elevasi dengan hasil produksi getah pinus?
1.3 Pembatasan Masalah Dalam penulisan Tugas Akhir ini, penulis hanya melakukan penelitian yang meliputi: 1)
Uji statistik yang dikembangkan dalam aplikasi yaitu uji korelasi ganda.
2)
Data yang digunakan dalam simulasi adalah data luas lahan, jumlah pohon, elevasi, dan hasil produksi getah pinus Perum Perhutani KPH Banyumas Barat tahun 2012.
3)
Pengembangan program uji korelasi menggunakan visual basic 6.0.
1.4 Tujuan Penelitian Tujuan pembuatan Tugas Akhir adalah sebagai berikut. 1)
Membuat program uji korelasi ganda menggunakan visual basic 6.0.
2)
Mensimulasikan program untuk melakukan analisis hubungan luas lahan, jumlah pohon, dan elevasi dengan hasil produksi getah pinus.
5
1.5 Manfaat Penelitian Adapun manfaat pembuatan Tugas Akhir adalah sebagai berikut. 1)
Bagi penulis, sebagai implementasi dari ilmu yang telah didapat selama kuliah dalam mengembangkan program uji korelasi ganda dengan menggunakan visual basic 6.0.
2)
Bagi Perum Perhutani KPH Banyumas Barat, simulasi hubungan luas lahan, jumlah pohon, dan elevasi terhadap hasil produksi getah pinus menggunakan program akan memberikan hasil analisis yang bermanfaat bagi perusahaan.
3)
Bagi masyarakat umum, menambah informasi dan referensi bacaan mengenai Perum Perhutani KPH Banyumas Barat dan program uji korelasi ganda menggunakan visual basic 6.0 serta bahan masukan yang berguna untuk melakukan penelitian selanjutnya.
1.6 Sistematika Penulisan Tugas Akhir Untuk memberikan gambaran sekilas tentang isi keseluruhan tugas akhir ini, peneliti perlu mengemukakan sistematika penulisan tugas akhir dalam penelitian ini. Berikut akan dituliskan sistematika penulisan tugas akhir dalam penelitian ini.
1.6.1 Bagian Awal Tugas Akhir Bagian awal tugas akhir berisi halaman judul tugas akhir, pernyataan keaslian tulisan, halaman pengesahan, motto dan persembahan, abstrak, kata pengantar, daftar isi, dan daftar lampiran.
6
1.6.2 Bagian Isi Tugas Akhir Bagian isi tugas akhir terdiri dari 5 bab, yaitu sebagai berikut. 1)
Bab 1 Pendahuluan, pada bagian ini akan dijelaskan latar belakang, rumusan masalah, pembatasan masalah, tujuan penelitian, manfaat penelitian, dan sistematika penulisan tugas akhir.
2)
Bab 2 Tinjauan Pustaka, berisi landasan teori yang dijadikan rujukan dalam penelitian.
3)
Bab 3 Metode Penelitian, berisi penjelasan mengenai lokasi dan waktu penelitian, variabel penelitian, prosedur penelitian, dan metode analisis data.
4)
Bab 4 Hasil Penelitian Dan Pembahasan, meliputi hasil penelitian dan pembahasannya.
5)
Bab 5 Penutup, bab ini meliputi simpulan dan saran.
1.6.3 Bagian Akhir Tugas akhir Bagian akhir tugas akhir berisi daftar pustaka dan lampiran yang berkaitan dengan penelitian.
BAB II TINJAUAN PUSTAKA
A.
Luas Lahan (Juhadi, 2011: 11) mendefinisikan lahan sebagai suatu wilayah di
permukaan bumi, mencakup semua komponen biosfer yang dapat dianggap tetap atau bersifat siklis yang berada di atas dan di bawah wilayah tersebut, termasuk atmosfer, tanah, batuan induk, relief, hidrologi, tumbuhan dan hewan, serta segala akibat yang ditimbulkan oleh aktivitas manusia di masa lalu dan sekarang, yang kesemuanya itu berpengaruh terhadap penggunaan lahan oleh manusia pada saat sekarang dan di masa akan datang. Lahan merupakan suatu sistem yang tersusun atas berbagai komponen. Komponen-komponen ini dapat dikategorikan menjadi dua, yaitu komponen struktural yang sering disebut karakteristik lahan dan komponen fungsional yang sering disebut kualitas lahan. Kualitas lahan merupakan sekelompok unsurunsur lahan yang menentukan tingkat kemampuan dan kesesuaian lahan bagi macam pemanfaatan
tertentu.
Lahan
sebagai
suatu
sistem
mempunyai
komponenkomponen yang terorganisir secara spesifik dan perilakunya menuju kepada sasaran-sasaran tertentu. Komponen-komponen lahan ini dapat dipandang sebagai sumberdaya dalam hubungannya dengan aktivitas manusia dalam memenuhi kebutuhan hidupnya. Dengan demikian ada dua kategori utama sumberdaya lahan, yaitu sumberdaya lahan yang bersifat alamiah dan sumberdaya
7
8
lahan yang merupakan hasil aktivitas manusia. Berdasarkan atas konsepsi tersebut maka pengertian sumberdaya lahan mencakup semua karakteristik lahan dan proses-proses yang terjadi di dalamnya, yang dengan cara tertentu dapat digunakan untuk memenuhi kebutuhan hidup manusia. Menurut Suripto (2005: 5), lahan merupakan salah satu dari faktor produksi dimana faktor produksi itu sendiri adalah semua unsur masukan produksi dapat mendukung terjadinya proses produksi sampai menghasilkan keluaran produksi dalam pengelolaan sumberdaya hutan. Dalam hal ini lahan merupakan faktor utama dalam kegiatan produksi. Luas lahan akan menentukan seberapa besar kuantitas produksi getah pinus yang akan dihasilkan. Semakin luas lahan produksi, maka semakin banyak tegakan yang dapat ditanam. Hal ini yang akan berpengaruh terhadap jumlah produksi getah pinus.
1.
Jumlah Pohon Kesatuan Pemangkuan Hutan (KPH) Banyumas Barat ditetapkan sebagai
Kelas Perusahaan Pinus dan merupakan pemasok bahan baku gondorukem dan terpentin dimana gondorukem dan terpentin dihasilkan dari getah pohon pinus. Sebagai tanaman pionir yang dapat tumbuh di berbagai kondisi, tanaman pinus merupakan tanaman dengan produk utamanya berupa getah pinus (Indrajaya, et al., 2008: 231). Tanaman Pinus yang dapat tumbuh baik di kawasan hutan KPH Banyumas Barat adalah jenis Pinus merkusii yang ditanam secara murni. KPH Banyumas Barat merupakan KPH terbesar dalam memproduksi getah pinus, yaitu mencapai 14.935 ton dan kayu pinus sebesar 7.296 m3. Dengan luas wilayah
9
55.562,98 Ha, terdapat 4.261.231 tegakan pinus yang tersebar di bebrapa BKPH, seperti di BKPH Wanareja sebanyak 683.538 pohon, BKPH Majenang sebanyak 1.681.373 pohon, BKPH Lumbir sebanyak 857.069 pohon, BKPH Sidareja sebanyak 509.969 pohon, BKPH Kawunganten sebanyak 84.459 pohon, dan BKPH Bokol sebanyak 58.451 pohon.
2.
Elevasi (Martono & Djoko, 2009: 75) menjelaskan bahwa istilah elevasi dikaitkan
dengan ketinggian suatu tempat yang biasa diukur dengan satuan m dpl (diatas permukaan laut). Elevasi termasuk faktor yang berpengaruh terhadap hasil produksi. Hal ini dikarenakan ketinggian tempat akan mempengaruhi iklim, suhu, dan kelembaban lahan produksi. Elevasi akan berpengaruh terhadan kontur tanah serta kemiringan lahan yang nantinya akan berpengaruh juga terhadap luas lahan yang dapat digunakan untuk ditanami tegakan pinus. Dengan jumlah 101 pegunungan yang tersebar hampir merata, wilayah KPH Banyumas Barat merupakan deretan pegunungan yang bersambung, serta lembah dengan ketinggian tempat yang bervariasi mulai dari ketinggian 25,0 m dpl sampai 1.000,0 m dpl. Adapun pembagian bentang alamnya adalah daerah datar (kelerengan 0 – 8 %) seluas 23,78 %, daerah landai (kelerengan 8 – 15 %) seluas 27,61 %, daerah bergelombang (Kelerengan 15 – 25 %) seluas 43,71 %, daerah agak Curam (Kelerengan 25 – 40 %) seluas 4,45 %, dan daerah curam (kelerengan > 40 %) seluas 0,46 %.
10
3.
Hasil Produksi (Yudha, 2008: 6) menyatakan bahwa produktivitas getah pohon pinus
dipengaruhi oleh dua faktor utama yaitu faktor statis (genotipe, umur, kerapatan pohon, elevasi, kesuburan tanah, dan iklim) serta faktor dinamis (cara dan alat penyadapan, kadar stimulan dan keterampilan tenaga penyadap). Selain kedua faktor utama, hasil produksi getah juga dipengaruhi oleh jenis tanaman pinus. Jenis tanaman pinus yang berbeda akan menghasilkan getah dalam jumlah yang berbeda. Volume kayu gubal dan bentuk tajuk juga berpengaruh terhadap produksi getah. Diameter pohon juga berpengaruh terhadap produksi getah pinus, hal ini berhubungan dengan pertumbuhan diameter pohon. Sehingga dengan adanya pertumbuhan dimeter pohon, menyebabkan volume kayu gubal semakin besar. Oleh karena itu semakin besar volume kayu gubal, maka saluran getah yang terkandung pada pohon pinus akan semakin banyak dan produksi getah pinus akan semakin meningkat. Faktor lain yang berpengaruh terhadap hasil produksi getah adalah umur pohon. Perbedaan umur pohon akan berpengaruh terhadap jumlah produksi getah. Semakin tua umur pohon maka getah yang dihasilkan akan semakin banyak sampai pada batas umur tertentu. Dalam hal ini kelas umur berpengaruh terhadap produksi getah. Faktor lain yang memengaruhi hasil produksi yaitu cuaca. Cuaca berpengaruh terhadap aliran getah dari sadapan. Pada suhu yang rendah dan kelembaban yang tinggi, getah yang membeku akan menyumbat saluran getah dan
11
muara akan tertutup akibatnya getah yang mengalir akan terhenti. Pengaruh suhu dan kelembaban udara sangat menentukan jumlah keluarnya getah sadapan tanaman pinus dari tiap-tiap pohon per satuan waktu. Hal ini disebabkan karena suhu yang rendah (dibawah 20° C) dan kelembaban udara yang tinggi (diatas 70%) sangat besar pengaruhnya pada kondisi saluran getah. Saluran getah menyempit bahkan buntu, dan apabila masih ada getah yang bisa keluar dengan segera mengalami pembekuan di mulut saluran getah sehingga menyumbat getah yang seharusnya masih bisa keluar. (Suripto, 2005: 6) menjelaskan bahwa hasil produksi getah pinus dipengaruhi oleh faktor produksi yaitu lahan, modal, tenaga kerja, maupun faktor pendukung lain. Dari beberapa uraian diketahui bahwa kuantitas dan kualitas hasil produksi ditentukan oleh berbagai faktor. Dimana hubungan dari tiap faktor produksi memiliki hubungan dan pengaruh tertentu terhadap besarnya jumlah produksi yang dihasilkan. Beberapa faktor seperti suhu, kelembaban, dan kemiringan merupakan faktor yang dipengaruhi dari ketinggian tanah. Sedangkan beberapa variabel seperti Luas lahan sadapan, jumlah tegakan dan kontur tanah serta ketinggian tanah menjadi faktor yang memiliki pengaruh besar dalam kegiatan produksi.
2.5
Uji Hubungan
1.
Hipotesis dalam Uji Hubungan (Hipotesis Asosiatif) Menurut Sugiyono (2011: 224), hipotesis asosiatif merupakan dugaan
tentang adanya hubungan antar variabel dalam populasi yang akan diuji melalui
12
hubungan antar variabel dalam sampel yang diambil dari populasi tersebut. Untuk menguji hipotesis asosiatif, perlu menghitung terlebih dahulu koefisien korelasi antar variabel dalam sampel, kemudian menguji koefisien korelasi yang ada pada sampel untuk diberlakukan pada seluruh populasi dimana sampel diambil. (Sugiyono, 2011: 224) menjelaskan bahwa terdapat tiga macam bentuk hubungan antar variabel, yaitu hubungan simetris, hubungan sebab akibat, dan hubungan interaktif. Untuk mencari hubungan antara dua variabel atau lebih dilakukan dengan menghitung korelasi antar variabel yang akan dicari hubungannya. Korelasi merupakan angka yang menunjukan arah dan kuatnya hubungan antar dua variabel atau lebih. Arah dinyatakan dalam bentuk hubungan positif atau negatif, sedangkan kuatnya hubungan dinyatakan dalam besarnya koefisien korelasi. Hubungan dua variabel atau lebih dikatakan hubungan positif, bila nilai suatu variabel ditingkatkan, maka akan meningkatkan variabel yang lain, dan sebaliknya bila suatu variabel diturunkan maka akan menurunkan nilai variabel yang lain. Sedangkan hubungan dua variabel atau lebih dikatakan hubungan negatif, bila nilai suatu variabel ditingkatkan, maka akan menurunkan nilai variabel yang lain, dan juga sebaliknya bila suatu variabel diturunkan maka akan menaikkan nilai variabel yang lain. Kuatnya hubungan antar variabel dinyatakan dalam koefisien korelasi. Koefisien korelasi positif terbesar = 1 dan koefisien korelasi negatif terbesar = -1, sedangkan yang terkecil adalah 0. Bila hubungan antar dua variabel atau lebih itu mempunyai koefisien korelasi = 1 atau -1, maka hubungan tersebut sempurna. Dalam arti kejadian pada variabel yang satu akan
13
dapat dijelaskan atau diprediksikan oleh variabel yang lain tanpa terjadi kesalahan (error). Semakin kecil koefisien korelasi, maka akan semakin besar error untuk membuat prediksi (Sugiyono, 2011: 223). Besarnya koefisien korelasi dapat diketahui berdasarkan penyebaran titik-titik pertemuan antara dua variabel. Jika titik-titik itu terdapat dalam satu garis, maka koefisien korelasinya = 1 atau -1. Jika titik-titik itu membentuk lingkaran, maka koefisien korelasinya = 0. Terdapat bermacam teknik statistik korelasi yang dapat digunakan untuk menguji hipotesis asosiatif. Untuk menentukan teknik statistik korelasi mana yang akan digunakan tergantung pada jenis data yang akan dianalisis. Untuk data nominal teknik korelasi yang digunakan adalah koefisien kontingency dan untuk data ordinal dapat menggunakan teknik korelasi spearman rank atau kendal tau. Sedangkan untuk data interval dan ratio dapat menggunakan teknik korelasi pearson product moment, korelasi ganda, maupun korelasi parsial. Berdasarkan penjelasan tentang hipotesis asosiatif di atas dan data yang diperoleh dari Perum Perhutani KPH Banyumas Barat mengenai luas lahan, jumlah pohon, elevasi, dan hasil produksi getah pinus perum perhutani KPH Banyumas Barat tahun 2012, maka teknik korelasi yang digunakan adalah korelasi ganda. Hal ini dikarenakan terdapat tiga variabel bebas dan satu variabel terikat pada yang berasal dari hasil penelitian, dan jenis data adalah data ratio (Sugiyono, 2011: 224).
14
2.
Uji Korelasi Ganda Uji hubungan dikenal juga sebagai uji korelasi. Sukestiyarno (2010: 98)
menjelaskan uji korelasi dilakukan untuk memperoleh asumsi apakah variabel dari sampel penelitian memiliki hubungan yang positif dan signifikan atau tidak. Untuk mengetahui apakah terdapat hubungan dapat dilihat dari nilai
. Uji
hubungan dilakukan dengan uji korelasi ganda. Hal ini didasarkan uji korelasi ganda digunakan untuk mengukur derajat hubungan antar tiga variabel atau lebih, sedangkan dalam penelitian ini terdapat empat variabel yang akan diteliti. Uji korelasi ganda ini menggunakan rumus sebagai berikut:
- ̅ ,
- ̅ , . . . ,
Dengan
=
=
̅ dan
yang dihitung dengan rumus:
- ̅ ,
=
=
–
(Sudjana, 2005: 383) Jika dinyatakan dalam kekeliruan baku taksiran
. . .
maka koefisien
korelasi ganda dapat ditulis dengan rumus berikut: (
) (
)
(Sudjana, 2005: 383) Dengan
menyatakan simpangan baku untuk variabel .
korelasi ganda antara
dengan
buah variabel
dinamakan koefisien determinasi ganda.
,
dinamakan koefisien
,...,
, sedangkan
15
Untuk mengetahui hubungan antara variabel dengan
,
√*
(
√*
(
, dan
)
)(
(
(
) +
(
) +
(
) +
)
) +* (
√*
)(
) +* (
)(
)
) +*
adalah koefisien korelasi antara variabel
dengan
adalah koefisien korelasi antara variabel
dengan
adalah koefisien korelasi antara variabel
dengan
Sedangkan untuk mengetahui hubungan antara variabel , dan
dengan
, dapat digunakan rumus berikut: (
Dengan
dengan
dengan
dengan
, digunakan rumus berikut:
( √*
(
(
(Sudjana, 2005: 369)
(
)(
) +*
)(
(
) +
(
) +
(
) +
)
) +* (
√*
)
) +* (
√*
)(
)
,
dengan
16
Untuk menentukan besarnya hubungan dapat dilihat berdasarkan nilai dari koefisien korelasi yang didapat. Jika nilai koefisien korelasi semakin mendekati 0 berarti korelasi semakin rendah, namun jika nilai koefisien korelasi semakin mendekati 1 berarti semakin tinggi korelasi yang terjadi (Sudjana, 2005: 384).
2.6
Teori Simulasi (Kakiay, 2004: 2) mendefinisikan simulasi sebagai suatu sistem yang
digunakan untuk memecahkan atau menguraikan persoalan – persoalan dalam kehidupan nyata yang penuh dengan ketidakpastian dengan tidak atau menggunakan model atau metode tertentu dan lebih ditekankan pada pemakaian komputer untuk mendapatkan solusinya. Pada pendekatan simulasi, untuk menyelesaikan berbagai persoalan yang rumit akan lebih mudah dilakukan bila dimulai dengan membangun model percobaan dari suatu sistem. Untuk melakukannya kita perlu memperhatikan tiga unsur penting dalam pemodelan simulasi, yaitu sistem, entitas, dan atribut. Dengan demikian masih banyak entitas atau sistem yang harus terlebih dahulu disusun agar dapat digunakan dalam simulasi.
2.7
Visual Basic
2. 7. 1 Pengertian Visual Basic 6.0 Visual basic 6.0 adalah salah satu aplikasi bahasa pemrograman yang digunakan dalam membuat program. Visual basic 6.0 dapat membuat program dengan aplikasi
GUI (Graphical
User
Interface),
atau program
yang
17
memungkinkan pengguna komputer dapat berkomunikasi menggunakan media grafik atau gambar. Visual basic didukung dengan operating sistem windows, dan untuk databasenya bisa menggunakan microsoft access, SQL server dan oracle. (MADCOMS, 2006: 1).
2. 7. 2 Komponen Visual Basic 6.0 Di dalam Visual Basic terdapat komponen-komponen yang gunakan untuk membuat program. Komponen komponen tersebut yaitu : 1)
Title Bar Title bar merupakan batang judul dari program visual basic 6.0 yang
terletak pada bagian paling atas dari jendela program. Komponen ini berfungsi untuk menampilkan judul atau nama jendela. Selain itu title bar juga berfungsi untuk memindah posisi jendela dengan menggunakan proses drag and drop pada posisi title bar tersebut. Title bar juga berfungsi untuk mengatur ukuran jendela dari ukuran maximize ke ukuran restore ataupun sebaliknya, dengan melakukan klik dua kali pada posisi title bar tersebut.
Gambar 2.1 Title Bar 2)
Menu Bar Menu bar merupakan batang menu yang terletak di bawah title bar yang
berfungsi menampilkan pilihan menu atau perintah untuk menjalankan program visual basic. Menu bar memiliki sederetan pilihan menu yang masing – masing mempunyai arti dan fungsi yang berbeda. Saat pertama kali jendela program
18
visual basic terbuka, akan terlihat tiga belas menu utama, yaitu : Fiel, Edit, View, Project, Format, Debug, Run, Query, Diagram, Tools, Add-Ins, Windows dan Help. Tampilan menu bar disajikan seperti pada gambar berikut.
Gambar 2.2 Menu bar 3)
Toolbar Toolbar merupakan sebuah batang yang berisi kumpulan tombol yang
terletak di bagian bawah menu bar yang dapat digunakan untuk menjalankan suatu perintah.
Gambar 2.3 Tampilan Toolbar
4)
Toolbox Toolbox merupakan kotak perangkat yang berisi kumpulan tombol objek
atau kontrol untuk mengatur desain dari aplikasi yang akan dibuat. Pada keadaan default, toolbox menampilkan tabulasi general dengan 21 tombol kontrol.
19
Gambar 2.4 Toolbox
5)
Project Project adalah suatu kumpulan modul atau program aplikasi itu sendiri.
Dalam Visual Basic program disimpan dengan nama file berakhiran .VBP, dimana file ini berfungsi untuk menyimpan seluruh komponen program. Pada jendela project explorer ditampilkan struktur dari project tersebut yang berisi semua item yang terkandung di dalam project.
Gambar 2.5 Jendela Project Explorer Visual Basic 6.0 Dengan project explorer, akan memudahkan dalam memilih objek yang akan dikerjakan. 6)
Properties Window Properties windows merupakan sebuah jendela yang digunakan untuk
menampung nama properti kontrol yang terpilih. Pengaturan properti pada
20
program visual basic merupakan hal yang sangat penting untuk membedakan objek yang satu dengan yang lainnya.
Gambar 2.6 Jendela Properties Window Visual Basic 6.0 Pada jendela properti ditampilkan jenis dan nama objek yang anda pilih, urut berdasarkan abjad pada tab alphabetic atau berdasarkan kategori pada tab Categorized. 7)
Form Window Form window merupakan jendela desain dari sebuah program aplikasi.
Sebuah program aplikasi didesain dengan menempatkan kontrol-kontrol yang ada di bagian toolbox pada area form. Pada jendela form terdapat beberapa elemen yang dapat digunakan untuk mengatur tampilan.
21
Gambar 2.7 Jendela Form 8)
Code window Code window merupakan sebuah jendela yang digunakan untuk
menuliskan kode program kontrol yang dipasang pada jendela form dengan cara memilih kontrok pada kotak objek terlebih dahulu. 9)
Module Module adalah suatu perintah untuk mengkoneksikan antara pogram visual
basic dengan database yang akan di gunakan di dalam mengaplikasikan program. Modul berisi kode program atau prosedur yang dapat digunakan oleh program aplikasi. Untuk menambahkan suatu modul ke dalam program aplikasi gunakan perintah project – add module, dan kemudian mengisinya dengan suatu kode program yang akan digunakan oleh aplikasi tersebut.
BAB III METODE PENELITIAN
3.1
Lokasi dan Waktu Penelitian Pengambilan data penelitian dalam penyusunan tugas akhir ini dilakukan
di Perum Perhutani KPH Banyumas Barat pada bulan Agustus 2014.
3.2
Variabel Penelitian Variabel merupakan suatu karakteristik dari suatu objek yang nilainya
untuk tiap objek bervariasi dan dapat diobservasi atau dibilang atau diukur. Karakteristik nilai tersebut dapat berbentuk data diskrit atau data kontinu. Variabel yang datanya diperoleh dari observasi atau membilang, diasumsikan sebagai variabel diskrit. Sedangkan variabel yang datanya diperoleh dari mengukur, diasumsikan sebagai variabel kontinu (Sukestiyarno, 2010: 4). Dalam penelitian ini terdapat empat Variabel yang dikelompokan kedalam dua variabel yaitu variabel bebas (independen) sebanyak 3 variabel dan variabel terikat (dependen) sebanyak satu variabel. 3.2.1
Variabel Bebas (Independen) Variabel bebas adalah variabel yang menjadi sebab timbulnya atau
berubahnya variabel dependen (variabel terikat). Terdapat tiga variabel bebas dalam penelitian ini yaitu luas lahan, jumlah pohon, dan elevasi.
22
23
3.2.2
Variabel Terikat (Dependen) Variabel terikat merupakan variabel yang dipengaruhi atau yang menjadi
akibat, karena adanya variabel bebas. Terdapat satu variabel terikat dalam penelitian ini yaitu hasil produksi getah pinus perum perhutani KPH Banyumas Barat.
3.3
Prosedur Penelitian
3.3.1
Tahap Persiapan Tahap persiapan yang akan dilakukan sebelum memulai penelitian ini
adalah menentukan rumusan masalah, menentukan hipotesis dari permasalahan yang dihadapi, menentukan waktu dan lokasi penelitian, menentukan variabel penelitian, menentukan metode pengambilan data yang tepat untuk penelitian tersebut dan menentukan langkah-langkah yang akan diambil dalam menganalisis data dan pengumpulan bahan-bahan yang dijadikan referensi dalam pembuatan program, seperti rumus-rumus yang akan digunakan.
3.3.2
Tahap Pelaksanaan Penelitian dalam rangka penyusunan Tugas Akhir ini dilaksanakan di
Perum Perhutani KPH Banyumas Barat pada bulan Agustus 2014. Dalam pengambilan data penelitian metode yang digunakan adalah metode wawancara, observasi, dan studi pustaka. Penulis mengambil data–data yang sudah ada di Perum Perhutani KPH Banyumas Barat mengenai luas lahan, jumlah pohon, dan
24
elevasi serta hasil produksi yang ada di petak sadapan getah pinus di wilayah KPH Banyumas Barat.
3.4
Metode Pengumpulan Data Metode pengumpulan data adalah teknik atau cara-cara yang dapat
digunakan oleh peneliti untuk mengumpulkan data. Data yang digunakan pada penelitian ini mengambil populasi petak sadapan pinus di wilayah KPH Banyumas Barat. Dari populasi tersebut kemudian dilakukan pengambilan sampel data menggunakan metode systematic sampling. Systematic sampling adalah metode pengambilan sampel pada data yang terdapat pada blok-blok atau petak. Sampel yang telah ditentukan tersebut akan digunakan dalam proses analisis dan simulasi program. Dalam penelitian ini penulis menggunakan beberapa metode guna pengumpulan data yaitu wawancara, observasi, dan studi pustaka.
3.4.1
Wawancara Wawancara adalah metode pengumpulan data yang dilakukan dengan cara
memberikan pertanyaan-pertanyaan kepada responden secara langsung melalui tanya jawab. Dalam penelitian ini wawancara dilakukan dengan cara responden diberikan pertanyaan-pertanyaan berupa data tenaga penyadap, faktor produksi, dan hasil produksi getah pinus di KPH Banyumas barat. Responden dalam penelitian ini adalah karyawan perum perhutani KPH Banyumas Barat.
25
3.4.2 Observasi Observasi merupakan metode penelitian dimana peneliti melakukan pengamatan secara langsung pada obyek penelitian, yaitu petak sadapan pinus di KPH Banyumas Barat. 3.4.3 Studi Pustaka Studi pustaka merupakan metode pengumpulan data yang dilakukan dengan membaca buku-buku, literatur, jurnal-jurnal, referensi yang berkaitan dengan penelitian ini dan penelitian terdahulu yang berkaitan dengan penelitian yang sedang dilakukan.
3.5
Metode Analisis Data Pada tahap ini dilakukan pengkajian data berdasarkan teori-teori yang ada
khususnya yang berkaitan dengan analisis uji hubungan. Analisis data dan pembuatan program untuk melakukan simulasi hubungan luas lahan, jumlah pohon, dan elevasi dengan hasil produksi getah pinus adalah sebagai berikut: 1.
Mengumpulkan data luas lahan, jumlah pohon, elevasi, dan hasil produksi getah pinus Perum perhutani KPH Banyumas barat tahun 2012.
2.
Membuat perhitungan dan analisis data yang diperoleh.
3.
Membuat rancangan program.
4.
Implementasi rancangan program menggunakan Visual Basic 6.0 untuk melakukan simulasi hubungan luas lahan, jumlah pohon, dan elevasi dengan hasil produksi getah pinus.
BAB V PENUTUP 1.1
Simpulan Berdasarkan hasil dan pembahasan pada BAB IV, maka dapat diambil
kesimpulan sebagai berikut: 1.
Program uji korelasi ganda dibuat menggunakan bahasa pemrograman
visual basic 6.0. Agar lebih mudah dalam pengoperasianya, tabel statistik F diletakan pada database menggunakan MySQL sebagai database program. Pembuatan program diawali dengan menyusun flowchart program, kemudian menyusun database, selanjutnya menyusun interface serta koding program. Setelah itu dilakukan uji coba program dan simulasi untuk melakukan analisis data. 2.
Simulasi program uji korelasi ganda yang dibuat menggunakan bahasa
pemrograman Microsoft Visual Basic 6.0 diawali dengan input data luas lahan, jumlah pohon, elevasi dan hasil produksi melalui menu yang ada pada program. Setelah data di inputkan, dilakukan serangkaian tes terhadap menu-menu yang terdapat pada program. Setelah itu dilakukan analisis data menggunakan program uji korelasi ganda yang selanjutnya dibandingkan dengan hasil perhitungan manual serta program SPSS sebagai validator.
49
50
1.2
Saran
Berdasarkan hasil penelitian, maka saran yang dapat disampaikan oleh penulis adalah. 1.
Faktor – faktor produksi getah pinus harus diperhatikan karena hal tersebut
akan berpengaruh terhadap hasil produksi, terutama faktor yang memiliki korelasi paling besar terhadap hasil produksi agar hasil produksi getah pinus perum perhutani KPH Banyumas Barat pada tahun selanjutnya dapat dioptimalkan. 2.
Program uji korelasi ganda yang dibuat dengan visual basic dalam
mengolah, menghitung, dan menganalisis data Luas lahan, elevasi, dan jumlah pohon terhadap hasil produksi getah Perum Perhutani KPH Banyumas Barat ini masih belum sempurna, baik bentuk tampilan dan isinya. Maka penulis mengharapkan kritikan yang membangun, yang akan membantu dalam mengembangkan program tersebut.
51
DAFTAR PUSTAKA
Indrajaya, Yonky dan Handayani Wuri.2008.Potensi Hutan Pinus Merkusii Jungh et de Vriese Sebagai Pengendali Tanah Longsor di Jawa.Jurnal Ilmu Kehutanan.Vol 4 : hal 231 – 240. Juhadi.2011.Pola – Pola Pemanfaatan Lahan dan Degradasi Lingkungan pada Kawasan Perbukitan.Jurnal Geografi.Vol 4 : hal 11 – 24. Kakiay, Thomas J.2004.Pengantar Sistem Simulasi.Yogyakarta : Penerbit Andi. MADCOMS.2006.Database Visual Basic 6.0 dengan SQL.Yogyakarta : Penerbit Andi. Martono, Djoko Setyo.2009.Kontribusi Pendapatan Dari Penyadapan Getah Pinus Terhadap Pendapatan Totalnya.Jurnal Agri-tek.Vol 10 : hal 74 – 79. Sudjana.2005.Metoda Statistika.Bandung : Penerbit Tarsito. Sugiyono.2011.Statistik Untuk Penelitian.Bandung : Alfabeta. Sukestiyarno.2010.Statistika Dasar.Semarang : Universitas Negeri Semarang. Suripto.2005.Pengelolaan Sumberdaya Hutan Bersama Masyarakat.Jakarta : Perum Perhutani. Adhi, Yudha Asmara.2008.Pengaruh Jumlah Sadapan Terhadap Produksi Getah Pinus (Pinus Merkusii) Metode Koakan di Hutan Pendidikan Gunung Walat Kabuaten Sukabumi Jawa Barat.Skripsi.Tidak dipublikasikan.Bogor : Institut Pertanian Bogor.
52
Lampiran 1. Data Petak Sadapan Wilayah KPH Banyumas Barat
Data Petak Sadapan Wilayah KPH Banyumas Barat Anak petak
Luas sadapan (ha)
Jumlah pohon (phn)
Tinggi tempat (dpl)
Jumlah (kg)
1A
45,4
8.579
500
38290
3A
3,1
2.046
575
4512
5D
11,8
3.188
625
11178
7B
8,5
627
650
2290
8D
1,2
407
700
1725
10 A
4,6
3.036
650
6440
12 A
151,3
35.389
400
131479
14 C
45,6
10.802
400
24012
22 F
13,5
3.026
100
13628
24 B
10,5
2.771
225
11606
27 G
12,7
3.219
400
12068
29 A
56,0
8.213
650
33008
16 A
1,6
618
250
2914
18 A
2,0
256
350
2080
20 A
14,0
1.344
150
5946
1B
7,9
1.736
750
8116
2D
14,8
2.176
600
9331
4D
40,8
22.848
425
51559
6J
16,2
3.053
375
14669
7B
37,2
7.079
251
33955
9A
14,8
3.741
242
17412
11 B
8,9
2.075
200
9217
13 H
64,7
15.277
350
56175
15 F
11,2
2.960
625
10951
53
17 C
15,2
1.457
275
5392
19 B
10,0
3.010
242
9902
21 C
41,3
7.455
575
25731
2O D
19,3
5.307
350
16228
24 F
18,0
11.374
175
23928
26 G
3,8
783
150
3105
28 L
9,0
4.282
125
9150
30 L
4,0
2.155
400
4917
32 C
4,0
800
250
3329
2A
1,7
515
500
3028
5C
29,6
7.281
475
27106
13 A
132,0
31.155
250
116120
16 C
93,4
17.801
300
65934
19 C
2,7
579
400
3229
76 A
15,0
3.076
100
11395
67 G
1,4
280
250
1391
69 A
142,2
25.605
200
122881
72 A
29,1
7.960
150
32165
74 B
4,7
1.798
200
3710
1F
14,1
3.212
50
11447
7B
33,7
10.216
100
35291
14 A
32,6
10.532
150
45409
16 A
4,4
3.600
125
13820
18 A
59,3
20.129
75
67672
20 C
119,3
33.472
175
122329
2B
45,4
9.455
125
35959
5A
1,0
192
75
836
54
22 A
54,0
9.444
75
45448
24 A
14,0
3.467
75
15833
44 G
43,1
16.403
100
60623
55 A
52,2
8.811
150
31470
76 D
24,2
4.474
200
8678
28 A
35,3
6.038
300
22414
30 A
44,9
9.434
275
33811
46 G
10,7
2.573
300
8712
51 B
43,9
10.769
150
38252
87 B
4,2
1.366
50
2644
7A
28,9
7.070
350
30678
10 A
32,5
7.309
175
23585
63 A
39,5
8.804
250
41544
65 B
86,3
20.257
200
80357
71 B
47,1
11.066
200
46835
31 I
9,8
158
350
9501
34 A
14,1
3.196
250
6662
36 A
49,1
8.015
275
27630
46 D
20,0
2.527
350
9928
41 C
8,0
1.533
225
6114
50 D
3,6
538
350
2099
55 G
3,2
151
325
669
53 A
38,7
10.201
175
39902
58 A
34,5
6.117
350
20498
60 A
45,0
9.852
250
44983
66 B
33,0
9.067
150
29751
27 A
29,6
9.960
175
33729
55
32 E
36,8
10.903
100
34782
37 B
17,9
4.396
200
14617
34 C
37,3
11.935
325
39287
41 B
24,6
7.790
125
25592
68 A
11,2
2.844
150
9528
56
Lampiran 2. Tabel Bantu Uji Korelasi Ganda Luas sadapan Jumlah (ha) pohon Tinggi (phn)tempat (dpl) Jumlah (kg)x 1^2 x2^2 x3^2 y^2 x1y x2y x3y x1x2 x1x3 x2x3 45,40 8579,00 500,00 38290,00 2061,16 73599241,00 250000,00 1466124100,00 1738366,00 328489910,00 19145000,00 389486,60 22700,00 4289500,00 3,10 2046,00 575,00 4512,00 9,61 4186116,00 330625,00 20358144,00 13987,20 9231552,00 2594400,00 6342,60 1782,50 1176450,00 11,80 3188,00 625,00 11178,00 139,24 10163344,00 390625,00 124947684,00 131900,40 35635464,00 6986250,00 37618,40 7375,00 1992500,00 8,50 627,00 650,00 2290,00 72,25 393129,00 422500,00 5244100,00 19465,00 1435830,00 1488500,00 5329,50 5525,00 407550,00 1,20 407,00 700,00 1725,00 1,44 165649,00 490000,00 2975625,00 2070,00 702075,00 1207500,00 488,40 840,00 284900,00 4,60 3036,00 650,00 6440,00 21,16 9217296,00 422500,00 41473600,00 29624,00 19551840,00 4186000,00 13965,60 2990,00 1973400,00 151,30 35389,00 400,00 131479,00 22891,69 1252381321,00 160000,00 17286727441,00 19892772,70 4652910331,00 52591600,00 5354355,70 60520,00 14155600,00 45,60 10802,00 400,00 24012,00 2079,36 116683204,00 160000,00 576576144,00 1094947,20 259377624,00 9604800,00 492571,20 18240,00 4320800,00 13,50 3026,00 100,00 13628,00 182,25 9156676,00 10000,00 185722384,00 183978,00 41238328,00 1362800,00 40851,00 1350,00 302600,00 10,50 2771,00 225,00 11606,00 110,25 7678441,00 50625,00 134699236,00 121863,00 32160226,00 2611350,00 29095,50 2362,50 623475,00 12,70 3219,00 400,00 12068,00 161,29 10361961,00 160000,00 145636624,00 153263,60 38846892,00 4827200,00 40881,30 5080,00 1287600,00 56,00 8213,00 650,00 33008,00 3136,00 67453369,00 422500,00 1089528064,00 1848448,00 271094704,00 21455200,00 459928,00 36400,00 5338450,00 1,60 618,00 250,00 2914,00 2,56 381924,00 62500,00 8491396,00 4662,40 1800852,00 728500,00 988,80 400,00 154500,00 2,00 256,00 350,00 2080,00 4,00 65536,00 122500,00 4326400,00 4160,00 532480,00 728000,00 512,00 700,00 89600,00 14,00 1344,00 150,00 5946,00 196,00 1806336,00 22500,00 35354916,00 83244,00 7991424,00 891900,00 18816,00 2100,00 201600,00 7,90 1736,00 750,00 8116,00 62,41 3013696,00 562500,00 65869456,00 64116,40 14089376,00 6087000,00 13714,40 5925,00 1302000,00 14,80 2176,00 600,00 9331,00 219,04 4734976,00 360000,00 87067561,00 138098,80 20304256,00 5598600,00 32204,80 8880,00 1305600,00 40,80 22848,00 425,00 51559,00 1664,64 522031104,00 180625,00 2658330481,00 2103607,20 1178020032,00 21912575,00 932198,40 17340,00 9710400,00 16,20 3053,00 375 14669,00 262,44 9320809,00 140625,00 215179561,00 237637,80 44784457,00 5500875,00 49458,60 6075,00 1144875,00 37,20 7079,00 251,00 33955,00 1383,84 50112241,00 63001,00 1152942025,00 1263126,00 240367445,00 8522705,00 263338,80 9337,20 1776829,00 14,80 3741,00 242 17412,00 219,04 13995081,00 58564,00 303177744,00 257697,60 65138292,00 4213704,00 55366,80 3581,60 905322,00 8,90 2075,00 200,00 9217,00 79,21 4305625,00 40000,00 84953089,00 82031,30 19125275,00 1843400,00 18467,50 1780,00 415000,00 64,70 15277,00 350,00 56175,00 4186,09 233386729,00 122500,00 3155630625,00 3634522,50 858185475,00 19661250,00 988421,90 22645,00 5346950,00 11,20 2960,00 625,00 10951,00 125,44 8761600,00 390625,00 119924401,00 122651,20 32414960,00 6844375,00 33152,00 7000,00 1850000,00 15,20 1457,00 275,00 5392,00 231,04 2122849,00 75625,00 29073664,00 81958,40 7856144,00 1482800,00 22146,40 4180,00 400675,00 10,00 3010,00 242,00 9902,00 100,00 9060100,00 58564,00 98049604,00 99020,00 29805020,00 2396284,00 30100,00 2420,00 728420,00 41,30 7455,00 575,00 25731,00 1705,69 55577025,00 330625,00 662084361,00 1062690,30 191824605,00 14795325,00 307891,50 23747,50 4286625,00 19,30 5307,00 350,00 16228,00 372,49 28164249,00 122500,00 263347984,00 313200,40 86121996,00 5679800,00 102425,10 6755,00 1857450,00 18,00 11374,00 175,00 23928,00 324,00 129367876,00 30625,00 572549184,00 430704,00 272157072,00 4187400,00 204732,00 3150,00 1990450,00 3,80 783,00 150,00 3105,00 14,44 613089,00 22500,00 9641025,00 11799,00 2431215,00 465750,00 2975,40 570,00 117450,00 9,00 4282,00 125,00 9150,00 81,00 18335524,00 15625,00 83722500,00 82350,00 39180300,00 1143750,00 38538,00 1125,00 535250,00 4,00 2155,00 400,00 4917,00 16,00 4644025,00 160000,00 24176889,00 19668,00 10596135,00 1966800,00 8620,00 1600,00 862000,00 4,00 800,00 250,00 3329,00 16,00 640000,00 62500,00 11082241,00 13316,00 2663200,00 832250,00 3200,00 1000,00 200000,00 1,70 515,00 500 3028,00 2,89 265225,00 250000,00 9168784,00 5147,60 1559420,00 1514000,00 875,50 850,00 257500,00 29,60 7281,00 475,00 27106,00 876,16 53012961,00 225625,00 734735236,00 802337,60 197358786,00 12875350,00 215517,60 14060,00 3458475,00 132,00 31155,00 250,00 116120,00 17424,00 970634025,00 62500,00 13483854400,00 15327840,00 3617718600,00 29030000,00 4112460,00 33000,00 7788750,00 93,40 17801,00 300,00 65934,00 8723,56 316875601,00 90000,00 4347292356,00 6158235,60 1173691134,00 19780200,00 1662613,40 28020,00 5340300,00 2,70 579,00 400,00 3229,00 7,29 335241,00 160000,00 10426441,00 8718,30 1869591,00 1291600,00 1563,30 1080,00 231600,00 15,00 3076,00 100,00 11395,00 225,00 9461776,00 10000,00 129846025,00 170925,00 35051020,00 1139500,00 46140,00 1500,00 307600,00 1,40 280,00 250,00 1391,00 1,96 78400,00 62500,00 1934881,00 1947,40 389480,00 347750,00 392,00 350,00 70000,00 142,20 25605,00 200,00 122881,00 20220,84 655616025,00 40000,00 15099740161,00 17473678,20 3146368005,00 24576200,00 3641031,00 28440,00 5121000,00 29,10 7960,00 150,00 32165,00 846,81 63361600,00 22500,00 1034587225,00 936001,50 256033400,00 4824750,00 231636,00 4365,00 1194000,00 4,70 1798,00 200,00 3710,00 22,09 3232804,00 40000,00 13764100,00 17437,00 6670580,00 742000,00 8450,60 940,00 359600,00 14,10 3212,00 50,00 11447,00 198,81 10316944,00 2500,00 131033809,00 161402,70 36767764,00 572350,00 45289,20 705,00 160600,00 33,70 10216,00 100 35291,00 1135,69 104366656,00 10000,00 1245454681,00 1189306,70 360532856,00 3529100,00 344279,20 3370,00 1021600,00 32,60 10532,00 150,00 45409,00 1062,76 110923024,00 22500,00 2061977281,00 1480333,40 478247588,00 6811350,00 343343,20 4890,00 1579800,00 4,40 3600,00 125,00 13820,00 19,36 12960000,00 15625,00 190992400,00 60808,00 49752000,00 1727500,00 15840,00 550,00 450000,00 59,30 20129,00 75,00 67672,00 3516,49 405176641,00 5625,00 4579499584,00 4012949,60 1362169688,00 5075400,00 1193649,70 4447,50 1509675,00 119,30 33472,00 175,00 122329,00 14232,49 1120374784,00 30625,00 14964384241,00 14593849,70 4094596288,00 21407575,00 3993209,60 20877,50 5857600,00 45,40 9455,00 125,00 35959,00 2061,16 89397025,00 15625,00 1293049681,00 1632538,60 339992345,00 4494875,00 429257,00 5675,00 1181875,00 1,00 192,00 75 836,00 1,00 36864,00 5625,00 698896,00 836,00 160512,00 62700,00 192,00 75,00 14400,00 54,00 9444,00 75,00 45448,00 2916,00 89189136,00 5625,00 2065520704,00 2454192,00 429210912,00 3408600,00 509976,00 4050,00 708300,00 14,00 3467,00 75,00 15833,00 196,00 12020089,00 5625,00 250683889,00 221662,00 54893011,00 1187475,00 48538,00 1050,00 260025,00 43,10 16403,00 100,00 60623,00 1857,61 269058409,00 10000,00 3675148129,00 2612851,30 994399069,00 6062300,00 706969,30 4310,00 1640300,00 52,20 8811,00 150,00 31470,00 2724,84 77633721,00 22500,00 990360900,00 1642734,00 277282170,00 4720500,00 459934,20 7830,00 1321650,00 24,20 4474,00 200,00 8678,00 585,64 20016676,00 40000,00 75307684,00 210007,60 38825372,00 1735600,00 108270,80 4840,00 894800,00 35,30 6038,00 300,00 22414,00 1246,09 36457444,00 90000,00 502387396,00 791214,20 135335732,00 6724200,00 213141,40 10590,00 1811400,00 44,90 9434,00 275,00 33811,00 2016,01 89000356,00 75625,00 1143183721,00 1518113,90 318972974,00 9298025,00 423586,60 12347,50 2594350,00 10,70 2573,00 300,00 8712,00 114,49 6620329,00 90000,00 75898944,00 93218,40 22415976,00 2613600,00 27531,10 3210,00 771900,00 43,90 10769,00 150,00 38252,00 1927,21 115971361,00 22500,00 1463215504,00 1679262,80 411935788,00 5737800,00 472759,10 6585,00 1615350,00 4,20 1366,00 50,00 2644,00 17,64 1865956,00 2500,00 6990736,00 11104,80 3611704,00 132200,00 5737,20 210,00 68300,00 28,90 7070,00 350 30678,00 835,21 49984900,00 122500,00 941139684,00 886594,20 216893460,00 10737300,00 204323,00 10115,00 2474500,00 32,50 7309,00 175 23585,00 1056,25 53421481,00 30625,00 556252225,00 766512,50 172382765,00 4127375,00 237542,50 5687,50 1279075,00 39,50 8804,00 250,00 41544,00 1560,25 77510416,00 62500,00 1725903936,00 1640988,00 365753376,00 10386000,00 347758,00 9875,00 2201000,00 86,30 20257,00 200,00 80357,00 7447,69 410346049,00 40000,00 6457247449,00 6934809,10 1627791749,00 16071400,00 1748179,10 17260,00 4051400,00 47,10 11066,00 200,00 46835,00 2218,41 122456356,00 40000,00 2193517225,00 2205928,50 518276110,00 9367000,00 521208,60 9420,00 2213200,00 9,80 158,00 350,00 9501,00 96,04 24964,00 122500,00 90269001,00 93109,80 1501158,00 3325350,00 1548,40 3430,00 55300,00 14,10 3196,00 250,00 6662,00 198,81 10214416,00 62500,00 44382244,00 93934,20 21291752,00 1665500,00 45063,60 3525,00 799000,00 49,10 8015,00 275,00 27630,00 2410,81 64240225,00 75625,00 763416900,00 1356633,00 221454450,00 7598250,00 393536,50 13502,50 2204125,00 20,00 2527,00 350,00 9928,00 400,00 6385729,00 122500,00 98565184,00 198560,00 25088056,00 3474800,00 50540,00 7000,00 884450,00 8,00 1533,00 225,00 6114,00 64,00 2350089,00 50625,00 37380996,00 48912,00 9372762,00 1375650,00 12264,00 1800,00 344925,00 3,60 538,00 350,00 2099,00 12,96 289444,00 122500,00 4405801,00 7556,40 1129262,00 734650,00 1936,80 1260,00 188300,00 3,20 151,00 325,00 669,00 10,24 22801,00 105625,00 447561,00 2140,80 101019,00 217425,00 483,20 1040,00 49075,00 38,70 10201,00 175,00 39902,00 1497,69 104060401,00 30625,00 1592169604,00 1544207,40 407040302,00 6982850,00 394778,70 6772,50 1785175,00 34,50 6117,00 350,00 20498,00 1190,25 37417689,00 122500,00 420168004,00 707181,00 125386266,00 7174300,00 211036,50 12075,00 2140950,00 45,00 9852,00 250,00 44983,00 2025,00 97061904,00 62500,00 2023470289,00 2024235,00 443172516,00 11245750,00 443340,00 11250,00 2463000,00 33,00 9067,00 150,00 29751,00 1089,00 82210489,00 22500,00 885122001,00 981783,00 269752317,00 4462650,00 299211,00 4950,00 1360050,00 29,60 9960,00 175,00 33729,00 876,16 99201600,00 30625,00 1137645441,00 998378,40 335940840,00 5902575,00 294816,00 5180,00 1743000,00 36,80 10903,00 100,00 34782,00 1354,24 118875409,00 10000,00 1209787524,00 1279977,60 379228146,00 3478200,00 401230,40 3680,00 1090300,00 17,90 4396,00 200,00 14617,00 320,41 19324816,00 40000,00 213656689,00 261644,30 64256332,00 2923400,00 78688,40 3580,00 879200,00 37,30 11935,00 325,00 39287,00 1391,29 142444225,00 105625,00 1543468369,00 1465405,10 468890345,00 12768275,00 445175,50 12122,50 3878875,00 24,60 7790,00 125,00 25592,00 605,16 60684100,00 15625,00 654950464,00 629563,20 199361680,00 3199000,00 191634,00 3075,00 973750,00 11,20 2844,00 150,00 9528,00 125,44 8088336,00 22500,00 90782784,00 106713,60 27097632,00 1429200,00 31852,80 1680,00 426600,00 2461,70 594415,00 21843,00 2180121,00 153096,27 8872755053,00 9129504,00 122990275417,00 134844367,40 32563038847,00 553613043,00 35616512,20 651973,80 152409821,00
57
Lampiran 3. Flowchart Program Uji Korelasi Ganda mulai
Import data dari excel
TIDAK Data YA Data tampil
Edit data
TIDAK Olah data YA Masukan nilai sig
Besar nilai signifikansi
5%
Memuat nilai untuk taraf signifikansi 5% dari tabel tb_f_5persen
1% Memuat nilai untuk taraf signifikansi 1% dari tabel tb_f_1persen
Uji korelasi ganda menggunakan taraf signifikansi 1 persen
Hasil perhitungan
selesai
Uji korelasi ganda menggunakan taraf signifikansi 5 persen
58
Lampiran 4. Kode Program Lembar kerja
Dim koneksi As New MYSQL_CONNECTION Dim rsa As New MYSQL_RS Dim db As Connection Dim rs As Recordset Dim eksel As Excel.Application Dim wb As Excel.Workbook Dim ws As Excel.Worksheet Sub koneksis() Set db = New Connection db.CursorLocation = adUseClient db.Open "db_korelasi" End Sub Private Sub Command1_Click() Text10.Text = CDec(Text8.Text) / CDec(Text9.Text) MSFlexGrid10.TextMatrix(1, 2) = Text10.Text End Sub
59
Private Sub Command2_Click() kp = Text7.Text For t = 1 To kp f = Text6.Text y = MSFlexGrid10.TextMatrix(1, t) If y = "" Then MSFlexGrid10.TextMatrix(2, t) = MSFlexGrid9.TextMatrix(f, t) Else MSFlexGrid10.TextMatrix(2, t) = MSFlexGrid9.TextMatrix(f, t) * MSFlexGrid10.TextMatrix(1, t) End If Next t End Sub Private Sub Command3_Click() uk = Text1.Text uu = Text4.Text For el = 1 To uu For ul = 1 To Label5.Caption MSFlexGrid7.TextMatrix(ul, el) = CDec(MSFlexGrid7.TextMatrix(ul, el)) / CDec(MSFlexGrid7.TextMatrix(ul, uk)) Next ul Next el Text1.Text = Text1.Text - 1 Text4.Text = Text4.Text - 1 End Sub Private Sub Command4_Click() p = Text3.Text For t = 1 To Label6.Caption
60
For u = 1 To Label5.Caption + 1 MSFlexGrid2.TextMatrix(t, u) = Val(MSFlexGrid1.TextMatrix(t, p)) * Val(MSFlexGrid1.TextMatrix(t, u)) Next u Next t Text3.Text = Text3.Text + 1 End Sub Private Sub Command5_Click() n = Text2.Text For b = 1 To Label5.Caption + 1 For Z = 1 To Label6.Caption MSFlexGrid5.TextMatrix(n, b) = Val(MSFlexGrid5.TextMatrix(n, b)) + Val(MSFlexGrid2.TextMatrix(Z, b)) Next Z Next b Text2.Text = Text2.Text + 1 End Sub Private Sub Command6_Click() For qw = 1 To Label5.Caption - 1 For qx = 1 To Label5.Caption + 1 MSFlexGrid7.TextMatrix(qw, qx) = MSFlexGrid7.TextMatrix(qw, qx) MSFlexGrid7.TextMatrix(qw + 1, qx) Next qx Next qw End Sub Private Sub Command7_Click() w = Text7.Text For e = 1 To w
61
MSFlexGrid10.TextMatrix(2, 1) = MSFlexGrid10.TextMatrix(2, 1) MSFlexGrid10.TextMatrix(2, e) Next e MSFlexGrid10.TextMatrix(1, w) = MSFlexGrid10.TextMatrix(2, 1) Text7.Text = Text7.Text + 1 Text6.Text = Text6.Text - 1 End Sub Private Sub Command8_Click() 'menggambar tabel bantu dulu MSFlexGrid2.Rows = Label6.Caption + 1 MSFlexGrid2.Cols = Label5.Caption + 2 MSFlexGrid3.Rows = 4 MSFlexGrid3.Cols = Label5.Caption + 2 MSFlexGrid5.Rows = Label5.Caption + 2 MSFlexGrid5.Cols = Label5.Caption + 2 MSFlexGrid6.Rows = Label5.Caption + 2 MSFlexGrid6.Cols = Label5.Caption + 2 MSFlexGrid8.Rows = Label5.Caption + 2 MSFlexGrid8.Cols = Label5.Caption + 2 MSFlexGrid7.Rows = Label5.Caption + 1 MSFlexGrid7.Cols = Label5.Caption + 2 MSFlexGrid9.Rows = Label5.Caption + 1 MSFlexGrid9.Cols = Label5.Caption + 2 MSFlexGrid10.Rows = Label5.Caption + 1 MSFlexGrid10.Cols = Label5.Caption + 2 MSFlexGrid11.Rows = 5 MSFlexGrid11.Cols = Label5.Caption + 2 'menamai tabel
62
MSFlexGrid5.TextMatrix(0, 1) = "y" MSFlexGrid5.TextMatrix(1, 0) = "y" For nama = 2 To Label5.Caption + 1 MSFlexGrid5.TextMatrix(nama, 0) = nama - 1 Next nama For neme = 2 To Label5.Caption + 1 MSFlexGrid5.TextMatrix(0, neme) = neme - 1 Next neme 'menghitung jumlah dari masing2 variabel (x dan y) For k = 1 To Label5.Caption + 1 For bariz = 1 To Label6.Caption MSFlexGrid3.TextMatrix(1, k) = Val(MSFlexGrid3.TextMatrix(1, k)) + Val(MSFlexGrid1.TextMatrix(bariz, k)) Next bariz Next k 'menghitung x1 kuadrat sampai xn dan y kuadrat For c = 1 To Label5.Caption + 1 For b = 1 To Label6.Caption MSFlexGrid2.TextMatrix(b, c) = Val(MSFlexGrid1.TextMatrix(b, c)) ^ 2 Next b Next c 'menghitung jumlah dari x1 kuadrat sampai y kuadrat For kl = 1 To Label5.Caption + 1 For br = 1 To Label6.Caption MSFlexGrid3.TextMatrix(2, kl) = Val(MSFlexGrid3.TextMatrix(2, kl)) + Val(MSFlexGrid2.TextMatrix(br, kl)) Next br Next kl
63
'menghitung variabel x dikalikan variabel y MSFlexGrid2.Clear For clm = 1 To Label5.Caption + 1 For brz = 1 To Label6.Caption MSFlexGrid2.TextMatrix(brz, clm) = Val(MSFlexGrid1.TextMatrix(brz, clm)) * Val(MSFlexGrid1.TextMatrix(brz, 1)) Next brz Next clm 'menghitung jumlah variabel x dikalikan variabel y For kll = 1 To Label5.Caption + 1 For brr = 1 To Label6.Caption MSFlexGrid3.TextMatrix(3, kll) = Val(MSFlexGrid3.TextMatrix(3, kll)) + Val(MSFlexGrid2.TextMatrix(brr, kll)) Next brr Next kll 'menghitung variabel x1 dikalikan xn MSFlexGrid2.Clear Text3.Text = 1 Text2.Text = 1 For xc = 1 To Label5.Caption + 1 Call Command4_Click Call Command5_Click Next xc 'menghitung skor deviasi x&y kuadrat For std = 1 To Label5.Caption + 1 MSFlexGrid6.TextMatrix(1, std) = Val(MSFlexGrid3.TextMatrix(1, std)) ^ 2 / Label6.Caption MSFlexGrid6.TextMatrix(1, std) = CDec(MSFlexGrid3.TextMatrix(2, std)) CDec(MSFlexGrid6.TextMatrix(1, std))
64
Next std 'menghitung deviasi x kali y For ssd = 1 To Label5.Caption + 1 MSFlexGrid6.TextMatrix(2, ssd) = Val(MSFlexGrid3.TextMatrix(1, 1)) * Val(MSFlexGrid3.TextMatrix(1, ssd)) / Label6.Caption MSFlexGrid6.TextMatrix(2, ssd) = CDec(MSFlexGrid3.TextMatrix(3, ssd)) CDec(MSFlexGrid6.TextMatrix(2, ssd)) Next ssd 'menghitung skor deviasi For sfd = 1 To Label5.Caption + 1 For scd = 1 To Label5.Caption + 1 MSFlexGrid8.TextMatrix(sfd, scd) = Val(MSFlexGrid3.TextMatrix(1, sfd)) * Val(MSFlexGrid3.TextMatrix(1, scd)) / Label6.Caption MSFlexGrid8.TextMatrix(sfd, scd) = CDec(MSFlexGrid5.TextMatrix(sfd, scd)) CDec(MSFlexGrid8.TextMatrix(sfd, scd)) Next scd Next sfd 'membuat persamaan For pb = 1 To Label5.Caption For pers = 1 To Label5.Caption + 1 MSFlexGrid7.TextMatrix(pb, pers) = MSFlexGrid8.TextMatrix(pb + 1, pers) Next pers Next pb 'eliminasi perulangan Text1.Text = Label5.Caption + 1 Text4.Text = Label5.Caption + 1 Text5.Text = 1 For eliminasi = 1 To Label5.Caption - 1 tls = Text5.Text
65
For tu = 1 To Label5.Caption + 1 MSFlexGrid9.TextMatrix(tls, tu) = MSFlexGrid7.TextMatrix(1, tu) Next tu Text5.Text = Text5.Text + 1 Call Command3_Click Call Command6_Click Next eliminasi Text8.Text = CDec(MSFlexGrid7.TextMatrix(1, 1)) Text9.Text = CDec(MSFlexGrid7.TextMatrix(1, 2)) 'mencari nilai a1 sampai an Call Command1_Click Text7.Text = "3" Text6.Text = Label5.Caption - 1 For jk = 1 To Label5.Caption - 1 Call Command2_Click Call Command7_Click Next jk 'mencari nilai R For gz = 1 To Label5.Caption + 1 MSFlexGrid11.TextMatrix(1, gz) = MSFlexGrid5.TextMatrix(1, gz) MSFlexGrid11.TextMatrix(2, gz) = MSFlexGrid10.TextMatrix(1, gz) Next gz For gx = 2 To Label5.Caption + 1 MSFlexGrid11.TextMatrix(3, gx) = MSFlexGrid11.TextMatrix(1, gx) * MSFlexGrid11.TextMatrix(2, gx) Next gx For gs = 2 To Label5.Caption + 1
66
MSFlexGrid11.TextMatrix(4, 1) = Val(MSFlexGrid11.TextMatrix(4, 1)) + Val(MSFlexGrid11.TextMatrix(3, gs)) Next gs 'mencari nilai R MSFlexGrid11.TextMatrix(4, 2) = MSFlexGrid11.TextMatrix(4, 1) / MSFlexGrid11.TextMatrix(1, 1) 'mencari R kuadrat MSFlexGrid11.TextMatrix(4, 3) = MSFlexGrid11.TextMatrix(4, 2) ^ 2 'mencari nilai f rku = MSFlexGrid11.TextMatrix(4, 3) mj = Label5.Caption nj = Label6.Caption up = rku * (nj - mj - 1) dw = mj * (1 - rku) ff = up / dw Text5.Text = ff Form2.Show End Sub Private Sub Command9_Click() For y = 1 To 99 Set rs = New Recordset rs.Open "data", db, adOpenDynamic, adLockOptimistic 'rs.Find "n='" + Text15.Text + "'", , adSearchForward, 1 rs.Delete On Error Resume Next Next y End Sub
67
Private Sub def_Click() Form3.Show
'menggambar tabel bantu dulu MSFlexGrid2.Rows = Label6.Caption + 1 MSFlexGrid2.Cols = Label5.Caption + 2 MSFlexGrid3.Rows = 4 MSFlexGrid3.Cols = Label5.Caption + 2 MSFlexGrid5.Rows = Label5.Caption + 2 MSFlexGrid5.Cols = Label5.Caption + 2 MSFlexGrid6.Rows = Label5.Caption + 2 MSFlexGrid6.Cols = Label5.Caption + 2 MSFlexGrid8.Rows = Label5.Caption + 2 MSFlexGrid8.Cols = Label5.Caption + 2 MSFlexGrid7.Rows = Label5.Caption + 1 MSFlexGrid7.Cols = Label5.Caption + 2 MSFlexGrid9.Rows = Label5.Caption + 1 MSFlexGrid9.Cols = Label5.Caption + 2 MSFlexGrid10.Rows = Label5.Caption + 1 MSFlexGrid10.Cols = Label5.Caption + 2 MSFlexGrid11.Rows = 5 MSFlexGrid11.Cols = Label5.Caption + 2 'menamai tabel MSFlexGrid5.TextMatrix(0, 1) = "y" MSFlexGrid5.TextMatrix(1, 0) = "y" For nama = 2 To Label5.Caption + 1 MSFlexGrid5.TextMatrix(nama, 0) = nama - 1
68
Next nama For neme = 2 To Label5.Caption + 1 MSFlexGrid5.TextMatrix(0, neme) = neme - 1 Next neme 'menghitung jumlah dari masing2 variabel (x dan y) For k = 1 To Label5.Caption + 1 For bariz = 1 To Label6.Caption MSFlexGrid3.TextMatrix(1, k) = Val(MSFlexGrid3.TextMatrix(1, k)) + Val(MSFlexGrid1.TextMatrix(bariz, k)) Next bariz Next k 'menghitung x1 kuadrat sampai xn dan y kuadrat For c = 1 To Label5.Caption + 1 For b = 1 To Label6.Caption MSFlexGrid2.TextMatrix(b, c) = Val(MSFlexGrid1.TextMatrix(b, c)) ^ 2 Next b Next c 'menghitung jumlah dari x1 kuadrat sampai y kuadrat For kl = 1 To Label5.Caption + 1 For br = 1 To Label6.Caption MSFlexGrid3.TextMatrix(2, kl) = Val(MSFlexGrid3.TextMatrix(2, kl)) + Val(MSFlexGrid2.TextMatrix(br, kl)) Next br Next kl 'menghitung variabel x dikalikan variabel y MSFlexGrid2.Clear For clm = 1 To Label5.Caption + 1 For brz = 1 To Label6.Caption
69
MSFlexGrid2.TextMatrix(brz, clm) = Val(MSFlexGrid1.TextMatrix(brz, clm)) * Val(MSFlexGrid1.TextMatrix(brz, 1)) Next brz Next clm 'menghitung jumlah variabel x dikalikan variabel y For kll = 1 To Label5.Caption + 1 For brr = 1 To Label6.Caption MSFlexGrid3.TextMatrix(3, kll) = Val(MSFlexGrid3.TextMatrix(3, kll)) + Val(MSFlexGrid2.TextMatrix(brr, kll)) Next brr Next kll 'menghitung variabel x1 dikalikan xn MSFlexGrid2.Clear Text3.Text = 1 Text2.Text = 1 For xc = 1 To Label5.Caption + 1 Call Command4_Click Call Command5_Click Next xc 'menghitung skor deviasi x&y kuadrat For std = 1 To Label5.Caption + 1 MSFlexGrid6.TextMatrix(1, std) = Val(MSFlexGrid3.TextMatrix(1, std)) ^ 2 / Label6.Caption MSFlexGrid6.TextMatrix(1, std) = CDec(MSFlexGrid3.TextMatrix(2, std)) CDec(MSFlexGrid6.TextMatrix(1, std)) Next std 'menghitung deviasi x kali y For ssd = 1 To Label5.Caption + 1 MSFlexGrid6.TextMatrix(2, ssd) = Val(MSFlexGrid3.TextMatrix(1, 1)) * Val(MSFlexGrid3.TextMatrix(1, ssd)) / Label6.Caption
70
MSFlexGrid6.TextMatrix(2, ssd) = CDec(MSFlexGrid3.TextMatrix(3, ssd)) CDec(MSFlexGrid6.TextMatrix(2, ssd)) Next ssd 'menghitung skor deviasi For sfd = 1 To Label5.Caption + 1 For scd = 1 To Label5.Caption + 1 MSFlexGrid8.TextMatrix(sfd, scd) = Val(MSFlexGrid3.TextMatrix(1, sfd)) * Val(MSFlexGrid3.TextMatrix(1, scd)) / Label6.Caption MSFlexGrid8.TextMatrix(sfd, scd) = CDec(MSFlexGrid5.TextMatrix(sfd, scd)) CDec(MSFlexGrid8.TextMatrix(sfd, scd)) Next scd Next sfd 'membuat persamaan For pb = 1 To Label5.Caption For pers = 1 To Label5.Caption + 1 MSFlexGrid7.TextMatrix(pb, pers) = MSFlexGrid8.TextMatrix(pb + 1, pers) Next pers Next pb 'eliminasi perulangan Text1.Text = Label5.Caption + 1 Text4.Text = Label5.Caption + 1 Text5.Text = 1 For eliminasi = 1 To Label5.Caption - 1 tls = Text5.Text For tu = 1 To Label5.Caption + 1 MSFlexGrid9.TextMatrix(tls, tu) = MSFlexGrid7.TextMatrix(1, tu) Next tu Text5.Text = Text5.Text + 1 Call Command3_Click
71
Call Command6_Click Next eliminasi Text8.Text = CDec(MSFlexGrid7.TextMatrix(1, 1)) Text9.Text = CDec(MSFlexGrid7.TextMatrix(1, 2)) 'mencari nilai a1 sampai an Call Command1_Click Text7.Text = "3" Text6.Text = Label5.Caption - 1 For jk = 1 To Label5.Caption - 1 Call Command2_Click Call Command7_Click Next jk 'mencari nilai R For gz = 1 To Label5.Caption + 1 MSFlexGrid11.TextMatrix(1, gz) = MSFlexGrid5.TextMatrix(1, gz) MSFlexGrid11.TextMatrix(2, gz) = MSFlexGrid10.TextMatrix(1, gz) Next gz For gx = 2 To Label5.Caption + 1 MSFlexGrid11.TextMatrix(3, gx) = MSFlexGrid11.TextMatrix(1, gx) * MSFlexGrid11.TextMatrix(2, gx) Next gx For gs = 2 To Label5.Caption + 1 MSFlexGrid11.TextMatrix(4, 1) = Val(MSFlexGrid11.TextMatrix(4, 1)) + Val(MSFlexGrid11.TextMatrix(3, gs)) Next gs 'mencari nilai R MSFlexGrid11.TextMatrix(4, 2) = MSFlexGrid11.TextMatrix(4, 1) / MSFlexGrid11.TextMatrix(1, 1) 'mencari R kuadrat
72
MSFlexGrid11.TextMatrix(4, 3) = MSFlexGrid11.TextMatrix(4, 2) ^ 2 'mencari nilai f rku = MSFlexGrid11.TextMatrix(4, 3) mj = Label5.Caption nj = Label6.Caption up = rku * (nj - mj - 1) dw = mj * (1 - rku) ff = up / dw Text5.Text = ff 'menentukan f tabel 1 persen rsa.CloseRecordset rsa.OpenRs "select * from tb_f_1persen", koneksi With rsa jumlaha = rsa.RecordCount MSFlexGrid13.Rows = 100 MSFlexGrid13.Cols = 100 .MoveFirst Do barisa = barisa + 1 MSFlexGrid13.Row = barisa MSFlexGrid13.TextMatrix(barisa, 0) = barisa For koloma = 1 To .RecordCount MSFlexGrid13.TextMatrix(0, koloma) = .Fields(koloma - 1).Name MSFlexGrid13.TextMatrix(barisa, koloma) = .Fields(koloma - 1) Next .MoveNext Loop Until .EOF
73
End With '-------------------------------------------------------------------------------------------------------------------------------------'menentukan f tabel 5 persen rsa.CloseRecordset rsa.OpenRs "select * from tb_f_5persen", koneksi With rsa jumlahe = rsa.RecordCount MSFlexGrid14.Rows = 100 MSFlexGrid14.Cols = 100 .MoveFirst Do barise = barise + 1 MSFlexGrid14.Row = barise MSFlexGrid14.TextMatrix(barise, 0) = barise For kolome = 1 To .RecordCount MSFlexGrid14.TextMatrix(0, kolome) = .Fields(kolome - 1).Name MSFlexGrid14.TextMatrix(barise, kolome) = .Fields(kolome - 1) Next .MoveNext Loop Until .EOF End With End Sub Private Sub deletedata_Click() Form5.Visible = True End Sub Private Sub editdata_Click() Form4.Show
74
End Sub Private Sub exit_Click() End End Sub Private Sub Form_Load() koneksis MSFlexGrid12.Rows = 100 MSFlexGrid12.Cols = 100 koneksi.OpenConnection "localhost", "root", "123dsa", "db_korelasi", 3306 def.Enabled = False adddata.Enabled = False editdata.Enabled = False deletedata.Enabled = False tamvar.Enabled = False hapvar.Enabled = False save.Enabled = False End Sub Private Sub hapvar_Click() Form9.Show End Sub Private Sub openfromexcel_Click() adddata.Enabled = True editdata.Enabled = True deletedata.Enabled = True def.Enabled = True tamvar.Enabled = True save.Enabled = True
75
hapvar.Enabled = True startexcel 'buka common dialog open CommonDialog1.DialogTitle = "membuka" CommonDialog1.ShowOpen nama = CommonDialog1.FileName If CommonDialog1.FileName = "" Then asdn = 1 Else Set wb = eksel.Workbooks.Open(nama) 'MsgBox "berhasil" Set ws = eksel.Worksheets(1) 'MsgBox "berhasil membuat worksheet" Dim i As Integer, baris As Integer, strdata As String MSFlexGrid1.Cols = 100 MSFlexGrid1.Rows = 100 For i = 1 To 99 For j = 1 To 99 MSFlexGrid1.TextMatrix(i - 1, j) = ws.Cells(i, j) Next j Next i CloseWorksheet ClearExcelMemory For i = 1 To 99 nn = MSFlexGrid1.TextMatrix(1, i) mm = MSFlexGrid1.TextMatrix(i, 1) If nn = "" Then
76
xx = cx Else Label5.Caption = i - 1 End If If mm = "" Then xv = cx Else Label6.Caption = i End If Next i Label4.Caption = 1 Label1.Visible = True Label2.Visible = True Label3.Visible = True For axi = 1 To 99 Text12.Text = axi MSFlexGrid1.TextMatrix(axi, 0) = Text12.Text Next axi End If End Sub Private Sub save_Click() Call FlexToExcel End Sub Private Sub CloseWorksheet() On Error Resume Next wb.Close eksel.Quit
77
End Sub Private Sub ClearExcelMemory() If Not ws Is Nothing Then Set ws = Nothing If Not wb Is Nothing Then Set wb = Nothing If Not eksel Is Nothing Then Set eksel = Nothing End Sub Private Sub startexcel() On Error GoTo salah Set eksel = GetObject(, "excel.Application") Exit Sub salah: Set eksel = CreateObject("excel.Application") End Sub Private Sub tamvar_Click() Form8.Show Form8.Visible = True End Sub Private Sub tentang_Click() Form7.Show End Sub Private Sub FlexToExcel() Dim xlObject As Excel.Application Dim xlWB
As Excel.Workbook
Set xlObject = New Excel.Application 'This Adds a new woorkbook, you could open the workbook from file also Set xlWB = xlObject.Workbooks.Add Clipboard.Clear 'Clear the Clipboard
78
With MSFlexGrid1 'Select Full Contents (You could also select partial content) .Col = 1 .Row = 0
'From first column 'From first Row (header)
.ColSel = .Cols - 1 'Select all columns .RowSel = .Rows - 1 'Select all rows Clipboard.SetText .Clip 'Send to Clipboard End With With xlObject.ActiveWorkbook.ActiveSheet .Range("A1").Select 'Select Cell A1 (will paste from here, to different cells) .Paste
'Paste clipboard contents
End With ' This makes Excel visible xlObject.Visible = True End Sub
79
Lampiran 5. Kode Program Tambah Variabel
Private Sub Command1_Click() For l = 1 To MSFlexGrid1.Rows - 1 If MSFlexGrid1.TextMatrix(l, 1) = "" Then MSFlexGrid1.TextMatrix(0, 0) = MSFlexGrid1.TextMatrix(0, 0) Command2.Enabled = False Else Command2.Enabled = True End If Next l If Combo1.Text = "" Or Text1.Text = "" Then MsgBox "maaf" Else MSFlexGrid1.TextMatrix(Combo1.Text, 1) = Text1.Text End If End Sub Private Sub Command2_Click() If Text2.Text = "" Then MsgBox "maaf"
80
Else Form1.MSFlexGrid1.TextMatrix(0, v) = Text2.Text v = Form1.Label5.Caption + 2 For n = 1 To MSFlexGrid1.Rows - 1 Form1.MSFlexGrid1.TextMatrix(n, v) = MSFlexGrid1.TextMatrix(n, 1) Next n End If Form1.Label5.Caption = Form1.Label5.Caption + 1 Form1.MSFlexGrid1.TextMatrix(0, Form1.Label5.Caption + 1) = Text2.Text Form8.Visible = False Form8.Hide End Sub
Private Sub Form_Load() Command2.Enabled = False MSFlexGrid1.Rows = Form1.Label6.Caption + 1 Combo1.Clear Combo1.Text = "--Pilih--" For n = 1 To MSFlexGrid1.Rows - 1 MSFlexGrid1.TextMatrix(n, 0) = n Next n
For d = 1 To MSFlexGrid1.Rows - 1 Combo1.AddItem (MSFlexGrid1.TextMatrix(d, 0)) Next d End Sub
81
Lampiran 6. Kode Program Tambah Data
Private Sub Command1_Click() For k = 1 To MSFlexGrid1.Rows - 1 If MSFlexGrid1.TextMatrix(k, 0) = Combo1.Text Then MSFlexGrid1.TextMatrix(k, 1) = Text1.Text Else End If Next k
For e = 1 To MSFlexGrid1.Rows - 1 If MSFlexGrid1.TextMatrix(e, 1) = "" Then Command2.Enabled = False Else Command2.Enabled = True End If Next e End Sub
82
Private Sub Command2_Click() Text2.Text = Form1.Label6.Caption + 1 For j = 1 To MSFlexGrid1.Rows - 1 Form1.MSFlexGrid1.TextMatrix(Text2.Text, j) = MSFlexGrid1.TextMatrix(j, 1) Next j Form1.Label6.Caption = Form1.Label6.Caption + 1 Form6.Hide Form6.Visible = False End Sub
Private Sub Form_Load() Command2.Enabled = False MSFlexGrid1.ColWidth(1) = 2800 MSFlexGrid1.Rows = Form1.Label5.Caption + 2 For t = 1 To Form1.Label5.Caption + 1 Text2.Text = t MSFlexGrid1.TextMatrix(t, 0) = Form1.MSFlexGrid1.TextMatrix(0, t) Next t
Combo1.Clear Combo1.Text = "--Pilih--" For a = 1 To MSFlexGrid1.Rows - 1 Combo1.AddItem (MSFlexGrid1.TextMatrix(a, 0)) Next a End Sub
83
Lampiran 7. Kode Program Edit Data
Private Sub Command1_Click() If Text1.Text = "" Or Combo1 = "" Or Combo2 = "" Then MsgBox "Maaf, ada data yang belum diisi, mohon periksa kembali", vbInformation + vbOKOnly, "Perhatian!" Else For b = 1 To Form1.Label5.Caption + 1 If Form1.MSFlexGrid1.TextMatrix(0, b) = Combo2.Text Then f=b Else End If Next b Form1.MSFlexGrid1.TextMatrix(Combo1.Text, f) = Text1.Text End If Form4.Visible = False Form4.Hide End Sub
84
Private Sub Command2_Click() Form4.Visible = False End Sub
Private Sub Form_Load() Text1.Text = "" Combo1.Clear Combo2.Clear Combo1.Text = "--Pilih--" Combo2.Text = "--Pilih--" For n = 1 To Form1.Label6.Caption Combo1.AddItem (Form1.MSFlexGrid1.TextMatrix(n, 0)) Next n For m = 1 To Form1.Label5.Caption + 1 Combo2.AddItem (Form1.MSFlexGrid1.TextMatrix(0, m)) Next m End Sub
85
Lampiran 8. Kode Program Hapus Variabel
Private Sub Command1_Click() Form9.Hide Form9.Visible = False End Sub Private Sub Command2_Click() For k = 1 To Form1.Label5.Caption + 1 If Form1.MSFlexGrid1.TextMatrix(0, k) = Combo1.Text Then Text1.Text = k Else End If Next k For e = 0 To 99 Form1.MSFlexGrid1.TextMatrix(e, Text1.Text) = "" Next e For m = Text1.Text To 98 For t = 0 To 99 Form1.MSFlexGrid1.TextMatrix(t, m) = Form1.MSFlexGrid1.TextMatrix(t, m + 1) Next t Next m Form1.Label5.Caption = Form1.Label5.Caption - 1
86
Form9.Hide Form9.Visible = False End Sub
Private Sub Form_Load() Combo1.Clear Combo1.Text = "--Pilih--" For n = 1 To Form1.Label5.Caption + 1 Combo1.AddItem (Form1.MSFlexGrid1.TextMatrix(0, n)) Next n End Sub
87
Lampiran 9. Kode Program Hapus Data
Private Sub Command1_Click() Form1.MSFlexGrid1.RemoveItem (Combo1.Text) For q = 1 To 90 Form1.MSFlexGrid1.TextMatrix(q, 0) = q Next q Combo1.Clear Combo1.Text = "--Pilih--" Text1.Text = 1 For e = 1 To Form1.Label6.Caption Combo1.AddItem (Text1.Text) Text1.Text = Text1.Text + 1 Next e Form5.Visible = False Form1.Label6.Caption = Form1.Label6.Caption - 1 Form1.MSFlexGrid1.Rows = 99 End Sub Private Sub Command2_Click() Form5.Visible = False End Sub Private Sub Form_Load()
88
Combo1.Clear Combo1.Text = "--Pilih--" Text1.Text = 1 For e = 1 To Form1.Label6.Caption Combo1.AddItem (Text1.Text) Text1.Text = Text1.Text + 1 Next e End Sub
89
Lampiran 10. Kode Program Hipotesis dan Taraf Signifikansi
Private Sub Command1_Click() Form3.Hide Combo1.Text = "--Pilih--" End Sub
Private Sub Command2_Click()
n=1 If n > 1 Then Text3.Text = Combo2.Text Else
If Combo1 = "--Pilih--" Or Combo2 = "--Pilih--" Then MsgBox "Maaf, ada data yang belum diisi, mohon periksa kembali", vbInformation + vbOKOnly, "Perhatian!" Else
90
'tukar tabel Text2.Text = Combo2.Text For nm = 1 To 99 If Form1.MSFlexGrid1.TextMatrix(0, nm) = Text2.Text Then Form1.MSFlexGrid12.TextMatrix(1, 3) = nm Else End If Next nm
kh = Form1.MSFlexGrid12.TextMatrix(1, 3) For Ln = 1 To Form1.Label6.Caption Form1.MSFlexGrid12.TextMatrix(Ln, 1) = Form1.MSFlexGrid1.TextMatrix(Ln, kh) Next Ln
For Ln = 1 To 99 Form1.MSFlexGrid1.TextMatrix(Ln, kh) = Form1.MSFlexGrid1.TextMatrix(Ln, 1) Next Ln
For Ln = 1 To 99 Form1.MSFlexGrid1.TextMatrix(Ln, 1) = Form1.MSFlexGrid12.TextMatrix(Ln, 1) Next Ln 'selesai tukar tabel End If
Form3.Hide
91
Form2.Show End If End Sub
Private Sub Command3_Click() Label5.Caption = "" Label6.Caption = "" n=1 If n > 1 Then Text3.Text = Combo2.Text Else
If Combo1 = "--Pilih--" Or Combo2 = "--Pilih--" Then MsgBox "Maaf, ada data yang belum diisi, mohon periksa kembali", vbInformation + vbOKOnly, "Perhatian!" Else 'tukar tabel Text2.Text = Combo2.Text For nm = 1 To 99 If Form1.MSFlexGrid1.TextMatrix(0, nm) = Text2.Text Then Form1.MSFlexGrid12.TextMatrix(1, 3) = nm Else End If Next nm
kh = Form1.MSFlexGrid12.TextMatrix(1, 3)
92
For Ln = 0 To Form1.Label6.Caption Form1.MSFlexGrid12.TextMatrix(Ln, 1) = Form1.MSFlexGrid1.TextMatrix(Ln, kh) On Error Resume Next Next Ln
For Ln = 0 To 99 Form1.MSFlexGrid1.TextMatrix(Ln, kh) = Form1.MSFlexGrid1.TextMatrix(Ln, 1) Next Ln
For Ln = 0 To 99 Form1.MSFlexGrid1.TextMatrix(Ln, 1) = Form1.MSFlexGrid12.TextMatrix(Ln, 1) Next Ln 'selesai tukar tabel End If
Label7.Caption = Form1.Label5.Caption For g = 2 To Label7.Caption Label8.Caption = Form1.MSFlexGrid1.TextMatrix(0, g) + ", " Label9.Caption = Label9.Caption + Label8.Caption Next g Label5.Caption = "" Label6.Caption = "" Label8.Caption = "dan " + Form1.MSFlexGrid1.TextMatrix(0, Label7.Caption + 1) Label5.Caption = "Terdapat korelasi yang berarti antara " + Label9.Caption + Label8.Caption + " terhadap " + Form1.MSFlexGrid1.TextMatrix(0, 1)
93
Label6.Caption = "Tidak terdapat korelasi yang berarti antara " + Label9.Caption + Label8.Caption + "terhadap " + Form1.MSFlexGrid1.TextMatrix(0, 1) Command2.Enabled = True End If End Sub
Private Sub Command4_Click() If Combo1.Text = "" Or Combo1.Text = "" Then MsgBox ("") Label5.Caption = "" Label6.Caption = "" Else Label5.Caption = "" Label6.Caption = "" Call Command3_Click End If End Sub
Private Sub Form_Load() Combo1.Text = "--Pilih--" Combo2.Text = "--Pilih--" Label5.Caption = "" Label6.Caption = "" Command2.Enabled = False Combo1.AddItem ("0,1%") Combo1.AddItem ("0,5%")
94
For n = 1 To Form1.Label5.Caption + 1 If Form1.MSFlexGrid1.TextMatrix(1, n) > 0 Then Text1.Text = n Combo2.AddItem (Form1.MSFlexGrid1.TextMatrix(0, Text1.Text)) Else End If Next n
For m = 1 To Form1.Label5.Caption + 1 If Form1.MSFlexGrid1.TextMatrix(1, m) > 0 Then Text1.Text = m Else End If Next m End Sub
95
Lampiran 11. Kode Program Hasil Uji
Private Sub Form_Load() Label2.Caption = Form1.Text5 Label10.Caption = Form1.MSFlexGrid11.TextMatrix(4, 2) 'R value Label11.Caption = Form1.MSFlexGrid11.TextMatrix(4, 3) 'R kuadrat Label12.Caption = "1" 'y Label13.Caption = Form1.Label5 'x Label14.Caption = Form1.Label6 'n Label24.Caption = Label14.Caption - Label13.Caption - Label12.Caption Label25.Caption = Label13.Caption Label26.Caption = Form3.Combo1
'mencari nilai tabel f dk = Label24.Caption
96
If dk = 31 Or dk = 33 Or dk = 35 Or dk = 37 Or dk = 39 Or dk = 41 Or dk = 43 Or dk = 45 Or dk = 47 Or dk = 49 Then
Text1.Text = dk + 1 ElseIf dk >= 50 And dk < 55 Then
Text1.Text = "50" ElseIf dk >= 55 And dk < 60 Then
Text1.Text = "55" ElseIf dk >= 60 And dk < 65 Then
Text1.Text = "60" ElseIf dk >= 65 And dk < 70 Then
Text1.Text = "65" ElseIf dk >= 70 And dk < 80 Then
Text1.Text = "70" ElseIf dk >= 80 And dk < 100 Then
Text1.Text = "80" ElseIf dk >= 100 And dk < 125 Then
Text1.Text = "100" ElseIf dk >= 125 And dk < 150 Then
97
Text1.Text = "125" ElseIf dk >= 150 And dk < 200 Then
Text1.Text = "150" ElseIf dk >= 200 And dk < 400 Then
Text1.Text = "200" ElseIf dk >= 400 And dk < 1000 Then
Text1.Text = "400" ElseIf dk = 1000 Then
Text1.Text = "1000"
ElseIf dk > 1000 Then
Text1.Text = "2000" Else Text1.Text = dk End If '--------------------
dp = Label25.Caption If dp = 13 Or dp = 15 Then
98
Text2.Text = dk + 1 ElseIf dp >= 16 And dp < 20 Then
Text2.Text = "16" ElseIf dp >= 20 And dp < 24 Then
Text2.Text = "20" ElseIf dp >= 24 And dp < 30 Then
Text2.Text = "24" ElseIf dp >= 30 And dp < 40 Then
Text2.Text = "30" ElseIf dp >= 40 And dp < 50 Then
Text2.Text = "40" ElseIf dp >= 50 And dp < 75 Then
Text2.Text = "50" ElseIf dp >= 75 And dp < 100 Then
Text2.Text = "75" ElseIf dp >= 100 And dp < 200 Then
99
Text2.Text = "100" ElseIf dp >= 200 And dp < 500 Then
Text2.Text = "200" ElseIf dp = 500 Then
Text2.Text = "500" ElseIf dp > 500 Then
Text2.Text = "2000"
Else Text2.Text = dp End If '-------------------------'mencari For im = 1 To 98 If Form1.MSFlexGrid13.TextMatrix(im, 1) = Text1.Text Then Text3.Text = im Else End If Next im For ik = 1 To 98 If Form1.MSFlexGrid13.TextMatrix(0, ik) = Text2.Text Then Text4.Text = ik
100
Else End If Next ik '------------------------------bbr = Text3.Text kkl = Text4.Text If Label26.Caption = "0,1%" Then Label27.Caption = Form1.MSFlexGrid13.TextMatrix(bbr, kkl) Else Label27.Caption = Form1.MSFlexGrid14.TextMatrix(bbr, kkl) End If 'kesimpulan----------------------If Label2.Caption < Label27.Caption Then Label15.Caption = "- " + Form3.Label6.Caption Label28.Caption = "<" Else Label15.Caption = "- " + Form3.Label5.Caption Label28.Caption = ">" End If Label29.Caption = "Nilai R sebesar " + Label10.Caption + " menunjukan besarnya koefisien korelasi" Label30.Caption = "Nilai R kuadrat sebesar " + Label11.Caption + " menunjukan besarnya koefisien determinasi" Label31.Caption = "F hitung " + Label28.Caption + " f tabel" Label32.Caption = "KESIMPULAN " + Label15.Caption End Sub
