Tutorial Delphi 7 [PDF]

Citation preview

---

Assalamualaikum Wr. Wb. Salam Luar Biasa Semuanya, Wah Wah Wah ketemu lagi kita di Eko Wardoyo Personal Blog. Kemaren Saya ada janji buat memulai postingan kita dengan materi materi Borland Delphi 7. Seperti Kata Pepatah nich Tak Kenal Maka Tak Sayang, Makanya di Postingan kali ini kita bakal kenalan dulu sama yang namanya Borland Delphi 7. Monggo Disimak Temen Temen Semua.



Borland Delphi 7 -> Pengenalan Awal Delphi adalah suatu bahasa pemograman ( development language ) yang digunakan untuk merancang suatu aplikasi program. keunggulan Delphi dibanding bahasa pemograman lainnya : 1. IDE ( integrated Development Environment ) yakni lingkungan aplikasi yang didalamnya terdapat menu menu yang memudahkan kita untuk membuat suatu proyek program. 2. mudah digunakan, source kode delphi yang merupakan turudan dari pascal. 3. sifatnya multi purphase yakni mudah digunakan untuk mengembangkan berbagai keperluan pengembangan aplikasi Mengenal Lembar Kerja Delphi 7 : Untuk Membuka Program Pilih Start -> Program File -> Borland Delphi 7 -> Delphi 7.exe



Lembar Kerja Delphi Bagian Bagian dari Lembar Kerja Delphi, Berikut Penjabarannya : 1. Object Tree View -> diagram pohon yang menggambarkan hubungan logis komponen kompenen dalam project program. meliputi Form, Modul, Frame yang sesuai dengan penempatannya.



Jendela Object Tree View 2. Object Inspector -> Merupakan jendela yang digunakan guna mengatur tampilan komponen pada form, seperti menulisan tampilan Caption, Penamaan dari suatu komponent. Object Inspector secara umum terbagi menjadi 2 tab, Yakni : Object Properties yang digunakan untuk mengatur tampilan dalam suatu komponen baik itu nama, warna, font, border dan lain sebagainya.



Jendela Object Inspektor Properties Object Event yang digunakan untuk memberikan fungsi yang lebih detail dari perintah-perintah coding yang kita buat didalam komponent, agar berjalan seperti yang kita inginkan.



Jendela Object Inspector Event 3. Form Designer -> Merupakan tempat yang digunakan untuk merancang suatu tampilan aplikasi program yang dapat dimasukkan komponen komponent pallete.



Tampilan Form Designer 4. Component Pallete -> Merupakan Kumpulan Icon yang Digunakan untuk merancang suatu aplikasi, dimana mereka akan membentuk suatu interface sebuah aplikasi. Dalam Setiap komponen Pallete semua icon dikelompokkan dalam berbagai komponen sesuai dengan fungsi dan kegunaannya.



Berikut Beberapa Fungsi Dari Suatu Pallete Standart :



Component dan Fungsin Pallete 5. Code Editor -> Bagian dari Delphi yang kita gunakan dalam penulisan Kode Program. Pada bagian Code Editor terdapat 3 bagian tama yakni = bagian paling kiri yang berupa angka menunjukan baris dan kolom dan keterangan modified menunjukan bahwa telah terjadi modifikasi terhadap baris program. dan yang paling kanan menunjukkan tentang tombol insert atau overwrite.



Tampilan Jendela Unit.



Pengenalan Design Form Delphi 7 – Latihan 1 16/10/2011 by Eko Wardoyo Selamat Malam Temen Temen Semua, hehehe Hari ini Kita Ketemu Lagi nich, Dapet Kesempatan buat nulis posting lagi jadi sempetin nulis lagi di catatan eko ^.^’. Nah kalau kemaren kita udah kenalan sama IDE lembar kerja dari Delphi sekarang kita coba coba buat aplikasi pertama kita nich, sekalian belajar bikin tampilan design aplikasi berdasarkan pallete pallete standar di delphi dan sedikit codding programnya, so simple tapi untuk hal awal kita mulai dengan yang sederhana sederhana dulu, monggo disimak ya. Pada Kolom tab Di Borland Delphi Kita akan Buat satu Form Baru Buka Tampilan Form Dengan Memilih File -> New -> Form. Atau kalau kita membuka borland delphi pertama kali akan sudah keluar tuch formnya jadi tinggal mensavenya aja. Buat Direktori dimana temen temen semua bakal simpan semua materi materi kita nich. Misal Di Direktori Partisi D:/Belajar Borlan Delphi/Materi —> kita membuat di partisi D dengan Nama Belajar Borland Delphi dan didalam Direktori Borland Delphi kita buat lagi folder Materi. Awal yang harus kita kerjakan : Save Project dengan memilih File -> Save Project As -> Maka akan tampil jendela save :



Namun Jendela Save yang akan Keluar Pertama kali adalah bukan jendela Save Project Namun Save Unit Yakni Yakni File Unit / Form. Kita save Dulu Nama Form Pertama Kita Latihan_1.



Save Unit Kita dengan nama Latihan_1 Setelah Save Unit Kita dengan Nama Latihan_1, Maka Kita akan melihat Jendela Save Again dengan fungsi untuk menyimpasn File Project, yang akan kita buka terus dalam latihan dan materi materi kita kali ini, Kita Save dengan Nama Belajar Borland Delphi.



Simpan Belajar Delphi



Dengan



nama



Nah Setelah itu kita kan mulai latihan di awal ini. materi Pertama ini kita akan belajar mendesign Sebuat Form Aplication yang sudah kita save tadi. Buka File Unit / Form yang sudah kita panggil tadi. Buat lah Tampilan Form Sebagai Berikut :



Latihan 1 – Desain form Penggunaan Objek Yakni EditBox dengan Button, Klik 1 Kali Ke Form untuk mensetting propertiesnya jika pada Object Inspector yang berada di sebelah kiri bawah sudah bertuliskan form1 maka kita bisa mengubah properties settingnya sebagai berikut : Name : frm_latihan1 -> Untuk mengubah penamaan objek Caption : Perkenalan Delphi 7 – Latihan 1 -> Untuk Mengubah tampilan tulisan di area atas form Position : poDekstopCenter -> Agar Posisi Pada Saat Dijalankan berada Di tengah Layar Dekstop ______________________________________________________________________________ ___________ Kemudian Piliih Objek Edit Box dengan mengkliknya 1 kali dan mengganti Object Propertiesnya Sebagai Berikut : Name : edit_perkenalan -> Untuk Mengubah penamaan dari Objectnya. Text : ( hapus sehingga hasilnya kosong ) -> Agar Pada Saat tampil boxnya bernilai Kosong. ______________________________________________________________________________ ___________ Kemudian Piliih Objek Button dengan mengkliknya 1 kali dan mengganti Object Propertiesnya Sebagai Berikut : Name : button_close -> Untuk mengubah penamaan Objectnya.



Caption : Close -> Untuk Mengubah Tampilan Kata Pada Button Tersebut. ______________________________________________________________________________ ___________ Nah Seteleh Design Tampilan dan Settingan Propertiesnya Sudah, sekarang kita akan membuat suatu coding dari applikasi pertama kita ini. Berikut Alur Logikanya pada saat kita buka aplikasinya maka editbox akan muncul tulisan text ‘ Perkenalkan Nama Saya Borland Delphi 7 ”. klik 1 kali pada frm_latihan1 kemudian di object inspector kita pindah ke tab event dan klik 2 kali pada event / klik 2 x langsung pada frm_latihan1.



Nah Maka Akan Muncul tampilan Form Unit berikut : procedure begin



Tfrm_latihan_1.FormCreate(Sender:



TObject);



end; -> diantara Begin dan end; kita buat coding untuk tampilan Textnya sebagai berikut : procedure begin



Tfrm_latihan_1.FormCreate(Sender:



edit_perkenalan.text:=’Perkenalkan Nama Saya Borland Delphi 7′; end; berikut penjabarannya :



TObject);



kenapa kita berada pada event frm_latihan1.form Create karena logika yang akan kita buat ialah nanti tulisan akan muncul pada saat program dijalankan. edit_perkenalan.text -> adalah tempat kita akan menaruh file text yang akan kita tampilkan, sementara .text merupakan format properties text yang akan kita isi. :=’ Perkenalkan Nama Saya Borland Delphi 7′; -> := kode untuk menungjukkan nanti isinya adalah, sementara ‘Perkenalkan Nama Saya Borland Delphi 7’ adalah Text yang akan muncul pada saat program nanti jalan, dan ; merupakan penutup dari coding. ______________________________________________________________________________ _____________________ Kemudian Codding Berikutnya pada button_close, Klik 2 x atau pada object inspector event pilih OnClick, berikut coddingnya : procedure begin



Tfrm_latihan_1.button_closeClick(Sender:



TObject);



close end; berikut Penjabarannya : button_closeClick -> merupakan event yang akan berjalan jika kita mengclick prosedur tersebut maka codingnya akan berjalan. close -> merupakan fungsi untuk keluar dari aplikasi pada saat sudah menjalankannya. ______________________________________________________________________________ ______________________ jika sudah kita bisa menjalankan Programnya, Pada Tab Run -> Run / langsung Pencet F9 Pada Keyboard Anda. Maka Akan tampil Form Ditengah Deskop dengan tampilan text Perkenalkan Nama Saya Borland Delphi 7 dan Kita bisa keluar dari aplikasi dengan mengklik button Close.



Hasil Aplikasi Pertama Yang Kita Buat



Mengubah Properties untuk Component Delphi 7 09/11/2011 by Eko Wardoyo Assalamualaikum Temen Temen Semua, Salam Luar Biasa. Wah Wah Wah Udah Lama Sekali Tidak Update Blog ini ya *hehehehehe. Mohon Maaf Sebelumnya Yah Karena Sedikit Kesibukan Pribadi jadi lupa ada catatan catatan kecil yang harus di buat dan dibagikan disini. Nah Karena Sekarang Punya kesempatan Ayo Kita Kutak Kutik Blog ini lagi. Masih Melanjutkan Materi Belajar Delphi 7 nich. Karena Program Sudah Terinstall Dengan Baik, Sudah Mengenal Juga Program Seperti Apa Borland Delphi 7. Ayo kita bahas materi dasar yang harus dikenal oleh seorang Program Delphi Atau biasa Kitas Sebut Delphier *hehehehe aku juga baru tau istilah itu (^.^’) malu. Materi Kita Kali ini adalah Mengenal Object Properties Component Delphi 7.



Properties Object Component Delphi Bisa Kita lihat Pada Objcet Inspector Delphi yang terletak di sebelah kiri bawah Program Delphi 7. Setiap Component pada delphi memiliki pengaturan tampilan dan penamaan Yang wajib kita ketahui loch. Nah kita bahas beberapa yang penting penting disini ya, dan beberapa lainnya mungkin kita coba review di setiap materi materi delphi selanjutnya : >> Properties Name Properties ini merupakan pengaturan untuk penamaan suatu component. Dimana Kalau kita mau memberikan procedure untuk komponent tersebut maka nama dari componentnya akan kita tuliksan terlebih dahulu. Untuk Properties name tidak boleh menggukanan spasi untuk penamaannya jadi bisa digantti dengan garis bawah atau underscore contoh edit_nama. jadi sebelum membuat suatu list code program kita mesti memberikan nama dulu untuk setiap componentnya untuk memudahkan kita memanggil prosedur untuk component tersebut.



>> Properties Caption Untuk properties Caption merupakan Properties tampilan nama dari component tersebut. berbeda dengan penamaan yang akan digunakan untuk pemanggilan dan penggunaan procedure untuk caption hanya perbengaruh untuk tampilannya saja jadi kalau ada component button bisa kita berikan caption untuk button tersebut sesuai dengan fungsinya. contoh button1 diberi nama button_keluar dan untuk captionnya Keluar.



>> Properties Text Properties ini berpengaruh pada teks yang tampil dalam setiap component. misalnya ada component edit box yang pada saat tampil akan menampilkan teks edit1. maka kita bisa merubah tampilan teks tersebut pada kolom properties text sebagai tampilan awalnya mau tampil teks apa. kalau mau tanpa teks tinggal hapus tulisan pada kolom properties textnya.



>> Properties Font Pada Properties ini kita dapat mengatur tampilan teks yang muncul pada tampilan designnya. seperti Menebalkan ( bold ), memiringkan ( italic ), memberi garis bawah ( underline ), membesarkan font ( size ) atau bahkan mengganti style font itu sendiri. agar tampilan jadi lebih menarik dan bagus.



untuk penggantian ini kita bisa langsung menggunakan radio box dari font tersebut atau satu persatu dari propertiesnya. untuk penggunaan font radio box kita bisa mengklik kotak kecil yang ada pada properties font. sehingga muncul tampilan berikut :



disana lengkap seperti Jenis Font, Stylenya, Sizenya, Bahkan Warnanya yang juga diberikan sample preview dari tampilannya. b(^o^)d. >> Properties Visible Untuk Properties ini ialah properties untuk mengatur tampilan dari component apa itu ditampilkan atau tidak. component tersebut akan ditampilkan dalam form jika bernilah visible := true. kalau kita mau menyembunyikan komponent agar tidak terlihat pada saat penampilan bisa mengganti nilai properties ini menjadi visible := false.



Menampilkan Teks Pada Edit Box – Delphi 7 10/11/2011 by Eko Wardoyo Assalamualaikum, Salam Luar Biasa Temen Temen Semua. Udah Lama Gak Buka Buka Catatan Delphi Di Blog ini *hehehehe biasa menyibukkan diri dengan hal lain. Nah karena ada kesempatan buat bikin postingan kali ini ayo kita belajar lagi. Kalau kemarin kemarin udah install program Borland Delphi 7 nya udah kenalan juga sama area kerja Borland Delphi 7 nya, nah sekarang sudah waktunya kita belajar bermain coding atau membuat program aplikasi dengan bahasa borland delphi 7. untuk Judul Kali ini kita akan membuat aplikasi sederhana yakni menampilkan Teks pada component edit box di delphi 7, Monggo Disimak sampai akhir karena ada latihan juga yang bisa temen coba di rumah. Pertama Design Form Sebagai Berikut :



Ubah Properties Name Setiap Object Sebagai Berikut :



Berikut Listing Kodenya :



1. Klik 2 Kali Pada Frm_latihan 2 kemudian Ketikkan Code Berikut : 1 procedure Tfrm_latihan2.FormCreate(Sender: TObject); 2 begin 3 4 edit_tanya.Text:='Belajar Delphi Susah Gak Sih ??'; 5 6 end; dari code berikut bisa kita artikan Tfrm_latihan2.formcreate berarti code dijalankan pada saat frm_latihan2 ditampilkan, jadi pada saat form jalan nanti pada edit_tanya maka akan muncul teks ‘Belajar Delphi Susah Gak Sih ??. kemudian klik 2 kali pada button_jawab atau pada object inspector pada event click klik 2 kali.



kemudian ketikkan code berikut : 1 procedure TForm1.button_jawabClick(Sender: TObject); 2 begin 3 4 edit_jawab.Text:='Belajar Delphi Gampang Kok'; 5 6 end; kode berikut bisa dijabarkan bahwa pada saat button_jawab diklik maka edit_jawab akan menampilkan teks ‘Belajar Delphi Gampang Kok’. dan code yang terakhir klik 2 kali pada button_keluar kemudian ketikkan code berikut :



1 procedure TForm1.button_keluarClick(Sender: TObject); 2 begin 3 4 close; 5 6 end; dari code diatas bisa kita jelaskan sebagai berikut : jika button_keluar diklik maka delphi akan menjalankan code close; / keluar dari program. berikut tampilan aplikasinya : pada saat di klik jawab maka muncuk teks pada edit jawab.



Menghapus Teks Pada Edit Box – Delphi 7 11/11/2011 by Eko Wardoyo Assalamualaikum Temen Temen Semua, Salam Luar Biasa hari ini. Nah Pada Kesempatan Kali ini kita bakal Belajar Borland Delphi 7 lagi nich. Kalau Materi Sebelumnya Kita Belajar Menampilkan Teks Pada Component Edit Box Di Delphi 7 Maka Kali ini kita akan belajar Untuk Menghapus Teks Yang Ada Pada Component Edit Box di Delphi 7. Materinya Mudah Kok, Dan Jangan Lupa untuk mengerjakan Latihan latihannya yang tersedia di akhir materi ya, sambil melatih Apa Apa yang sudah Kita Bahas Di Postingan ini. Mari Langsung Aja Kita Mulai Materi Kita Kali ini. Pertama tama Design Form Sebagai Berikut :



Ubah Properties Name Setiap Object Sebagai Berikut :



