Loading...

Jumat, 05 Mei 2017

INSAN CENDEKIA BOARDING SCHOOL PAYAKUMBUH

Jl. R.A. Kartini Padang Kaduduk Kel. Tigo Koto Diate Kec. Payakumbuh Utara

Kota Payakumbuh Provinsi Sumatera Barat

(0752) 796602 Website:insancendekia.sch.id

  DAFTAR NAMA CALON GURU DAN KARYAWAN LULUS SELEKSI UNTUK TAHAP 2 TAHUN PELAJARAN 2017/2018 SYARAT DAN KETENTUAN   Ketentuan Umum
  1. Peserta adalah nama yang lulus pada daftar nama calon guru dan karyawan untuk tahap ke dua ini.
  2. Tes untuk tahap 2 berupa tes praktik, dilaksanakan pada hari Sabtu dan Minggu tanggal 13 dan 14 Mei 2017 jam 07.30 sampai selesai.
Ketentuan Khusus A. Ketentuan untuk Formasi Guru
  1. Datang pada waktu yang ditentukan oleh panitia
  2. Tes berupa microteachig atau praktik mengajar dengan durasi waktu selama 20 menit (kegiatan pembuka, kegiatan inti dan kegiatan penutup)
  3. Peserta tes menyerahkan RPP untuk pertemuan saat tampil tersebut sebanyak 2 rangkap.
B. Ketentuan untuk Formasi Tenaga Administrasi
  1. Datang pada waktu yang ditentukan oleh panitia
  2. Peserta diwajibkan membawa laptop
  3. Durasi praktik selama 30 menit
C. Ketentuan untuk Formasi Tenaga Kesehatan, Tenaga Pustakawan
  1. Datang pada waktu yang ditentukan oleh panitia
  2. Tes praktik dengan durasi waktu selama 20 menit
D. Ketentuan untuk Formasi Tenaga Satpam
  1. Datang pada waktu yang ditentukan oleh panitia
  2. Mengikuti pelatihan untuk seleksi tenaga pengamanan
E. Ketentuan untuk Formasi Pembina Asrama
  1. Datang pada waktu yang ditentukan oleh panitia
  2. Mengikuti pelatihan untuk seleksi menjadi pembina asrama
  BERIKUT DAFTAR NAMA CALON GURU DAN KARYAWAN LULUS TAHAP 2 TAHUN PELAJARAN 2017/2018
