Friday, 10 February 2017T2/10/2017 09:10:00 pm

MEMBUAT LOADING PROGRESS ANIMASI Di DELPHI

Salam blogger…pada kesempatan kali ini saya akan share cara mudah membuat loading proggess animasi di Delphi. Tampilan loading progress ini biasanya dibuat untuk ditampilkan pada saat sebelum menampilkan menu utama pada aplikasi, namun bisa juga ditampilkan setelah form menu login untuk menuju ke menu utama aplikasi. Dibuatnya tampilan loading progress ini tujuannya untuk membuat tampilan aplikasi yang atraktif dan cantik sehingga para pengguna dari aplikasi tersebut dapat senang dalam menggunakan aplikasi yang dibuat.
 Pada kesempatan kali ini kita akan saya akan memberikan tutorial cara pembuatan loading progress dengan animasi di Delphi, Delphi yang saya gunakan kali ini adalah Delphi versi XE 8 series, namun sobat juga dapat membuatnya di Delphi versi apa saja yang sobat gunakan, baik itu Delphi 7, Delphi 2010 ataupun Delphi versi terbaru lainnya. Disini saya menggunakan dua buah gambar untuk membuat tampilan animasi di progress bar yang dibuat. Pertama – tama kita siapakan dua buah gambar dengan format .bmp , disini saya menggunakan gambar smileface emoticon, sobat bisa memakai gambar apa saja asalkan format nya di ubah ke extensi .bmp. jika sudah silahkan buat sebuah folder untuk tempat menyimpan project aplikasi loading proress yang kita buat, disini saya membuat sebuah folder dengan nama “START UP Aplikasi” dan saya tempatkan di drive D:\ , lalu tempatkan kedua gambar yang sudah disiapkan tadi ke dalam folder di D:\START UP Aplikasi\ . (contoh pada gambar dibawah ini).
Jika sudah selanjutnya kita akan membuat project didelphi nya, silahkan sobat buat project baru di Delphi, lalu buat 2 buah form, disini kita membuat dua buah form, yang mana form1 untuk tempat loading progress animasi dan form2 sebagai menu utama nya. Sekarang kita akan design form1 terlebih dahulu. Silahkan sobat design form nya seperti pada gambar dibawah ini.

Adapun komponen yang di gunakan pada form 1 ini adalah sebagai berikut :

  • 1 buah label dan isi captionnya = loading……..

  • 1 buah progress bar

  • 1 buah image dan atur properties stretch menjadi true.

  • 1 buah timer dan atur interval nya menjadi 500

Selanjutnya pada form1 atur properties nya menjadi :

  • Borderstyle = bsnone

  • Color = clwindow

  • Position = poScreenCenter

  • Jangan lupa pada uses tambahkan Jpeg,

  • Lalu pada var form1 tambahkan tulisan mundur : integer; gantigambar : Boolean;

  • Lalu di bawah kata implementation {$R *.dfm}  tambahkan kata uses unit2;

Lalu pada timer1 klik 2x dan masukan koding berikut :

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if progressbar1.Position < 100 then

 begin

progressbar1.Position := progressbar1.Position + 20;

end

else

 begin

 if gantigambar = false then

begin

 image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) +

'.\face2.bmp');

gantigambar := true;

 end;

 mundur := mundur - 1;

 if mundur = 0 then

 begin;

 timer1.Enabled := false;

 self.Hide;

Form2.Show;

 end;

 end;

end;

 

Lalu pada form1 di object insector pada event OnActivate masukan koding dibawah ini :

procedure TForm1.FormActivate(Sender: TObject);

begin

image1.picture.loadfromfile(ExtractFilePath(Application.ExeName) +

'.\face1.bmp');

mundur := 4;

gantigambar := false;

end;


design dan koding di form1 suah selesai, sekarang kita menuju ke form2, form2 ini dicontohkan  sebagai form menu utama jadi tidak banyak yang perlu di rubah, disini kita saya hanya menambahkan button1 sebagai tombol untuk close program, lalu klik 2x pada button1 tersebut dan masukan koding program berikut :

procedure TForm2.Button1Click(Sender: TObject);

begin

application.Terminate;

end;


sampai disini program yang kita buat sudah selesai, maka sobat tinggal menjalankan program nya dengan cara menekan F9/RUN. dan lihat hasilnya, adapun alur kerja program tersebut adalah pada saat program dijalankan maka progressbar akan terisi sampai penuh dan gambar 1 akan berganti ke gambar 2, lalu jika sudah penuh maka form loding akan di hiden dan akan muncul form menu utama. Jika sobat ingin mencoba program buatan saya, sobat bisa mendownload program nya pada link dibawah.

Demikian postingan artikel saya kali ini tentang cara membuat loading progress animasi di Delphi yang dapat saya share kali ini, semoga dapat bermanfaat bagi sobat semua dan selamat mencoba.
Previous
Next Post »
0 Komentar untuk "MEMBUAT LOADING PROGRESS ANIMASI Di DELPHI"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status