Berikut Alur Aplikasinya: Pada Saat Program Dijalankan Maka Nama, Kelas, No Telp dan Alamat kita muncul pada Component Edit Box dan Memo. Nah Jika Kita Mengklik Button_Bersih Maka Seluruh Teks Pada Edit Box Dan Memo Hilang. dan yang terakhir jika Kita Mengklik Button_Keluar maka akan keluar dari program. Berikut List Codenya: Pada Saat Dijalankan Maka Teks Muncul Pada Edit Box —> Event FormCreate pada frm_materi3: 1procedure Tfrm_materi3.FormCreate(Sender: TObject); 2begin 3 4 edit_nama.Text:='Eko Wardoyo'; edit_kelas.Text:='11.7G.01'; 5 edit_notelp.Text:='0857xxxxxxxx'; 6 memo_alamat.Text:='Jln Pertanian Selatan RT 014 RW 03 No 12 Klender Jakarta 7Timur'; 8 9end; Pada Saat Button_bersih di Klik Maka Akan Menghapus Teks Pada Edit Box dan Memo, Menggunakan Event On Click Pada Component Button_Bersih : list code nya hampis sama dengan menampilkan teks hanya saja yang kita tampilkan kosong jadi (‘Eko Wardoyo’) kita ganti menjadi (‘ ‘) kutip kutip yang bisa diartikan akan menampilkan teks kosong (^o^)*mudah kan. 1 procedure Tfrm_materi3.button_bersihClick(Sender: TObject); 2 begin 3 edit_nama.Text:=''; 4 edit_kelas.Text:='';



5 edit_notelp.Text:=''; 6 memo_alamat.Text:=''; 7 8 end; 9 Pada Saat Button Keluar Di Klik Maka Akan Keluar dari Program Menggunakan Event On Click Pada Component Button_keluar : 1 procedure Tfrm_materi3.button_keluarClick(Sender: TObject); 2 begin 3 4 close; 5 6 end; Berikut ini adalah Hasil Applikasi Pada Saat Dijalankan ( Press F9 ) :



Nah Berikut ini tampilan Form Pada Saat Button Bersih Di Klik :



Combo Box dan Option Button – Delphi 7 12/11/2011 by Eko Wardoyo Assalamualaikum Temen Temen Semua, Salam Luar Biasa nich Untuk Hari ini. *hehehehehe Asik Asik Asik Hari Sabtu Waktunya Liburan nich dari Rutinitas Kantoran *hihihihi jadi bisa nyempetin buat bikin Materi Blog ini. Siapa tau bisa berguna buat temen temen yang memang sedang / baru Belajar Delphi 7 Sama Seperti Saya b(^o^)d. Untuk Materi Kali ini Seperti Judul Diatas Kita bakal mengenal Component Tab Standart Delphi Yang biasa kita temui di Kebanyakan Software Software Programing. Apa itu, Yupssss Combo Box dan Radio Button. Component ini biasanya sering kita pakai dalam pembuatan aplikasi atau program ya karena fungsinya memang sangat dipakai. Apa Sich Combo Box, Component Combo Box Pada Delphi 7 adalah semacam List Edit Box dimana kita tidak perlu menuliskan teks disana karena dia sudah menyiapkan teks yang akan ia tampilkan sesuai string / kata yang kita setting di sana. Jadi Semacam Pilihan Jawaban yang tinggal kita pilih dengan format List Down. Untuk Component ada di tab Standart dengan Icon Seperti Berikut ini :



Kalo Radio Button Apaan Sih itu ???, *hmmmmm kalau radio button ialah component dimana kita bisa memberikan pilihan hanya dengan mengklik salah satu dari opsi radio button yang ada. Penyelasan mudahnya ya suatu component pemilihan yang formatnya berbeda dengan combo box yang menggunakan drop down kalau radio button berupa pilihan Option Radio



atau titik hitam di tengah lingkaran ^.^’. Untuk Component Radio Button terdapat pula di tab standart dengan Icon Sebagai Berikut :



Teorinya Udah Sekarang langsung Aja Praktek penggunaannya Ya, Pertama Tama Buat tampilan Form Sebagai Berikut :



Ubah Properties Tiap Object Sebagai Berikut :



Nah Berikut Alur dari Program nya, Saat Program Dijalankan Maka Combo Box akan terisi 2 Pilihan Item Yakni : 1. Sistem Informasi. 2. Technik Komputer. Saat Radio Button dipilih Pagi / Siang maka edit box akan memunculkan teks ‘ Waktu Kuliah Anda Pagi / Siang’. Saat Radio Button dipilih Sore / Malam maka edit box akan memunculkan teks ‘Waktu Kuliah Anda Sore / Malam’. Dan Saat Button Keluar Di Klik Maka akan keluar dari program, Berikut List Code Programnya : Untuk Mengisi Combo Box kita bisa menggunakan 2 cara, yakni mengisi langsung pada saat design form dengan mengisinya pada properties name Items Combo Box seperti Gambar berikut ini :



Klik Kota Kecil pada Properties Name combo_jurusan, maka akan muncul dialog Box sebagai berikut :



Kita Tinggal Menuliskan Items / isi list yang ingin ditampilkan setiap baris kata kita tinggal enter. jika semua sudah tinggal klik Ok Saja. maka pada saat program dijalankan maka combo_jurusan akan menampilkan teks yang sudah kita setting tadi.



Namun ada satu cara lagi Mengisi items list pada combo box Delphi 7, yakni dengan menggunakan coding dimana kita mengatur list yang dimunculkan pada saat form dijalankan dengan menggnakan code program delphi 7, berikut Code Programnya : 1 procedure Tfrm_materi4.FormCreate(Sender: TObject); 2 begin 3 4 combo_jurusan.Items.Add('Sistem Informasi'); 5 combo_jurusan.Items.Add('Technik Komputer'); 6 end; 7 code tersebut kita bisa terjemahkan sebagai berikut : event formcreate berati code dijalankan pada saat program dijalankan, pada combo_jurusan.items beratir pada properties items add berarti ktia menambahkan (‘Sistem Informasi’) kenapa diberikan kutip karena yang akan kita masukkan berupa teks. Berikut Code Radio Button nya : 1 procedure Tfrm_materi4.radio_pagiClick(Sender: TObject); 2 begin 3 4 edit_waktu.Text:='Waktu Kuliah Anda Pagi / Siang Hari'; 5 6 end; Kalau Radio Button Pagi / Siang di Klik atau dipilih maka edit_waktu akan mengmpilkan teks := ‘Waktu Kuliah Anda Pagi / Siang hari’ 1 procedure Tfrm_materi4.radio_malamClick(Sender: TObject); 2 begin 3 edit_waktu.Text:='Waktu Kuliah Anda Sore / Malam Hari'; 4 5 6 end; Sama halnya dengan Radio Button Malam, Berikut Code Untuk Button Keluar : 1 procedure Tfrm_materi4.button_keluarClick(Sender: TObject); 2 begin 3 4 close; 5 6 end; Berikut Untuk tampilan Program Saat Sudah Dijalankan :



Combo Jurusan bisa di drop down dengan pilihan Items Sistem Informasi Masi Dan Technik Komputer.



Pada Saat Radio Button Sore / Malam Dipilih Maka Muncul Teks Pada Edit Box Waktu dengan Teks Yang Sudah Ditentukan ‘Waktu Kuliah Anda Sore / Malam Hari’.



Percabangan IF Pada Delphi 7 13/11/2011 by Eko Wardoyo Assalamualaikum Temen Temen Semua, Salam Luar Biasa Untuk Hari ini. Hari ini kita share Belajar Materi Delphi 7 lagi nih yang akan kita bahas kali ini ialah Mengenal Fungsi Percabangan IF pada Delphi 7.



Apa Sih Percabangan IF ????, Percabangan IF ialah kondisi dimana kita memberikan nilai yang berbeda pada output Delphi sesuai dengan kriteria yang sudah kita Buat Sebelumnya. jadi Semacam Kondisi dimana jika terjadi kondisi satu maka akan muncul statement satu namun jika kondisi dua akan muncul kondisi dua, begitu seterusnya. Nah Ayo Sama Sama kita simak Temen Temen. Pertama Tama Kita Buat Tampilan Form Design Sebagai Berikut :



Ubahlah Properties Name Tiap Object Sebagai Berikut :



Nah Berikut Alur Algoritma Programnya : – Pada Saat Program Di Jalankan Maka Combo Box Akan Terisi 3 Items sebagai berikut : Maw01-10, Mel02-20, Ros03-30. – Pada Saat Combo_kode dipilih Maw01-10 maka akan Tampil Teks : o Nama Kamar : Kamar Mawar o Lantai Kamar : Lantai 1 o No Kamar : No 10 – Pada Saat Combo_kode dipilih Mel02-20 maka akan Tampil Teks : o Nama Kamar : Kamar Mawar o Lantai Kamar : Lantai 2 o No Kamar : No 20 – Pada Saat Combo_kode dipilih Ros03-30 makan akan tampil Teks : o Nama Kamar : Kamar Rose o Lantai Kamar : Lantai 3 o No Kamar : No 30 – Saat Button_keluar di Klik Maka akan Keluar dari Program. Berikut ini Lict Code Programnya :



1 procedure Tfrm_materi5.FormCreate(Sender: TObject); 2 begin 3 4 combo_kode.Items.Add('Maw01-10'); 5 combo_kode.Items.Add('Mel02-20'); 6 combo_kode.Items.Add('Ros03-30'); 7 end; 8 pada saat program jalan maka combo_kode terisi 3 items : 1 2 3 procedure Tfrm_materi5.combo_kodeClick(Sender: TObject); begin 4 5 if combo_kode.Text='Maw01-10' then 6 begin edit_kamar.Text:='Kamar Mawar'; 7 edit_lantai.Text:='Lantai 1'; 8 edit_no.Text:='No 10'; 9 end 10 else if combo_kode.Text='Mel02-20' then 11 begin edit_kamar.Text:='Kamar Melati'; 12 edit_lantai.Text:='Lantai 2'; 13 edit_no.Text:='No 20'; 14 end 15 else begin 16 edit_kamar.Text:='Kamar Rose'; 17 edit_lantai.Text:='Lantai 3'; 18 edit_no.Text:='No 30'; 19 end; 20 end; 21 22 digunakan pada event onclick pada combo kode dimaksudkan kondisi berjalan pada saat combo kode di klik. penambahan begin setelah if agar bisa menggunakan 2 tampilan keluaran pada satu kondisi if. di else yang terakhir tidak ditambahkan if dikarenakan untuk penyederhanaan code dimana selain dari Mar01-10 dan Mel02-20 maka akan tampil Statement terakhir. 1 procedure Tfrm_materi5.button_keluarClick(Sender: TObject); 2 begin 3 4 close; 5 6 end;



Tombor Keluar untuk Keluar dari Program. Berikut untuk Tampilan Hasil Programnya :



pada Saat Tampil Combo Box Terisi 3 Items dengan Menggunakan Code Program. Kemudian Setelah Pemilihan Kombo Box Maka tampil pada nama, lantai dan no kamar sebagai berikut :



Percabangan Case Pada Combo Box – Delphi 7 14/11/2011 by Eko Wardoyo Assalamualaikum Temen Temen Semua, Salam Luar Biasa untuk pagi ini. Terbangun dari Tidur memberikan kesempatan untuk membuat materi Blog ini lagi *hehehehe. Kalau Kemarin Kemarin Kita Sudah Belajar Fungsi Percabangan IF Pada Borland Delphi 7 kali ini kita pakai percabangan versi lainnya yakni Menggunakan Percabangan Case Of.



Namun untuk saat ini saya mengkhususkan untuk percabangan Case pada Combo Box. Apa beda percabangan case dengan if, jika percabangan if lebih mengedepankan pernyataan statement yang jelas kondisinya pada Fungsi Case kita memberikan percabangan berdasarkan Kriteria Integer, Artinya Fungsi Case Hanya Menerima untuk kondisi kondisi yang dimana menggunakan tipe data Interger atau aritmatika. *hmmmm kita belum bahas Tipe Data dalam delphi ya *hihihi. Okelah Nanti kita akan bahas, nah untuk materi ini kita belum akan menggunakan fungsi variable integer pada Fungsi Case ini, Kenapa ?? karena kita akan membuat percabangan case pada combo box dimana sudah tersedia jenis data integer pada properties namenya. Monggo Disimak. Bagaimana Combo Box punya tipe data Integer padahalkan kita kalau mengisi Itemsnya selalu menggunakan Kata kata /(^o^’), Tidak lain dan tidak bukan ialah karena kita menggunakan properties items index atau urutan dari isi combo box tersebut, karena ia berbentuk aritmatik dan termasuk tipe data integer jadi bisa kita gunakan fungsi Case Of. *hmmmm Bingung Kan, Ayo langsung Praktek Aja. Buat Form Design Sebagai berikut :



Ubah Properties Namenya Sebagai Berikut :



Untuk Properties Frm_materi6 saya menambahkan penggantian pada Position menjadi Po Desktop Center yang tujuannya pada saat frm_materi6 dijalankan maka akan muncul di tengah layar desktop temen temen semua, jadi terlihat lebih rapih dan terposisi dengan baik. Berikut Alur Logika nya : – Pada Saat Program Dijalankan Maka Combo Box Akan Terisi NIM 11110216, 11110219, dan 11062142 dengan menggunakan code program. – Pada Saat Combo Box Di Klik dan dipilih maka akan terkoneksi dengan fungsi Case dimana jika ia urutan dengan index sebagai berikut : 0 : maka edit_nama akan muncul teks : Radjanta Ashari 1 : maka edit_nama akan muncul teks : Eko Wardoyo 2 : maka edit_nama akan muncul teks : Eriyanah Caswati



– Jika Button Keluar Di Klik maka akan keluar dari program ——————————————————————————————————————— —————————————————Nah Berikut Code Programnya : 1 procedure Tfrm_materi6.FormCreate(Sender: TObject); 2 begin 3 4 combo_nim.Items.Add('11110216'); 5 combo_nim.Items.Add('11110219'); 6 combo_nim.Items.Add('11062142') ; 7 end; 8 Pada Saat Program Dijalankan maka combo box terisi beberapa Items dari NIM : 1 procedure Tfrm_materi6.combo_nimClick(Sender: TObject); 2 begin 3 4 case combo_nim.ItemIndex of 0:edit_nama.Text:='Radjanta Ashari'; 5 1:edit_nama.Text:='Eko Wardoyo'; 6 2:edit_nama.Text:='Eriyanah Caswati'; 7 end; 8 9 end; 10 Pada Saat Combo_Nim di klik maka akan menjalankan percabangan Fungsi Case combo_nim.itemindex of : dimana itemindex merupakan penamaan dari urutan isian Combo Box Nim dimana urutan pertama akan diawali dengan index 0, jadi urutan paling atas memiliki index 0. nah jika index yang dipilih adalah 0 maka akan muncul teks nama yang sudah kita atur sebelumnya. untuk fungsi percabangan Case Of maka kita harus diakhir / ditutup dengan perintah End; untuk mengakhiri fungsi Case. 1 procedure Tfrm_materi6.button_keluarClick(Sender: TObject); 2 begin

3

close;

4

end; Pada Saat Button Keluar Di Klik Maka akan keluar dari program. Berikut Tampilan Hasil Form Setelah Dijalankan :



Combo Terisi pada saat program dijalankan



Funsi Case dijalankan dengan index dari combo Box



Mengenal Tipe Data Di Delphi 7 15/11/2011 by Eko Wardoyo Selamat Malam Temen Temen Semua, *hehehehehe Salam Luar Biasa tak lupa saya sampaikan. Hmmm Abis kalo nurutin kehendak hati yang lemes ini kayaknya gak semangat nich.



Jadi Saya Suka menyemangati diri sendiri \(^o^\) (/^0^)/ semangat semangat *hihihiihi (stress mode on) maklum abis kehujanan nich. Nah Temen Temen semua malam ini saya coba sharing lagi nich pengetahuan tentang delphi untuk sama sama belajar dan mengenal pemrograman delphi dengan lebih baik lagi. Sok Monggo Kita Belajar Bersama Disini, Hari ini saya mau bahas mengenai tipe data di Delphi. Secara Simplenya sich yang namanya tipe data itu istilah tempat untuk menentukan / memberikan nilai suatu variabel sesuai dengan nilai yang diberikan oleh seorang User. atau istilah lainnya batasan pengenal untuk semua nilai yang diterima oleh program / aplikasi. Contoh Mudahnya begini nich jika kita pengen menambahkan angka atau harga suatu barang dalam aplikasi delphi, jika kita memberikan tipe data string ( kalimat / alphanumerik ) maka hal tersebut akan ditolak karena nilai tidak dapat ditambah karena tidak sesuai dengan tipe data yang harusnya ada. Berikut Macam Macam Tipe Data Di Delphi : 1. Tipe Data Integer merupakan tipe data bilangan bulat yang hanya mengenal bilangan decimal dan tidak dapat mengenal bilangan pecahan. bentuk umumnya sebagai berikut : Var Nilai_1:integer; begin Nilai_1:100000; 2. Tipe Data Real merupakan tipe data bilangan yang mengenal bilangan bulan dan juga bilangan pecahan, jadi kalau urusan pembagian yang jawabannya pecahan kita kalau bisa pake tipe data ini temen temen. Bentuk Umumnya Sebagai Berikut : Var



