Thread – Membuat thread sederhana

Tingkatan	Pemula
Kategori	System
Sub Kategori	Thread
Judul	Membuat thread sederhana
Oleh	Nama Eko Indriyawan Domisili Surabaya – Darmo Satelit Delphi Delphi 2007 for Win32 YM eko_elits Email eko_elits@yahoo.com Telp 031 – 605 384 36
Referensi	by Eko Indriyawan
Tujuan	Mengajarkan kepada Delphier untuk membuat thread sederhana.
Overview	Pembahasan pada artikel ini masih sederhana, sehingga masih banyak kekurangan. Namun paling tidak dari contoh dan pembahasan yang diberikan sudah bisa sedikit memberikan gambaran kepada delphier untuk membuat thread sederhana. Artikel ini sangatlah menarik, kenapa menarik? karena dari contoh program ini, anda diberikan wawasan tentang menghandle beberapa proses tanpa harus menunggu proses itu selesai. Fungsi thread disini sangatlah bermanfaat, karena selama proses eksekusi prosedur, aplikasi masih bisa dioperasikan. Diharapkan dengan contoh yang sederhana ini mampu memberikan inspirasi kepada Delphier dalam membuat program aplikasi yang lebih stabil.
Petunjuk :	Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
Langkah 1	Buat program aplikasi baru.
Langkah 2	Tambahkan beberapa object kedalam Form
	Button1: TButton; Button2: TButton; Bevel1: TBevel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; ProgressBar1: TProgressBar; ProgressBar2: TProgressBar; ProgressBar3: TProgressBar; ProgressBar4: TProgressBar; ProgressBar5: TProgressBar; ProgressBar6: TProgressBar;
Langkah 3	Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
Langkah 4	Silahkan anda deklarasikan object thread TCounter. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.
	… … TCounter = class(TThread) private DataOutput : TProgressBar; Max : Integer; protected procedure Execute; override; public constructor Counter(var OutPut : TProgressBar; Batas : Integer); end; … …
Langkah 5	Tuliskan kode program pada prosedur Execute. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.
	… … procedure TCounter.Execute; // deklarasikan variabel var indek : Integer; begin // Set nilai maksimal dari progresbar DataOutput.Max := Max; for indek := 1 to Max do begin // Memberikan status posisi progressbar DataOutput.Position := indek; // tahan thread agar tidak terlalu cepatSleep(100); end; end; … …
Langkah 6	Tuliskan kode program pada constructor Counter. Untuk lebih jelasnya silahkan lihat potongan kode program dibawah ini.
	… … constructor TCounter.Counter(var OutPut : TProgressBar; Batas : Integer); begin // buat object temporary untuk progressbar DataOutput := TProgressBar.Create(nil); DataOutput := OutPut; // assign nilai batas maksimal progressbar Max := Batas; Inherited Create(False); end; … …
Langkah 7	Silahkan anda klik 2x tombol Proses. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnTimerseperti terlihat pada potongan kode program dibawah ini.
	… … procedure TForm1.Button1Click(Sender: TObject); begin // menghindari proses flicker / kedipan ProgressBar1.DoubleBuffered := True; ProgressBar2.DoubleBuffered := True; ProgressBar3.DoubleBuffered := True; ProgressBar4.DoubleBuffered := True; ProgressBar5.DoubleBuffered := True; ProgressBar6.DoubleBuffered := True; // proses counter dengan membuat thhread untuk masing2 counter TCounter.Counter(ProgressBar1,StrToInt(Edit1.Text)); TCounter.Counter(ProgressBar2,StrToInt(Edit2.Text)); TCounter.Counter(ProgressBar3,StrToInt(Edit3.Text)); TCounter.Counter(ProgressBar5,StrToInt(Edit5.Text)); TCounter.Counter(ProgressBar6,StrToInt(Edit6.Text)); end; … …
Langkah 8	Silahkan anda compile. Tekan tombol Ctrl + F9
	Tunggu beberapa saat… ( Sedang di cek kode programnya )
	Apabila tidak muncul pesan error, berarti program yang anda buat telah berhasil dan silahkan anda tekan tombol F9 untuk menjalankan program aplikasinya.
Langkah 9	Anda tentukan masing – masing batas maksimal progressbar.
Langkah 10	Tekan tombol Proses. Apabila program berhasil, maka akan didapatkan tampilan seperti berikut.
Langkah 11	Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar.
Download	Membuat thread sederhana Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap. Ada beberapa masukan dan keluhan dari teman – teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32. Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah – langkah yang sudah diberikan. Atas perhatiannya, saya mengucapkan banyak terimakasih.
Link terkait
Buku panduan	Dasar First Step To Be A Programmer Menengah Pemrograman Database dengan Delphi dan MS SQL Server Menengah Membangun database MLM