Penggunaan Progress Bar Delphi #63

andrypein.net : progress bar delphi adalah komponen progress (yodawg), ya lah intinya mah gitu we, biasa nya menampilkan sebuah presentase sebuah proses atau eksekusi.

Penampakannya seperti ini gan :

Yang ijo2nya itu adalah progress bar (ijo = mirip maho ) haha.

Kali ini di delphi kita akan membuat contoh penggunaan progress bar tersebut, ya dengan program nyubi tentunya, yang nyubi2 aja dulu lah.

Penampakan program nyubi kita kali ini seperti :

 

Lalu bahan2nya adalah berupa :

Untuk progressbar ada di palette win 32

Dan statictext berada di palette additional

Statictext ditunjukan oleh gambar yang A itu, next kita lanjut kodingnya.

Pertama-tama beri event on create pada form:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Progressbar.max:=100000;
 Progressbar.min:=0;
end;

Lalu pada buttonnya beri event click

procedure TForm1.Button1Click(Sender: TObject);
var
 i : integer;
begin
 progressbar.position:=0;
 for i:=0 to 100000 do
 begin
  progressbar.Position:=1;
  if (i mod 100 = 0) then
   statictext1.caption:=floattostr((i*100) / 100000)+' % Completed';
 end;
end;

Oke dah selesai coba run saja, dan semoga bermanfaat

*AFK