Nilai_2: Real; Begin Nilai_2: 10,5; 3. Tipe Data Char merupaan tipe data yang sama dengan String berupa nilai Anumerik, hanya berbeda dari kapasitas ruang dari datanya kalau Tipe Data Char hanya mengenal 1 Karakter saja 4. Tipe Data String Merupakan Tipe data yang isinya berupa Anumerik yang tidak dapat diberikan operator perhitungan karena bukan bersifat numerik value. Berikut Bentuk Umumnya Var Nilai_3: String; Begin Nilai_3: ‘Eko Wardoyo’; Dalam Delphi Default Tipe data yang tampil di form Adalah Berupa String, Jadi kalau mau membuat fungsi operator atau penambahan,pengurangan,kali,bagi kita harus merubah tipe datanya dulu menjadi Tipe data numerik bisa Real / Integer. Untuk Perintah untuk merubah Tipe data Sebagai Berikut : strtofloat : untuk merubah tipe data string ke tipe data Real. strtoint



: untuk merubah tipe data string ke tipe data integer.



floattostr : untuk merubah tipe data real ke tipe data string. inttostr



: untuk merubah tipe data integer ke tipe data string.



untuk menampilkan teks dalam edit box, combo_box, ataupun memo borland delphi hanya mau menampilkan tipe data yang string jadi jika kita mau memberikan fungsi penggantian tipe data ke Real / Integer. dan pada saat mau kita tampilkan kembali kita harus merubahnya kembali menjadi string untuk ditampilkan. berikut Materi Merubah Tipe Data : Buat Tampilan Form Sebagai Berikut



Ubahlah Properties Name nya Sebagai Berikut :



Berikut Alur Logikanya : – pada Saat Program Berjalan Kita Akan Memasukkan Nilai 1 dan Nilai 2 dengan angka / Numeric untuk melihat hasil penjumlahannya – Pada Saat Button_tambah diklik maka hasil akan memberikan nilai hasil dari Nilai 1 di tambah Nilai 2. – Pada Saat Button_Bersih diklik maka akan membersihkan nilai 1 dan nilai 2. – Pada Saat Button_Keluar di klik maka akan keluar dari program.



——————————————————————————————————————— ——————————————————— Berikut List Code Programnya : 1 procedure Tfrm_materi7.button_tambahClick(Sender: TObject); 2 begin 3 4 a:=strtoint(edit_nilai1.Text); b:=strtoint(edit_nilai2.Text); 5 6 c:=a+b ; 7 8 edit_hasil.Text:=inttostr(c); 9 10 end; 11 a,b,c adalah variable penamaan dari nilai yang muncul pada edit box di delphi. karena kita mau membuat penjumlahan maka kita akan mengubah tipe data dari default string menjadi tipe data integer. dengan memberikan penamaan sementara dan kode perubahannya strtoint yakni merubah tipe data string menjadi integer. Pada Saat menampilkan c kita merubah kembali tipe data c yang tadinya integer menjadi string karena Tampilan default pada editbox delphi adalah string. 1 var frm_materi7: Tfrm_materi7; 2 a,b,c:integer; 3 jika kita menggunakan penamaan variable maka jangan lupa untuk menambahkan tipe data dari variable di code list delphi Var seperti diatas. temen temen bisa scroll up unitnya dan cari tulisan seperti diatas var kemudian ditambahkan dengan format variable_1 , Variable2 : tipe data; 1 procedure Tfrm_materi7.button_bersihClick(Sender: TObject); 2 begin 3 4 edit_nilai1.text:=''; 5 edit_nilai2.text:=''; 6 edit_hasil.Text:=''; 7 end; 8 Pada Saat Button Bersih diklik maka akan menghapus seluruh teks pada edit box. 1 procedure Tfrm_materi7.button_keluarClick(Sender: TObject); 2 begin 3 close;



4 5 end; 6 Pada Saat Button Keluar di klik maka akan keluar dari program. Berikut Tampilan Saat Dijalankan :



saat klik tambah muncul hasil nilai1 + nilai2



Saat Bersih Di Klik Seluruh Teks Hilang



Mengenal Operator Aritmatika Pada Delphi 7 16/11/2011 by Eko Wardoyo Assalamualaikum Temen Temen Semua, Salam Luar Biasa Malam ini. Hmmmm Hari ini Pengen Share Lagi Lagi dan Lagi *hihiihihi kalau kata Sponge Bob Aku Siap Aku Siap Aku Siap.



Nah kesempatan kali ini masih berkutat dengan pembelajaran Delphi nich. Untuk Kategori tutorial materi lain masih dalam penyiapan materi dan ide ide. jadi jangan bosen belajar Delphi disini ya . Untu Materi Kali ini meneruskan Materi sebelumnya



yang sudah kita bahas yakni mengenal tipe data pada delphi untuk saat ini kita akan mengenal Operator Aritmatikanya nich, mari disimak ya. Operator Aritmatikan mempunyai fungsi untuk melakukan suatu proses aritmatika yang dapat meliputi penambahan, pengurangan, perkalian, pembagian dan fungsi fungsi aritmatika lainnya. *hmmmm ini dilakukan untuk mengubah nilai suatu variable yang nantinya akan menghasilkan nilai yang baru. kemarin kita sudah membahas mengenai operator penambahan atau ” + ” nah kali ini kita lengkapi Operator Operator yang tersedia sekalian memberikan latihan latihan guna memperlancar bahasa pemograman delphi kita. Berikut ini adalah Tipe Operator Aritmatika dalam Bahasa Pemograman Borland Delphi :



Berikut Contoh Hasil Penggunaan Operator Aritmatika Diatas :



Nah Langsung Aja Kita Praktek ya, Pertama Kita buat form design sebagai berikut :



Ubah Properties Namenya Sebagai Berikut :



Berikut Alur Logikanya :



– Nilai 1 dan Nilai 2 diisi manual oleh user. – Pada Saat Button Tambah diklik maka nilai 1 dan nilai 2 berubah menjadi nilai real, kemudian nilai hasil ditampilkan penambahan nilai 1 dan nilai 2. – Pada Saat Button Kurang diklik maka nilai 1 dan nilai 2 berubah menjadi nilai real, kemudian nilai hasil ditampilkan pengurangan nilai 1 dan nilai 2. – Pada Saat Button Kali diklik maka nilai 1 dan nilai 2 berubah menjadi nilai real, kemudian nilai hasil ditampilkan pengalian nilai 1 dan nilai 2. – Pada Saat Button Bagi diklik maka nilai 1 dan nilai 2 berubah menjadi nilai real, kemudian nilai hasil ditampilkan pengalian nilai 1 dan nilai 2. – Pada Saat Button Div diklik maka nilai 1 dan nilai 2 berubah menjadi nilai integer, kemudian nilai hasil ditampilkan hasil div nilai 1 dan nilai 2. – Pada Saat Button Mod diklik maka nilai 1 dan nilai 2 berubah menjadi nilai integer, kemudian nilai hasil ditampilkan hasil Mod nilai 1 dan nilai 2. – Jika Button Keluar diklik maka akan keluar dari program. ——————————————————————————————————————— ———————————————— Berikut list Programnya : 1 var frm_materi8: Tfrm_materi8; 2 a,b,c:real; 3 d,e,f:integer; 4 Buatlah Variable Dengan tipe data seperti Di atas. 1 procedure Tfrm_materi8.button_tambahClick(Sender: TObject); 2 begin 3 4 a:=strtofloat(edit_nilai1.Text); b:=strtofloat(edit_nilai2.Text); 5 6 c:=a+b; 7 8 edit_hasil.Text:=floattostr(c); 9 10 end; 11



1 procedure Tfrm_materi8.button_kurangClick(Sender: TObject); 2 begin 3 4 a:=strtofloat(edit_nilai1.Text); b:=strtofloat(edit_nilai2.Text); 5 6 c:=a-b; 7 8 edit_hasil.Text:=floattostr(c); 9 10 end; 11



1 procedure Tfrm_materi8.button_divClick(Sender: TObject); 2 begin 3 4 d:=strtoint(edit_nilai1.Text); e:=strtoint(edit_nilai2.Text); 5 6 f:=d div e; 7 8 edit_hasil.Text:=inttostr(f); 9 10 end; 11



1 procedure Tfrm_materi8.button_kaliClick(Sender: TObject); 2 begin 3 4 a:=strtofloat(edit_nilai1.Text); b:=strtofloat(edit_nilai2.Text); 5 6 c:=a*b; 7 8 edit_hasil.Text:=floattostr(c); 9 10 end; 11



1 procedure Tfrm_materi8.button_bagiClick(Sender: TObject); 2 begin



3 a:=strtofloat(edit_nilai1.Text); 4 b:=strtofloat(edit_nilai2.Text); 5 6 c:=a/b; 7 8 edit_hasil.Text:=floattostr(c); 9 10 end; 11



1 procedure Tfrm_materi8.button_modClick(Sender: TObject); 2 begin 3 4 d:=strtoint(edit_nilai1.Text); e:=strtoint(edit_nilai2.Text); 5 6 f:=d mod e; 7 8 edit_hasil.Text:=inttostr(f); 9 10 end; 11



1 procedure Tfrm_materi8.button_keluarClick(Sender: TObject); 2 begin 3 4 close; 5 6 end;



Mengubah Warna Component Form Pada Delphi 7 25/12/2011 by Eko Wardoyo AssalamualaikumTemen Temen Semua, Salam Luar Biasa Hari ini. Hari ini saya mau share materi delphi lagi nich. Hal yang akan kita bahas kali ini adalah bagaimana merubah warna suatu component di borland delphi 7. beberapa component yang biasa kita gunakan dalam design form bisa kita rubah warnanya dengan 2 cara : yakni merubah melalui properties di object inspector pada colom tab atau merubahnya menggunakan listing code. untuk saat ini kita akan membahas



bagaimana merubah warna component melalui listing code pada Borland Delphi 7. Untuk component yang akan kita coba ganti warnanya adalah component formnya, jadi kita akan merubah rubah warna form menggunakan component button dengan list code. Langsung saja disimak ya Temen Temen. Pertama Buat Design Form Seperti Dibawah ini :



Ubah Properties Namenya sebagai Berikut:



Berikut Alur Logika Programnya : – Pada Saat Program jalan kita bisa memilih button dengan warna yang kita inginkan. – Jika button warna diklik maka warna dari form akan berubah mengikuti warna yang sudah diset berdasarkan caption button. – jika button keluar diklik maka akan keluar dari program. ——————————————————————————————————————— ————————————————Berikut List Programnya : 1 procedure Tfrm_materi9.button_merahClick(Sender: TObject); 2 begin 3 4 frm_materi9.Color:=clskyblue; 5 6 end; – Saat Button Merah Di Klik layar nanti layar berubah jadi biru langit *hahaha salah tulis penamaan button ” Gomenne” 1 procedure Tfrm_materi9.button_navyClick(Sender: TObject); 2 begin 3 frm_materi9.Color:=clnavy;



4 5 end; 6 – Saat button Navy diklik nanti warna form berubah menjadi Biru Navy 1 procedure Tfrm_materi9.button_greenClick(Sender: TObject); 2 begin 3 4 frm_materi9.Color:=clgreen; 5 6 end; – Jika Button Green Di Klik Maka Form Menjadi Warna Hijau Gelap 1 procedure Tfrm_materi9.button_maroonClick(Sender: TObject); 2 begin 3 4 frm_materi9.Color:=clmaroon; 5 6 end; – Saat Button Maroon Di Klik Maka Form berubah warna menjadi merah maroon. 1 procedure Tfrm_materi9.button_oliveClick(Sender: TObject); 2 begin 3 4 frm_materi9.Color:=clolive; 5 6 end; – Saat Button Olive di klik makan warnanya berubah jadi warna Olive. 1 procedure Tfrm_materi9.button_yellowClick(Sender: TObject); 2 begin 3 4 frm_materi9.Color:=clyellow; 5 6 end; – Saat Button Yellow Di Klik Warna Form menjadi warna kuning. 1 procedure Tfrm_materi9.button_purpleClick(Sender: TObject); 2 begin 3 frm_materi9.Color:=clpurple; 4



5 end; 6 – Jika Button Purple di klik Warna form berubah warna Ungu *hahahaha. 1 procedure Tfrm_materi9.button_redClick(Sender: TObject); 2 begin 3 4 frm_materi9.Color:=clred; 5 6 end; – Jika Button Red di klik maka warna form menjadi warna Merah. 1 procedure Tfrm_materi9.button_blueClick(Sender: TObject); 2 begin 3 4 frm_materi9.Color:=clblue; 5 6 end; – Saat Button Blue di klik maka warna form menjadi warna biru. 1 procedure Tfrm_materi9.button_climeClick(Sender: TObject); 2 begin 3 4 frm_materi9.Color:=cllime; 5 6 end; – Jika Button Clime Di Klik Maka Warna berubah jadi warna Clime 1 procedure Tfrm_materi9.button_keluarClick(Sender: TObject); 2 begin 3 4 close; 5 6 end; – Saat Button Keluar diklik makan akan keluar dari program



Ini hasil Button Green Saat Di Klik



Saat Button red Di Klik



ini Warna Blue Sky Nah Mudah sekali kan temen temen, berikut ini list warna yang tersedia yang bisa rubah sesuka hati :



List And Preview Warna Pada Delphi 7.0



Delphi – Membuat Teks Berjalan 01/02/2012 by Eko Wardoyo



Assalamualaikum Temen Temen Semua. Salam Semangat untuk Hari ini /(^.^”) *hehehehe lama sekali kita vakum dalam pembelajaran kali ini kita mulai lagi belajar kita d(^o^). Kita bakal melanjutkan kan Pembelajaran Pemrograman Borland Delphi 7.0 yang sudah pernah kita bahas dengan materi yang berbeda tentunya /(^.^”).



Nah Untuk Kesempatan Kali ini kita akan membahas bagaimana sih membuat suatu teks Berjalan Dengan Bahasa Pemrograman Borland Delphi 7. Kita akan membuat suatu tampilan yang atraktif untuk sebuat aplikasi atau form dengan adanya teks berjalan. yang pastinya gampang banget *hehehehehe. untuk pembahasan pertama di tahun 2012 ini juga saya akan mencoba memberikan 1 aplikasi yang saya buat untuk materi kali ini. bisa temen temen pelajari dan gunakan yang pastinya keren loch *hehehehe, Monggo DiSimak ya temen temen. Menggunakan Sebuah Komponen label yang dijadikan teks sebagai objek yang akan berjalan dan juga penggunaan panel untuk batas akhir dan awal landasan label yang akan berjalan. Komponen baru yang akan kita pelajari kali ini adalah komponent Timer dimakan ialah yang akan membantu dalam proses jalannya teks yang ingin kita jalankan. bisa temen temen lihat pada tab System /(^.^”). 



Pertama Tama Buad Design Form Seperti Di bawah ini







Ubah Properties Namenya Sebagai Berikut :



komponen TIMER ini



Berikut Alur Logika Programnya : 



Pada Saat Program jalan Maka Radio Button Otomatis Checked pada Speed lambat dan teks berjalan ke arah kiri, kalau sudah sampai diakhir kata di bagian kiri kemudian teks kembali ke kanan dan terus menerus seperti itu.







Jika Radio Button Di Pilih Speed Sedang Maka kecepetan Teks Bertambah Cepat Dibanding Yang Lambat, dan Jika Di Pilih Speed Cepat Kecepatan Teks Berjalan Dengan Cepat.







Jika Button Keluar Di Klik Maka Akan keluar dari program.



——————————————————————————————————————— ————— Berikut List Programnya : 1 var 2



frm_materi10_teksberjalan: Tfrm_materi10_teksberjalan;



3



batas_kiri,batas_kanan:integer;



Kita Buat variable untuk menentukan batas kiri dan kanan. Dimana akan kita gunakan sebagai acuan kapan teks itu berganti posisi dan mengulangi perjalanannya /(^.^”). 1 procedure Tfrm_materi10_teksberjalan.Timer1Timer(Sender: TObject); 2 begin 3 4



batas_kiri:=panel1.Left-label1.Width;



5 6 7 8 9 1 0



batas_kanan:=panel1.Left+panel1.Width;



if label1.Left=batas_kiri then begin label1.Left:=batas_kanan



1 1 1 2



end else begin



1 3



label1.Left:=label1.Left-1; end;



1 4 1 5



end;



1 6



Ini Code yang digunakan untuk menjalankan teks label yang ada. dimana dalam 1 interval yang dtentukan maka akan menjalankan code berkurangnya posisi left dari label 1 sehingga membuatnya seakan berjalan kedepan :D. jangan lupa kita membatasi perjalanannya agar tidak terus berjalan dan tidak muncul kembali karena itu dibuat batas kiri dan kanan dimana jika label1.left sudah memenuhi batas kiri maka posisi label akan berpindah ke batas kanan sehingga membuatnya mengulangi perjalanan sebatas jalur panel yang sudah disediakan. 1procedure Tfrm_materi10_teksberjalan.FormCreate(Sender: TObject); 2begin 3 4



