ProgressBar pada Delphi

Desain Form seperti gambar dibawah ini, gunakan komponen ProgressBar (Tab Win32) dan Timer (Tab System).

ProgressBar1

Lihat Properties pada ProgressBar, nilai default Properties Max = 100 yaitu panjang maksimal ProgressBar tersebut dan dapat diubah sesuai keinginan.

ProgressBar2

Sedangkan Properties Orientation untuk mengatur ke arah mana ProgressBar berjalan (Horizontal atau Vertical). Kalau di ubah menjadi Vertikal berarti Desain ProgressBar di ubah memanjang kebawah. Untuk Properties Style bisa dilihat sendiri perbedaannya setelah program dijalankan.

Untuk Timer, atur Properties Interval menjadi “100″. Semakin kecil nilainya semakin alus progressnya dan semakin cepat progressnya. Nilai Interval ini jika “1000″ berarti “1 detik” jadi ketika di ubah “100 = 0,1 detik“. Coba saja di ubah-ubah dan lihat hasilnya.

ProgressBar3

Kalau sudah masukkan kode program berikut kedalam Timer dengan klik 2 kali pada Timer1.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    ProgressBar1.Position := ProgressBar1.Position + 1;
      if ProgressBar1.Position = 100 then
        Timer1.Enabled := False;
 end;

ProgressBar dapat berjalan karena Properties Position yang digunakan. Position awal ProgressBar adalah “O” (dapat diubah sesuai keinginan) karena ditambah “1″ secara terus menerus sehingga mencapai maksimal yaitu “100” seperti yang dijelaskan di atas. Dan ketika telah mencapai “100Timer1 akan di nonaktifkan (disable) sehingga ProgressBar benar-benar telah berhenti. Untuk mengetesnya coba tambahkan Nilai Max pada Properties ProgressBar menjadi “200” dan lihat pengaruh programnya.

Hasilnya berikut ini.

ProgressBar4

Download Source Code disini.

Iklan

, , , , , , ,

  1. Tinggalkan komentar

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: