Spesifikasi Kebutuhan Kontrol Komponen
Langkah Pembuatan Program
1. Buat proyek aplikasi yang baru dan desain form baru dengan menempatkan control komponen pada bidang form.
Gambar 3.5 desain form
2. Tulis listing program selengkapnya seperti berikut:
var
baris,nilai:integer;
begin
baris:=100000;
ProgressBar1.Max:=baris;
ProgressBar1.Min:=0;
for nilai:=1 to baris do
ProgressBar1.Position:=nilai;
ProgressBar1.Enabled:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
end.
3. Pengujian Program
Gambar 3.6 Proses Animasi Progres Bar berjalan