radiobutton1.Checked:=true;



5 6end;



Pada Saat Form Create Maka Radiobutton Otomatis Berada Pada Speed Lambat, Sehingga Menjalankan Label Teks. 1procedure Tfrm_materi10_teksberjalan.button_keluarClick(Sender: TObject);



2 begin



3 4 5



Close;



6



end;



Jika Button Keluar Di Klik Maka Keluar Dari Program. 1procedure Tfrm_materi10_teksberjalan.RadioButton1Click(Sender: TObject); 2begin 3 4



timer1.Interval:=200;



5 6end;



1procedure Tfrm_materi10_teksberjalan.RadioButton2Click(Sender: TObject); 2begin 3 4



timer1.Interval:=50;



5 6end;



1procedure Tfrm_materi10_teksberjalan.RadioButton3Click(Sender: TObject); 2begin 3 4



timer1.Interval:=10;



5 6end;



Merubah Interval Pengerjaan Koding Pada Timer, melalui setting Interval Timer. Berikut ini adalah Tampilan Aplikasinya Saat Sudah Dijalankan /(^.^”).



Hasil Aplikasi teks Berjalan d(^o^) Nah Gampang Kan (^o^) tentunya Dunk oleh karena itu belajar delphi itu menyenangkan *hehehehe. Buat temen temen mau liat langsung source code beserta aplikasinya tinggal download di link berikut ya. Tinggal Temen Temen Amati Pelajari dan Modifikasi Sesuai dengan kreatifitas temen temen semua *hehehe. Download Materi 10 – Membuat Teks Berjalan Nah Sesuai dengan Janji saya sebelumnya saya akan memberikan juga aplikasi Teks Berjalan Yang Utuh Buatan saya sendiri *hehehehe /(^.^”) ini aplikasi pertama yang saya buat secara utuh dan bisa dijalankan dan dinikmati orang lain *whuhhhh temen temen mesti coba nich. Intinya konsepnya hnya membuat teks berjalan di layar komputer kita untuk kata kata motivasi, pengingat atau apapun itu. Fitur sudah cukup lengkap dari setting font dan size serta kecepatan yang beranekaragam. Ukuran Aplikasinya kecil Kok Temen temen, Berikut Screen Shoot Menu dan hasilnya d(^o^).



