Membuat form loading atau progress bar

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

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. Dah jangan lama lama nanti keburu telat ngantor nich. 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.semua materinya simple dan gampang kok malah kita nanti bisa dapat trik trik yang bisa dipakai dalam pembuatan program kita nanti.

• 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 :

procedure Tfrm_loading.Timer1Timer(Sender: TObject);
begin

if progressbar1.Position=100 then
  begin
    frm_menu_utama.Show;
    frm_loading.Hide;
    timer1.Enabled:=false;
  end
else
  begin
    progressbar1.Position:=progressbar1.Position+5;
  end;

end;

 
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.

procedure Tfrm_menu_utama.Button1Click(Sender: TObject);
begin

  frm_loading.close;
  frm_menu_utama.Close;

end;

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

http://catataneko.wordpress.com.