1. PELAMAR GURU SYARIAH
NO NAMA PELAMAR L/P TTL ALAMAT
1 Al Azhari Rubiati Khaz P Teluk Nibung, 25 Januari 1997 Kp Jambak, Sunur, kab. Padang Pariaman
2 Anese Syukriza L Jambu Air/20 September 1989 Guguak Rang Pisang, Kec. Kamang Magek, Kab. Agam
3 Budi Putra, S.Pd.I L Koto Pulai, 20 Oktober 1990 Kel. Bungo Pasang Kota Padang
4 Gusmita Yulia, S.Ag P Kumanis, 13 Agustus 1994 Nag. Kumanis, Kec. Sumpur Kudus, Kab. Sijunjung
5 Muhammad Efendi L Payakumbuh, 12 Desember 1990 RT 003/RW 002 Koto Baru Payobasung, kec. Payakumbuh
6 Qurrota A'yun P Padang/ 24 Juli 1994 Jl Jati Parak Salai No.33 RT 01/Rw 010, kel Jati, kec Padang Timur
2. PELAMAR GURU PAI
NO NAMA PELAMAR L/P TTL ALAMAT
1 Afriadi, S.Pd L Sumanik/ 05 Februari 1994 Jr. Guguak Tinggi, Nag. Sumanik, Kec. Salimpaung
2 Bunga Indah Eliya Sarah P Pekanbaru/ 21 Mei 1992 Desa Pinang Sebatang Timur kec Tualang Perawang
3 Enilpia Anita Sari, S.Pd P Sopan Tanah/ 09 Oktober 1993 Maek, Kec. Bukik Barisan, Kab. Lima Puluh Kota
4 Handrial L Pulakek/ 25 juli 1993 jor. Koto Birah, Nag. Pulakek Koto Baru, Kec. Sungai Pagu, Kab. Solok
5 Riki Saputra, S.Pd.I L Padang Laweh/ 09 September 1991 Jor Padang Laweh Baruah, Kec. Sungai Tarab kab Tanah Datar
6 Rini Maulia, S.Pd.I P Padang, 14 September 1992 Lubuk Minturun Kec. Koto Tangah Padang
7 Wasawir Rurrahman, S.Pd.I L Koto Gadang/ 2 November 1988 Koto Gadang, kec. IV Koto, kab. Agam
3. PELAMAR GURU PPKN
NO NAMA PELAMAR L/P TTL ALAMAT
1 Karniatul Lidya P Suliki, 11 Juni 1994 Jor Batuang, Kenag Kurai Kec Suliki, Kab 50 Kota
2 POLIANA RIAMA, S.PD P SITUJUH GADANG/04 OKTOBER 1991 SITUJUAH GADANG, KEC, SITUJUH LIMO NAGARI, KAB. 50 KOTA
3 Risa Dwita Putri, S.Pd P Padang/ 1 Juli 1989 Jl. Surtami Sicincin Mudik, Kel. Sicincin, Payakumbuh
4. PELAMAR GURU BAHASA INDONESIA
NO NAMA PELAMAR L/P TTL ALAMAT
1 Fitri Elvi, S.Pd P Muaralabuh/ 10 Juli 1993 Jl. Penjernihan 3, Gn. Pangilun Padang
2 Intan Pratami P Pekan Baru, 20 Juli 1994 Jr Tampat, Nag Padang Laweh, Kec Sungai Pua, Kab Agam
3 Marlelli Efrina, S.Pd P Simalanggang/12 Maret 1991 Jr. Tabing Ranah, Nag. Simalnggang, Kab. 50 Kota
4 Nofebrianto, S.Pd L Paninjauan/ 11 November 1994 Jr Aia Batumbuak Nagari Paninjauan, kab Solok
5 RAHMADIA LUSRA, S.PD, Gr P BUKIT TOGANG/ 24 JULI 1992 KOTO TANGAH SIMALANGGANG, KEC. PAYAKUMBUH
6 Riki Hamdani S.Pd L Sungai Sariak, 25 mei 1987 Korong Tanjuang AUR, Kabupaten Padang Pariaman
5. PELAMAR GURU BAHASA ARAB
NO NAMA PELAMAR L/P TTL ALAMAT
1 Fitriyani, S.Pd I P Cingkariang/ 9 November 1992 Cingkariang, Padang Luar kec Banuhampu kab Agam
2 Nelfa Yusti P Ladang Laweh, 7 September 1991 Jorong Guguak, Nagari Guguak Malalo, Kab Tanah Datar
3 Nurmayang Sari, P Medan, 8 Oktober 1993 Jk. Dr. Moh Hatta No.1 Padang
6. PELAMAR GURU BAHASA INGGRIS
NO NAMA PELAMAR L/P TTL ALAMAT
1 Arif Budiman S.Pd L Bukittinggi/ 19 Februari 1991 Jl Hamka No 18 B. Bukittinggi
2 Fitni Nadriya P Salimpaung/01 Julin 1989 Jl. Raya Batusangkar-Buktinggi km. 12
3 Mella Wiani Putri P Cupak, 27 Januari 1993 jl Simp Tiga Munggu Pak Jalang Sungai Rotan Cupak
4 Okto Zulkifli L Pekanbaru/ 18 Oktober 1983 Jl. Sudirman No.66 Lingk 1 Balai Cacang, Payakumbuh
5 Rafika Oktavionti, S.Pd P payakumbuh/ 10 Oktober 1994 Jl. Tan Malaka Kel. Bunian, Kec. Payakumbuh Utara
6 Rahmat Hidayat, S.Pd. Gr L Bengkulu,23 juni 1990 Pasir Putih, Pekanbaru, RIAU
7 Silfi Nardiati P Bukittinggi, 25 Desember 1992 Kel Pakan Labuah Tigo Baleh, Kec Aur Birugo Tigo Baleh, Bukittinggi
8 Wildara Sri Fanny, S.Pd P Payakumbuh 01 Maret 1994 Kel. Padang Datar, Kec. Payakumbuh Barat
7. PELAMAR GURU BAHASA JEPANG
NO NAMA PELAMAR L/P TTL ALAMAT
1 Beatrice Jasanddes A, S.Hum P Padang/27 Agustus 1990 Peum BTI Blok H no. 4 Padang Tangah Payobadar, Payakumbuh
2 Gresia Astri Arsalius, S.S, S.Pd P Padang/ 11 Mei 1987 Balai Cacang kec. Payakumbuh Utara kota Payakumbuh
3 Gustia S.Pd P Bukittinggi, 17 agustus 1990 Jl Mulia Gg Cempaka Rt/ Rw 06/03m Kab Bengkalis Prov riau
4 Suci Ananda Putri P Medan, 11 Juni 1991 Suarau Ladang, kel. Koto Marapak, Kec. Ampek Angkek, Kab Agam
8. PELAMAR GURU MATEMATIKA
NO NAMA PELAMAR L/P TTL ALAMAT
1 Andri Saputra, S.Pd L Andalas, 20 Oktober 1992 Jorong Andaleh, kec. Sungayang
2 Asmul Fajri L lubuk Sikaping, 01 Juli 1988 Jl. Hang Tuah No.2 Pekanbaru
3 Baitil Mistina P Koto Tinggi/ 30 Maret 1994 Jorong Aia Angek, Kab. Lima Puluh Kota
4 Devita Karlina P Surau Laut, 30 Januari 1994 Jr Surau Lauik Kenag. Panampuang, kec. Ampek Angkek
5 Dina Harika, S.Pd.I P Parambahan/ 24 September 1987 Jl. Datar, No. 79 A Pagaruyung Batusangkar
6 Femi Septia Wahyuni P Batu Basa/ 8 September 1993 Perum Astek Blok R No.8 RT/Rw 01/08 Kuranji,Padang
7 Putri Intannia N, S.Pd P Batusangkar/12 Juni 1994 Payakumbuh Utara
8 Rahmi Julita, M.Pd P Batu Ampaleh, 05 Maret 1990 Lareh Nan Panjang Nagaru Labuah Gunuang Kec Lareh Sago Halaban
9 Safriyeni, S.Pd P Piladang/ 12 Oktober 1992 Baso, kab. Agam Sumatera Barat
10 Siska Permata sari, S.pd P Salimpaung,15 Agustus 1991 Jl Purwajaya Sarilamak Kec harau
11 Tri Yulia Sari, S.Pd P Padang/ 14 Juli 1991 Kel Padang Sorai Kec. Koto Tangah Padang Sumbar
9. PELAMAR GURU BIOLOGI
NO NAMA PELAMAR L/P TTL ALAMAT
1 Adam Fernando L Padang, 5 September 1991 Jorong Gurun, Kecamatan Sungai Tarab, Kabupaten Tanah Datar
2 Arif Fernando L sungai penuh, 3 juni 1990 Kel Sungai Penuh, Kab Kerinci Jambi
3 Iffa Ichwani Putri P Payakumbuh/ 15 Juli 1991 Jl Sukma no.13 kel Balai Gurun Payakumbuh Utara
4 Reski Ivon Friska P Taeh Bukik/24 Juni 1994 Talago Taeh Bukik, Kab. Lima puluh kota
5 Siti Nurmala Sari P Padang Luar, 10 Juni 1989 depan Lapangan Rambatan, Jr Rambatan, Batusangkar
6 Widia Kemala Sari P Air Bangis/ 07 Mei 1993 Jl. Sawah Aru, jor. Pasar Pokan, Air Bangis
10. PELAMAR GURU FISIKA
NO NAMA PELAMAR L/P TTL ALAMAT
1 Indriatil Husni P Payakumbuh/ 29 September 1990 Kel Koto Baru Payobasung Payakumbuh Timur
2 Mai Sastri, S.Pd.I P Gando/15 Mei 1991 Kel. Anduring, Kec Kuranji, Kota Padang
3 Nadya mahardika P Payakumbuh, 23 oktober 1994 Napar, kec. Payakumbuh utara, kota payakumbuh
4 Rahma Dewi Afsita P Tembilahan/ 21 Maret 1993 Jl.Raya Minas Perawang KM 17 Kab. Siak Riau
5 Wilda Febi Rahmadhani, S.Si, MPFiS P Payakumbuh/12 Maret 1990 Kel. Kaning Bukit, Kec. Payakumbuh Utara, Sumatera Barat
6 Wulan Anggel Valista P Padang Panjang/ 5 Juli 1994 Kel Silaying Atas, Kec Padang Panjang Barat
7 YANI FEBRI ARYA, S.PD P KOTA BARU/08 FEBRUARI 1991 KOTO BARU, KAB. AGAM, Sumatera Barat
8 Yogi Prima Candra, S.Pd L Muara Panas/ 13 November 1994 Bayur, Pauh Kambar kab Padang pariaman
11. PELAMAR GURU KIMIA
NO NAMA PELAMAR L/P TTL ALAMAT
1 Alfar Dila, S.Pd L Palupuh/06 Maei 1993 Jl. Padang Gamuk,Guguak Panjang, Bukitinggi
2 Dewi Anugerah Sulistiana, M.Pd P Batusangkar/ 30 Agustus 1990 Jorong Malano Ponco, Baringin Kec V Kaum, Kab. Tanah Datar
3 Floweriza Yulia P Solok/ 6 Agustus 1991 Perumnas Lembah Santur kec. Barangin, kota Sawahlunto
4 Meli Menia P Painan/ 16 Maret 1992 Jl Sekuntum Bunga Muara Pasar Baru kec. Bayang
5 Nora Fiska, S.Pd P Payakumbuh / 12 Juni 1994 Payobasung, Payakumbuh Timur
6 Rocky Syaputra, S.Pd L Gantunng Ciri 12 desember 1993 kelurahan gantung ciri, kec. Kubung, kab. Solok
12. PELAMAR GURU IPS
NO NAMA PELAMAR L/P TTL ALAMAT
1 Leli Pitriani P Kerinci, 19 Oktober 1994 Komplek Taruko 1 Bypass Padang
2 M. Roli, S.Pd L Koto Tangah Simalanggang/ 26 Juni 1994 Jor. Kubu Gadang, Taeh basuah
3 Novika Maya sari S.pd, Gr P Payakumbuh,09 februari 1991 Rt01/rw 02 Kel kaning Bukit, kec payakumbuh Utara
4 Rahmat Firdaus L Kototinggi, 15 Maret 1991 Jor Koto Tinggi
5 RAHMATUL HAYATI P PILUBANG/ 25 APRIL 1993 PILUBANG, KAB. LIMA PULUH KOTA, PROV. SUMATERA BARAT
6 Refta Aidia, S.Pd P Andaleh / 24 Maret 1991 Andaleh, Kec. Luak Kab 50 Kota
7 Venny Septeni, S.Pd P Sungai Janiah, 29 September 1990 Jl. Ikan Sakti Sungai Janiah, Kec Baso Kab Agam
8 Vivi Devita Sari P Padang,11 Desember 1993 jl. Moh Hatta Anduring No.41 Rt 01 RW 02 Kec. Kuranji Kel Anduring
9 Wiyan Gussarsi, S.Pd P Pauakumbuh, 10 Sept 1995 Taeh Baruah, Kec. Payakumbuh, Kab. 50 Kota
13. PELAMAR GURU BIMBINGAN KONSELING
NO NAMA PELAMAR L/P TTL ALAMAT
1 Hamda Silvi Hayati P KTSG/ 29 September 1993 KTSG Jor Tambun Ijuk
2 Isna Tania, S.Pd P Padang, 10 Juli 1992 Tunggul Hitam Padang
3 Ninil Endriani P N.Gadang/ 18 Januari 1991 Baruah Andaleh, Sariak Laweh, kec. Akabiluru, kab 50 Kota
4 Nurhasani S.Pd.I P Balimbing, 20 November 1992 Jorong Balimbing Kenag. Balimbing
5 Refniliana P Tanjung Barulak, 23 Oktober 1991 Jl SMA 05 No 02 Balai Baru, Kec Kuranji Padang
6 Tri Ananda, S.Pd I L Durian Tinggi/ 16 Juni 1992 Jor Bintungan Sakti, nag. Durian Tinggi kec. Kapur IX kab 50 Kota
7 WIDIA ASTUTI, S.PD.I P SALIMPAUNG/29 DESMBER 1992 NAG. SALIMPAUNG, KEC. SALIMPAUNG, KAB. TANAH DATAR
14. PELAMAR GURU PENJASKES
NO NAMA PELAMAR L/P TTL ALAMAT
1 Bayu Dwi Olanda, S.Pd L Payakumbuh/ 08 Februari 1992 Jl. Jend. Sudirman, Kel. Balai Cacang, no. 31 Payakumbuh Utara
2 Fajri Afdal, S.Pd L Padang, 01 Januari 1992 Jorong Talago Kenagarian Taeh Bukik Kec Payakumbuh
3 Jemy Pratama L Payakumbuh/05 Desember 1991 Jl. Imam Bonjol, Kel. Payolansek, Kota Payakumbuh
4 Muhammad Hidayat, M.Pd L Situjua Batua/01 Februari 1992 Apotik Haura Farma Situjuh Batua, Kec. Situjuah Limo Nagari, Kab. 50 Kota
5 Muhammad Iqbal S.Pd L Simalanggang, 06 Februari 1992 Kubu Gadang
6 Novil Saputra S.Pd L Koto Lamo/ 7 April 1993 Koto Tangah Kec Kapur IX Kab Lima Puluh Kota
7 Wedi. S L Tanjung Pati/25 Januari 1990 Jl. Raya Negara KM. 11. Simpang. Gor Sungai Harau 50 Kota
15. PELAMAR GURU T I K
NO NAMA PELAMAR L/P TTL ALAMAT
1 Esi Violeta P Koto gadang/05 Januari 1992 Simpang Ampek Jorong Koto Gadang
2 Hagi Nofiandri L Aro Kandikir/ 07 November 1994 Aro Kandikir Gadut, Tilatang Kamang, Kabupaten Agam
3 Muhammad Hamdi Kautsar L Ronah Mahat, 31 Agustus 1992 Koto Baru Simalanggang Kab Lima Puluh Kota
4 Tisa Impiani Yunasmi P Payakumbuh/19 April 1992 Kompi C, Sarilamak, Harau
5 Zaimul Ardi L Pasir Lawas, 10 Maret 1991 Pasir Lawas, Kec Sungai Tarab, Kab. Tanah Datar
16. PELAMAR GURU SENI BUDAYA
NO NAMA PELAMAR L/P TTL ALAMAT
1 Fajri Jaya, S.Pd L Pangkalan 09 Maret 1992 Manggilang, Kec Pangkalan koto baru
17. PELAMAR SEBAGAI PEMBINA ASRAMA
NO NAMA PELAMAR L/P TTL ALAMAT
1 Imam Awaludin, S.Hum L bandung/27 juni1998 Pasirhuni 01/02 cimaung kab Bandung
2 Maska Wira Efrizon, S.Sos L Padang, 18 April 1993 Jl. Dr Moh Hatta No 51 RT/RW 003/004 Kel Binuang Kampung Dalam Kec. Pauh Kota Padang
3 Rahma Dwi Kurnia, S.Pd P Solok/10 Maret 1993 Jl. Kirap Remaja Gawan Rt/Rw ooi/004, Kel. Tanah Garam,Kec. Lubuk Sikarah Kota Solok
4 Suci Zulhijjah P Batusangkar/ 10 Mei 1995 Jl. Bandes Parak Jigarang RT/RW 04/IV Kel. Anduring Kec. Kuranji Padang
5 Syukra Vadihillah, S.Pd.I P Magek/ 16 Februari 1992 Koto Kaciak Magek Kec. Kamang Magek, kab. Agam, Sumatra Barat
6 Mutia Rahmi P Payakumbuh, 28 Februari 1994 Jl. Balai no 726, RT 03/RW 01, kel. Ibuh, Payakumbuh
18. PELAMAR SEBAGAI TENAGA KESEHATAN
NO NAMA PELAMAR L/P TTL ALAMAT
1 Ns. Valdo Sutra S.Kep L Batu Raja/ 17 Agustus 1990 Ambung Kapur Kecamatan VII Koto Sungai Sarik, Padang Pariaman
2 Ridwanil Fadili P Padang Panjang/20 Juli 1993 Jr. Balai Akad Nagan Bungo Tanjuang, Kec. Batipuh, Kab. Tanah Datar
3 Miftahul Rahmi, A.Md, Kep P Tabek Panjang, 16 Juni 1993 Simalanggang,Kec Payakumbuh,Kab 50 Kota
4 Vinny Ariesta Pishesa P Pekan Selasa/ 30 Maret 1993 Aia Manyuruak, lb gadang selatan, kec. Sangir kab solok selatan
5 Yenggi Fermadi L Payakumbuh, 22 Januari 1991 Jl Tan Malaka , kel. Tanah Mati, Payakumbuh
19. PELAMAR SEBAGAI TENAGA ADMINISTRASI
NO NAMA PELAMAR L/P TTL ALAMAT
1 Deviria Agustin, S.Pd P Padang Luar/ 15 Agustus 1992 Parabek, Kec. Banuhampu, Kab. Agamk
2 Diah Atika Putri S.E P Payakumbuh/ 24 Februari 1991 Jl. Beringin No.80 Padang Tiakar Hilir Payakumbuh
3 Fadhilah Liyasnur P Cacang Randah/23 Juli 1994 Balai Jirak jr. Cacang Randah, Desa Tiku Utara, Kec. Tj.Mutiara, Kab. Agam
4 Grace Valentino P Padang, 19 September 1986 Kel. Padang Kaduduak, Kec. Payakumbuh Utara, Payakumbuh
5 Khairunnisa', SE P Sungai Batang/ 23 Oktober 1993 Sungai Batang, Tj. Raya, Kab. Agam
6 Martika Handayani, S.Pd P Indrapura , 26 Maret 1994 Pesisir Selatan
7 Mulyani, S.Pd P Pekanbaru/ 25 Oktober 1992 Jl. Koto Layan RT 01 RW 01 Kel. Koto Selayan, Kec. Mandiangin Koto Selayan, Bukittinggi
8 Rizka ayu Edtavia,SE P Duri /15 Agustus 1994 Jl Paus Gg Al-Azhar no 1 Pekanbaru
9 Utari Ariesti Yayu, S.Pd P talaok/ 12 April 1993 Perum Bungan Mas III Blok X/11, Tunggul Hitam
20. PELAMAR SEBAGAI TENAGA PERPUSTAKAAN
NO NAMA PELAMAR L/P TTL ALAMAT
1 Armalisa P Padang/ 05 Mei 1993 Jl. Usang Sungai Sapih
2 Lailatul Husni, S.Pd P Batusangkar/ 10 April 1994 Padang Laweh Kec Sungai Tarab Kab Tanah Datar
3 Muqtadirurrijal, A.Md L Padang/ 20 Februari 1994 Jl. Swadesi No.11 RT 005/001, Kel. Padang Besi, Kec. Lubuk Kilangan
4 Nurhasnah Wati, A.Md P Duri/ 11 Maret 1990 Ruko Cipta Puri Blok CC.18 Tiban, Sekupang
5 Peni Handayani, A.Md P Padang/ 29 Maret 1994 Tanjung Aur, RT o3 Rw 05 Kec. Koto Tangah
21. PELAMAR SEBAGAI SECURITY
NO NAMA PELAMAR L/P TTL ALAMAT
1 Aidil Satria L Payakumbuh/12 Januari 1993 RT 001/RW 001 Kel, Cubadak Aia , Kec. Payakumbuh Utara
2 Muhammad Hanafi L Padang Panjang/ 14 agustus 1992 Mungka Tangah
3 Satria Oki Putra L Payakumbuh, 05 Agustus 1991 Kel Tigo Koto Diate, Kec Payakumbuh Utara, Kota Payakumbuh
4 Tri Setio Harsono L Koto Tangah-SMLG/ 31 November 1995 Jor. Tabing Ranah, Nag. Simalanggang
Tertanda, Kepala SDM ICBS  

Rabu, 03 Mei 2017

Contoh Kode Program Percabangan IF THEN Pascal

 

Sebagai contoh pertama, silahkan pelajari kode program berikut ini:














program struktur_if_then;
uses crt;
var
  angka: integer;
begin
  clrscr;
  angka := 10;
  if (angka > 5) then
    begiN      writeln('Variabel "angka" lebih besar dari 5');
    end;
  writeln('Belajar Pascal');
  readln;
 end.

Pada awal kode program saya membuat sebuah variabel “angka” dengan nilai 10 (integer). Kemudian saya memeriksa sebuah kondisi menggunakan perintah if then.
if (angka > 5) artinya saya ingin memeriksa apakah nilai dari variabel “angka” lebih besar dari 5. Jika iya, kondisi tersebut akan menghasilkan nilai TRUE. Akibatnya, kode program writeln(‘Variabel “angka” lebih besar dari 5’) akan dijalankan.
Setelah blok kondisi if selesai diproses, Pascal lanjut menjalankan kode program setelah blok if then, yakni baris writeln(‘Belajar Pascal di Duniailkom’) hingga akhir kode program yang di tandai dengan end.
Saya bisa menambahkan kode program lain di dalam blok if then, seperti contoh berikut:
















program struktur_if_then;
uses crt;
var
  angka:integer;