Menu Setting nya /(^.^")



Hasil Aplikasi Saat Sudah Di Aktifkan.



Delphi – Membuat Loading Progress 02/02/2012 by Eko Wardoyo Assalamualaikum Temen Temen semua, Salam Semangat untuk pagi hari ini *hehehehe. Nyok kita belajar Borland Delphi Lagi /(^.^”) Melanjutkan Materi materi Sebelumnya tentunya, / (^o^”) sambil santap pagi kita berbagi *hehehehe.



Untuk Saat ini kita akan membahas bagaimana membuat form loading atau progress bar. Dimana temen temen bisa menyelipkan form ini setelah form login sebelum memasuki form menu utama *hmmm. membuat tampilan yang atraktif merupakan kunci sukses Program Cantik dan disenang *hehehehe. Dah jangan lama lama nanti keburu telat ngantor nich *owowowowowo. Monggo Disimak ya Temen Temen Semua. Hari ini kita akan menggunakan component yang baru kemarin kita pelajari yakni Timer dan tambahan Component hari ini adalah component Progress Bar yang bisa temen temen dapatkan di Tab Win32 (lihat gambar dibawah ini).



Progress Bar terdapat pada tab Win 32 Komponen Progress Bar inilah yang akan membuat tampilan loading untuk masuk ke menu utama. Untuk materi kali ini kita akan mencoba membuat 2 form untuk satu materi. ( *wahhhh pusing dunk mas eko -,-” keluhan sang pembaca ) *owowowow tentu tidak, semua materinya simple dan gampang kok malah kita nanti bisa dapat trik trik yang bisa dipakai dalam pembuatan program kita nanti, Langsung aja kita bahas (^o^”) *biar bisa cepat sarapan. 



Pertama tama Buat Design Form Seperti Dibawah ini, Sebagaimana yang sudah dikatakan tadi akan ada 2 form yang dibuat yakni form_loading dan form_menu.



Design Form Loading Menggunakan Progress bar



Design Form Menu yang sangat sederhana 



Ubah Properties namenya sebagai Berikut :



Berikut Alur Program Logikanya : 



Pada Saat Form Loading Berjalan nanti Progress Bar akan berjalan sampai penuh.







Saat Progress Bar Penuh Maka Form Loading Akan Hide Dan memunculkan Form Menu Utama.







Pada Saat Button Keluar di Klik Pada Menu Utama akan mengeluarkan form Menu Utama dan Juga Form Loading nya, yang sebelumnya di Hide.



______________________________________________________________________________ _________________ Berikut ini List Programnya : 1 2 procedure Tfrm_loading.Timer1Timer(Sender: TObject); 3 begin 4 progressbar1.Position=100 then 5 ifbegin 6 frm_menu_utama.Show; 7 frm_loading.Hide; timer1.Enabled:=false; 8 end 9 else 10 begin 11 progressbar1.Position:=progressbar1.Position+5; 12 end; 13 14 end; 15 Pada Saat Form Create Maka Progress bar berjalan sesuai dengan interval yang sudah di setting pada timer. Dan Jika sudah sampai pada batas akhir progress maka timer disable agar tidak melakukan / menjalankan code kembali. kemudian menyembunyikan form loading dan menampilkan form menu utama. 1 procedure Tfrm_menu_utama.Button1Click(Sender: TObject); 2 begin 3 4 frm_loading.close; 5 frm_menu_utama.Close; 6 end; 7 Jika button Keluar di Klik maka, kita settting keluar dulu form loading baru form menu utama karena form loading sebelumnya hanya kita sembunyikan tidak kita close. Nah Selesailah Materi kita kali ini. Berikut Tampilah hasil Aplikasinya :



Hasil Progress Loading saat Program Dijalankan



Tampilan Hasil Aplikasi Menu Utama Nah mudah bukan, Pastinya dunk Karena itu Belajar delphi itu menyenangkan *hehehehe karena sudah selesai akhirnya bisa sarapan pagi juga /(^.^”) ehhh tapi tunggu dulu. mau kasih tips juga untuk temen temen yang mau copy paste code program di atas bisa klik icon yang ada pada source codenya – perhatikan gambar dibawah ini.



Setelah dikilk nanti akan mencul note dari web browser temen temen yang bisa temen temen lakukan untuk pengcopyan source codenya.



Delphi – Menambahkan Teks ke List Box 03/02/2012 by Eko Wardoyo Assalamualaikum Temen Temen Semua, Salam Semangat untuk Hari ini nich /(^.^”) temen temen semua. *hmmmm hari ini mo nulis apa ya (-,-“)???. ( Delphi Delphi Delphi mas eko *\ (^0^)/* – sorak parasahabat maya ) waduhhhh /(^o^) iya iya iya baiklah *hehehehe.



Nah Hari ini kita bahas Materi Delphi Lagi yukss – Permintaan khusus dari sahabat maya *fufufufu. Materi apa yang akan kita coba hari ini, tentunya melanjutkan materi materi yang sudah pernah kita bahas nich dengan tema yang gak kalah seru (n_n). Baiklah kita post ringan aja dech Di Jum’at pagi ini – Kita akan mencoba memasukkan Teks Kedalam ListBox *hehehehe Monggo Disimak ya. Nah komponen yang kita pelajar kali ini yakni penggunaan ListBox, dimana temen temen bisa temukan component ini pada tabs standard. Kita bisa menambahkan, Mengyisipkan, mengurangi, mengatur posisi dalam Dalam Komponent List Box. Nah kali ini kita akan mencoba memasukkan teks kedalam listbox, /(^.^”) untuk menyisipkan, mengurangi dan mengatur posisi teks mungkin kita bahas di sesi selanjutnya *hehehehe biar gak telat ngantor *fufufufu, Langsung aja ya : 



Pertama Tama Buat Design Form Sebagai Berikut







Atur Properties Namenya Sebagai Berikut :



Nah Berikut Alur Programnya : 



Edit Box tempat mengetikkan teks yang ingin dimasukkan ke dalam ListBox.







JIka Button Add Di Klik maka Teks yang ada pada edit Box akan di Masukkan ke dalam Listbox kemudian Edit Box bersih dan setfocus untuk teks selanjutnya.







Jika Button Exit Di Klik maka akan keluar dari program.



Nah Berikut Listing Source Codenya : 1 procedure Tform_materi12.FormCreate(Sender: TObject); 2 begin



3 edit_add.Text:=''; 4 5 end; 6 pada saat Form Di jalankan makan teks pada edit box akan dibersihkan /(^.^”). 1 procedure Tform_materi12.button_addClick(Sender: TObject); 2 begin 3 4 listbox1.Items.Add(edit_add.Text); 5 edit_add.Text:=''; 6 edit_add.SetFocus; 7 end; 8 Jika Button Add di Klik maka Teks yang berada pada edit box akan dimasukkan pada List Box kemudian Edit Box kosong dan setfocus kembali untuk teks berikutnya. 1 procedure Tform_materi12.button_exitClick(Sender: TObject); 2 begin 3 4 close; 5 6 end; Nah saat Button Exit DI klik maka akan keluar dari program. Nah Berikut ini hasil Program Saat di jalankan /(^.^”) :



Nah Selesai Sudah Materi Kali ini *hehehehe ( wah mas eko kok gampil ya (^o^) *hehehehe komentar sahabat ) Itulah – Belajar Delphi Emang Gampang kan, Tentunya dunk *hehehehe. sekarang mau kasih tips juga untuk temen temen yang mau copy paste code program di atas bisa klik icon yang ada pada source codenya – perhatikan gambar dibawah ini.



Setelah dikilk nanti akan mencul note dari web browser temen temen yang bisa temen temen lakukan untuk pengcopyan source codenya.



Delphi – Menyisipkan teks ke List Box 04/02/2012 by Eko Wardoyo Assalamualaikum Temen Temen Semua, Salam Semangat untuk weekend ini /(^.^”). *huftt lagi gak semangat nich – ( Yah semangat dunk mas eko, kan aku mau belajar lagi \(^.^”) *sahabat khayalan ) *issshhhh kau ini, iya iya baiklah *\(^o^)/* jiayooooo.



Nah hari ini kita akan belajar nich, Ngelanjutin Materi sebelumnya yakni Menambahkan Teks Ke List Box , narh hari ini kita akan membahas bagaimana Menyisipkan teks Ke List Box /(^.^”). Gampang Dan pokoke gak kalah seru dengan materi sebelum *halah kaya film laga. Nah Monggo Di Simak Temen Temen Semua. Nah seperti materi sebelumnya component yang akan kita gunakan adalah List Box, Dimana dalam Component ini kita bisa menambahkan, menyisipkan, menghapus bahkan mengatur posisi teks didalamnya. Hari ini kita mencoba yang menyisipkan teks ke dalam List Box. Temen Temen bisa mempergunakan Projek Materi sebelumnya tinggal menambahkan beberapa button aja, atau kalau mau melancarkan diri bisa membuatnya ulang tentunya sekalian melatih materi sebelumnya yakni menambahkan teks ke list box, Langsung aja yukksss.







Pertama Temen Temen Bisa Atur Design Form Sebagai Berikut ( untuk mempermudah gunakan materi sebelumnya ) :







Kemudian atur Properties namenya sebagai berkut :



Nah Berikut Alur Programnya : 



Edit Box tempat mengetikkan teks dan jika button Add di klik maka teks yang terdapat di edit box akan dimasukkan ke List Box ( materi sebelumnya ).







Pada list box kita bisa menyorot kata kata yang ada didalamnya, dengan mengklik teks tersebut.







Kemudian Bila Button Insert Di Klik Maka Teks yang ada di Edit Box akan disisipkan diatas Teks yang kita sorot.







Jika Button Exit DI Klik Maka akan keluar dari program



______________________________________________________________________________ _ Nah Berikut ini adalah Source Codenya : 1 procedure TForm1.FormCreate(Sender: TObject); 2 begin 3 4 edit_add.Text:=''; 5 6 end; Pada Saat Form Create Aktif maka edit teks dikosongkan. 1 procedure TForm1.button_addClick(Sender: TObject); 2 begin 3 4 listbox1.Items.Add(edit_add.Text); 5 edit_add.Text:=''; 6 edit_add.SetFocus; 7 end; 8 Jika Button Add Di Klik Maka Teks yang berada pada Edit Text akan dimasukkan Ke dalam List Box, Setelah itu Edit Teks Bersih dan set focus untuk teks berikutnya. 1 procedure TForm1.button_insertClick(Sender: TObject); 2 begin 3 4 listbox1.Items.Insert(listbox1.ItemIndex, edit_add.Text); 5 6 end; Jika Button Insert di klik maka Teks yang ada di edit text akan disisipkan diatas teks yang kita pilih posisinya atau yang kita blok / sorot di listbox. 1 procedure TForm1.button_exitClick(Sender: TObject); 2 begin 3 close; 4 5 end;



6 Jika Button Exit Di Klik maka akan keluar dari program. ______________________________________________________________________________ _ Nah Berikut ini hasil program Saat dijalankan d(^.^”).



Delphi – Menghapus teks di List Box 05/02/2012 by Eko Wardoyo Assalamualaikum Temen Temen Semua, Salam Semangat Di Minggu Pagi ini /(^.^”) ( Semangkaaa – semangat kaka \(^o^”) *sabahat khayalan ) halah kau ini muncul melulu /(^.^”).



Nah Hari ini kita akan kembali belajar Materi Materi Delphi lagi nih. Masih tetap dengan seri lanjutan .materi sebelumnya yakni mengenai List Box d(^.^”) . Kalau kita sudah membahas memasukkan dan menyisipkan teks pada List Box sekarang kita coba untuk menghapus Teks Pada List Box. ( aku siap aku siap aku siap \(^.^\) (/^o^)/ *sahabat



khayalan ) *hehehe materi ini simple sekali namun sangat bermanfaat dalam pengetahuan kita masalah Delphi Nah Monggo Disimak ya. Nah Bagaimana sih cara menghapus teks yang sudah kita masukkan atau sudah kita sisipkan ke dalam List Box. Tentunya tidak jauh berbeda dengan yang sebelumnya kok, nah untuk mempermudah pengerjaan temen temen bisa menggunakan projek yang sebelumnya sudah dipakai yakni menambahkan teks ke List Box dan Menyisipkan Teks Ke List Box tinggal tambahkan button delete untuk materi ini. Yah kalau mau memperlancar juga bisa buat kembali dari ulang tentunya mencoba code tambah dan insert yang sebelumnya sudah dibahas, langsung aja kita bahas. 



Pertama tama Temen temen Bisa Atur Design Form nya sebagai berikut ( untuk mempermudah gunakan materi sebelumnya ) :







Kemudian Atur Properties Namenya Sebagai Berikut :



Nah barikut Alur Programnya : 



Edit Box tempat mengetikkan teks dan jika button Add di klik maka teks yang terdapat di edit box akan dimasukkan ke List Box ( materi sebelumnya ).







Pada list box kita bisa menyorot kata kata yang ada didalamnya, dengan mengklik teks tersebut.







Kemudian Bila Button Insert Di Klik Maka Teks yang ada di Edit Box akan disisipkan diatas Teks yang kita sorot. ( materi sebelumnya )







Bila Button Delete di Klik maka Teks yang kita pilih atau sorot sebelumnya akan Terhapus.







Jika Button Exit DI Klik Maka akan keluar dari program



Nah Berikut ini adalah Source Codenya : 1 2 3 4 5 6



procedure TForm1.FormCreate(Sender: TObject); begin edit_add.Text:=''; end;



Pada Saat Program Dijalankan maka Edit Box akan dikosongkan 1 procedure TForm1.button_addClick(Sender: TObject); 2 begin 3 listbox1.Items.Add(edit_add.Text); 4 edit_add.Text:=''; 5 edit_add.SetFocus; 6



7 8 end; Pada Saat Button add diklik maka teks pada edit box akan dimasukkan kedalam list box. 1 procedure TForm1.button_insertClick(Sender: TObject); 2 begin 3 4 listbox1.Items.Insert(listbox1.ItemIndex, edit_add.Text); 5 6 end; Jika Button Insert Di Klik maka teks pada edit box akan disisipkan diatas Teks yang dipilih / disorot pada listbox. 1 procedure TForm1.button_deleteClick(Sender: TObject); 2 begin 3 4 listbox1.DeleteSelected; 5 6 end; Jika Button Delete di hapus maka akan menghapus teks yang dipilih / disorot pada list box. 1 procedure TForm1.button_exitClick(Sender: TObject); 2 begin 3 4 close; 5 6 end; Jika Button Exit Di Klik makan akan keluar dari program /(^.^”). Nah Berikut ini hasil program aat dijalankan d(^.^”).



Delphi – Mengubah Posisi teks di List Box 06/02/2012 by Eko Wardoyo



Assalamualaikum Temen Temen semua, Salam Semangat Di Senin Siang ini /(^.^”) ( wah mas eko kesiangan kayaknya nich \(^.^”) *temen khayalan ) *hehehehe iya nich kesiangan.



Nah Pada Siang hari ini saya mau kembali berbagi materi Pembelajaran Delphi nich Temen Temen, Dimana untuk hari ini kita akan melanjutkan seri terakhir dari Project TListBox yang sudah kita pelajari sebelum sebelumnya. Kalau kemarin Kemarin kita sudah Belajar Memasukkan Teks, Menyisipkan Teks, Dan Menghapus Teks Pada Listbox. Hari ini kita akan berbagi mengenai bagaimana cara mengubah posisi Teks pada listbox berdasarkan Index Urutan dari Teks Tersebut. Materi Kali ini Tetep Simple dan Gampang Dech Monggo Disimak ya. Bagaimana ya jika kita sudah memasukkan teks ke dalam list box kemudian kepengan posisinya diubah yang tadinya dibawah menjadi diatas dan yang tadinya diatas menjadi dibawah. *hmmmm gampang kok ternyata masih menggunakan component LIstbox yang sudah kita pernah gunakan dimateri sebelumnya kita akan meneruskannya dengan materi baru yakni mengubah posisi teks pada list Box Langsung aja kita bahas ya : 



Pertama Tama Temen temen bisa buat Form Designnya sebagai berikut ( atau bisa menggunakan form sebelumnya tinggal menambahkan beberapa buttonnya aja ).







Kemudian Atur Propertiesnya Sebagai Berikut :



Nah Berikut ini Alur Programnya : 



Pada Listbox kita bisa memilih teks yang ingin di ubah posisinya dengan mengklik teks pada list box tersebut.







Jika Button Up Di Klik Maka Otomatis Teks akan naik satu tingkat dari posisi sekarang.







Jika Button Down Di Klik Maka otomoatis Teks akan turun satu tingkat dari posisi sekarang







Note : jika sudah berada di atas / dipaling bawah jangan klik kembali button Down / Up karena kita belum membahas mengenai pembatasan Urutan Tersebut



Berikut ini adalah source Codenya : _____________________________________________________________________________ __ 1 procedure Tform_materi15.button_upClick(Sender: TObject); 2 var 3 posisi_lama : integer; 4 begin 5 posisi_lama := listbox1.ItemIndex; posisi_lama - 1); 6 listbox1.Items.Move(posisi_lama, listbox1.ItemIndex:=posisi_lama -1; 7 8 end; 9 Jika Button UP Di Klik maka posisi teks yang disorot akan naik satu tingkat ke atasnya. 1 procedure Tform_materi15.button_downClick(Sender: TObject); var



2 3 posisi_lama : integer; 4 begin posisi_lama := listbox1.ItemIndex; 5 listbox1.Items.Move(posisi_lama, posisi_lama + 1); 6 listbox1.ItemIndex:=posisi_lama +1; 7 8 end; 9 Jika Button Down Di Klik maka posisi teks yang disorot akan Turun satu tingkat ke Bawahnya. ______________________________________________________________________________ _ Nah Berikut ini adalah Hasil Program Saat Dijalankan d(^.^”).



MEMBUAT MESSAGE BOX



Delphi – Menggunakan Input Box 08/02/2012 by Eko Wardoyo Assalamualaikum Temen Temen Semua, Salam Semangat Di Hari ini untuk Semuanya, semoga hari ini menjadi hari yang baik untuk kita Semua *Amin.



Nah Kesempatan kali ini saya mau kembali berbagi tips tips materi Delphi lainnya nich, tetep materi materi yang mudah dan sederhana namun bisa menambah wawasan coding kita dalam pembelajaran Borland Delphi 7. Untuk Kali ini judul yang akan kita bahas adalah Mengenai Penggunaan Input Box pada Delphi. Input box dapat berguna dalam pemasukan kata kata dengan menggunakan pesan message box untuk pemasukkan katanya yang cukup atraktif /(^.^”) Monggo Langsung aja Di Simak ya. Untuk Input Box sendiri ialah kotak Informasi pada program Delphi yang berguna dalam memasukkan kata atau suatu nilai. Tanpa harus kita sediakan edit box untut tempat penulisan kata kata tersebut kita bisa mengurangi jumlah component dengan penggunaan Input Box ini. Dalam Materi Kalii ini Penggunaan Input box yang kita akan gunakan untuk mengisi teks ke dalam Listbox yang sudah kita bahas sebelumnya. Nah Langsung aja ya. 



Pertama tama kita akan membuat design form sebagai berikut :







Atur Properties namenya sebagai berikut ya :



Nah Berikut ini adalah alur Programnya : 



Jika Button Input Data di klik maka akan muncul kotak input box dimana kita bisa meningiskan kata atau suatu nilai untuk dimasukkan ke dalam listbox.







Jika Tombol Oke Di klik maka teks yang kita tuliskan pada input box akan segera terinput kedalam List Box







Jika Button Keluar di klik makan akan menampilkan messagebox konfirmasi yang menyatakan ‘apakah anda yakin akan keluar dari program’ jika ya maka akan keluar dari program



Nah Berikut ini adalah Source Codenya : 1procedure Tform_materi17.button_inputClick(Sender: TObject); 2var 3 kata_input:string; begin 4 5 kata_input:=inputbox('Silahkan Masukkan Kata Yang ingin 6dimasukkan','Konfirmasi',''); 7 listbox1.Items.Add(kata_input); 8 9end; Pertama kita akan membuat variable untuk isi dari input box yang diberi nama kata_input (disesuaikan keingingan temen temen), Kemudian varible tersebut di masukkan sebagai isian dari Hasil Input box dari coding diatas. Hasil Dari Input Box adalah Tipe Data String, Kemudian setelah itu kita membuat agar variable kata_input langsung masuk ke input box pada saat Tombol Ok Di Pilih.



1procedure Tform_materi17.button_keluarClick(Sender: TObject); 2begin 3 4 if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_Yesno)=ID_Yes) then 5 begin 6 Close; end; 7 8 9end; JIka Button Keluar di klik maka akan muncul konfirmasi masi penringatan, dimana jika kita tekan tombol Yes untuk keluar maka akan keluar dari program jika tidak Program akan tetep berjalan. Nah Berikut ini adalah hasil Aplikasi saat dijalankan :



Delphi – Lopping Input Box 09/02/2012 by Eko Wardoyo Assamualaikum Temen Temen semua, Salam Semangat Di Sore Hari ini /(^.^”) – wah tumben nich postnya sore sore *hehehehe. Ga Papa lah Lebih baik terlambat dari pada tidak sama sekali d(^.^”).



Nah kesempatan Sore hari ini saya mau kembali berbagi Tips Tips Materi Pemrograman Delphi nich, kalau pertemuan sebelumnya kita sudah membahas mengenai



penggunaan input box pada Delphi untuk saat ini kita akan membahas penggunaan fungsi looping pada input box. Dimana kita bisa mengatur banyaknya jumlah input box yang keluar untuk input data suatu nilai. Monggo langsung aja disimak ya. Input Box adalah kotak informasi yang memiliki fungsi untuk mengabil suatu nilai yang akan dimasukkan, penggunaan input box dapat mengurangi penggunaan component untuk mode masukan data sehingga bisa menghemat component dan membuat aplikasi yang simple namun power full. Untuk Looping sendiri adalah pengulangan perintah dimana selama masih memenuhi criteria yang ditetapkan. Dan penggabungan fungsi input box dan looping kita dapat membuat suatu pemasukan nilai berdasarkan input box dengan jumlah inputan yang disesuaikan dengan yang diinginkan. Sok Langsung aja kita Praktekkan nich /(^.^”). 



Pertama tama Kita akan buat design Form nya seperti dibawah ini :







Atur Properties Namenya sebagai Berikut ya /(^.^”) :



Nah Berikut ini adalah alur programnya : 



Untuk memulai penginputan nilai kita diharuskan mengisi jumlah input box yang akan ditampilkan,







Jika button isi data diklik maka akan memunculkan input box sejumlah nilai yang sudah dimasukkan, jika edit jumlah kosong maka akan memunculkan pesan’ SIlahkan masukkan jumlah input data’ kemudian setfocus ke edit jumlah.







Jika input box muncul kita bisa memasukkan nilai kemudian di ok maka teks akan masuk ke listbox, dan list box akan muncul kembali sampai jumlah yang diminta telah terpenuhi







Jika button bersih di klik maka list box akan dibersihkan.







Jika button keluar maka akan menampilkan pesan konfirmasi yang menyatakan ‘apakah anda yakin akan keluar dari program’ jika yam aka akan keluar dari program.



Nah Berikut ini adalah Source Codenya :



1 2 3 4 5 6 7



procedure Tform_18.button_inputClick(Sender: TObject); var input_barang:string; awal,jumlah:integer; begin if edit_jumlah.Text='' then begin



8 9 1 0 11 1 2 1 3 1 4 showmessage('Maaf SIlahkan Masukkan Jumlah Input Data!'); 1 edit_jumlah.SetFocus; 5 end 1 else 6 begin 1 jumlah:=strtoint(edit_jumlah.Text); awal:=1; 7 1 while awal> Copy(teks, index, jumlah ) Copy à perintah yang digunakan untuk mencopy string. Teks à Variable String / Nilai String yang ingin di copy. Index à Posisi awal String atau Karakter yang hendak dilakukan pengcopyan Jumlah à Jumlah String atau karakter yang hendak di copy. Lansung aja kita praktekkan ya temen temen. Untuk hal awal buat lah design form sebagai berikut :







Atur Properties Namenya menjadi seperti dibawah ini :



Nah untuk alur programnya sebagai berikut : 



JIka Tombol Bersih di klik maka seluruk teks dibersihkan.







Jika Button Copy diklik namun edit Kata kosong maka akan muncul peringatan untuk pengisian Edit Kata.







Jika Button Copy diklik dan edit Kata Terisi maka akan dilakukan pengkopian ( copy ) 3 hurup dari awal yang ditampilkan pada edit copy awal dan dilakukan pengkopian ( copy ) 3 hurup dari posisi index 4 di edit kata.







Jika button keluardi klik muncul konfirmasi masi peringatan yakin akan keluar. o Note : spasi akan dihitung 1 karakter pada Delphi.



Berikut ini adalah Listing Codenya : 1
2 procedure Tform_materi21.Button2Click(Sender: TObject);
3 begin

4

edit_kata.Text:='';
5 edit_copyawal.Text:='';
6 edit_copytengah.Text:='';

edit_kata.SetFocus;

7

end;
8 berikut list kode diatas untuk button bersih saat di klik, semua teks dhaous atau dibersihkan. 1 2 3 4 5 6
7 procedure Tform_materi21.Button1Click(Sender: TObject);
var
8 kata:string;
9 begin

1

if edit_kata.Text='' then
begin
0 showmessage('Silahkan Masukkan Kata Dasarnya');
11 edit_kata.SetFocus;
1 end
2 else
begin
1 kata:=edit_kata.Text;

3

edit_copyawal.Text:=copy(kata,1,3);
1 edit_copytengah.Text:=copy(kata,5,3);
4 end;

1

end;
5 1 6 1 7 1




2 3 4 5 6 7 8



procedure Tform_materi21.Button3Click(Sender: TObject);
begin

if(application.MessageBox('yakin akan keluar dari Program','Konfirmasi',MB_YesNo)=ID_Yes)then
begin
close;
end;

end;




code diatas untuk konfirmasi message box keluar dari program. code diatas untuk proses button copy untuk proses pengkopian ( copy ) string. validasi dilakukan jika kata pada edit kosong atau tidak. Dan Untuk Tampilan hasil programnya bisa dilihat dibawah ini :



konfirmasi saat teks kata masih kosong - dan tidak bisa melakukan copy



elphi – Validasi Angka Input Box 13/02/2012 by Eko Wardoyo Assalamualaikum Temen Temen Semua,Senin pagi sebelum mengawali aktifitas rutin di hari ini Catatan Eko kembali dengan Tips Tips Materi Pembelajaran Dephi nich.



Untuk Senin pagi ini saya akan berbagi Tips Dalam Meng Validasi Input Angka pada Edit Box. Dimana Kita akan mengatur pengisian input box hanya bisa diisi dengan angka saja. Biasanya digunakan pada untuk memasukkan nilai yang berhubungan dengan harga atau jumlah, agar tidak terjadi converting error pada pengolahannya. Langsung aja di simak yang temen temen. Untuk Validasi Input Edit Box agar hanya dapat mengisi Angka dilakukan pada prosedur keypress di objek edit box yang akan kita buat validasinya. Dimana pada prosedur ini berfungsi pada saat pengguna atau user mengetikkan nilai melalui keyboard. Dengan adanya validasi ini dibuat agar tidak terjadinya eror pada saat pengololahan suatu nilai aritmatika. Sangat Sangat Sangat membantu kita dalam membuat pemrograman berbagis data nantinya, untuk pemilihan prosedur keypress temen temen bisa pilih objeknya kemudian lihat object inspector di kiri bawah Delphi pilih tab kedua pada properties dan klik dua kali pada on keypress ( lihat gambar dibawah ini ).



Nah langsung aja kita praktekkan ya, pertama buat design form sebagai berikut :



Atur Propertiesnya menjadi dibawah ini :



Nah berikut ini adalah alur programnya :







Saat input box ditulis nilainya, maka kita tidak akan bisa menuliskan nilai kecuali dengan angka 0 – 9, backspace, dan enter.







Jika nilai sudah diisi dan di enter maka akan keluar message ucapan “ Terima Kasih “.







Jika button bersih di klik maka akan menghapus niai dan seti focus ke edit_input_kata.







Jika button keluar di klik maka akan muncup message box konfirmasi keluar dari program.



Berikut ini adalah Listing Codenya : 1 procedure Tform_materi22.button_bersihClick(Sender: TObject); 2 begin 3 4 edit_input_angka.Text:=''; 5 edit_input_angka.SetFocus; 6 end; 7 saat button bersiih di klik teks input di hapus dan set focus. 1 2 procedure Tform_materi22.edit_input_angkaKeyPress(Sender: TObject; var Key: Char); 3 begin 4 5 if not ( key in['0'..'9', #8, #13]) then key:= #0 ; 6 7 if key = chr(13) then 8 begin 9 showmessage('Terima Kasih Banyak'); 10 end; 11 12 end; 13 if not —> menyatakan bahwa adanya pengkondisian dimana jika ia tidak. key in —> menyatakan bahwa nilai yang boleh di input hanya angka 1 s/d 9 serta #8 ( backspace ) dan #13 ( enter ), Selain dari itu semua maka tidak akan berfungsi di edit box input. dan chr(13) menyatakan jika input yang tekan oleh keyboard adalah enter maka akan muncul message box ” Terima Kasih “. 1procedure Tform_materi22.button_keluarClick(Sender: TObject); 2begin 3 if(application.MessageBox('Yakin akan keluar dari 4program','Konfirmasi',MB_YesNo)=ID_Yes) then



5 begin close; 6 end 7 8 9end; Button Keluar akan mengeluarkan Message Box Konfirmasi yakin kah akan keluar. Dan Untuk Tampilan hasil programnya bisa dilihat dibawah ini :



Delphi – Web Browser 14/02/2012 by Eko Wardoyo Assalamualaikum Temen Temen Semua, Salam Semangat Di Selasa Pagi hari ini /(^.^”) Kembali di Catatan Eko untuk Tips Tips materi Pembelajaran Delphi lagi nich.



Untuk pagi hari ini saya mau berbagi materi pembuatan web browser pada Delphi. Temen temen semua pasti familiar dengan yang namanya internet explorer, fire fox atau google crome dan banyak berbagai macam web browser yang berkembang di dunia internet saat ini. Tahukan temen temen semua bahwa dalam Borland Delphi 7 kita juga bisa membuat web browser sendiri *hehehehe. Gak Percaya kan , sok Monggo DiSimak Ya.



Pembuatan Web Browser menggunakan Borland Delphi 7 sangat sangat lah mudah dengan penggunaan component Web Browser yang memang sudah disediakan pada API component di Delphi. Component yang perlu temen temen cari ialah pada tab internet di component pallete kemudian disana nanti akan bertemu dengan WebBrowser di sudut kanan. Perhatikan gambari dibawah ini



Nah langsung aja kita praktekkan ya temen temen. 



Pertama Tama buatlah design form sebagai berikut dengan menggunakan Web Browser di tengah, panel, 1 buah edit box dan 4 buat button.







Aturlah Properties Namenya sepeti dibawah ini.



Untuk Alur Programnya sebagai berikut : 



Pada saat program dijalankan maka web browser akan langsung menuju google sebagai halaman awalnya.







Untuk pergi ke alamat web yang dituju missal youtube kita tinggal ketikkan “ youtube.com” pada edit box kemudian Klik Search untuk menuju alamat tersebut







Back untuk kembali ke page sebelumnya.







Next untuk kembali ke page setelahnya.







Refresh untuk Refresh web Browser.



Berikut ini adalah Listing Codenya : 1 procedure Tfrm_my_web_browser.FormCreate(Sender: TObject); 2 begin 3 4 webbrowser1.Navigate('www.google.com'); 5 6 end; diatas adalah code untuk pembuatan tampilan awal google, diletakkan pada saat program dijalankan.



1 procedure Tfrm_my_web_browser.button_searchClick(Sender: TObject); 2 begin 3 4 webbrowser1.Navigate(edit_web.Text); 5 6 end; jika button search di klik maka akan menuju alamat yang ada pada edit box 1 procedure Tfrm_my_web_browser.button_backClick(Sender: TObject); 2 begin 3 4 webbrowser1.GoBack; 5 6 end; button back untuk kembali ke halaman sebelumnya. 1 procedure Tfrm_my_web_browser.button_nextClick(Sender: TObject); 2 begin 3 4 webbrowser1.GoForward; 5 6 end; button next untuk kembali ke paga setelahnya. 1 procedure Tfrm_my_web_browser.button_refreshClick(Sender: TObject); 2 begin 3 4 webbrowser1.Refresh; 5 6 end; button refresh untuk refresh laman web browser. Dan Untuk temen temen yang mau lihat hasil tampilan programnya, perhatikan gambar dibawah ini.



tampilan awal saat dijalankan - google sebagai halaman awal web browser



tampilan saat menjalankan "youtube.com" pada edit box kemudian di search



RUBAH WARNA DENGAN COLOR DIALOG



Delphi – Web Browser 14/02/2012 by Eko Wardoyo Assalamualaikum Temen Temen Semua, Salam Semangat Di Selasa Pagi hari ini /(^.^”) Kembali di Catatan Eko untuk Tips Tips materi Pembelajaran Delphi lagi nich.



Untuk pagi hari ini saya mau berbagi materi pembuatan web browser pada Delphi. Temen temen semua pasti familiar dengan yang namanya internet explorer, fire fox atau google crome dan banyak berbagai macam web browser yang berkembang di dunia internet saat ini. Tahukan temen temen semua bahwa dalam Borland Delphi 7 kita juga bisa membuat web browser sendiri *hehehehe. Gak Percaya kan , sok Monggo DiSimak Ya. Pembuatan Web Browser menggunakan Borland Delphi 7 sangat sangat lah mudah dengan penggunaan component Web Browser yang memang sudah disediakan pada API component di Delphi. Component yang perlu temen temen cari ialah pada tab internet di component pallete kemudian disana nanti akan bertemu dengan WebBrowser di sudut kanan. Perhatikan gambari dibawah ini



Nah langsung aja kita praktekkan ya temen temen. 



Pertama Tama buatlah design form sebagai berikut dengan menggunakan Web Browser di tengah, panel, 1 buah edit box dan 4 buat button.







Aturlah Properties Namenya sepeti dibawah ini.



Untuk Alur Programnya sebagai berikut : 



Pada saat program dijalankan maka web browser akan langsung menuju google sebagai halaman awalnya.







Untuk pergi ke alamat web yang dituju missal youtube kita tinggal ketikkan “ youtube.com” pada edit box kemudian Klik Search untuk menuju alamat tersebut







Back untuk kembali ke page sebelumnya.







Next untuk kembali ke page setelahnya.







Refresh untuk Refresh web Browser.



Berikut ini adalah Listing Codenya : 1 procedure Tfrm_my_web_browser.FormCreate(Sender: TObject); 2 begin 3 4 webbrowser1.Navigate('www.google.com'); 5 6 end; diatas adalah code untuk pembuatan tampilan awal google, diletakkan pada saat program dijalankan.



1 procedure Tfrm_my_web_browser.button_searchClick(Sender: TObject); 2 begin 3 4 webbrowser1.Navigate(edit_web.Text); 5 6 end; jika button search di klik maka akan menuju alamat yang ada pada edit box 1 procedure Tfrm_my_web_browser.button_backClick(Sender: TObject); 2 begin 3 4 webbrowser1.GoBack; 5 6 end; button back untuk kembali ke halaman sebelumnya. 1 procedure Tfrm_my_web_browser.button_nextClick(Sender: TObject); 2 begin 3 4 webbrowser1.GoForward; 5 6 end; button next untuk kembali ke paga setelahnya. 1 procedure Tfrm_my_web_browser.button_refreshClick(Sender: TObject); 2 begin 3 4 webbrowser1.Refresh; 5 6 end; button refresh untuk refresh laman web browser. Dan Untuk temen temen yang mau lihat hasil tampilan programnya, perhatikan gambar dibawah ini.



tampilan awal saat dijalankan - google sebagai halaman awal web browser



tampilan saat menjalankan "youtube.com" pada edit box kemudian di search



Delphi – Menghitung Jumlah Karakter Edit Box 17/02/2012 by Eko Wardoyo



Assalamualaikum Temen Temen Semua, Salam Semangat Di Jum’at Pagi ini /(^o^”) masih tetap Setia untuk Tips Tips Materi Pembelajaran Dlephi nich di Catatan Eko Personal Blog d(^.^”).



Nah kesempatan kali ini saya mau berbagi tips materi Delphi dengan Tema Mengetahui Jumlah Karakter Pada Edit Box. Jadi kita dapat menghitung jumlah karakter teks yang terdapat pada edit box. Untuk pembahasan Karakter ini maka untuk spasi pada edit box pun akan terhitung 1 karakter nich, Nah Langsung aja disimak biar gak penasaran. Pembuatan kali ini sangat sederhana kita hanya akan menghitung panjang karakter yang diinput dalam nilai edit box. Komponen yang digunakan pun semuanya standar yang biasa kita gunakan di materi materi sebelumnya. Langsung kita praktekkan ya. 



Pertama Tama Buatlah Design Form Sebagai Berikut :







Aturlah Properties Namenya seperti dibawah ini :



Nah untuk alur programnya temen temen bisa liat di bawah ini : 



Pada Saat program dijalankan kita bisa mengetikkan teks pada edit nama.







Jika button hitung di klik namun edit nama masih kosong maka akan ada konfirmasi message box untuk mengisi nama pada edit nama agar ada nilai teks yang bisa dihitung (validasi nilai).







Jika button hitung di klik dan edit nama sudah terisi maka edit jumlah akan menampilkan jumlah karakter yang di input pada edit naman ( spasi dihitung satu karakter ).







Jika button bersih di klik akan membersihkan teks dan set focus ke edit nama untuk perhitungan selanjutnya.







Jika button keluar di klik maka akan muncuk kotak konfirmasi apakah yakin akan keluar dari program, jika ya maka akan keluar dari program.



Berikut ini adalah listing codenya : 1 procedure Tform_materi26.button_hitungClick(Sender: TObject); var 2 nama:string; 3 begin 4 5 if edit_nama.Text='' then



6 7 begin 8 showmessage('Silahkan isikan Nama Anda'); edit_nama.SetFocus; 9 end 10 else 11 begin 12 nama:=edit_nama.Text; edit_jumlah.Text:=inttostr(length(nama)); 13 end 14 15 16 end; 17 buat variable nama untuk mewakili nilai hasil edit nama, penggunaan fungsi if untuk melakukan validasi nilai agar tidak ada nilai yang kosong yang dapat membuat error program. untuk menhasilkan nilai jumlah karakter kita hanya menggunakan fungsi length dari nilai yang ingin kita lihat jumlah karakternya. 1 procedure Tform_materi26.button_bersihClick(Sender: TObject); 2 begin 3 4 edit_nama.Text:=''; 5 edit_jumlah.Text:=''; 6 end; 7 JIka button bersih di klik maka akan membersihkan teks pada program. 1procedure Tform_materi26.button_keluarClick(Sender: TObject); 2begin 3 4 if(application.MessageBox('Yakin akan keluar dari program ?','Konfirmasi',MB_YesNo)=ID_Yes)then 5 begin 6 close; end; 7 8 9end; Pada saat button keluar di klik maka akan memberikan konfirmasi keluar dari program. ______________________________________________________________________________ _ Nah dibawah ini adalah hasil tampilan programnya :



tampilan hasil perhitungan karakter



konfirmasi pengisian saat edit teks kosong



hasil button bersih



konfirmasi keluar dari program



Delphi – Fungsi Delete String 18/02/2012 by Eko Wardoyo Assalamualaikum Temen Temen Semua, Salam Semangat Di Weekend Sabtu Pagi ini / (^o^”) masih tetap Setia untuk Tips Tips Materi Pembelajaran Dlephi nich di Catatan Eko Personal Blog d(^.^”).



Nah kesempatan kali ini saya mau berbagi tips materi Delphi dengan Tema Delete String. Jadi kita dapat menghapus sebagian karakter teks yang terdapat pada edit box sehingga mendapatkan nilai baru. Kalau dulu kita menggunakan fungsi copy untuk mendapatkan nilai baru dari suatu string kita gunakan cara lainnya yakni menggunakan Fungsi Delete., Nah Langsung aja disimak biar gak penasaran.



Pembuatan kali ini sangat sederhana kita hanya akan menggunnakan edit box sebagai kata dasar yang akan kita hapus karakternya serta edit box lainnya untuk tempat tampilan hasil delete string. Langsung kita praktekkan ya. 



Pertama Tama Buatlah Design Form Sebagai Berikut :







Aturlah Properties Namenya seperti dibawah ini :



Nah untuk alur programnya temen temen bisa liat di bawah ini : 



saat program dijalankan kita bisa mengisikan edit kata untuk proses karakter dasar yang ingin dihapus.







Saat Button delete di Klik tapi edit kata masih kosong maka akan ada pernyataan untuk mengisikan kata dasar terlebih dahulu dan set focus ke edit kata.







Saat Button Delete di klik dan Edit kata sudah ada nilainya maka edit delete awal akan menampilkan nilai kata dasar dikurangi 3 huruf pertama, dan edit deletetengah akan menampilkan nilai dmana kata ke 3 akan dihapus sebanyak 2 huruf.







saat button keluar di klik maka akan muncul konfirmasi keluar dengan message box konfirmasi.



Berikut ini adalah listing codenya : 1 procedure Tform_materi27.button_deleteClick(Sender: TObject); var 2 kata:string; 3 uruttiga:integer; 4 urutsatu:integer; jumlah_tiga:integer; 5 jumlah_dua:integer; 6 begin 7 8



9 1 0 11 1 2 1 3 1 uruttiga:=3; 4 urutsatu:=1; 1 jumlah_tiga:=3; 5 jumlah_dua:=2; 1 // buat variable kata dari objek yang mau dihapus. 6 kata:=edit_kata.Text; 1 delete(kata,urutsatu,jumlah_tiga); 7 edit_deleteawal.Text:=kata; 1 8 // kata dikembalikan kembali agar nilainya yang dipakai tidak nilai yang 1 sudah dihapus sebelumnya kata:=edit_kata.Text; 9 delete(kata,uruttiga,jumlah_dua); 2 edit_deletetengah.Text:=kata; 0 2 end; 1 2 2 2 3 2 4 2 5 Untuk fungsi delete ini kita akan banyak menggunakan variable untuk memberikan type data bahwa ia integer. saya sudah beberapa kali mencoba langgung menuliskan code dengan angka tapi hasilnya gagal karena tipe data yang digunakan harus interger. penggunaan variable kata dasar kita gunakan sebagai acuan kata apa yang akan dihapus dan kata apa yang akan ditampilkan setelah ada penghapusan. 1 procedure Tform_materi27.button_bersihClick(Sender: TObject); 2 begin 3 edit_kata.Text:=''; 4 edit_deleteawal.Text:=''; 5 edit_deletetengah.Text:=''; 6 edit_kata.SetFocus; 7 end;



8 9 untuk button bersih jika di klik maka akan membersihkan kata pada form. dan set focus pada edit kata dasar untuk penginputan kata selanjutnya. 1procedure Tform_materi27.button_keluarClick(Sender: TObject); 2begin 3 4 if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_YesNo)=ID_Yes) then 5 begin 6 close; end; 7 8 9end; konfirmasi box untuk meyakinkan apakah user bener benera akan keluar dari program ______________________________________________________________________________ _ Nah dibawah ini adalah hasil tampilan programnya :



hasil saat button delete di klik



hasil button bersih di klik



message box saat keluar dari program



Delphi – Merubah Font Style Check Box 19/02/2012 by Eko Wardoyo Assalamualaikum Temen Temen Semua, Salam Semangat Di Minggu Malam ini d(^o^”) masih dengan tips tips pembelajaran Delphi di Catatan Eko Personal Blog.



Nah pada malam hari ini saya mau berbagi tips materi perubahan font style menggunakan check box. Dimana temen temen bisa merubah tampilan teks dari label atau component lainnya dengan penggunaan style bold, italic, underline menggunakan listing code tanpa harus merubah menggunakan pengaturan properties. Langsung aja disimak ya. Pembuatan kali ini sangat sederhana aja nich, temen temen cukup mengklik check bold untuk tampilan style font yang ingin dirubah berdasarkan style check boxnya. Penggunaan component box terbaru kali ini menggunakan Check box bisa temen temen dapatkan pada pallete standart dimana memiliki persamaan symbol dengan radio button namun berbeda fungsi. Jika radio botton hanya akan menghasilkan nilai on atau off yakni hanya bisa memilih 1 radio button dalam satu form, maka untuk check box kita bisa memilih sesuai dengan banyaknya jumlah chek box yang ada, dimana kita akan melihat code baru untuk merubah font style dari listing, langsung aja kita praktekkan ya. 



Pertama tama buatlan design form sebagai berikut :







Aturlah Properties namenya seperti dibawah ini.



Nah untuk alur programnya sebagai berikut : 



Jika program berjalan kita bisa mengisi tampilan teks preview dalam edit box. Dimana jika edit box dirubah maka label preview akan berubah mengikuti edit teks.







Jika check bold di klik / di checklist maka akan merubah label preview menjadi tampilan bold.







Jika check italic di klik / di checklist maka akan merubah label preview menjadi tampilan italic.







Jika check underline di klik / di checklist maka akan merubah label preview menjadi tampilan garis bawah.







Jika program keluar diklik maka akan muncul konfirmasi peringatan keluar dari program.



Berikut ini adalah listing codenya : 1 procedure Tform_materi28.edit_teksChange(Sender: TObject); 2 begin 3 4 label_preview.Caption:=edit_teks.Text; 5 6 end; kita gunakan procedure change agar pada saat teks diketikan maka label preview akan langsung berubah apa yang diketikkan. 1 2 procedure Tform_materi28.check_boldClick(Sender: TObject); 3 begin 4 if check_bold.Checked=true then 5 begin 6 label_preview.Font.Style:=label_preview.Font.Style+[fsbold]; end 7 else 8 begin 9 label_preview.Font.Style:=label_preview.Font.Style-[fsbold]; 10 end; 11 12 end; 13 Jika check bold di check list maka label preview akan merubah font style menjadi Bold. 1 2 procedure Tform_materi28.check_italicClick(Sender: TObject); 3 begin 4 if check_italic.Checked=true then 5 begin 6 label_preview.Font.Style:=label_preview.Font.Style+[fsitalic]; end 7 else 8 begin 9 label_preview.Font.Style:=label_preview.Font.Style-[fsitalic]; 10 end; 11 12 end; 13



Jika check italic di check list maka label preview akan merubah font style menjadi italic. 1 2 procedure Tform_materi28.check_underlineClick(Sender: TObject); 3 begin 4 if check_underline.Checked=true then 5 begin 6 label_preview.Font.Style:=label_preview.Font.Style+[fsunderline]; end 7 else 8 begin 9 label_preview.Font.Style:=label_preview.Font.Style-[fsunderline]; 10 end; 11 12 end; 13 Jika check underline di check list maka label preview akan merubah font style menjadi underline. 1 procedure Tform_materi28.button_bersihClick(Sender: TObject); 2 begin 3 4 edit_teks.Text:=''; check_bold.Checked:=false; 5 check_italic.Checked:=false; 6 check_underline.Checked:=false; 7 8 edit_teks.SetFocus; 9 10 end; 11 jika button bersih di klik maka edit teks dibersihkan dan check box pada semua di kosongkan dan set focus pada edit teks untuk pemasukan teks berikutnya. 1procedure Tform_materi28.button_keluarClick(Sender: TObject); 2begin 3 4 if(application.MessageBox('Yakin akan keluar dari program?','Konfirmasi',MB_YesNo)=ID_Yes)then 5 begin 6 close; end; 7 8 9end; Jika button keluar diklik maka akan muncul konfirmasi box untuk menanyakan apakah yakin akan keluar dari program.



______________________________________________________________________________ _ Nah dibawah ini adalah hasil tampilan programnya :



hasil check bold



hasil check bold, italic, dan underline



hasil program button bersih



hasil konfirmasi keluar



Delphi – Animasi Tampilan Teks 20/02/2012 by Eko Wardoyo Assalamualaikum Temen Temen semua, Salam Semangat Kembali Di Senin Siang ini tetap di Catatan Eko Personal Blog. Wah masih setia dengan Tips Tips Materi Pembelajaran Delphi nich.



Nah ada Siang hari ini saya mau berbagi tips materi Delphi dengan Tema Animasi Tampilan Teks. Dimana Kita akan melihat tampilan teks yang atraktif dengan konsep animasi dengan code visible true or false menggunakan fungsi timer. Nanti teks akan terlihat muncul satu huruf satu hurup sehingga terlihat seperti animasi dengan bantuan interval timer untuk codenya, monggo disimak ya.



Untuk Component Timer temen-temen bisa dapatkan pada pallete system dengan gambar jam lingkaran. Untuk pembuatan teks nya kita tidak akan membuatnya dalam satu teks panjang dengan 1 label namun akan dibuat 1 label adalah 1 kata karena nanti akan muncul satu per satu berdasarkan component label yang ada. Langsung aja kita praktekkan ya. 



Pertama tama temn temen bisa buat design form sebagai berikut :







Aturlah Properties Namenya sebagai Berikut :



Nau untuk alur programnya adalah sebagai berikut : 



Saat program dijalankan teks akan muncul secara bergantian berdasarkan interval waktu timer. Dengan muneggunakan fungsi visible true atau false.







Jika button keluar di klik maka akan muncuk kotak konfirmasi keluar, jika dipilih ok maka akan keluar dari program.



______________________________________________________________________________ _



Berikut ini adalah listing codenya : 1 2 3 procedure Tform_materi29.Timer1Timer(Sender: TObject); begin 4 5 if label1.Visible=false then 6 begin label1.Visible:=true; 7 end 8 else if label2.Visible=false then 9 begin 10 label2.Visible:=true; 11 end 12 else if label3.Visible=false then begin 13 label3.Visible:=true; 14 end 15 else if label3.Visible=true then begin 16 label1.Visible:=false; 17 label2.Visible:=false; 18 label3.Visible:=false; 19 end; 20 21 end; 22 23 kode diatas merupkan suatu pengkondisian saja dimana jika label1 visible false maka akan true agar muncul dan terlihat dan dalam selang waktu beberapa detik akan lanjut pada code berikutnya yakni memunculkan teks lainnya. begitu sterusnya hingga diakhir jika sudah muncul semua kita kembalikan ke kondisi awal untuk visible false semuanya. 1procedure Tform_materi29.button_keluarClick(Sender: TObject); 2begin 3 4 if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_YesNo)=ID_Yes)then 5 begin 6 close; end; 7 8 9end; jika button keluar di klik maka akan muncul konfirmasi box untuk meyakinkan akan keluar atau tidak, jika ya maka program akan di close; ______________________________________________________________________________ _



Nah dibawah ini adalah hasil tampilan programnya :



Delphi – Animasi Teks Zoom 21/02/2012 by Eko Wardoyo Assalamualaikum Temen Temen semua, Salam Semangat Kembali Di Senin Siang ini tetap di Catatan Eko Personal Blog. Wah masih setia dengan Tips Tips Materi Pembelajaran Delphi nich.



Nah ada Siang hari ini saya mau berbagi tips materi Delphi dengan Tema Animasi Teks Zoom. Dimana Kita akan melihat tampilan teks yang atraktif dengan konsep animasi dengan perubahan Size Font Sehingga Terlihat Seperti Zoom dengan menggunakan fungsi timer. Nanti teks akan terlihat membesar jika di zoom in dan mengecil jika di zoom out, monggo disimak ya. Untuk Component Timer temen-temen bisa dapatkan pada pallete system dengan gambar jam lingkaran. untuk teksnya kita buat menggunakan Label dimana nanti akan kita ubah ubah pengaturan size fontnya. Langsung aja kita praktekkan ya. 



Pertama tama temn temen bisa buat design form sebagai berikut :







Aturlah Properties Namenya sebagai Berikut :



Nau untuk alur programnya adalah sebagai berikut : 



Saat program dijalankan kita bisa mengklik button zoom in yang akan membuat label1 membesar terlihat seperti zoom dengan code perubahan size fontnya.







Jika button Zoom Out diklik maka akan membuat size label1 mengecil sehingga terlihat seperti zoom out







Jika button Stop Di klik maka akan menghentikan fungsi timer sehingga font size label 1 tidak berubah dan melakukan stop zooming







jika button keluar diklik makan akan keluar dari program



______________________________________________________________________________ _ Berikut ini adalah listing codenya : 1 2 3 4 5 6 7 8 9 10



procedure Tform_materi30.Timer_inTimer(Sender: TObject); begin if timer_in.Enabled=true then begin label1.Font.Size:=label1.Font.Size+2; button_in.Enabled:=false; end; end;



Jika timer in berjalan, maka label 1 membesar animasi zoom. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18



procedure Tform_materi30.Timer_outTimer(Sender: TObject); begin if timer_out.Enabled=true then begin label1.Font.Size:=label1.Font.Size-2; button_out.Enabled:=false; if label1.Font.Size=0 then begin showmessage('Size Label Sudah 0'); timer_out.Enabled:=false; button_in.Enabled:=true; button_out.Enabled:=true; button_stop.Enabled:=false; end; end; end;



jika timer out enable true maka label1 akan mengecil dan jika sizenya sudah 0 maka akan ada showmessage bahwa sizenya sudah mencapai 0. dan kembali menyetop aplikasi timer. 1 procedure Tform_materi30.FormCreate(Sender: TObject); 2 begin 3 button_in.Enabled:=true; 4 button_out.Enabled:=true; 5 button_stop.Enabled:=false; 6 button_keluar.Enabled:=true;



7 8 end; 9 Jika Program berjalan zoom ini true, zoom out true dan untuk button stop false. 1 2 3 4 5 6 7 8 9 10



procedure Tform_materi30.button_inClick(Sender: TObject); begin timer_in.Enabled:=true; button_in.Enabled:=false; button_out.Enabled:=false; button_stop.Enabled:=true; button_keluar.Enabled:=true; end;



jika button zoom in dijalankan maka timer in berjalan dan button stop aktif. 1 procedure Tform_materi30.button_outClick(Sender: TObject); 2 begin 3 4 timer_out.Enabled:=true; 5 button_in.Enabled:=false; 6 button_out.Enabled:=false; 7 button_stop.Enabled:=true; button_keluar.Enabled:=true; 8 9 end; 10 jika button zoom out dijalankan maka timer out berjalan dan button stop aktif. 1 procedure Tform_materi30.button_stopClick(Sender: TObject); 2 begin 3 if timer_in.Enabled=true then 4 begin 5 timer_in.Enabled:=false; 6 end; 7 8 if timer_out.Enabled=true then begin 9 timer_out.Enabled:=false; 10 end; 11 12 button_in.Enabled:=true; 13 button_out.Enabled:=true; 14 button_stop.Enabled:=false;



15 16 end; 17 18 JIka button stop diklik maka timer dinonaktifkan. 1 procedure Tform_materi30.button_keluarClick(Sender: TObject); 2 begin 3 4 close; 5 6 end; jika button keluar diklik maka akan keluar dari program. ______________________________________________________________________________ _ Nah dibawah ini adalah hasil tampilan programnya :



hasil zoom in label 1 membesar



hasil zoom out label mengecil



button Stop mengehentikan perubahan size label



Delphi – Simulasi Lampu Lalu Lintas 17/11/2012 by Eko Wardoyo



Assalamualaikum Temen Temen Semua, Salam Senyum Di Pagi hari ini /(^o^”) udah lama banget gak update di catatanku yang satu ini #ya ampunnnnn. Nah Kesempatan Di Pagi Hari ini saya kembali berbagi Materi Delphi nich, ada temen Delphier yang request untuk membuat satu aplikasi Simulasi Lampu Lalu lintas nich *hehehehe namanya juga saya masih belajar jadi sekalian memperlancar materi yang saya buatkan. Judul Hari ini ialah kita akan membuat Simulasi Lampu Lalu Lintas pada program Delphi yang berguna sebagai Simulaasi Cara Kerja Lampu Lalu lintas r. Hmmm Sulit Dijelaskan dalam bentuk kata kata, Lah Monggo Langsung Simak saja Ya Temen Temen.



Untuk Materi kali ini sungguh simple temen temen dimana kita hanya akan membuat Shape Warna yang akan hilang dan timbul di kondisi kondisi tertentu dan diulang terus sesuai dengan urutan urutannya yang sudah ditentukan. Hanya dengan menggunakan beberapa Code kita sudah bisa membuat Simulasi Lampu Lalu lintas menggunakan Delphi ini, Langsung aja kita bahas nich. 



Pertama Tama Temen Temen bisa buat design Form Sebagai Berikut : cukup gunakan 3 button.







Atur Properties Namenya Seperti Gambar di bawah ini.



Nah berikut ini adalah alur Programnya : 



Form Setting Di Sebelah kanan atas untuk mensetting detik berjalannya lampu untuk jalanan Atas, Kanan, Bawah dan Kiri.







Jika Button Aktifkan di Klik namun belum ada isi detik berjalan makan akan ada peringatan Data Setting Belum Terisi.







Jika Semua sudah di Masukkan dan Button Aktifkan Di Klik maka akan berjalan sesuai dengan urutan arah jam dari Atas dulu yang boleh jalan, kemudian ke kanan, bawah dan kiri.







Lampu Hijau dan merah diarahkan berseberangan karena nanti yang mereka lihat adalah yang ada di seberang mereka sesuai dengan setting waktu untuk tiap ruas jalan.







Jika button Stop Di klik makan akan berhenti, dan jika button keluar di klik akan keluar dari program



______________________________________________________________________________ _ Berikut ini adalah Source Codenya : 1 procedure Tform_materi16.button_informasiClick(Sender: TObject); 2 var 3 Form1: TForm1; 4 kiri,bawah,atas,kanan,jatas,jkanan,jkiri,jbawah:integer; Pertama-tama Buat Variable Integer dulu untuk Inisialisasi Waktu perdetik. 1 procedure TForm1.btnaktifClick(Sender: TObject); 2 begin if(editsetatas.Text='') then 3 begin 4 application.Messagebox ('Maaf Setting Time 5 kosong','Konfirmasi'); editsetatas.SetFocus; 6 end 7 else if(editsetbawah.Text='')then 8 begin 9 application.Messagebox ('Maaf Setting Time 1 kosong','Konfirmasi'); editsetbawah.SetFocus; 0 end 11 else if(editsetkanan.Text='')then 1 begin application.Messagebox ('Maaf Setting Time 2 1 kosong','Konfirmasi'); editsetkanan.SetFocus; 3 end 1 else if(editsetkiri.Text='')then 4 begin application.Messagebox ('Maaf Setting Time 1 5 kosong','Konfirmasi'); editsetkiri.SetFocus; 1 end 6 else 1 begin kiri:=strtoint(editsetkiri.Text); 7 kanan:=strtoint(editsetkanan.Text); 1 atas:=strtoint(editsetatas.Text); 8 bawah:=strtoint(editsetbawah.Text); 1 9 editatas.Text:=inttostr(atas); lamp.Enabled:=true; 2 editstatus.Text:='atas'; 0 hijaubawah.Visible:=true; 2 hijauatas.Visible:=false; 1 hijaukiri.Visible:=false; 2 hijaukanan.Visible:=false; merahbawah.Visible:=false; 2 merahatas.Visible:=true;



Atas Masih ada yang



Bawah Masih ada yang



Kanan Masih ada yang



Kiri Masih ada yang



2 3 2 4 2 5 2 6 2 7 2 8 2 9 3 0 3 1 3 merahkiri.Visible:=true; merahkanan.Visible:=true; 2 end; 3 3 end; 3 4 3 5 3 6 3 7 3 8 3 9 4 0 4 1 4 2 Prosedur Button Aktif di klik masukkan code seperti diatas dmana setting pertama akan kita lakukan di jalanan atas dan menjalankan fungsi timer yang akan berfungsi sebagai detik yang menggerakkan settingan lampu lalu lintas yang sudah kita buat. 1



procedure TForm1.lampTimer(Sender: TObject); begin



2 if(editstatus.Text='atas')then begin 3 jatas:=strtoint(editatas.Text); 4 if(jatas0)then 5 begin jatas:=jatas-1; 6 editatas.Text:=inttostr(jatas); 7 end 8 else 9 begin 10 editstatus.Text:='kanan'; editkanan.Text:=editsetkanan.Text; 11 jkanan:=strtoint(editkanan.Text); 12 hijaubawah.Visible:=false; 13 hijauatas.Visible:=false; 14 hijaukiri.Visible:=true; hijaukanan.Visible:=false; 15 merahbawah.Visible:=true; 16 merahatas.Visible:=true; 17 merahkiri.Visible:=false; 18 merahkanan.Visible:=true; 19 end; end 20 else if(editstatus.Text='kanan')then 21 begin 22 jkanan:=strtoint(editkanan.Text); 23 if(jkanan0)then 24 begin jkanan:=jkanan-1; 25 editkanan.Text:=inttostr(jkanan); 26 end 27 else 28 begin editstatus.Text:='bawah'; 29 editbawah.Text:=editsetbawah.Text; 30 jkanan:=strtoint(editkanan.Text); 31 hijaubawah.Visible:=false; 32 hijauatas.Visible:=true; 33 hijaukiri.Visible:=false; hijaukanan.Visible:=false; 34 merahbawah.Visible:=true; 35 merahatas.Visible:=false; 36 merahkiri.Visible:=true; 37 merahkanan.Visible:=true; end; 38 end 39 else if(editstatus.Text='bawah')then 40 begin 41 jbawah:=strtoint(editbawah.Text); 42 if(jbawah0)then begin 43 jbawah:=jbawah-1; 44 editbawah.Text:=inttostr(jbawah); 45 end 46 else 47 begin editstatus.Text:='kiri';



editkiri.Text:=editsetkiri.Text; 48 jkiri:=strtoint(editkiri.Text); 49 hijaubawah.Visible:=false; 50 hijauatas.Visible:=false; 51 hijaukiri.Visible:=false; hijaukanan.Visible:=true; 52 merahbawah.Visible:=true; 53 merahatas.Visible:=true; 54 merahkiri.Visible:=true; 55 merahkanan.Visible:=false; 56 end; end 57 else 58 begin 59 if(jkiri0)then 60 begin jkiri:=jkiri-1; 61 editkiri.Text:=inttostr(jkiri); 62 end 63 else 64 begin 65 editstatus.Text:='atas'; editatas.Text:=editsetatas.Text; 66 jatas:=strtoint(editatas.Text); 67 hijaubawah.Visible:=true; 68 hijauatas.Visible:=false; 69 hijaukiri.Visible:=false; 70 hijaukanan.Visible:=false; merahbawah.Visible:=false; 71 merahatas.Visible:=true; 72 merahkiri.Visible:=true; 73 merahkanan.Visible:=true; 74 end; end; 75 end; 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93



94 Jika Timer diaktifkan maka fungsi inilah yang akan berjalan perdetiknya. dimana jika edit setatus bertuliskan atas maka fungsi atas yang akan berjalan sesuai dengan detik yang sudah di setting. jika detik atas sudah habis maka otomatis memindahkan ke status kanan, dan code kanan akan berjalan hingga detik terakhir dan begitu seterusnya sampai kembali lagi keatas. 1 2 3 procedure TForm1.Button1Click(Sender: TObject); begin 4 lamp.Enabled:=false; 5 6 editatas.Text:=''; editbawah.Text:=''; 7 editkiri.Text:=''; 8 editkanan.Text:=''; 9 10 editsetatas.Text:=''; 11 editsetbawah.Text:=''; 12 editsetkiri.Text:=''; editsetkanan.Text:=''; 13 14 editstatus.Text:=''; 15 16 hijaubawah.Visible:=false; 17 hijauatas.Visible:=false; 18 hijaukiri.Visible:=false; hijaukanan.Visible:=false; 19 merahbawah.Visible:=false; 20 merahatas.Visible:=false; 21 merahkiri.Visible:=false; 22 merahkanan.Visible:=false; 23 24 end; 25 26 Jika Button Stop Di klik maka kita akan mematikan fungsi timer dan mebersihkan semua fielt teks dan menghilangkan lampu yang menyala. 1 procedure TForm1.Button2Click(Sender: TObject); 2 begin close; 3 end; 4 JIka button keluar di klik maka akan keluar dari program. ______________________________________________________________________________ _



Nah Berikut ini adalah Hasil Program Saat Dijalankan \(^o^”)/ :



Tampilan Awal Program Dijalankan



Isikan Setting Detik untuk Tiap Ruas Jalan, jika masih kosong ada konfirmasi saat button aktif di klik



Saat Diaktifkan, Awal berjalan dari Jalan Atas dimana ia akan melihat lampu di seberang jalannya yang saling berserbrangan, jalan arus searah jarum jam saat detik sudah mencapat nilai 0 akan berpindah.



Semua berhenti setelah button stop di klik



Delphi – Fungsi Enter Pada Edit Box



18/11/2012 by Eko Wardoyo



Assalamualaikum Temen Temen semua, Salam Semangat Kembali Di Minggu Pagi ini tetap di Catatan Eko Personal Blog. Wah masih setia dengan Tips Tips Materi Pembelajaran Delphi nich. Nah ada Pagi hari ini saya mau berbagi tips materi Delphi dengan Tema Fungsi Enter Pada Edit Box. Dimana saat kita melakukan enter maka kode scrip akan berjalan, untuk saat ini saya hanya menggunakan fungsi setfocus saja. Dimana saat edit box di enter akan cursor akan pindah di edit box lainnya, monggo disimak ya. Untuk Mempersingkat waktu, Langsung aja kita praktekkan ya. 



Pertama-tama temen temen bisa buat design form sebagai berikut :







Aturlah Properties Namenya sebagai Berikut :



Nau untuk alur programnya adalah sebagai berikut : 



Saat program Set Focus Kurso Pada Edit Box Nama, Saat Edit Box Nama Di isi Dan Di Enter maka Kursos akan pindah ke Edit Cita Cita.







Saat Edit Cita Cita Di isi dan di Enter maka akan pindah Set Fokus Ke Button Keluar.







jika button keluar diklik makan akan keluar dari program.



______________________________________________________________________________ _ Berikut ini adalah listing codenya : Pilih Edit Nama kemudian lihat di Object Inspectornya Pilih Tab Event. Kemudian Klik 2 Kali pada event Key Press.



1 procedure TForm1.editnamaKeyPress(Sender: TObject; var Key: Char); 2 begin 3 if key = chr(13) then begin 4 editcitacita.setfocus; 5 end; 6 end; 7



Jika Edit Box Nama Di Enter maka akan pindah ke Edit Box Cita Cita. 1 procedure TForm1.editcitacitaKeyPress(Sender: TObject; var Key: Char); 2 begin 3 if key = chr(13) then begin 4 btnkeluar.SetFocus; 5 end; 6 end; 7 Jika Edit Box Cita Cita Di Enter maka akan pindah ke Button Keluar. 1 procedure TForm1.btnkeluarClick(Sender: TObject); 2 begin 3 close; 4 end; Jika Button Keluar Di Klik maka akan keluar dari program ______________________________________________________________________________ _ Nah dibawah ini adalah hasil tampilan programnya :



Saat Edit Nama di isi dan di enter maka set focus akan pindah ke Edit box Cita Cita.



Button Keluar di Klik makan akan keluar dari program



Delphi – Karakter Angka Saja Pada Edit Box 19/11/2012 by Eko Wardoyo



Assalamualaikum Temen Temen semua, Salam Semangat Kembali Di Senin Pagi ini tetap di Catatan Eko Personal Blog. Wah masih setia dengan Tips Tips Materi Pembelajaran Delphi nich. Nah ada Pagi hari ini saya mau berbagi tips materi Delphi dengan Tema Karakter Angka Saja Pada Edit Box. Dimana saat kita melakukan pengisian Edit Box hanya bisa diisi dengan angka saja. Dimana saat edit box di isikan karakter abjad tidak akan bisa yang biasa kita gunakan untuk Edit Box Harga atau Pengisian lainnya yang hanya membutuhkan Angka, monggo disimak ya. Untuk Mempersingkat waktu, Langsung aja kita praktekkan ya. 



Pertama-tama temen temen bisa buat design form sebagai berikut :







Aturlah Properties Namenya sebagai Berikut :



Nau untuk alur programnya adalah sebagai berikut :







Saat program berjalan setfocus pada edit box.







Saat Edit Di Ketikkan Maka hanya bisa memasukkan angka saja dari 0 s/d 9 jika abjad tidak bisa diketikan.







jika button keluar diklik makan akan keluar dari program.



______________________________________________________________________________ _ Berikut ini adalah listing codenya : Pilih Edit Nama kemudian lihat di Object Inspectornya Pilih Tab Event. Kemudian Klik 2 Kali pada event Key Press.



1 procedure Tfrmmateri33.btnkeluarClick(Sender: TObject); 2 begin 3 close; 4 end; Edit Box hanya bisa diisi oleh angka saja. 1procedure Tfrmmateri33.editangkaKeyPress(Sender: TObject; var Key: Char); 2begin 3 if not ( key in['0'..'9', #8, #13]) then key:= #0 ; 4 end; 5 Jika button keluar di Klik maka keluar dari program. ______________________________________________________________________________ _ Nah dibawah ini adalah hasil tampilan programnya :



Saat Edit Nama di isi hanya bisa diisi dengan Angka Saja.



Button Keluar di Klik makan akan keluar dari program



Delphi Request – Timer Hitung Mundur Games 20/11/2012 by Eko Wardoyo



Assalamualaikum Temen Temen Semua, hay hay hay Selasa Pagi ini saya membuka Facebook ada lagi yang berbeda nich hehehe ( ada apa nich mas eko kasih tau dunk /(^o^”) *sahabat khayalan ). hehehe ada kawan dari di fanpage blog saya lainnya ituloh yang isinya materi pembelajaran Pemrograman Delphi Catatan Eko yang merequest Listing Code untuk kondisi program yang ia mau buat. Loch sudah lama saya tidak mengurus pembelajaran di Catatan Eko, ehh ada yang request lagi hehehehe, nah karena saya sudah berjanji saya jawab disini dech. Nah Sok kita bahas.



Nah dari tulisan diatas saya sudah dapat bayangan sich walau belum pernah buat hahahaha monggo langsung aja disimak materi ini ya mohon maaf jika gak jawaban saya tidak sesuai dengan yang diharapkan hehee. Langsung Aja Saya Jawab Ya Delphi On Reques Kali ini dengan Judul Timer Hitung mundur. Pertama Buat Form Baru sebagai berikut :



design form aplikasi Nah aturlah Properties Namenya Sebagai Berikut :



Properties Name Nah Berikut ini adalah alur programnya :







Jika Tombol Start Di Klik Maka Panel timer akan menentukan jumlah detik yang akan dihitung mundur pada program ini saya mensetting 5 detik saja supaya gampang melihat hasilnya. saat itu pula button Start akan enabled false dan button pause akan aktif dan timer mulai menghitung mundur perdetik.







Jika Button Pause di Klik maka hitung mundur akan berhenti dengan mematikan timernya dan button pause akan berubah nama menjadi lanjut.







Jika Button lanjut di klik makan kan menjalankan kembali timer dan hitungan mundur dan Button kembali mejadi Pause.







Jika Nilai Timer sudah menjadi 0 maka timer akan berhenti dan muncul konfirmasi bahwa waktu ada sudah habis dan kembali kesemula dengan button start yang aktif.







Jika button keluar diklik makan akan muncul konfirmasi keluar dari program jika ya makan akan keluar dari program.



______________________________________________________________________________ _ Berikut ini adalah listing Codenya : 1

2 3 procedure Tfrm_hitungmundur.FormCreate(Sender: TObject); 4 begin 5 6 button_pause.Enabled:=false; 7 end; 8 Pada Saat Aplikasi Dijalankan maka tampilan awal button Start Aktif namun Button pause tidak aktif. Dan Timer dalam keadaan tidak aktif juga panel timer hanya bernilai tulisan timer. 1 procedure Tfrm_hitungmundur.button_startClick(Sender: TObject); 2 begin 3 4 panel_timer.Caption:='5'; 5 timer1.Enabled:=true; 6 button_start.Enabled:=false; button_pause.Enabled:=true; 7 8 end; 9 Saat Button Start di klik makan panel timer akan menampilkan nilai atau jumlah detik yang akandiberikan untuk kasus kali ini saya hanya memakan nilai 5 agar mudah dilihat hasilnya. dan



Button Start menjadi tidak aktif dan button pause diaktifkan. Timer mulai berjalan berhitung sesuai interval yang diatur 1000 atau akan berjalan per 1 detik. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20



procedure Tfrm_hitungmundur.Timer1Timer(Sender: TObject); var waktu:integer; begin if panel_timer.Caption='0' then begin timer1.Enabled:=false; showmessage('Maaf Waktu anda habis'); button_start.Enabled:=true; button_pause.Enabled:=false; end else begin waktu:=strtoint(panel_timer.Caption); waktu:=waktu-1; panel_timer.Caption:=inttostr(waktu); end; end;



Saat Timer diaktifkan maka ia akan menjalankan nilai panel timer terus mengurahi satu nilai sehingga terlihat seperti hitungan mundur berdasarkan timer 1 detik yang sudah disetting :). jika nilai panel timer sudah mencapai batas 0 maka timer akan di matikan dan muncul konfirmasi masi bahwa waktu anda sudah habis :D. 1procedure Tfrm_hitungmundur.button_keluarClick(Sender: TObject); 2begin 3 4 if(application.MessageBox('Yakin Akan keluar dari Permainan','Konfirmasi',MB_YesNo)=ID_Yes) then 5 begin 6 close; end; 7 8 9end; Jika Button Keluar diklik maka akan muncul konfirmasi keluar jika pemilihan nilai yes maka akan keluar dari program :). 1 procedure Tfrm_hitungmundur.button_pauseClick(Sender: TObject); 2 begin 3 if button_pause.Caption='Pause' then 4 begin



5 6 timer1.Enabled:=false; button_pause.Caption:='Lanjut'; 7 end 8 else 9 begin 10 timer1.Enabled:=true; 11 button_pause.Caption:='Pause'; end; 12 13 14 end; 15 Jika button pause diklik maka akan mematikan timer dan waktu hitung mundurpun berhenti, dan saat itu nama button menjadi lanjut, jika button lanjut maka akan menjalankan kembali nilai timernya dan panel timer kembali melakukan hitung mundur. ______________________________________________________________________________ _ Nah Berikut ini adalah tampilan hasil aplikasinya



.



tampilan awal kita bisa memulai hitung mundur dengan klik start



timer berjalan mundur dan button pause aktif



JIka waktu mundur sudah mencapai nilai 0 maka akan muncul peringatan waktu habis



jika button keluar diklik makan akan muncul peringan keluar



Nah ia akan berjalan mundur sesuai dengan nilai yang kita masukkan pada tombol start. jika sudah mencapai 0 maka akan muncul notifikasi bahwa waktu habis dan akan mengulang kembali ke kondiri awal. ~ *** ~ Untuk Temen Temen yang mau liat sourcecodenya secara jelas untuk copy paste maka temen temen bisa lihat di pojok kanan atas listcode bisa temen temen klik yang view sourcecode untuk menampilkan codenya, perhatikan gambar berikut :



klik view sourcecode di kanan atas ( dilingkari merah )



contoh tampilan sourcecode saat sudah di klik



Delphi Request – Play Sound Wave 24/11/2012 by Eko Wardoyo



Assalamualaikum Temen Temen Semua, Heufff Sabtu Pagi ini beras berat sekali melangkahkan kaki, terasa badan tidak enak, tak semangat dan yang pasti malas melanda =50 maka a akan menghasilkan suara a a akan menghasilkan gambar a a akan menghasilkan tulisan a jika b= 60 then Label6.Caption:=’Batang’; sndPlaySound(‘E:\nyoba.wav’, SND_NODEFAULT Or SND_ASYNC Or SND_LOOP); if VoltF 0 maka akan muncul tulisan pada label_suara : ‘ ini adalah suara Ayam ~ ~ ~ ‘, kemudian image muncul gambar Ayam dan memainkan sound wave untuk ayam yang sudah disediakan.







Saat Nilai Text_a > 50 maka akan muncul tulisan pada label_suara : ‘ ini adalah suara Kodok ~ ~ ~ ‘, kemudian image muncul gambar kodok dan memainkan sound wave untuk kodok yang sudah disediakan.







jika nilai Text_a >100 maka gambar hilang, label kembali semula dan button_mulai Kembali Menjadi mulai dan text_a kembali bernila 0;



note: format gambar yang digunakan dengan format Bmp ya karena format jpg tidak support untuk image untul langsung load. format suara juga digunakan format wav yang sudah support tanpa ada penambahan komponent lainnya. ______________________________________________________________________________ _ Berikut ini adalah listing Codenya : tambahakan componet MMSystem pada list Uses di list kode paling atas delphi yang digunakan untuk pemutaran file wav ( lihat gambar dibawah ini ) :



1 TForm1.Timer1Timer(Sender: TObject); 2 procedure var 3 a:integer; 4 begin 5 a:=strtoint(edit_a.Text); 6 a:=a+2; edit_a.Text:=inttostr(a); 7 8 if a>100 then 9 begin 10 button_mulai.Caption:='Mulai'; 11 timer1.Enabled:=false; 12 timer_kodok.Enabled:=false; timer_ayam.Enabled:=false; 13 sndPlaySound(nil, 0); // Stops the sound 14 edit_a.Text:='0'; 15 16 image1.Picture:=nil; 17 label_suara.Caption:='ini adalah Suara ???? ~ ~ ~' 18 end else if a>50 then 19 begin 20 label_suara.Caption:='ini adalah Suara Kodok ~ ~ ~'; 21 image1.Picture.LoadFromFile('C:\main_suara_wat\picture\kodok.bmp'); 22 timer_ayam.Enabled:=false; timer_kodok.Enabled:=true; 23 end 24 else 25



26 27 28 begin 29 label_suara.Caption:='ini adalah Suara Ayam ~ ~ ~'; 30 image1.Picture.LoadFromFile('C:\main_suara_wat\picture\ayam.bmp'); 31 timer_ayam.Enabled:=true; 32 timer_kodok.Enabled:=false; end; 33 34 end; 35 36 37 saat timer1.enabled:=true maka akan menjalankan list code diatas dimana akan ada penambahan nilai a yang akan di tampilkan pada text_a. Jika nilai a bernilai > 50 maka akan tampil label tulisan suara kodok, gambar kodok dan suara kodok dengan menjalankan timer_kodok, selain dari a>50 maka ia akan bernilai ayam dan jika sudah lebih dari 100 maka akan di stop keseluruhan aktivitas timer :). 1 2 3 procedure TForm1.button_mulaiClick(Sender: TObject); begin 4 5 if button_mulai.Caption='Mulai' then 6 begin button_mulai.Caption:='Stop'; 7 timer1.Enabled:=true; 8 timer_ayam.Enabled:=false; 9 timer_kodok.Enabled:=false; 10 end 11 else begin 12 button_mulai.Caption:='Mulai'; 13 timer1.Enabled:=false; 14 timer_ayam.Enabled:=false; 15 timer_kodok.Enabled:=false; sndPlaySound(nil, 0); // Stops the sound 16 edit_a.Text:='0'; 17 image1.Picture:=nil; 18 label_suara.Caption:='ini adalah Suara ???? ~ ~ ~' 19 end; 20 21 end; 22 23 Jika caption button adalah Mulai maka akan menyalakan Timer1 dan jika Caption Button adalah Stop dan di klik maka akan mematikan timer1.



1procedure TForm1.timer_ayamTimer(Sender: TObject); 2begin 3 sndPlaySound('C:\on_request\sound\ayam.wav', SND_NODEFAULT Or SND_ASYNC 4Or SND_LOOP); 5 timer_ayam.Enabled:=false; 6 7end; Jika Timer Ayam dinyalakan dengan enabled = true maka akan menjalankan file suara ayam. 1procedure TForm1.Timer_kodokTimer(Sender: TObject); 2begin sndPlaySound('C:\on_request\sound\kodok.wav', SND_NODEFAULT Or 3SND_ASYNC Or SND_LOOP); 4 timer_kodok.Enabled:=false; 5end; Jika Timer kodok dinyalakan dengan enabled = true maka akan menjalankan file suara kodok. ______________________________________________________________________________ _ Nah Berikut ini adalah tampilan hasil aplikasinya



mulai program dengan klik button mulai



.



nilai teks a jika < 50 maka akan tampil suara dan gambar ayam



jika nilai teks a > 50 maka akan tampil suara dan gambar kodok Nah jika nilai teks sudah lebih dari 100 ia akan otomatis kembali ke awal dengan Caption Button Menjadi Mulai dan gambar hilang dan Suara Hilang :).. Nah itulah yang bisa saya jawab untuk pertanyaan listing kode delphi yang pertama masuk kesaya ini hehehehe. Untuk Temen Temen yang mau liat sourcecodenya secara jelas untuk copy paste maka temen temen bisa lihat di pojok kanan atas listcode bisa temen temen klik yang view sourcecode untuk menampilkan codenya, perhatikan gambar berikut :



klik view sourcecode di kanan atas ( dilingkari merah )



contoh tampilan sourcecode saat sudah di klik