begin
  clrscr;
  angka:=10;
  if (angka > 5) then
    begin
      writeln('====================================');    
      writeln('Variabel "angka" lebih besar dari 5');
      writeln('====================================');
    end;
  writeln('Belajar Pascal di');
  readln;
end.

Jika anda browsing atau melihat tutorial lain, kebanyakan bagian blok begin dan end; ini tidak ditulis. Jika seperti ini, perintah yang dijalankan (saat kondisi TRUE) hanya boleh 1 baris saja, seperti contoh berikut:












program struktur_if_then;
uses crt;
var
  angka:integer;
begin
  clrscr;
  angka:=5;
  if (angka > 5) then
    writeln('Variabel "angka" lebih besar dari 5');
  writeln('Belajar Pascal di ');
  readln;
end.
Namun sangat sangat disarankan untuk selalu membuat blok begin dan end; pada setiap kondisi if, karena seperti yang terlihat dari kode program diatas, susah untuk memastikan apakah baris writeln(‘Belajar Pascal di Duniailkom’) termasuk ke dalam blok if atau tidak, yang kenyataannya memang tidak termasuk.


Hati-hati untuk menulis penutup blok if then, yakni “end;” (dengan tanda titik koma), bukan “end.” (dengan tanda titik).
Sebagai contoh yang lebih interaktif, silahkan jalankan kode program berikut:














program struktur_if_then;
uses crt;
var
  angka:integer;
begin
  clrscr;
  write('Masukkan sebuah angka: ');
  readln(angka);
  if (angka mod 2 = 0) the  
 begin
      writeln('Angka yang anda masukkan merupakan bilangan genap');   
  end;   
   readln;
end.

Kali ini saya membuat program yang meminta input dari pengguna (menggunakan perintah readln), lalu disimpan kedalam variabel angka.
Variabel angka selanjutnya saya periksa menggunakan kondisi if (angka mod 2 = 0). Anda masih ingat dengan operator mod? Operator mod akan menghasilkan sisa hasil bagi dari suatu bilangan.
Dengan menulis if (angka mod 2 = 0) artinya saya memeriksa apakah variabel angka jika dibagi 2 sisanya 0? Sebagai contoh, 4 mod 2 = 0 (sesuai dengan kondisi). 7 mod 2 = 1 (tidak sesuai dengan kondisi).
Kondisi if (angka mod 2 = 0) ini sebenarnya digunakan untuk memeriksa apakah sebuah angka termasuk genap atau tidak. Jika habis dibagi 2 (sisanya 0), artinya angka tersebut merupakan bilangan genap.
Bagaimana dengan angka ganjil? Misalkan jika diinput sebuah angka, akan lebih baik hasilnya “Angka yang anda masukkan merupakan bilangan genap” atau “Angka yang anda masukkan merupakan bilangan ganjil”. Ini akan kita pelajari dalam tutorial selanjutnya, yakni tentang perintah kondisi IF THEN ELSE di dalam bahasa pemrograman Pascal.

Senin, 25 Mei 2015

Berikut adalah contoh sederhana membuat form entri pada php.. barang kali banyak dari rekan-rekan yang telah paham dan telah mahir dengan bahasa pemrograman php, namun tidak ada salahnya mengulang kembali sekilas tentang php dan disini akan dibahas contoh sederhana dari php yakni membuat form entri dengan php.

baiklah langkah pertama yang harus kita lakukan adalah membuat form entrinya terlebih dahulu bisa menggunakan notepad, dreamweaver atau aplikasi lainnya yang mendukung.

sebelum kita memasuki program ada baiknya kita buat dulu sebuah database baru dengan mysql dan kita beri nama  dbpelaminan,  lalu buatlah tabel dengan nama tbpelaminan buat data nya seperti dibawah ini :

-namalengkap
-tempattinggalsekarang
-kebangsaan, agama
-pekerjaanktp
-passport
-keperluan
-berlakudari
-hingga

 type data nya disesuaikan dengan kebutuhan rekan-rekan, nama pada tbpelaminan nantinya harus disesuaikan dengan koding proses.php yang bisa rekan2 lihat dibawah kajian form entri dibawah.

setelah database kita buat maka sebelumnya kita harus membuat koneksi agar database bisa terhubung dengan program, maka kita bikin form pada php dengan nama "koneksi.php", pada form koneksi.php isikan koding dibawah ini:

=========================
mysql_connect("localhost","root","");
mysql_select_db("dbpelaminan");
?>
=========================
pastikan XAMP, WAMP, SQLserver atau konektor mysql nya semua telah terinstal dan diaktifkan , selanjutnya kita rancang form entri data seperti yang akan kita bahas dibawah ini.

pertama-tama rancang lah sebuah form seperti dibawah ini lalu berinama form entri.php.


Untuk koding form entri diatas bisa rekan-rekan download di sini :

http://www.4shared.com/office/TnFViueUce/KODING_FORM_ENTRI.html 

karena akan terlalu panjang apabila diposting.

 ======================================================================== Setelah kita selesai merancang form entri diatas maka selanjutnya kita buat form lalu  kita beri nama proses.php ,  setelah form proses.ph kita buat lalu kita rancang koding program seperti dibawah ini yang fungsinya nanti akan memproses data yang di input dari form yang telah kita buat diatas sebelumnya. untuk lebih jelasnya koding proses.php bisa kita lihat dibawah ini :

Proses.php
=========
$rid=$_POST['nm'];
$red=$_POST['tts'];
$sad=$_POST['kbs'];
$sid=$_POST['agm'];
$sud=$_POST['pkrj'];
$sed=$_POST['ktp'];
$vkep=$_POST['kep'];
$vtgl2=$_POST['tgl2'];
$vbln2=$_POST['bln2'];
$vthn2=$_POST['thn2'];
$vtgl3=$_POST['tgl3'];
$vbln3=$_POST['bln3'];
$vthn3=$_POST['thn3'];
include "koneksi.php";
$query="INSERT INTO tbpelaminan ( namalengkap,  tempattinggalsekarang, kebangsaan, agama, pekerjaan, ktppassport, keperluan , berlakudari, hingga) values ('$rid', '$rud', '$red', '$sad', '$sid', '$sud', '$sed', '$vkep', '$vthn2-$vbln2-$vtgl2', '$vthn3-$vbln3-$vtgl3')";
$result =mysql_query($query) or die (mysql_error());
echo " DATA TELAH MASUK";
echo "";
?>
========================================================================
setelah koding diatas dibuat coba jalankan program, kemudian isi data. apabila ada kesalahan coba cek kembali data yang kita buat apakah sudah sama dengan database dan jangan lupa perhatikan tanda baca pada coding program.
baiklah  pada proses ini pembuatan form entri telah selesai, silahkan rekan-rekan coba dan kreasikan, untuk menampilkan data insya allah pada kesempatan berikutnya akan kita lanjutkan kembali. semoga bermanfaat. :) wasssalam.

Selasa, 19 Mei 2015

untuk membuat text bergerak pada form dalam VB NET 2010 caranya cukup mudah,  pada form load ketikkan beberapa baris source coding yang diperlukan.  untuk lebih jelasnya SILAHKAN COPAS Koding dibawah ini kedalam projek teman-teman :


TEXT BERJALAN
========================================================================

DI FORMLOAD
=================

tulisan(0) = "JUDUL"
        tulisan(1) = "JUDUL"
        tulisan(2) = "JUDUL"
        Label1.Text = tulisan(j)
        Timer2.Start()


DI TIMEPICKER
==============

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If i.Equals(tulisan(j).Length) Then
            Me.Label1.Text = ""
            If j < tulisan.Length - 1 Then
                j = j + 1
            Else
                j = 0
            End If
            i = 0
        End If
        Label1.Text = tulisan(j).Substring(0, i)
        i = i + 1
    End Sub

========================================================================
Semoga Bermanfaat.....   :)  Notice bila ada keterangan kurang jelas silahkan berikan komentar agar bisa kita diskusikan bersama.... trims :)

 By Leo Bahana Batubara, S.Kom

Ketikkan Koding berikut ini pada button Cetak :

crystalReportViewer1.ReportSource=.Laporan1.rpt
CrystalReportViewer1.SelectionFormula="({})"="Textbox1.text"
CrystalReportViewer1.Refresh
CrystalReportViewer1.Show


Nama Laporan dan Peletakan untuk formula disesuaikan dengan yang anda bikin di form cetak laporan anda.  :)


Semoga membantu   by Leo Bahana Batubara

modul///
Imports System.Data
Imports System.Data.Odbc
Module Module1
    Public database As Odbc.OdbcConnection
    Public Tb As Odbc.OdbcDataAdapter
    Public Data As DataSet
    Public Rcd As New BindingSource
    Public perintahsql As New Odbc.OdbcCommand
    Public Cari As Odbc.OdbcDataReader
    Public Sub Koneksi()
        Try
            database = New Odbc.OdbcConnection("Dsn=koneksi")
            database.Open()
            MsgBox("berhasil terkoneksi Lanjutkan")
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
    End Sub
End Module

//simpan

   Try
                Call Koneksi()
                Dim cmd As New OdbcCommand("insert into tbps values('" & TextBox1.Text & "','" & TextBox2.Text & "')", database)
                cmd.ExecuteNonQuery()
                MsgBox("tersimpan kedatabase")
                tampil()
                KodeOtomatis1()
                'bersih()

            Catch ex As Exception
                MsgBox("ada kesalahan" + ex.Message)
                'bersih()
            End Try

koreksi////
 Call Koneksi()
        Dim ubah As String = "update  tbps set jns_ps = '" & TextBox2.Text & "' where kd_ps= '" & TextBox3.Text & "'"
        perintahsql = New Odbc.OdbcCommand(ubah, database)
        perintahsql.ExecuteNonQuery()
        MsgBox("data telah dubah")
        tampil()


HAPUS////
 Call Koneksi()
        Dim hapus As String = "delete from tbps where kd_ps='" & TextBox3.Text & "'"
        perintahsql = New Odbc.OdbcCommand(hapus, database)
        perintahsql.ExecuteNonQuery()
        MsgBox("data telah dhapus")
        tampil()


TAMPIL////

 Sub tampil()
        Call Koneksi()
        Tb = New OdbcDataAdapter("select * from tbps ", database)
        Data = New DataSet
        Tb.Fill(Data, "tbps")
        dg1.DataSource = Data.Tables("tbps")
        dg1.ReadOnly = True
        dg1.Refresh()
    End Sub


CARI////

 ' TextBox1.Clear()
        'TextBox2.Clear()
        'TextBox3.Clear()
        ' TextBox4.Clear()
        Dim str As String
        str = "select*from tbps where (kd_ps='" & TextBox3.Text & "')"
        Dim cmd As OdbcCommand = New OdbcCommand(str, database)
        Cari = cmd.ExecuteReader
        While Cari.Read
            TextBox3.Text = Cari("kd_ps").ToString
            TextBox2.Text = Cari("jns_ps").ToString
         

        End While
        'database.Close()
    End Sub


////PANGGIL DATA KE KOMBO///

 ' Call Koneksi()
        Dim cmd As New OdbcCommand("select *from tbpaket where kdpaket='" & c2.Text & "'", database)
        Cari = cmd.ExecuteReader()
        ' c1.Items.Clear()
        Do While Cari.Read
            c2.Items.Add(Cari("kdpaket"))
            t2.Text = Cari("nmpaket")
            t3.Text = Cari("hrgpaket")
            t4.Text = Cari("durasi")

        Loop
        TextBox1.Text = Val(t3.Text) * Val(t4.Text) / 60
        t9.Text = Val(TextBox1.Text)


///KODE OTOMATIS///

 Sub KodeOtomatis1()
      Try
            TextBox1.Text = "S001"
            Koneksi()
            perintahsql = New Odbc.OdbcCommand("SELECT CONCAT( 'S' ,LPAD(( RIGHT( MAX(kd_ps),3)+1),3,'0')) as ps FROM tbps", database)
            Cari = perintahsql.ExecuteReader

            If Cari.Read Then
                TextBox1.Text = Cari.Item("ps")
            Else
                TextBox1.Text = "S001"
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub

Minggu, 15 Juni 2014

baiklah teman2 kali ini saya akan mencoba berbagi sedikit tentang netbeans,, dan saya yakin teman2 sudah tidak asing lagi dengan postingan kali ini karna telah sama2 kita pelajari, namun tidak ada salah nya mengingat kembali apa yang telah kita pelajari agar bisa lebih memahami lagi..
kali ini saya akan berbagi sedikit koding untuk mengkoneksi kan netbeans dengan database mysql..  baiklah langkah pertama
-buat class baru terlebih dahulu dengan nama yang mudah anda ingat...
  misal  void koneksi(){

-  lalu masukkan script dibawah ini:
   try {
  Class.ForName("com.jdbc.mysql.Driver);
  conn=DriverManager.GetConnection("jdbc:mysql://localhost/namadatabase","root","");
  stat=conn.createStatement();
  }\
catch(Exception e){
  }

  demikian lah sedikit coding untuk mengkoneksikan antara netbeans dengan database pada mysql.... semoga bermanfaat.   :) 

Senin, 25 November 2013

MODUL PEMROGRAMAN JAVA

Untuk Lebih Jelasnya Silahkan Klik Tautan Dibawah ini.

LINK SUMBER


EBOOK PEMROGRAMAN JAVA
MODUL JAVA




  1. Membuat DataBase dan Table-tablenya.
Sebagai contoh kasus, disini saya menggunakan hanya 2 table saja yaitu Table Kategori Barang ( T_KATEGORI ) dan Table Barang ( T_BARANG ) saja. Nah pada setiap barang yang terdapat pada T_BARANG pasti mempunyai kategori barang yang terdapat pada T_KATEGORI, sedangkan hubungan antar tablenya kurang lebih sebagai berikut : DB_Design
Click to View Large Image
Sekarang mari kita buat table-table tersebut dengan cara membuat sebuah script *.sql yang isinya kurang lebih sebagai berikut :
-- Database untuk latihan pembuatan report Master-Detail

drop database if exists rptmasterdetail;
create database rptmasterdetail;
use rptmasterdetail;

drop table if exists T_BARANG;
drop table if exists T_KATEGORI;

-- Bikin table Master
create table T_KATEGORI(
    kd_Kategori varchar(5) not null primary key,
    nm_Kategori varchar(30) not null,
    index kd_Kategori(kd_Kategori)
) type = innodb;

-- Bikin table Detail
create table T_BARANG(
    id_Barang integer auto_increment primary key,
    kd_Barang varchar(10) not null,
    kd_Kategori varchar(5) not null,
    nm_Barang varchar(50) not null,
    index (kd_Kategori),
    foreign key(kd_Kategori) references T_KATEGORI(kd_Kategori) on update cascade
) type = innodb;

/* Proses Insert Data Table Master */
insert into T_KATEGORI(kd_Kategori, nm_Kategori) values("HAAP", "Home Application");
insert into T_KATEGORI(kd_Kategori, nm_Kategori) values("AUD", "Audio");
insert into T_KATEGORI(kd_Kategori, nm_Kategori) values("VID", "Video");

/* Proses Insert Data Table Detail */
insert into T_BARANG(kd_Barang, kd_Kategori, nm_Barang) values("1", "AUD", "MP3 Player");
insert into T_BARANG(kd_Barang, kd_Kategori, nm_Barang) values("2", "VID", "VCD Player");
insert into T_BARANG(kd_Barang, kd_Kategori, nm_Barang) values("3", "HAAP", "Kulkas");
insert into T_BARANG(kd_Barang, kd_Kategori, nm_Barang) values("4", "HAAP", "Rice Cooker");
insert into T_BARANG(kd_Barang, kd_Kategori, nm_Barang) values("5", "AUD", "iPod");
insert into T_BARANG(kd_Barang, kd_Kategori, nm_Barang) values("6", "HAAP", "Blender");
insert into T_BARANG(kd_Barang, kd_Kategori, nm_Barang) values("7", "VID", "DVD Player");
insert into T_BARANG(kd_Barang, kd_Kategori, nm_Barang) values("8", "AUD", "USB MP3 Player");
insert into T_BARANG(kd_Barang, kd_Kategori, nm_Barang) values("9", "AUD", "MP4 Player");
Copy dan simpan script diatas dengan nama RptMasterDetail.sql, setelah tersimpan di komputer anda, sekarang jalankan perintah dibawah ini agar seluruh table dan database yang diperlukan siap untuk digunakan:
[javamaniac@pemula:~/Desktop/MembuatRptMasterDetail]$ mysql -u root -p < RptMasterDetail.sql
Enter password: [masukkan password root pada mysql anda]
[javamaniac@pemula:~/Desktop/MembuatRptMasterDetail]$
Ok sekarang langkah pertama telah selesai dilakukan, sekarang DataBase dan table sudah siap untuk digunakan :) Mari lanjut pada langkah ke 2.
  1. Membuat New Project dari NetBeans
Setelah langkah pertama selesai, sekarang buatlah sebuah project baru dari NetBeans dengan cara sebagai berikut :
Buatlah New Project dan beri nama RptMasterDetail untuk isian Project Name, kemudian tekanlah tombol Finish. Setelah menekan tombol Finish, sekarang klik kanan root project yang terdapat pada Projects Inspector kemudian pilih New > Folder. Pada jendela New Folder isikan Report pada Folder Name seperti pada gambar dibawah ini:BuatFolder
Click to View Large Image
Setelah proses diatas, maka sekarang struktur direktori Project kita adalah seperti gambar dibawah ini: StrukturPrj
Click to View Large Image
Fungsi dari direktori / Folder Report tersebut adalah sebagai tempat menyimpan report yang akan kita buat melalui iReport. Ok, sekarang lanjut ke langkah ke 3.
  1. Membuat Master Report dan Detail Report Menggunakan iReport.
Sebelum mulai membuat Master dan Detail Report-nya, jangan lupa buatlah dahuluConnection/Data Source yang mengarah ke database rptmasterdetail yang telah kita buat pada langkah pertama diatas. Pada proses pembuatan Master dan Detail Report ini, proses pembuatan Reportnya dimulai dari Detail Report dahulu baru kemudian membuat Master Reportnya.
* **Proses Pembuatan Detail Report.**
Buatlah New Report dengan cara klik File > New Document, kemudian pada Report Name isikan RptDetail sedangkan pada Preset Sizes isikan NOTE dan pada Page Margin isikan nilai 0 (nol) untuk Top, Bottom, Left dan Right seperti gambar dibawah ini : NewRptDetail
Click to View Large Image
Setelah itu, simpanlah RptDetail ini pada direktori Report/ yang telah dibuat pada langkah 2 diatas. Karena Detail Report ini akan digunakan untuk menampilkan data barang berdasarkan kode kategori, maka sekarang masukkanlah query yang akan mengambil data barang berdasarkan kode kategori yang diinginkan tersebut dan syntax sql untuk melakukan proses diatas adalah sebagai berikut :
SELECT T_BARANG.kd_Barang, T_BARANG.nm_Barang FROM T_BARANG, T_KATEGORI WHERE T_BARANG.kd_Kategori = 'HAAP' GROUP BY T_BARANG.kd_Barang
Pada syntax sql diatas, kita membutuhkan 1 parameter supaya query ini berjalan dengan baik yaitu parameter kd_Kategori. Sekarang mari kita buat sebuah parameter di iReport yang berfungsi untuk menampung kd_Kategori tersebut dengan cara memilih menuView > Parameters, kemudian pada jendela Parameters tekanlah tombol New untuk menambahkan sebuah parameter baru. Setelah itu pada jendela Add/Modify Parameters isikanlah sebagai berikut :
  * Parameter Name **PRM_DETAIL_KDKATEGORI**


  * Parameter Class Type **java.lang.String**


  * Beri centang pada pilihan Use as a Prompt
seperti gambar dibawah ini: PrmDetail
Click to View Large Image
Setelah menambahkan parameter seperti diatas, sekarang masukkanlah query yang akan mengambil seluruh data barang berdasarkan kode kategori yang kita inginkan dengan cara pilihlah menu Data > Report Query kemudian isikan seperti gambar dibawah ini: DetailRptQry
Click to View Large Image
Seluruh konfigurasi untuk Detail Report telah selesai, sekarang design-lah tampilan Detail Reportnya seperti dibawah ini: DesignDetailRpt
Click to View Large Image
Jika telah selesai, sekarang Compile-lah Detail Report-nya dengan cara memilih menuBuild > Compile dan jika tidak ada kesalahan sekarang jalankanlah Detail Reportnya dengan menggunakan Active Connection yang bisa diakses di menu Build > Execute (with active connection). Dan jika tidak ada kesalahan, maka tampilan Detail Report akan muncul seperti gambar dibawah ini: RptDetailSukses
Click to View Large Image
Setelah memastikan bawha Detail Report sukses dijalankan, sekarang hilangkanlah tanda centang pada parameter PRM_DETAIL_KDKATEGORI seperti gambar dibawah ini: DelCentangRptDetail
Click to View Large Image
Setelah menghilangkan tanda centang, simpanlah Detail Reportnya kemudian Compile lagi dengan cara memilih Build > Compile.
Pembuatan detail report telah selesai, sekarang mari kita buat master reportnya :)
* **Proses Pembuatan Master Report.**
Sekarang buatlah Master Reportnya dengan cara memilih menu File > New Documents kemudian pada Report Name isikan RptMaster kemudian tekan OK.
Setelah itu, simpanlah RptMaster ini pada direktori Report/ yang telah dibuat pada langkah 2 diatas. Karena Master Report ini akan digunakan untuk menampilkan data kategori barang berdasarkan kode kategori yang diinputkan oleh user melalui program java yang kita buat, maka sekarang masukkanlah query yang akan mengambil data barang berdasarkan kode kategori tersebut dan syntax sql untuk melakukan proses diatas adalah sebagai berikut :
SELECT * FROM `T_KATEGORI` T_KATEGORI WHERE kd_Kategori = 'VID'
Pada syntax sql diatas, kita membutuhkan 1 parameter supaya query ini berjalan dengan baik yaitu parameter kd_Kategori. Sekarang mari kita buat sebuah parameter di iReport yang berfungsi untuk menampung kd_Kategori tersebut dengan cara memilih menu View > Parameters, kemudian pada jendela Parameters tekanlah tombol New untuk menambahkan sebuah parameter baru. Setelah itu pada jendela Add/Modify Parameters isikanlah sebagai berikut :
  * Parameter Name **PRM_KD_KATEGORI**


  * Parameter Class Type **java.lang.String**


  * Beri centang pada pilihan Use as a Prompt
seperti gambar dibawah ini: PrmMasterkdKat
Click to View Large Image
Setelah menambahkan parameter seperti diatas, sekarang masukkanlah query yang akan mengambil seluruh data kategori barang berdasarkan kode kategori yang kita inputkan dengan cara pilihlah menu Data > Report Query kemudian isikan seperti gambar dibawah ini: QryMaster
Click to View Large Image
Setelah itu, sekarang design-lah Master Report-nya seperti dibawah ini: DesignMasterRpt
Click to View Large Image
Jika telah selesai sekarang coba jalankan dengan menggunakan Active Connection, dan jika tidak ada kesalahan maka Master Report akan tampil seperti gambar dibawah ini: MasterRptOK1
Click to View Large Image
Setelah Master Report berjalan dengan baik, sekarang waktunya untuk mulai menambahkan Sub-Report atau Detail Report yang telah kita buat pada langkah sebelumnya kedalam Master Report. Untuk menambahkan Sub-Report, tekanlah tombol yang terdapat pada Toolbar seperti gambar dibawah ini: AddSubRpt
Click to View Large Image
Setelah menekan tombol Add SubReport, sekarang klik dan geretlah mouse kedalam detail area pada master report. Setelah selesai mengatur tempat dimana SubReport akan ditempatkan, maka secara otomatis akan muncul sebuah jendela pertanyaan yang menanyakan apakah kita ingin membuat report baru, menggunakan report yang sudah ada atau hanya membuat sebuah element subreport saja.
Pada jendela pertanyaan tersebut, pilihlah pilihan nomor 2 yaitu Use an existing report, kemudian tekanlah tombol Browse dan arahkan ke tempat dimana kita menyimpan Detail Report kita (RptDetail.jasper) seperti gambar dibawah ini: AddSubRpt1
Click to View Large Image
Setelah itu tekanlah tombol OK hingga tampilannya seperti dibawah ini: AddSubRpt2
Click to View Large Image
Kemudian tekanlah tombol Next, kemudian pada jendela Connection / DataSource parameters pilihlah opsi Use the same connection to fill the master … seperti gambar dibawah ini: AddSubRpt3
Click to View Large Image
Pada jendela Subreport parameters, tekanlah Next karena parameter yang terdapat pada Detail Report akan otomatis terdeteksi. Setelah menekan tombol Next, maka jendela selanjutnya yang akan tampil adalah jendela Subreport expression. Pada jendela SubReport expression ini, pilihlah opsi yang pertama yaitu Store the directory name in a parameter. seperti gambar dibawah ini: AddSubRpt4
Click to View Large Image
Setelah menekan tombol Finish, sekarang design-lah tampilan Master Report-nya hingga menjadi seperti gambar dibawah ini: DesignMasterDetailRpt
Click to View Large Image
Sebelum mulai menjalankan Master Reportnya, sekarang editlah dahulu Default Value Expression dari parameter SUBREPORT_DIR seperti gambar dibawah ini : EditPrmSubRptDir1
Click to View Large Image
menjadi seperti gambar dibawah ini: EditPrmSubRptDir2
Click to View Large Image
Setelah meng-edit parameter SUBREPORT_DIR menjadi seperti diatas, sekarang tambahkanlah sebuah parameter untuk Detail Report-nya. Parameter yang akan dikirim ke Detail Report ini adalah parameter kode kategori hasil dari proses query pada Master Report, mengapa kita perlu mengirimkan kode kategori ke Detail Report ? Karena Detail Report ini berfungsi untuk menampilkan data barang berdasarkan kode kategori yang telah ditampilkan di Master Report.
Karena pada proses pembuatan Detail Report diatas, kita sudah membuat sebuah parameter dengan nama PRM_DETAIL_KDKATEGORI. Maka sekarang tambahkanlah sebuah parameter yang akan diterima oleh Detail Report dengan cara klik kanan Sub-Report, kemudian pilihlah properties. Setelah jendela SubReport properties muncul, masuklah pada tab Subreport (Other) kemudian pada tab Subreport parameters isikanlah nilai seperti dibawah ini: AddSubRptParam
Click to View Large Image
Setelah menambahkan parameter untuk sub-reportnya, sekarang cobalah untuk menjalankannya dengan menggunakan Active Connection. Jika tidak ada langkah yang terlewati, seharusnya Master Detail Report anda akan tampil seperti gambar dibawah ini: MasterDetailJadi
Click to View Large Image
Jika tampilan report yang ada dihadapan anda sudah seperti gambar diatas, sekarang waktunya untuk mulai memanggil report yang telah kita buat menggunakan iReport ini dari IDE NetBeans dan lanjut ke langkah ke 4 :)
  1. Memanggil Master-Detail Report Dari Program Java.
Sebelum melangkah ke tahapan selanjutnya, tambahkanlah dahulu library-library yang diperlukan untuk dapat menjalankan Report yang telah kita buat dengan iReport. Beberapa library yang dibutuhkan terlihat seperti gambar dibawah ini: LibraryReport
Click to View Large Image
 Note : Semua library tersebut, dapat diambil dari direktori lib/ tempat anda menginstal iReport.
Setelah menambahkan library-library yang dibutuhkan, sekarang buatlah sebuah JFrame baru dan tambahkanlah beberapa komponen sehingga nampak seperti gambar dibawah ini: DesignFrame
Click to View Large Image
Sedangkan untuk JComboBox, gantilah modelnya dengan cara klik kanan komponen JComboBox kemudian pada panel Properties pilihlah model. Setelah itu untuk isian Item, gantilah seluruh nilai default dengan AUD, HAAP dan VID hingga seperti gambar dibawah ini: JComboBoxModel
Click to View Large Image
Setelah mengganti model JComboBox, sekarang beri ActionEvent pada JButton yang berfungsi untuk menampilkan Reportnya dengan cara klik kanan pada JButton kemudian pilih Action > actionPerformed kemudian pastekan kode dibawah ini:
        this.setCursor(Cursor.getPredefinedCursor(Cursor.WAIT_CURSOR));

        Properties systemProp = System.getProperties();

        // Ambil current dir
        String currentDir = systemProp.getProperty("user.dir");

        File dir = new File(currentDir);
        String reportName = "RptMaster.jrxml";
        String reportDirName = "Report";

        File fileRpt;
        String fullPath = "";
        if (dir.isDirectory()) {
            String[] isiDir = dir.list();
            for (int i = 0; i < isiDir.length; i++) {
                fileRpt = new File(currentDir + File.separatorChar + isiDir[i] + File.separatorChar +
                        reportDirName + File.separatorChar + reportName);

                if (fileRpt.isFile()) { // Cek apakah file RptMaster.jrxml ada
                    fullPath = fileRpt.toString();
                    System.out.println("Found Report File at : " + fullPath);
                } // end if
            } // end for i
        } // end if

        // Ambil Direktori tempat file RptMaster.jrxml berada
        String[] subRptDir = fullPath.split(reportName);
        String reportDir = subRptDir[0];
        System.out.println("Report Directory at : " + reportDir);

        // Ambil Kode Kategori
        final String paramKdKategori = jComboBox1.getSelectedItem().toString();
        Connection con = null;
        try {
            String jdbcDriver = "com.mysql.jdbc.Driver";
            Class.forName(jdbcDriver);
            String url = "jdbc:mysql://localhost/rptmasterdetail";
            String user = "root";
            String pass = "rahasia";

            con = (Connection) DriverManager.getConnection(url, user, pass);
            Statement stm = (Statement) con.createStatement();

            // Persiapkan parameter untuk Report
            Map parameters = new HashMap();
            parameters.put("PRM_KD_KATEGORI", paramKdKategori);
            parameters.put("SUBREPORT_DIR", reportDir);

            try {
                JasperReport JRpt = JasperCompileManager.compileReport(fullPath);
                JasperPrint JPrint = JasperFillManager.fillReport(JRpt, parameters, con);
                JasperViewer.viewReport(JPrint, false);
            } catch (Exception rptexcpt) {
                System.out.println("Report Can't view because : " + rptexcpt);
            }
        } catch (Exception e) {
            System.out.println(e);
        }
        this.setCursor(Cursor.getDefaultCursor());
Setelah menambahkan ActionEvent pada JButton, ada 1 langkah lagi yang harus dilakukan yaitu kopikan file .jrxml dan file .jasper yang terdapat pada direktori Report/ kedalam direkotri build/ dan dist/. Sedangkan cara untuk meng-kopikan secara otomatis yaitu dengan meng-edit file build.xml, untuk mengedit file build.xml bukalah menu Files Inspector kemudian klik kanan pada file build.xml seperti gambar dibawah ini: EditBuildxml
Click to View Large Image
Setelah file build.xml terbuka, sekarang pastekanlah kode dibawah ini pada baris ke 68 :

        
        
            
        
    

    
        
        
            
        
    
Setelah itu simpan kemudian coba jalankan dengan menekan tombol F6, dan jika tidak ada masalah maka Report yang telah kita buat akan ditampilkan dari program java kita seperti gambar dibawah ini:

ICBS PAYAKUMBUH NEWS

CERITA ASIK

INFO BMKG

BERITA IT

Obrolan

OLAH RAGA

DUNIA

Foto Leo

Foto Leo

ALQURAN TERJEMAHAN

JADWAL SHOLAT

jadwal-sholat

Popular Posts

DOKUMENTASI

TAMU